10 REM - PROGRAM NAME:"EXP011"
15 REM - PROGRAM DELETES COMPLETED RECORDS
20 OPEN "LP:" FOR OUTPUT AS FILE 3
30 OPEN "DF:TRANS.TMP" AS FILE 2
35 DIM #2,T$(1000)=46
40 OPEN "DF:TRANS.NEW" AS FILE 1
45 DIM #1, S$(5000)=46
50 LET X=1
60 LET J=1
70 LET A$=S$(X)
75 IF LEFT(A$,7)="9999999" GOTO 85
80 IF MID(A$,46,1)="8" GOTO 200
81 IF MID(A$,12,1)="1" AND MID(A$,46,1)="2" THEN GOTO 200
85 LET T$(J)=A$
90 IF MID(A$,1,7)="9999999" GOTO 500
110 LET J=J+1
200 LET X=X+1
205 IF MID(A$,1,7)="9999999" GOTO 500
210 GOTO 70
500 CLOSE 1,2,3
510 KILL "DF:TRANS.NEW"
520 NAME "DF:TRANS.TMP" AS "DF:TRANS.NEW"
620 END