10 REM PROGRAM NAME:"EXP088"
20 REM-PROGRAM DUMPS PROCESSED CHECKS FROM FILE
26 INPUT "VENDOR OR PAYROLL";I$
27 IF I$="VENDOR" GOTO 30
28 IF I$="PAYROLL" GOTO 32
29 GOTO 26
30 LET I1$="DF:CHECKS.VEN"
31 GOTO 35
32 LET I1$="DF:CHECKS.EMP"
35 OPEN I1$ AS FILE 1
40 DIM #1,C9$(1000)=32
50 OPEN "DF:CHECKS.TMP" AS FILE 2
60 DIM #2,T9$(1000)=32
70 LET X%=1
75 LET J%=1
80 LET C$=C9$(J%)
85 IF LEFT(C$,7)="9999999" GOTO 500
90 IF MID(C$,32,1)="9" OR MID(C$,32,1)="V" GOTO 300
100 LET T9$(X%)=C$
110 LET X%=X%+1
120 LET J%=J%+1
130 GOTO 80
300 LET J%=J%+1
310 GOTO 80
500 LET T9$(X%)=C$
510 CLOSE 1,2
511 KILL I1$
512 NAME "DF:CHECKS.TMP" AS I1$
520 END