home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / ANNMIDI / JOYCTRL.BAS < prev    next >
BASIC Source File  |  2020-08-13  |  1KB  |  27 lines
  1. 4  PRINT : PRINT  CHR$(4)"BRUN MIDIDRVR.OBJ"
  2. 5  PRINT : PRINT  CHR$(4)"BLOAD JOYTEST.OBJ"
  3. 6  FOR I = 1 TO 8: READ X$(I): READ BY(I): READ B1(I): READ B2(I): READ B3(I): NEXT 
  4. 10  HOME : PRINT "JOYSTICK CONTROLLER": PRINT "===================": PRINT 
  5. 12  INPUT "CHOOSE MIDI CHANNEL TO CONTROL (1-16):";CH: IF CH <1  OR CH >16  THEN 12
  6. 13  POKE 24576 +15,CH -1
  7. 15  PRINT : FOR I = 1 TO 8: PRINT I") "X$(I): NEXT 
  8. 16  PRINT 
  9. 20  INPUT "CHOOSE CONTROL FOR X AXIS:";X
  10. 21  IF X <1  OR X >8  THEN 20
  11. 22  INPUT "CHOOSE CONTROL FOR Y AXIS:";Y
  12. 23  IF Y <1  OR Y >8  THEN 22
  13. 24  PRINT : PRINT "X AXIS: ";X$(X): PRINT "Y AXIS: ";X$(Y): PRINT "BUTTONS: ALL NOTES OFF"
  14. 25  PRINT : PRINT "MIDI THRU MODE IS NOW ACTIVE": PRINT "PRESS ANY KEY TO RERUN OR ESC TO EXIT"
  15. 30  POKE 24579,BY(X): POKE 24580,B1(X) +CH -1: POKE 24581,B2(X): POKE 24582,B3(X)
  16. 40  POKE 24583,BY(Y): POKE 24584,B1(Y) +CH -1: POKE 24585,B2(Y): POKE 24586,B3(Y)
  17. 100  CALL 24576
  18. 105  IF  PEEK(24576 +11) = 155  THEN  TEXT : HOME : END 
  19. 110  GOTO 10
  20. 1000  DATA  PITCH BEND,2,224,0,0
  21. 1010  DATA   MODULATION,2,176,1,0 
  22. 1020  DATA VOLUME,2,176,7,0 
  23. 1030  DATA PANPOT,2,176,10,0 
  24. 1040  DATA  EXPRESSION,2,176,11,0
  25. 1060  DATA  REVERB,2,176,91,0
  26. 1070  DATA  CHORUS,2,176,93,0
  27. 1080  DATA  AFTERTOUCH,2,160,64,0