Appears on
Assembled by Tim Ward from many sources. Contains programs 10122 – 10175.
Source Code
1 LET A=7 8 PRINT 9 PRINT 10 FOR B=1 TO 5 20 FOR N=0 TO 10 30 PRINT "-"; 40 NEXT N 45 PRINT 46 PRINT 50 NEXT B 60 PRINT AT 0,0;"% % % NOTE TESTER" 70 PRINT " % % " 80 PRINT "-% -% " 90 PRINT " % % " 100 PRINT "-% -% " 110 PRINT " % \##" 120 PRINT "-% \##" 130 PRINT "% % % % " 140 PRINT "% % -% " 150 PRINT "% % % % " 160 PRINT "-% " 170 PRINT " % " 180 PRINT "% % " 190 PRINT "% % " 200 LET B=INT (RND*11)+1 210 PRINT AT B,A;"% " 215 IF B>8 THEN LET B=B-7 220 LET B=(11-B)+34 230 PRINT AT 15,10;"YOUR GUESS?" 240 INPUT A$ 250 IF CODE A$<>B THEN PRINT AT 15,10;"% % %W%R%O%N%G% % % % " 260 IF CODE A$=B THEN PRINT AT 15,10;"% % % %R%I%G%H%T% % % % " 270 PAUSE 4E4 275 CLS 280 RUN 290 SAVE "1013%7" 300 RUN