home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / ERIC / TEST / DRUMMACH.BAS (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1993-04-09  |  496 b   |  16 lines  |  [FC] Applesoft BASIC Program (0x0801)
  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 SPEED= <CTRL-0x08> DEL h SPEED=  LOG DEL g SPEED= <CTRL-0x08> PLOT <CTRL-0x03><CTRL-0x08> SPEED=  AT  PLOT <CTRL-0x02><CTRL-0x08> j<CTRL-0x08> IF 
  12. 53324 - RESTORE .<CTRL-0x09> LEFT$ SPEED=  PLOT  NORMAL <UNKNOWN TOKEN><CTRL-0x01> *<UNKNOWN TOKEN><CTRL-0x06> CLEAR /<CTRL-0x09>L<CTRL-0x18><CTRL-0x09> <CTRL-0x03> GET  IF <CTRL-0x0f> GET  <CTRL-0x0c> GET `<CTRL-0x10> SGN USR  OR  COLOR=   THEN  SGN USR  AND   AND  TO  SPC(  + RESTORE  FN  TO  INT VTAB 
  13. 61448 <CTRL-0x08>) NORMAL  LEN<CTRL-0x08> LEFT$ = <UNKNOWN TOKEN>Lf USR
  14. 17594 $;"BSAVE ";F$;",A$3B8,L$11"
  15. 240  PRINT D$;"BRUN EDASM.OBJ"
  16. 250  END