home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / OBJTEST / TESTPGM.BAS < prev    next >
BASIC Source File  |  2020-08-13  |  353b  |  12 lines
  1. 1  REM  *** DUMMYPGM.BAS ***
  2. 3  CALL 2048 +4: REM  INSTALL OBJECTS
  3. 5 MSG = 9 *4096 +8 *256 +16
  4. 10  POKE MSG, ASC("I") +128:X =  USR(16)
  5. 11  READ CM$: POKE MSG, ASC(CM$) +128
  6. 12  READ LN: POKE MSG +1,LN
  7. 13  FOR I = 1 TO LN
  8. 14  READ BY: POKE MSG +I +1,BY
  9. 15  NEXT I
  10. 20 X =  USR(16)
  11. 100  PRINT "MIDI OBJECTS INSTALLED"
  12. 1000  DATA  X,7,144,60,64,64,64,67,64