home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / SCORES / PLAYSTEP (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1990-12-12  |  671 b   |  35 lines  |  [FC] Applesoft BASIC Program (0x0A01)
  1. 1 S$ = "C C#D D#E F F#G G#A A#B "
  2. 2 F$ = "C D&D E&E F G&G A&A B&B "
  3. 3 K$ = S$
  4. 5  PRINT "PRESS ANY KEY TO PLAY NEXT CHORD": PRINT "PRESS ESC TO STOP"
  5. 10 AC = 12 *4096 +10 *16 +8
  6. 15 D = AC +1
  7. 20  POKE AC,19: POKE AC,17
  8. 50 P = 8192
  9. 100 N =  PEEK(P)
  10. 105 C = C +1:C(C) = N
  11. 110  IF N = 0  THEN EN = 1: GOTO 300
  12. 120  IF N >128  THEN 200
  13. 135 O =  INT(N/12) -2
  14. 137 L = N - INT(N/12) *12
  15. 139  PRINT ", ";
  16. 140  PRINT O; MID$ (K$,L *2 +1,2);" ";
  17. 150 P = P +1: GOTO 100
  18. 200 N =  PEEK(P) -128
  19. 202  PRINT 
  20. 205  FOR I = 1 TO C: POKE D,144: POKE D,C(I): POKE D,64: NEXT 
  21. 206  GET A$: GOSUB 1000
  22. 207 C = 1:C(C) = N
  23. 208  IF A$ =  CHR$(27)  OR N = 0  THEN 300
  24. 211 O =  INT(N/12) -2
  25. 212 L = N - INT(N/12) *12
  26. 213  PRINT O; MID$ (K$,L *2 +1,2);" ";
  27. 215 P = P +1
  28. 230  GOTO 100
  29. 300  FOR I = 1 TO C: POKE D,144: POKE D,C(I): POKE D,64: NEXT 
  30. 302  IF EN = 1  THEN  GET A$
  31. 305  POKE D,11 *16: POKE D,125: POKE D,0
  32. 399  END 
  33. 1000  PRINT P;": ";
  34. 1010  FOR I = 1 TO C: POKE D,144: POKE D,C(I): POKE D,0: NEXT 
  35. 1999  RETURN