home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / OBJTEST / DRUMMACH.TST.bas < prev    next >
BASIC Source File  |  2020-08-13  |  1KB  |  30 lines
  1. 1  REM  MUST HAVE ROUTER, MOCKBRD, & DRUMMACH RESIDENT
  2. 10 BAS = 9 *4096 +8 *256 +4: POKE BAS, ASC("D") +128
  3. 15 T = 6 *4096 +16 +4
  4. 20 DRUM = BAS +1
  5. 100  HOME : PRINT "DRUM MACHINE"
  6. 104  PRINT : PRINT 
  7. 115  PRINT "T=CHANGE TEMPO  A=ACTIVATE  D=DEACTIVATE"
  8. 120  PRINT "0=CYMBAL 1=HIHAT 2=SNARE 3=TOMTOM 4=BASS": PRINT : PRINT "ESC TO EXIT"
  9. 125  PRINT : PRINT 
  10. 130  VTAB 23: PRINT MS$:MS$ = "": VTAB 15
  11. 131  VTAB 15: PRINT "TEMPO="; PEEK(T) *256 + PEEK(T +1)
  12. 132  GET A$
  13. 135  IF A$ = "T"  THEN 200
  14. 136  IF A$ = "D"  THEN 300
  15. 137  IF A$ = "A"  THEN 400
  16. 140  IF A$ =  CHR$(27)  THEN  END 
  17. 145  POKE DRUM -1, ASC("D") +128
  18. 150  POKE DRUM, VAL(A$):X =  USR(11)
  19. 160  GOTO 130
  20. 200  VTAB 15: PRINT "TEMPO=";
  21. 220  PRINT  PEEK(T) *256 + PEEK(T +1)
  22. 230  INPUT "NEW TEMPO:";TM
  23. 235  IF TM <200  OR TM >8000  THEN MS$ = "INVALID": PRINT  CHR$(7): GOTO 100
  24. 240  POKE BAS, ASC("T") +128
  25. 250  POKE BAS +1, INT(TM/256)
  26. 260  POKE BAS +2,TM - INT(TM/256) *256
  27. 270 X =  USR(16)
  28. 280  GOTO 100
  29. 300  POKE BAS, ASC("D") +128:X =  USR(16):MS$ = "DEACTIVATED": GOTO 100
  30. 400  POKE BAS, ASC("A") +128:X =  USR(16):MS$ = "ACTIVATED": GOTO 100