Note Tester

IF YOU do not know notes but want to learn, Note Tester for the 1K T/S1000,ZX81 is bound to help. The display features a treble stave and a blob at some random position on it. The blob represents a musical note which you have to guess, or know.

The computer will tell you whether you are correct and will then wait for you to press any key before RUNning once again.

Listing buffs might like the way the random number is linked to the note through CHR$.

   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;" ███"
  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;"███WRONG███"
 260 IF CODE A$=B THEN PRINT AT 15,10;"███RIGHT███"
 270 PAUSE 4E4
 275 CLS
 280 RUN