NBS Minimal BASIC Test Programs: Version 2, User's Manual, Volume 13U.S. Department of Commerce, National Bureau of Standards, 1980 |
From inside the book
Results 11-15 of 39
Page 143
... LOOP EXITED " 400 LET M $ = " OK 11 410 IF I1 = 12 THEN 440 420 LET M $ = " FAILED " 430 LET S1 = 1 440 PRINT 12,11 , M $ 450 LET M $ = " OK 11 460 IF T1 T2 THEN 490 470 LET M $ = " FAILED " 480 LET S1 = 1 490 PRINT 500 PRINT " NO ...
... LOOP EXITED " 400 LET M $ = " OK 11 410 IF I1 = 12 THEN 440 420 LET M $ = " FAILED " 430 LET S1 = 1 440 PRINT 12,11 , M $ 450 LET M $ = " OK 11 460 IF T1 T2 THEN 490 470 LET M $ = " FAILED " 480 LET S1 = 1 490 PRINT 500 PRINT " NO ...
Page 144
... LOOP EXITED 23 23 OK NO . TIMES THROUGH LOOP : SHOULD BE : 4 ACTUAL : 4 RESULT : OK *** TEST PASSED *** END TEST . END PROGRAM 45 10 PRINT " PROGRAM FILE 46 : INTERACTION OF CONTROL STATEMENTS WITH " 20 PRINT " THE FOR - STATEMENT ...
... LOOP EXITED 23 23 OK NO . TIMES THROUGH LOOP : SHOULD BE : 4 ACTUAL : 4 RESULT : OK *** TEST PASSED *** END TEST . END PROGRAM 45 10 PRINT " PROGRAM FILE 46 : INTERACTION OF CONTROL STATEMENTS WITH " 20 PRINT " THE FOR - STATEMENT ...
Page 145
... LOOP EXITED " 450 GOSUB 6000 490 LET M $ = " _ OK 11 500 IF T1 T2 THEN 530 510 LET M $ = " FAILED " 520 LET S1 = 1 530 PRINT 540 PRINT " NO . TIMES THROUGH LOOP : " 550 PRINT " SHOULD BE : " ; T2 ; " 560 PRINT 570 IF S1 = 0 THEN 600 580 ...
... LOOP EXITED " 450 GOSUB 6000 490 LET M $ = " _ OK 11 500 IF T1 T2 THEN 530 510 LET M $ = " FAILED " 520 LET S1 = 1 530 PRINT 540 PRINT " NO . TIMES THROUGH LOOP : " 550 PRINT " SHOULD BE : " ; T2 ; " 560 PRINT 570 IF S1 = 0 THEN 600 580 ...
Page 146
... LOOP COUNT 940 LET T1 = 0 950 PRINT " ENTERING OUTER LOOP " 960 FOR I1 = A1 TO B1 STEP C1 970 LET T1 T1 + 1 990 GOSUB 6000 1030 GOSUB 1360 1040 LET 12 = 12 + C2 1050 NEXT I1 1060 PRINT " OUTER LOOP EXITED " 1080 GOSUB 6000 1120 LET M ...
... LOOP COUNT 940 LET T1 = 0 950 PRINT " ENTERING OUTER LOOP " 960 FOR I1 = A1 TO B1 STEP C1 970 LET T1 T1 + 1 990 GOSUB 6000 1030 GOSUB 1360 1040 LET 12 = 12 + C2 1050 NEXT I1 1060 PRINT " OUTER LOOP EXITED " 1080 GOSUB 6000 1120 LET M ...
Page 147
... LOOP " 1855 GOSUB 6000 1860 LET M $ = " OK 11 1870 IF T1 T2 THEN 1900 1880 LET M $ = " FAILED " 1890 LET S1 = 1 1900 PRINT 1910 PRINT " NO . TIMES THROUGH LOOP : " 1920 PRINT " SHOULD BE : " T2 ; " 1930 PRINT 1940 PRINT 1950 PRINT 2000 ...
... LOOP " 1855 GOSUB 6000 1860 LET M $ = " OK 11 1870 IF T1 T2 THEN 1900 1880 LET M $ = " FAILED " 1890 LET S1 = 1 1900 PRINT 1910 PRINT " NO . TIMES THROUGH LOOP : " 1920 PRINT " SHOULD BE : " T2 ; " 1930 PRINT 1940 PRINT 1950 PRINT 2000 ...
Other editions - View all
Common terms and phrases
15 PRINT 20 PRINT 40 PRINT SECTION ACCEPT THE PROGRAM ACCOMPANIED BY DOCUMENTATION ACCURATELY DESCRIBING ANSI STANDARD 7.2 APPROPRIATE ERROR MESSAGE ARGUMENT ASSIGNED BASIC TEST PROGRAMS COMPUTED DATA DESCRIBING THE FEATURE'S DETAILED CRITERIA DIM-STATEMENT DISPLAYED DIVISION BY ZERO END END TEST END PROGRAM FILE EXRAD FEATURE OF MINIMAL FEATURE'S INTERPRETATION FOR-STATEMENT GOSUB GOTO IDENTIFYING THE EXCEPTION implementation INFORMATIVE TEST PASSED INPUT INPUT-REPLY LINE NUMBER LINE-NUMBERS MACHINE INFINITY MESSAGE IDENTIFYING MINIMAL BASIC TEST NBS MINIMAL BASIC NON-STANDARD FEATURE NUMERIC EXPRESSIONS OK OK OK ON-GOTO OPTION BASE PASS THIS TEST PRINT 40 PRINT PRINT BEGIN TEST PRINT END PROGRAM PRINT END TEST PRINT FOR DETAILED PRINT PROGRAM FILE PRINT THIS PROGRAM PRINT THIS SECTION PRINT TO PASS PROCESSOR PROGRAM TESTS PROGRAMS USER'S MANUAL QUOTED STRINGS READ REFS REJECT THE PROGRAM REM SUBROUTINE RND FUNCTION SECTION TESTS SIGNIFICAND STATEMENT TEST IS INFORMATIVE TEST OK TEST PROGRAMS USER'S UNDERFLOW USER-DEFINED FUNCTION