140 POKE -16368,0: VTAB 21: CALL -958:Z = Z +1: ON Z = 27 GOTO 360:R = R(Z):R$ = MID$ (N$,R,1): XDRAW N(R) AT X(Z),Y(R)
150 VTAB 21: PRINT "WHICH NOTE IS THIS? ": IF S = 4 THEN VTAB 21: HTAB 21: GET Z$: PRINT Z$:K = ASC(Z$) +128: GOTO 200
160 FOR J = 1 TO S *SP: IF J/8 = INT(J/8) THEN FL = NOT FL
170 CURSUR = 160 +95 *FL: VTAB 21: HTAB 21: PRINT CHR$(CURSUR);:K = PEEK(KB): IF K >127 THEN 200
180 NEXT J: HTAB 21: PRINT SPC( 5)"TOO LATE!"; SPC( 6): NORMAL :T = Z: IF REVIEW THEN T = M(N)
190 GOTO 330
200 IF (K <193 OR K >199) AND (K <225 OR K >231) THEN VTAB 21: HTAB 26: PRINT "ILLEGAL ENTRY"; SPC( 2): FOR I = 1 TO 5: POKE 8,160: POKE 6,5: CALL 768: FOR W = 1 TO 10: NEXT W: NEXT I: POKE KB +16,0: GOTO 150
210 V = INT((((S *SP) -J)/S)/2 +(D/4)):V = 6 *(V >6) +V *(V < = 6):Z$ = CHR$(K -128):Z1$ = CHR$(K -160): IF S = 4 THEN V = 0
220 POKE KB +16,0: VTAB 21: HTAB 21: PRINT Z$;: IF Z$ < >R$ AND Z1$ < >R$ THEN 310
230 HTAB 26: PRINT "RIGHT!!"; SPC( 8)
240 IF S = 4 THEN 270
250 VV = VV +V: FOR I = 1 TO V: XDRAW 10 AT X,Y:X = X +5: IF X = 278 THEN X = 3:Y = Y +12
260 NEXT I
270 T = Z: IF REVIEW THEN T = M(N):RI = RI +1
280 POKE 8,T(R(T)): POKE 6,30: CALL 768
290 GOSUB 910:C = C +1: IF NOT REVIEW THEN 120
300 XDRAW N(R) AT X(M(N)),Y(R):M(N) = 0: GOTO 430
310 HTAB 26: PRINT "WRONG!!"; SPC( 8):T = Z: IF REVIEW THEN T = M(N)
320 T = Z: IF REVIEW THEN T = M(N)
330 FOR I = 1 TO 8: POKE 8,T(R(T)): POKE 6,5: CALL 768: POKE 8,T(R(T)) +10: POKE 6,5: CALL 768: NEXT I:MISTAKE = 1: GOSUB 910: IF NOT REVIEW THEN M = M +1:M(M) = Z
340 VTAB 21: CALL -958: PRINT "THE RIGHT ANSWER IS ";R$;".": PRINT "YOU NEED TO PRACTICE THAT ONE!!": GOSUB 910: IF NOT REVIEW THEN 120
350 XDRAW N(R) AT X(M(N)),Y(R): GOTO 430
360 PC = INT(C/(Z -1) *10000/100): VTAB 21: HTAB 1: PRINT "YOU GOT ";C;" RIGHT OUT OF 26": PRINT "IN THE FIRST ROUND.": PRINT "THAT'S ";PC;" PERCENT.";: GOSUB 910: IF M = 0 THEN 440
390 FOR I = 1 TO 26: XDRAW N(R(I)) AT X(I),Y(R(I)): NEXT I: FOR J = 1 TO 16: FOR I = 1 TO M: XDRAW N(R(M(I))) AT X(M(I)),Y(R(M(I))): NEXT I: FOR W = 1 TO 27 -M: NEXT W: NEXT J
400 REM REVIEW
410 FOR N = 1 TO M: IF M(N) = 0 THEN NEXT : ON (RI = M) +1 GOTO 410,440