0 'TRACE.BA - Paul Silagi Club 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 1 MAXFILES=2:CLEAR1000:INPUT"Name of DO file";IP$:IP$=IP$+".DO":PRINTIP$:OPENIP$FORINPUTAS1:OPEN"TRACER"FOROUTPUTAS2:PRINT"Working"; 3 IFEOF(1)THENEND4 LINEINPUT#1,IN$:L=LEN(IN$):FORI=1TOL:CHAR$=MID$(IN$,I,1):IFCHAR$<"0" ORCHAR$>"9"THENN=I:I=L:GOTO65 S$=S$+CHAR$6 NEXTI:OP$=S$+"?"+CHR$(34)+"["+S$+"]"+CHR$(34)+";:"+RIGHT$(IN$,L-N):S$="":PRINT#2,OP$:PRINT".";:GOTO3