home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / SCORES / PLAYSTEP2 (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1990-12-14  |  593 b   |  32 lines  |  [FC] Applesoft BASIC Program (0x0801)
  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 = 255  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  REM 
  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
  23. 208  IF A$ =  CHR$(27)  OR N = 0  THEN 300
  24. 220 P = P +1
  25. 230  GOTO 100
  26. 300  FOR I = 1 TO C: POKE D,144: POKE D,C(I): POKE D,64: NEXT 
  27. 302  IF EN = 1  THEN  GET A$
  28. 305  POKE D,11 *16: POKE D,125: POKE D,0
  29. 399  END 
  30. 1000  PRINT P;": ";
  31. 1010  FOR I = 1 TO C: POKE D,144: POKE D,C(I): POKE D,0: NEXT 
  32. 1999  RETURN