home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_18_1987_Transactor_Publishing.d64
/
rle2hr
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
553b
|
10 lines
5 clr:print"[147]rle2hr!(c) 1986 chrisdos"
10 input"rle file name: ";f$
20 open8,8,8,f$+",r"
30 poke53265,59:poke53272,120:poke56576,150
40 get#8,a$:ifa$<>"h"goto40
50 sys2304:close8
60 geta$:ifa$=""goto60
70 poke53265,27:poke53272,21:poke56576,199
80 ::end