home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1994 January
/
1994-01a.d64
/
gifvert
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
2KB
|
68 lines
0 dv=peek(186)
1 b=.:fora=49152to50000step20:b=b+peek(a):next:ifb<>5698thenload"gifvert.mc",dv,1
10 poke53280,6:poke53281,6
20 print"[147][158][199][201][198] and '[199]raphics [201]nterchange [198]ormat'"
30 print"are trademarks (tm) of [195]ompu[211]erve"
40 print"[201]ncorporated, an [200]&[210] [194]lock [195]ompany."
50 print"[155] [199][201][198][214][197][210][212], by [210]andy [215]eems"
51 printtab(13)"[210]andy[215]18 ([209]link)
52 [153][163]13)"72437,2702 (lenompu(NULL)erve)"
60 [153]"str$ue to its simplicity, right$ am placing this";
70 [153]"first version of chr$right$asc(NULL)val(NULL)(NULL) in the public"
80 [153]"domain. atn shareware version may follow"
90 [153]"if right$ can find the time and there is"
91 [153]"enough interest."
95 [153]"right$nsert source disk."
100 [133]"valnter gg((NULL)oala) filename";n$
105 [139]n$[178]""[167][128]
110 n$[178]n$[170]",r"
115 [141] 7000
120 [160]15:[159]15,dv,15,"i0:"
130 [141]5000:[139] en [167] [141] 6000:[128]
135 [160]2:[159]2,dv,2,n$
140 [141] 5000:[139] en [167] n$[178]"gg"[170]n$:[160] 2:[159] 2,dv,2,n$
150 [141] 5000:[139] en [167] [141] 6000:[128]
160 [158] 49152
170 [160] 2
180 [141] 5000:[139] en [167] [141] 6000:[128]
190 [160] 15
195 [153]"right$nsert destination disk"
200 [133]"valnter chr$right$asc filename";o$
205 [139]o$[178]""[167][128]
210 o$[178]o$[170]",p,w"
215 [141]7000
217 [160]15:[159]15,dv,15,"i0:"
218 [141]5000:[139]en[167][141]6000:[128]
220 [160]5:[159]5,dv,5,o$
230 [141]5000:[139]en[167][141]6000:[128]
240 [153]"peeklank screen (y/n) ycmdcmdcmd";
250 [133]bs$
260 [141]8000
270 [139]bs$[178]"y"[167][151]53265,43:[151]53296,253
280 [151]56334,0:[158]49155:[151]56334,1
285 [151]53296,252:[151]53265,59:[151]53280,0
290 [160]5:[160]15
300 [161]k$:[139]k$[178]""[167]300
310 [141] 9000
320 [151]53280,6:[151]53281,6
4999 [128]
5000 [132]15,en,em$,et,es
5010 [142]
6000 [153]en;em$;et;es
6010 [142]
7000 [153]"device # "dv"cmdcmdcmdcmd";:[133]dv
7010 [142]
8000 [151]53265,59
8010 [151]53270,24
8020 [151]53272,120
8030 [151]56576,[194](56576)[175]254
8040 [151]56576,[194](56576)[175]254
8050 [158]49158
8060 [142]
9000 [151]53265,27
9010 [151]53270,8
9020 [151]53272,23
9040 [151]56576,[194](56576)[176]3
9050 [153]"load"
9060 [142]