bwBASIC/NBS2/P154.BAS

10 PRINT "PROGRAM FILE 154: ERROR - MISSING ARGUMENT-LIST FOR "
15 PRINT "        USER-DEFINED FUNCTION."
20 PRINT "    ANSI STANDARD 16.4"
30 PRINT
40 PRINT "SECTION 154.1: ERROR - MISSING ARGUMENT-LIST FOR "
45 PRINT "        USER-DEFINED FUNCTION."
50 PRINT
60 PRINT "THIS SECTION TESTS WHAT HAPPENS WHEN A USER FUNCTION IS"
70 PRINT "INVOKED WITHOUT AN ARGUMENT-LIST, THOUGH ONE IS REQUIRED"
80 PRINT "IN THE DEF STATEMENT."
90 PRINT
100 PRINT "THIS IS A TEST FOR A NON-STANDARD FEATURE OF MINIMAL BASIC."
110 PRINT "TO PASS THIS TEST, THE PROCESSOR MUST EITHER:"
120 PRINT
130 PRINT "   1) ACCEPT THE PROGRAM AND BE ACCOMPANIED BY DOCUMENTATION"
140 PRINT "      ACCURATELY DESCRIBING THE FEATURE'S INTERPRETATION"
150 PRINT "      BY THE PROCESSOR, OR"
160 PRINT
170 PRINT "   2) REJECT THE PROGRAM WITH AN APPROPRIATE ERROR MESSAGE"
180 PRINT
190 PRINT "SEE THE NBS MINIMAL BASIC TEST PROGRAMS USER'S MANUAL"
200 PRINT "FOR DETAILED CRITERIA."
210 PRINT
220 PRINT "             BEGIN TEST"
225 DEF FND(R)=(R*180)/3.14159
228 PRINT
229 PRINT "DEFINITION OF FND(R)=(R*180)/3.14159"
230 PRINT
240 PRINT "ABOUT TO ATTEMPT INVOCATION OF FND."
250 LET A=FND
260 PRINT "PROCESSOR HAS EVALUATED FND = ";A
270 PRINT
280 PRINT "              END TEST"
290 PRINT
300 PRINT "END PROGRAM 154"
310 END