0 MAXFILES=2:FALSE=0:TRUE=NOTFALSE 1 QU=FALSE 2 LI=0 3 ONERRORGOTO1000 5 ' OPTMIZ - FTLsystems ' 9 XO$="temp@.do" 10 CLS 12 LINEINPUT"Filename: ";XN$ 13 PRINT 15 IFINSTR(XN$,".")=0THENXN$=XN$+".do" 20 OPENXN$FORINPUTAS#1 25 OPENXO$FOROUTPUTAS#2 50 PRINT"Optimizing..." 51 PRINT"Line" 55 IFEOF(1)THEN100 60 X$=INPUT$(1,1) 65 IFX$=CHR$(34)THENQU=NOTQU 70 IFX$=" "ANDQU=TRUETHENPRINT#2,X$; 75 IFX$<>" "THENPRINT#2,X$; 76 IFX$=CHR$(13)THENLI=LI+1:PRINT@(40*4),LI 80 GOTO55 100 CLOSE#1,#2 105 KILLXN$ 110 NAMEXO$ASXN$ 115 MAXFILES=1 120 END 1000 PRINT"Unrecoverable error." 1005 END