10 DIM A$[80]V
12 RF=0
15 FOR I=1 TO 3
20 OPEN #3, "BASIC"+FRMT$(I,1)+".MAC/RO"
30 OPEN #4, "BASIC"+FRMT$(I,1)+".DOC/WR"
50 IF END #3 THEN 100
60 INPUT LINE #3, A$
62 IF SBS$(A$,1,2)=";+" THEN LET RF=1 : GOTO 60
63 IF SBS$(A$,1,2)=";-" THEN LET RF=0 : GOTO 60
64 IF RF=1 THEN 60
65 IF POS(A$,".SB")>1 THEN PRINT #4, ";";SEG$(A$,POS(A$,"TTL")+3,LEN(A$)) : GOTO 60
66 IF SBS$(A$,1,1)<>";" THEN 60
70 PRINT #4, A$
80 GOTO 60
100 CLOSE
105 NEXT I
