home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / ERIC / TEST / GLOVE.BAS (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1997-11-13  |  769 b   |  23 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 5  PRINT  CHR$(4)"BLOAD READ4PDL.OBJ"
  2. 7  PRINT  CHR$(4)"BLOAD GLOVE.OBJ"
  3. 10  HOME : PRINT "MIDI DRUM GLOVE": PRINT : PRINT "CONNECTIONS: THUMB->PB0, INDEX->GC2, MIDDLE->GC3, RING->GC0, PINKY->GC1. DRUMSTICK->PB1.  1K RESISTORS BETWEEN PB'S AND GROUND."
  4. 15  INPUT "DO YOU WANT TO CHANGE THE SOUNDS? ";Y$: IF ( LEFT$(Y$,1) = "Y")  OR ( LEFT$(Y$,1) = "y")  THEN 1000
  5. 20  PRINT : PRINT "PRESS RETURN TO START IT UP:"
  6. 30  INPUT R$
  7. 34  PRINT : PRINT 
  8. 35  PRINT "PRESS ANY KEY TO EXIT"
  9. 50  CALL 24576
  10. 100  END 
  11. 1000  INPUT "ENTER MIDI NOTE NUMBER FOR THUMB:";TH
  12. 1010  INPUT "ENTER MIDI NOTE NUMBER FOR INDEX:";IX
  13. 1020  INPUT "ENTER MIDI NOTE NUMBER FOR MIDDLE:";MI
  14. 1030  INPUT "ENTER MIDI NOTE NUMBER FOR RING:";RI
  15. 1040  INPUT "ENTER MIDI NOTE NUMBER FOR PINKY:";PI
  16. 1050  INPUT "ENTER MIDI NOTE NUMBER FOR STICK:";ST
  17. 1060  POKE 24576 +4,TH
  18. 1070  POKE 24576 +7,ST
  19. 1080  POKE 24576 +10,RI
  20. 1090  POKE 24576 +13,PI
  21. 1100  POKE 24576 +16,IX
  22. 1110  POKE 24576 +19,MI
  23. 1200  GOTO 20