Note Tester

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10122 – 10175.

Gallery

Note Tester

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 

People

No people associated with this content.

Scroll to Top