0 REM -- FILENAME: "AUSTRO-CONVERTER".
10 CLR:SYS58792:PRINT"[147][158]AUSTRO-CONVERTER PROGRAM...[154]":PRINT
20 PRINT"CHANGES STANDARD AUSTROSPEED PROGRAMS,"
30 PRINT"GIVING THEM A LINE NUMBER OF ZERO, AND"
40 PRINT"A PROPERLY DECRIPTIVE TITLE...":PRINT
50 INPUT" INPUT FILENAME";F1$:IFF1$=""THEN330
60 INPUT"   INPUT DEVICE";D1:PRINT:GOSUB160
70 INPUT"OUTPUT FILENAME";F2$:IFF2$=""THEN330
80 INPUT"  OUTPUT DEVICE";D2:PRINT:GOSUB250
90 PRINT"TITLE TO GIVE PROGRAM (FOURTEEN LETTERS":PRINT"OR FEWER ONLY):":PRINT
100 INPUT">>";N$:IFN$=""THEN330
110 IFLEN(N$)>12THENNQ=1:GOTO350
120 PRINT:INPUT"O.K. TO QUOTE THIS TITLE (Y/N)";YN$:YN$=LEFT$(YN$,1)
130 IFYN$="N"THENNQ=1
140 GOTO350
150 STOP
160 Z$=CHR$(0):AC$="

"+Z$+"[158]2076 AUSTROSPEED 1E"+Z$+Z$+Z$
170 CLOSE15:OPEN15,D1,15,"I0":OPEN5,D1,5,"0:"+F1$+",P,R"
180 INPUT#15,N1$,E1$,T1$,S1$:IFN1$="00"THEN200
190 PRINT"[147]"+N1$+" "+E1$+" "+T1$+" "+S1$:PRINT:PRINT"[150]ABORTED![154]";:CLR:END
200 Y$="":X$="":FORX=1TO29:GET#5,X$:IFX$=""THENX$=Z$
210 Y$=Y$+X$:NEXTX:CLOSE5:PRINT#15,"I0":CLOSE15:IFAC$=Y$THENRETURN
220 PRINT"[147][159]SPECIFIED INPUT FILE IS NOT A STANDARD"
230 PRINT"AUSTROSPEED FILE![154]":PRINT:PRINT"[150]ABORTED![154]";:END
240 STOP
250 CLOSE15:OPEN15,D2,15,"R0:"+F2$+"=0:"+F2$:INPUT#15,N2$,E2$,T2$,S2$:CLOSE15
260 IFN2$="62"THENPRINT:RETURN
270 IFN2$="63"THEN290
280 PRINT"[147]"+N2$+" "+E2$+" "+T2$+" "+S2$:PRINT:PRINT"[150]ABORTED![154]";:CLR:END
290 INPUT"FILE EXISTS! OVERWRITE IT (Y/N)";YN$:PRINT:YN$=LEFT$(YN$,1)
300 IFYN$="Y"THENRETURN
310 PRINT"[150]ABORTED![154]";:CLR:END
320 STOP
330 CLR:POKE631,13:POKE198,1:PRINT"[147]";:SYS58792:PRINT"[147][150]ALL DONE![154]";:END
340 STOP
350 POKE53280,6:Q$=CHR$(34):PRINT"[147]F[207]X=631TO635:P[207]X,13:N[197]X:P[207]198,5:";
360 PRINT"L[207]"+Q$+"0:"+F1$+",P,R"+Q$+",";D1;",1"
370 ZZ$="N$=Q$+N$+Q$:":IFNQ=1THENZZ$=""
380 PRINT"Q$=CHR$(34):N$="+Q$+N$+Q$+":"+ZZ$;
390 PRINT"N$=LEFT$(N$"+"+"+Q$+"              "+Q$+",14)"
400 PRINT:PRINTTAB(9);"[158]WORKING... PLEASE WAIT..."
410 PRINT"L=LEN(N$):P[207]2051,0:F[207]X=1TOL:P[207]2058+X,ASC(MID$(N$,X,1)):N[197]X:";
420 PRINT"?"+Q$+"[159]"+Q$+";:L[201]"
430 PRINT"F2$="+Q$+F2$+Q$+":CL[207]1:O[208]1,";D2;",15,"+Q$+"S0:"+Q$+"+F2$:";
440 PRINT"CL[207]1:P[207]646,6:S[193]"+Q$+"0:"+Q$+"+F2$+"+Q$+",P,W"+Q$+",";D2
450 PRINT"?"+Q$+"[147]"+Q$+";:S[217]58792:?"+Q$+"[150]ALL DONE![154]"+Q$+";:NEW";
460 POKE631,13:POKE198,1:END
470 STOP
480 END