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 >
Wrap
Commodore BASIC
|
2022-10-26
|
255b
|
13 lines
5 poke53280,0:poke53281,0
10 poke52,48:poke56,48:clr
20 poke56334,peek(56334)and254
30 poke1,peek(1)and251
35 print"[147] chars still to move"
40 fora=0to1287
50 poke12288+a,peek(53248+a)
60 print""160-int(a/8):next
70 poke1,peek(1)or4
80 poke56334,peek(56334)or1
90 poke53272,28
100 print"transfer complete"