home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / TEST / PITCH.TEST.bas < prev    next >
BASIC Source File  |  2020-08-13  |  1KB  |  35 lines
  1. 1  TEXT : PRINT  CHR$(21)
  2. 5 SR = 12 *4096 +10 *16 +8:DR = SR +1
  3. 6  POKE SR,19: POKE SR,17
  4. 10  REM  PERFECT PITCH TEST
  5. 15  HOME 
  6. 20 K$ = "C C#D D#E F F#G G#A A#B "
  7. 100  REM  CHOOSE NOTE
  8. 102  HOME 
  9. 103  PRINT "PERFECT PITCH TEST": PRINT : PRINT 
  10. 104  PRINT "SCORE= "SC" / "TT: PRINT : PRINT "========================================"
  11. 105  PRINT : PRINT "PRESS ANY KEY TO START AND STOP THE NOTE:";
  12. 107  GOSUB 500
  13. 110 N =  INT( RND(1) *24) +48
  14. 120 M = N - INT(N/12) *12
  15. 130 P$ =  MID$ (K$,M *2 +1,2)
  16. 140  POKE DR,144: POKE DR,N: POKE DR,64
  17. 150  GOSUB 500
  18. 160  POKE DR,144: POKE DR,N: POKE DR,0
  19. 162  PRINT : PRINT 
  20. 165  PRINT : PRINT "ENTER NOTES AS:": PRINT "C C# D D# E F F# G G# A A# B": PRINT 
  21. 170  PRINT : INPUT "WHAT NOTE WAS THAT? :";U$
  22. 175  IF  LEFT$(U$,1) =  CHR$(27)  THEN 900
  23. 180  PRINT : PRINT "IT WAS: ";P$
  24. 184 TT = TT +1
  25. 185 U$ =  LEFT$(U$,2): IF  LEN(U$) = 1  THEN U$ = U$ +" "
  26. 186  IF U$ = P$  THEN SC = SC +1: PRINT : PRINT "*** CONGRATULATIONS ***"
  27. 190  PRINT : PRINT : INPUT "<ENTER> TO CONTINUE, <Q> TO QUIT:";QU$
  28. 195  IF QU$ = "Q"  OR QU$ = "q"  THEN 900
  29. 200  GOTO 100
  30. 299  END 
  31. 500  GET A$
  32. 510  IF A$ =  CHR$(27)  THEN 900
  33. 520  RETURN 
  34. 900  POKE DR,144: POKE DR,N: POKE DR,0
  35. 999  HOME : END