home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_18_1987_Transactor_Publishing.d64
/
hr2rle
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
47 lines
10 if lo=1 goto 250
20 printchr$(14)"[147] [195]hrisdos' [200]i[210]es to [210][204][197] [195]onverter."
30 print""
40 print"[197]nter the file name of the picture:"
50 input file$:print""
60 print"[197]nter the name for the [210][204][197][160]file:"
70 input rle$:print""
80 print"[196]o you want the <[210]eturn to [212][197][216][212]>
90 [153]"at the end of the file ?"
100 [133] text$
110 [153]"load valnter (NULL)closeoffset (0-63):";:[133] xoff
120 [139] xoff[179]0 [176] xoff[177]63 [137] 110
130 [153]" valnter (NULL) offset (0-7):";:[133] yoff
140 [139] yoff[179]0 [176] yoff[177]7 [137] 130
150 [151]828,xoff:[151]829,yoff
160 [153]" (NULL)ormal or right$nverse";:[133]v$:v$[178][200](v$,1)
170 [151] 830,0:[139]v$[178]"i"[167][151]830,255
180 [153]"load (NULL)close(NULL)closeatnclose(NULL)closestr$closepeekclose(NULL)"
190 [129]x[178]1[164] 200:[130]
200 [141] 1000:[143] hires
210 lo[178]1:[147] file$,8,1
250 ff$[178]rle$[170]".rle,w,s"
260 [159]8,8,8,ff$
270 [152]8,[199](27);[199](71);[199](72);
280 [158] 3328
300 text$[178][200](text$,1)
310 [139] text$[178]"y" [167] [152]8,[199](27);[199](71);[199](78);
900 [160] 8
910 [141] 1100
920 [153]"load ascile conversion finished.
930 print" [212]his program written by [195]hrisdos and
940 [153]"is spported in str$(NULL)2 of the lenpeekright$chr$ (NULL)ig on
950 print"[195]ompuserve. [199][207][160][195][194][201][199].
960 [153]" (c) 1985 by lenhrisdos.
999 stop
1000 ba=peek(56576)
1010 sm=peek(53272)
1020 hr=peek(53265)
1030 poke53265,59
1040 poke53272,120
1050 poke56576,150
1060 return
1100 poke 53265,hr
1110 poke 53272,sm
1120 poke 56576,ba
1130 return