10 REM - PROGRAM NAME: "EXP025"
20 REM- PROGRAM LOADS VENDOR FILE
30 OPEN "CR:" FOR INPUT AS FILE 1
40 OPEN "DF:VENDOR" AS FILE 2
50 OPEN "LP:" FOR OUTPUT AS FILE 3
60 DIM #2,B$(1000)=118
65 FIELD #1, 80 AS C$
66 ON ERROR GOTO 450
70 LET L$=SPACE$(21)
80 LET M$=SPACE$(21)
90 LET N$=SPACE$(21)
100 LET O$=SPACE$(21)
110 LET P$="000000000"
120 GET #1
130 LET D$=MID(C$,76,4)
140 LET J$=D$
150 LET J=1
160 GOTO 190
170 GET #1
190 IF MID(C$,76,4)<>D$ GOTO 290
200 LET I$=MID(C$,80,1)
230 IF I$="1" THEN LET K$=MID(C$,54,21)
240 IF I$="2" THEN LET L$=MID(C$,54,21)
250 IF I$="3" THEN LET M$=MID(C$,54,21)
260 IF I$="4" THEN LET N$=MID(C$,54,21)
270 IF I$="5" THEN LET O$=MID(C$,54,21)
280 GOTO 170
290 LET B$(J)=J$+K$+L$+M$+N$+O$+P$
300 PRINT #3,J,J$,K$;L$
310 IF M$=SPACE$(21) GOTO 330
320 PRINT #3,,,M$
330 IF N$=SPACE$(21) GOTO 430
340 PRINT #3,,,N$;O$
350 LET J=J+1
360 LET J$=MID(C$,76,4)
370 LET D$=MID(C$,76,4)      !SAVE VENDOR NAME
380 LET L$=SPACE$(21)
390 LET M$=SPACE$(21)
400 LET N$=SPACE$(21)
410 LET O$=SPACE$(21)
420 GOTO 200
430 PRINT #3,,,O$
440 GOTO 350
450 IF ERR=13 THEN 490
460 IF ERR=11 GOTO 510
470 IF ERR=14 GOTO 490
480 PRINT "ERROR =";ERR
490 SLEEP(10)
500 RESUME
510 LET B$(J)=J$+K$+L$+M$+N$+O$+P$
531 PRINT #3,J,J$,K$;L$
532 IF M$=SPACE$(21) GOTO 534
533 PRINT #3,,,M$
534 IF N$=SPACE$(21) GOTO 540
535 PRINT #3,,,N$;O$
540 LET J=J+1
541 LET B$(J)="9999999"
542 CLOSE 1,2,3
550 STOP
560 END