0 GOTO16
2 HI=INT(A/256):LO=A-HI*256:PRINT#15,"M-R"CHR$(LO)CHR$(HI):GET#15,A$:A=ASC(A$+CHR$(.)):RETURN
4 PRINT#15,"U1:"2;0;TR;SC:RETURN
6 PRINT#15,"U2:"2;0;TR;SC:RETURN
8 PRINT#15,"B-P:"2;PS:RETURN
10 GET#2,A$:A$=LEFT$(A$+CHR$(.),1):AA=ASC(A$):RETURN
12 PRINT#2,CHR$(A);:RETURN
14 :
16 DIMDI$(29),TY$(14):POKE808,234
18 POKE53280,.:POKE53281,.:PRINT"[147][153]  ---  [199]EOS [193]UTO-[195]ONVERT [213]TILITY  ---
20 [153]"(null)HIS PROGRAM WILL  ATTACH A BASIC  CON-
22 PRINT"VERTER TO THE BEGINNING OF A [199]EOS FILE.
24 [153]"(null)HE FILE  (null)(null)(null)(null) HAVE THE  HEADER AS  THE
26 PRINT"FIRST SECTOR OF THE FILE. [193] COPY OF THE
28 [153]"PROGRAM 'GEOBOOTER' MUST BE ON THE SAME":[153]"DISK.
30 PRINT"[212]O USE  THIS  PROGRAM INSERT  THE  DISK
32 [153]"THAT CONTAINS THE  FILES AND PRESS  ANY
34 PRINT"KEY EXCEPT 'Q' WHICH WILL QUIT TO [194]ASIC
36 [153]"WITHOUT CONVERTING.  ATN(null)(null)ATN(null)(null)  USE A COPY
38 PRINT"GEOBOOTER AS THE PROGRAM WILL NOT BE IN
40 [153]"THE DIRECTORY AFTER CONVERSION.
42 PRINT"[212]O DECONVERT  A FILE  JUST LOAD IT INTO
44 [153]"PEEKASIC AND (null)(null)(null) IT.  (null)HE FILE ON THE DISK
46 PRINT"WILL BE CONVERTED BACK TO A [199]EOS FILE.
48 [153]"          <<<(null)ATN(null)(null)VAL(null) PEEK(null)ATN(null)(null)VAL(null)>>>":[151]198,.:[146]198,7:[161]A$
50 [139]A$[178]"Q"[176]A$[178]"(null)"[167]88
52 :
54 [133]"LOAD(null)AME OF FILE";NM$:[139][195](NM$)[179]1[176][195](NM$)[177]16[167]88
56 [129]I[178]1[164][195](NM$):A[178][198]([202](NM$,I,1)):[139]A[179]128[167][130]:[137]62
58 NM$[178][200](NM$,I[171]1)[170][199](A[171]96)[170][202](NM$,I[170]1):[130]
60 :
62 [153]"RIGHT$NSERT STR$ISK AND HIT ANY KEY":[146]198,3:[161]A$
64 A$[178]"GEOBOOTER,P,R":[141]80:GT$[178]DI$(1):GS$[178]DI$(2):DI$(.)[178][199](.):[141]90
66 [160]2:A$[178]NM$:[141]80:T$[178]DI$(1):DI$(1)[178]GT$:S$[178]DI$(2):DI$(2)[178]GS$
68 DI$(.)[178][199](130):DI$(28)[178][199]([198](DI$(28))[170]3):[141]90
70 TR[178][198](GT$):SC[178][198](GS$):[141]4:PS[178]12:[141]8:NM$[178]NM$[170]",P"[170][199](34)
72 [129]I[178]1[164][195](NM$):A[178][198]([202](NM$,I,1)):[141]12:[130]:[141]6:[141]4
74 [129]I[178]1[164]2:[141]10:TR[178][198](A$):[141]10:SC[178][198](A$):[141]4:[130]
76 A[178][198](T$):[141]12:A[178][198](S$):[141]12:[141]6:[153]"STR$ONE!!!":[137]88
78 :
80 [160]15:[159]15,8,15,"I0:":[159]2,8,2,"#":[159]3,8,3,A$:[160]3:[132]15,E1$,E2$
82 [139]E1$[177]"19"[167][153]E2$:[137]88
84 A[178]656:[141]2:DS[178]A:A[178]660:[141]2:DO[178]A:TR[178]18:SC[178]DS
86 [141]4:PS[178]DO:[141]8:[129]I[178].[164]29:[141]10:DI$(I)[178]A$:[130]:[142]
88 [160]2:[160]15:[151]808,237:[128]
90 TR[178]18:SC[178]DS:[141]4:PS[178]DO:[141]8:[129]I[178].[164]29:[152]2,[200](DI$(I),1);:[130]
92 [141]6:[142]