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 16-20 of 81
Page 62
... GOSUB 4500 1900 PRINT 1910 PRINT " *** TEST " ; R $ ; " 1915 PRINT 1920 PRINT END TEST . " 1925 PRINT 1930 PRINT ... GOSUB 2900 2125 GOSUB 5000 2130 RETURN 2500 REM SUBROUTINE TO TEST CONSTANT < > VARIABLE 2505 LET A $ = " T * " 2510 LET ...
... GOSUB 4500 1900 PRINT 1910 PRINT " *** TEST " ; R $ ; " 1915 PRINT 1920 PRINT END TEST . " 1925 PRINT 1930 PRINT ... GOSUB 2900 2125 GOSUB 5000 2130 RETURN 2500 REM SUBROUTINE TO TEST CONSTANT < > VARIABLE 2505 LET A $ = " T * " 2510 LET ...
Page 63
... GOSUB 3900 3125 GOSUB 5000 3130 RETURN 3500 REM SUBROUTINE TO TEST VARIABLE < > CONSTANT 3505 LET A $ = " T " 3510 LET B $ = " T " 3520 LET L $ = " OK 11 3530 IF T $ = " 0X9 " THEN 3560 3540 LET A $ = " F " 3550 GOTO 3580 3560 LET R ...
... GOSUB 3900 3125 GOSUB 5000 3130 RETURN 3500 REM SUBROUTINE TO TEST VARIABLE < > CONSTANT 3505 LET A $ = " T " 3510 LET B $ = " T " 3520 LET L $ = " OK 11 3530 IF T $ = " 0X9 " THEN 3560 3540 LET A $ = " F " 3550 GOTO 3580 3560 LET R ...
Page 64
... GOSUB 4900 4625 GOSUB 5000 4630 RETURN 4900 REM SUBROUTINE TO PRINT COMPARANDS FOR VARIABLE : VARIABLE 4910 PRINT V $ ; TAB ( 20 ) ; " V : " ; W $ ; TAB ( 43 ) ; " V " ; 4920 RETURN 5000 REM SUBROUTINE TO PRINT RESULTS OF COMPARE 5010 ...
... GOSUB 4900 4625 GOSUB 5000 4630 RETURN 4900 REM SUBROUTINE TO PRINT COMPARANDS FOR VARIABLE : VARIABLE 4910 PRINT V $ ; TAB ( 20 ) ; " V : " ; W $ ; TAB ( 43 ) ; " V " ; 4920 RETURN 5000 REM SUBROUTINE TO PRINT RESULTS OF COMPARE 5010 ...
Page 65
... GOSUB 1000 180 GOSUB 4000 190 LET A0 = 5.4321E - 22 200 GOSUB 2000 210 GOSUB 4000 220 LET A0 = 3.14159E - 26 230 GOSUB 3000 240 GOSUB 4000 250 LET A0 = -00.0E3 260 GOSUB 3000 270 GOSUB 4000 11 " ; *** *** *** 280 LET A0 = -3.14159E - 26 ...
... GOSUB 1000 180 GOSUB 4000 190 LET A0 = 5.4321E - 22 200 GOSUB 2000 210 GOSUB 4000 220 LET A0 = 3.14159E - 26 230 GOSUB 3000 240 GOSUB 4000 250 LET A0 = -00.0E3 260 GOSUB 3000 270 GOSUB 4000 11 " ; *** *** *** 280 LET A0 = -3.14159E - 26 ...
Page 66
... GOSUB 3000 300 GOSUB 4000 310 LET A0 = -3.14159 320 GOSUB 3000 330 GOSUB 4000 335 REM NOW DO CONSTANT : VARIABLE 340 LET BO = -98765500000 350 GOSUB 1000 360 GOSUB 4200 370 LET BO = -98765400000 380 GOSUB 2000 390 GOSUB 4200 400 LET BO ...
... GOSUB 3000 300 GOSUB 4000 310 LET A0 = -3.14159 320 GOSUB 3000 330 GOSUB 4000 335 REM NOW DO CONSTANT : VARIABLE 340 LET BO = -98765500000 350 GOSUB 1000 360 GOSUB 4200 370 LET BO = -98765400000 380 GOSUB 2000 390 GOSUB 4200 400 LET BO ...
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