12 lines
475 B
Plaintext
12 lines
475 B
Plaintext
10 LET A%=0
|
|
20 LET B%=NOT(A%)
|
|
30 PRINT "THIS VERSION OF BASIC USES"
|
|
40 PRINT B%; " AS ITS TRUE VALUE"
|
|
50 IF A% THEN PRINT "TEST ONE DOES NOT PRINT"
|
|
60 IF B% THEN PRINT "TEST TWO DOES PRINT"
|
|
70 IF A%=0 THEN PRINT "TEST THREE (FALSE BY COMPARISON) DOES PRINT"
|
|
80 IF B%=0 THEN PRINT "TEST FOUR (FALSE BY COMPARISON) DOES NOT PRINT"
|
|
90 IF A%<>0 THEN PRINT "TEST FIVE (TRUE BY COMPARISON) DOES NOT PRINT"
|
|
100 IF B%<>0 THEN PRINT "TEST SIX (TRUE BY COMPARISON) DOES PRINT"
|
|
110 END
|