home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / TEST / ROCKBEAT.bas < prev    next >
BASIC Source File  |  2020-08-13  |  938b  |  30 lines
  1. 1  TEXT : PRINT  CHR$(21)
  2. 2  HOME : PRINT "ROCK BEAT!": PRINT : PRINT "SPACE = FILL-IN": PRINT : PRINT "ESC TO EXIT"
  3. 3  PRINT : PRINT "<--FASTER SLOWER-->"
  4. 5 SR = 12 *4096 +10 *16 +8:DR = SR +1
  5. 6  POKE SR,19: POKE SR,17
  6. 7 BS = 36:SN = 38:HI = 42:HC = 46
  7. 8 DL = 200
  8. 9  GOTO 20
  9. 10  POKE DR,153: POKE DR,N: POKE DR,64: POKE DR,N: POKE DR,0: RETURN 
  10. 15  FOR DE = 1 TO DL: NEXT : RETURN 
  11. 20 N = BS: GOSUB 10:N = HI: GOSUB 10
  12. 25  GOSUB 15
  13. 30  IF FL  THEN N = HC: GOSUB 10
  14. 32  IF   NOT FL  THEN N = HI: GOSUB 10
  15. 35  GOSUB 15
  16. 40 N = SN: GOSUB 10:N = HI: GOSUB 10
  17. 45  GOSUB 15
  18. 50  IF FL  THEN N = HC: GOSUB 10
  19. 52  IF   NOT FL  THEN N = HI: GOSUB 10
  20. 55  GOSUB 15
  21. 60 BT = BT +2: IF BT = 4  THEN BT = 0:FL = 0: IF  PEEK( -16384) >127  THEN 200
  22. 90  GOTO 20
  23. 200 A =  PEEK( -16368)
  24. 205  IF A = 27  THEN 900
  25. 206  IF A = 21  THEN DL = DL +20: GOTO 90
  26. 207  IF A = 8  THEN DL = DL -20: GOTO 90
  27. 210 FL =   NOT (FL)
  28. 290  GOTO 90
  29. 900 N = BS: GOSUB 10
  30. 999  END