home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / SOURCE / TEST / MIDIFTP.BAS (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  2001-06-06  |  429 b   |  13 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 10  PRINT  CHR$(4)"BLOAD MIDIFTP.OBJ"
  2. 12  HGR : VTAB 24
  3. 15 BY = 0
  4. 20  PRINT "HIT ENTER, THEN START MIDI TRANSMISSION.  PRESS SPACE WHEN FIRST PART DONE"
  5. 25  INPUT J$
  6. 30  PRINT "READING...";: CALL 24576: PRINT "...SAVING..."
  7. 40 L =  PEEK(6) + PEEK(7) *256 -8192
  8. 50  PRINT  CHR$(4)"BSAVE MIDIFTP.DAT,A$2000,L"L",B"BY
  9. 60 BY = BY +L
  10. 70  INPUT "IS THERE MORE? (Y/N):";YN$
  11. 80  IF  LEFT$(YN$,1) = "Y"  OR  LEFT$(YN$,1) = "y"  THEN  PRINT "START MIDI TRANSMISSION AND PRESS SPACE WHEN DONE": GOTO 30
  12. 85  TEXT : PRINT 
  13. 90  PRINT "RENAME MIDIFTP.DAT,YOURFILE"