home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / TEST / DRUMMACH.BAS < prev    next >
BASIC Source File  |  2020-08-13  |  445b  |  11 lines
  1. 5  REM   ADDRESSES OF ML ROUTINES & VARIABLES:
  2. 10 SOUND = 2052:DRUM = 2055:SPKR = 2056:REG = 2057:DTA = 2058
  3. 20 POK = 2059: REM  POKES MOCK REGISTER WITH DATA
  4. 30 INIT = 2062: REM  INITIALIZES MOCKINGBOARD
  5. 100  HOME : PRINT "DRUM MACHINE"
  6. 110  PRINT : PRINT : PRINT 
  7. 120  PRINT "0=CYMBAL 1=HIHAT 2=SNARE 3=TOMTOM 4=BASS": PRINT : PRINT "ESC TO EXIT"
  8. 130  GET A$
  9. 140  IF A$ =  CHR$(27)  THEN  END 
  10. 150  POKE DRUM, VAL(A$): CALL SOUND
  11. 160  GOTO 130