home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 1 #2 / Commodore_Disk_User_Vol.1_2_1988_-.d64 / charmove (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  255 b   |  13 lines
  1. 5 poke53280,0:poke53281,0
  2. 10 poke52,48:poke56,48:clr
  3. 20 poke56334,peek(56334)and254
  4. 30 poke1,peek(1)and251
  5. 35 print"[147]     chars still to move"
  6. 40 fora=0to1287
  7. 50 poke12288+a,peek(53248+a)
  8. 60 print""160-int(a/8):next
  9. 70 poke1,peek(1)or4
  10. 80 poke56334,peek(56334)or1
  11. 90 poke53272,28
  12. 100 print"transfer complete"
  13.