10 REM COPYRIGHT 1990 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
20 PRINT"[147]"CHR$(142):VE=PEEK(772)+256*PEEK(773)
30 IFVE=42364THENPOKE53280,0:POKE53281,0:GOTO50
40 (null)0,1:(null)4,1:(null)6,1
50 FORI=1TO10:PRINT"":NEXT
60 PRINTTAB(5)"[151][213][196][201] COPYRIGHT 1990"
70 PRINTTAB(5)"[199]C[200] COMPUTE! PUBLICATIONS INC."
80 PRINTTAB(5)"[202][198][203] ALL RIGHTS RESERVED"
90 PRINT"[155]GEOCONVERTER 1.3[146]"
100 N=8:PRINT"DRIVE NUMBER "N"[157][157][157][157]";:INPUTN
110 IFN<8ORN>11THEN100
120 PRINT"IS DRIVE"N"A 1581? ";:T$=CHR$(18):S$=CHR$(1)
130 GETK$:IFK$<>"Y"ANDK$<>"N"THEN130
140 PRINTK$:IFK$="Y"THENT$=CHR$(40):S$=CHR$(3)
150 INPUT"FILE TO CONVERT";GF$
160 PRINT"SEARCHING FOR "GF$
170 HD$="":FOR I=1 TO 4:READ HE:HD$=HD$+CHR$(HE):NEXT
180 FOR I=1TO5:READIE:ID$=ID$+CHR$(IE):NEXT
190 NL$="":OPEN 15,N,15,"I0:":OPEN 2,N,2,"#"
200 GOSUB430:GET #2,NT$,NS$
210 FOR E=0 TO 7
220 D$=NL$:GET#2,B$:I=1:IFB$=NL$ THEN280
230 IF ASC(B$)<>130 OR I=19 THEN280
240 GET#2,HT$,HS$:I=3:IF HS$="" THEN HS$=CHR$(0)
250 GET#2,B$:I=I+1:IF B$="" THEN B$=CHR$(0)
260 IFASC(B$)=160ORI=19THEN280
270 D$=D$+B$:GOTO250
280 FOR I=I TO 31:GET#2,B$:NEXT
290 IF D$=GF$ THEN320
300 NEXT E:IF NT$=NL$ THEN320
310 T$=NT$:S$=NS$:GOTO200
320 IF D$=NL$ THENPRINT"FILE NOT FOUND[146]":GOTO420
330 PRINT"CONVERTING "GF$
340 DT$=T$:SS$=S$:T$=HT$:S$=HS$:GOSUB430
350 GET#2,MT$,MS$:IF MS$="" THEN MS$=CHR$(0)
360 FOR I=0 TO 65:GET #2,B$:NEXT
370 GET#2,CT$,GT$:GOSUB430:PRINT#2,HD$;:GOSUB440:T$=DT$:S$=SS$:GOSUB430
380 FOR I=1 TO 32*E+2:GET#2,B$:NEXTI
390 PRINT#2,CT$;MT$;MS$;:FORI=0 TO 15:GET#2,B$:NEXT
400 PRINT#2,HT$;HS$;CHR$(0);GT$;
410 PRINT#2,ID$;:GOSUB440:PRINT:PRINTGF$" CONVERTED"
420 CLOSE2:CLOSE15:END
430 U$="U1":GOTO450
440 U$="U2"
450 PRINT#15,U$;2;0;ASC(T$+"0");ASC(S$+"0")
460 RETURN
470 DATA 0,255,3,21,87,10,1,0,0