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]