home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Seriousutility / Compresion / TOOLS.D81 / fcopy (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  9.5 KB  |  10 lines
  1. 10 F=ABS(PEEK(65533)=255)
  2. 12 MO=191
  3. 14 BA=8192
  4. 20 IFF=0THENPL=PEEK(43):PH=PEEK(44)
  5. 30 IFF=1THENPL=PEEK(45):PH=PEEK(46):(null)0
  6. 42 PA=PH*256+PL+MO+2
  7. 44 PH=INT(PA/256):PL=PA-PH*256
  8. 46 POKE 250,PL:POKE251,PH
  9. 50 SYS (PA+6)
  10.