2 ! PRINTS VENDOR BOOK
5 ! PROGRAM NAME:"PVBOOK" - BY JAC
10 OPEN "DK1:ACCPAY.VBK" AS FILE 1%
15 DIM #1%,V$(3500%)=128%,V%(0%)
20 N%=V%(0%)-1%:DIM T$(5%)
25 FOR K%=1% TO N%
30 B=VAL(LEFT(V$(K%+1%),6%)):IF VAL(LEFT(V$(K%),6%))<=B THEN 65
35 T$=V$(K%+1%):V$(K%+1%)=V$(K%)
40 FOR J%=K% TO 2% STEP -1%
45 IF VAL(LEFT(V$(J%-1%),6%))<=B THEN V$(J%)=T$:GOTO 65
50 V$(J%)=V$(J%-1%)
55 NEXT J%
60 V$(1%)=T$
65 NEXT K%
70 OPEN "LP:" FOR OUTPUT AS FILE 2%,MODE 51%
75 N%=N%+1%:P%=1%:L%=0%:S1$=SPACE$(23%):GOSUB 200
80 FOR K%=1% TO N%
85 V$=LEFT(V$(K%),6%):T$(1%)=MID(V$(K%),7%,23%):T$(2%)=MID(V$(K%),30%,23%)
90 T$(3%)=MID(V$(K%),53%,23%):T$(4%)=MID(V$(K%),76%,23%):T$(5%)=MID(V$(K%),99%,23%)
95 Z$=MID(V$(K%),122%,5%):IF T$(4%)=S1$ THEN M%=3%:GOTO 105
100 IF T$(5%)=S1$ THEN M%=4% ELSE M%=5%
105 PRINT #2%,TAB(20%);V$;"     ";T$(1%);TAB(64%);T$(2%);
110 FOR I%=3% TO M%
115 PRINT #2%:PRINT #2%,TAB(64%);T$(I%);
120 NEXT I%
125 PRINT #2%,TAB(89%);Z$:L%=L%+M%+2%
126 PRINT #2% FOR I%=1% TO 3%
128 IF L%<37% THEN 140
130 P%=P%+1%:L%=0%:GOSUB 200
140 NEXT K%
145 PRINT #2%,TAB(20%);"NUMBER OF VENDORS ";N%
150 PRINT #2%,CHR$(128%+1%):CLOSE 1%,2%
155 STOP
200 PRINT #2%,CHR$(128%+1%)
205 PRINT #2%,TAB(20%);"SCHOOL DISTRICT NO. 91";TAB(54%);"VENDOR BOOK";
210 PRINT #2%,TAB(84%);DATE$(0%);TAB(113%);"PAGE ";P%:PRINT #2%
215 PRINT #2%,TAB(20%);"VENDOR":PRINT #2%,TAB(20%);"NUMBER     VENDOR";
220 PRINT #2%," NAME";TAB(64%);"VENDOR ADDRESS":PRINT #2%:PRINT #2%
225 RETURN
230 END