home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #4 / Commodore_Disk_User_Vol.4_4_1991_-.d64 / compactor (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  267b  |  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.