home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / OBJTEST / ASCII.ORGAN.bas < prev    next >
BASIC Source File  |  2020-08-13  |  500b  |  15 lines
  1. 5  PRINT  CHR$(4)"-ROUTER.OBJ"
  2. 6  PRINT  CHR$(4)"-INTRFACE.OBJ"
  3. 7  PRINT "ASCII KEYBOARD --> MIDI"
  4. 10 BAS =  PEEK(11) + PEEK(12) *256 +4
  5. 20  POKE BAS, ASC("I") +128
  6. 30 X =  USR(16): IF X >0  THEN  STOP 
  7. 40  POKE BAS, ASC("X") +128
  8. 50  POKE BAS +1,3
  9. 60  POKE BAS +2,144
  10. 90  PRINT "PLAY NOW"
  11. 100 Q =  PEEK( -16368): IF Q >128  THEN  POKE BAS +3,Q -128: POKE BAS +4,64:X =  USR(16)
  12. 110  IF  PEEK( -16368) >128  THEN 110
  13. 115  POKE BAS +4,0:X =  USR(16)
  14. 120  IF  PEEK( -16368) <128  THEN 120
  15. 130  GOTO 100