10 REM PROGRAM NAME:"EXP084"
20 REM PROGRAM READS IN CHECK DATA FROM CARDS
     AND ADDS RECORDS TO CHECK FILE
30 INPUT "VENDOR OR PAYROLL";I$
40 IF I$="VENDOR" GOTO 80
50 IF I$="PAYROLL" GOTO 90
60 PRINT "PLEASE ENTER VENDOR OR PAYROLL"
70 GOTO 30
80 LET D$="DF:CHECKS.VEN"
85 GOTO 100
90 LET D$="DF:CHECKS.EMP"
100 OPEN D$ AS FILE 1
110 DIM #1, C$(1000)=32
120 OPEN "CR:" AS FILE 2
130 FIELD #2, 80 AS E$
140 FOR J%=1 TO 1000
150 IF LEFT(C$(J%),7)="9999999" GOTO 180
160 NEXT J%
180 GET #2
181 ON ERROR GOTO 500
185 LET C$(J%)=MID(E$,2,21)+" "+MID(E$,23,9)+" "
190 LET J%=J%+1
195 GOTO 180
500 LET C$(J%)="9999999"+SPACE$(24)
510 CLOSE 1,2
520 END