05 REM- PROGRAM NAME: "EXPX85"  BANK RECONCILIATION
06 INPUT "VENDOR OR PAYROLL";I$
07 IF I$="VENDOR" THEN GOTO 10
08 IF I$="PAYROLL" THEN GOTO 12
09 GOTO 06
10 LET I1$="CHECKS.VEN"
11 GOTO 15
12 LET I1$="CHECKS.EMP"
13 LET J1=1
15 OPEN I1$ AS FILE 1
20 DIM #1,C9$(1000)=32
30 OPEN "LP:" FOR OUTPUT AS FILE 2
31 OPEN "CR:" FOR INPUT AS FILE 3
32 FIELD #3, 80 AS I1$
33 ON ERROR GOTO 190
35 GET #3
36 LET I9$=LEFT(I1$,5)
40 FOR J%=J1 TO 1000
50 LET C$=C9$(J%)
60 IF MID(C$,2,5)<>I9$ GOTO 100
65 IF LEFT(C$,7)="9999999" GOTO 110
70 PRINT #2, C$
71 LET C9$(J%)=LEFT(C$,31)+"9"
75 LET T=T+VAL(MID(C$,14,9))
78 LET J1=J%+1
80 GOTO 35
100 NEXT J%
110 PRINT "CANNOT FIND CHECK #"; I9$
115 LET J1=1
120 GOTO 35
190 IF ERR=11 GOTO 200
192 IF ERR=14 GOTO 195
193 PRINT "ERR=";ERR
194 STOP
195 SLEEP(5)
196 RESUME
200 PRINT #2, "TOTAL AMOUNT OF CHECKS";
210 IF I$="PAYROLL" THEN GOTO 220
211 LET T=T/100
220 PRINT #2, USING "$$###,###.##", T
224 LET T=0
225 PRINT #2, CHR$(12)
226 PRINT #2, "LISTING OF OUTSTANDING CHECKS "+DATE$(0)
230 FOR J%=1 TO 1000
240 LET C$=C9$(J%)
245 IF LEFT(C$,7)="9999999" GOTO 500
250 IF MID(C$,32,1)="9" OR MID(C$,32,1)="V" GOTO 300
260 PRINT #2,C$
270 LET T=T+VAL(MID(C$,14,9))
300 NEXT J%
500 PRINT #2, " TOTAL AMT OF OUTSTANDING CHECKS ";
510 IF I$="PAYROLL" THEN GOTO 520
511 LET T=T/100
520 PRINT #2, USING "$$#,###,###.##",T
530 CLOSE 1,2,3
540 END