home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D04.D64 / compactor (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  267 b   |  9 lines
  1. 1 POKE53280,14:POKE646,14:POKE53281,6
  2. 10 CLR:POKE55,255:POKE56,159:POKE43,1:POKE44,128:POKE45,3:POKE46,128:CLR
  3. 20 POKE128*256,0:POKE128*256+1,0
  4. 100 POKE53280,2:POKE53281,0:F$="COMPACT 2":D$="RUN"
  5. 270 PRINT"[144][147]";
  6. 280 PRINT"LOAD"+CHR$(34)+F$+CHR$(34)+",8"
  7. 290 PRINT"";D$;"";
  8. 300 FORT=0TO2:POKE198,T:POKE631+T,13:NEXTT
  9.