home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C128Toolkit / D64-EXTRACTOR (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  384 b   |  12 lines
  1. 10 (null)%:INPUT"FILENAME";N$:(null)
  2. #1,(N$),U9:IFDSTHENSTOP
  3. 20 OPEN15,8,15:OPEN2,8,2,"#"
  4. 30 FORT=1TO17:FORS=0TO20:GOSUB70:NEXT:NEXT
  5. 40 FORT=18TO24:FORS=0TO18:GOSUB70:NEXT:NEXT
  6. 50 FORT=25TO30:FORS=0TO17:GOSUB70:NEXT:NEXT
  7. 60 FORT=31TO35:FORS=0TO16:GOSUB70:NEXT:NEXT:CLOSE1:CLOSE2:CLOSE15:END
  8. 70 PRINT"                     "T,S
  9. 80 PRINT#15,"U1";2;0;T;S
  10. 90 SYS7455
  11. 100 PRINT#15,"U2";2;0;T;S
  12. 110 RETURN
  13.