home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / eric.hdv / ERIC / MCS / PLAY (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1991-08-02  |  290 b   |  17 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 1 BAS = 8 *4096 +5 *256
  2. 5  PRINT  CHR$(4)"BLOAD MIDIMCS"
  3. 6  HGR2 
  4. 7  TEXT : HOME 
  5. 10  PRINT  CHR$(4)"CATALOG"
  6. 15  PRINT 
  7. 20  INPUT "ENTER FILE TO LOAD: ";F$
  8. 30  PRINT  CHR$(4)"BLOAD"F$",A$4000"
  9. 40  INPUT "SPEED (1=FASTEST 4=SLOWEST):";S
  10. 50  IF S <1  OR S >4  THEN 40
  11. 60  POKE BAS +18,S
  12. 70  CALL BAS +3
  13. 75  PRINT 
  14. 80  INPUT "PRESS RETURN TO STOP: ";R$
  15. 90  CALL BAS +12
  16. 95  HGR2 
  17. 100  GOTO 7