2 ! PRINTS COMPILED VENDER LISTINGS
5 ! PROGRAM NAME :"PRTVLT"-BY JAC
10 V%=0%:W%=1%:X%=2%:Y%=3%:Z%=4%:INPUT "DISK #";D9$:D8$="DK"+D9$:D9$="DK"
	+D9$+":GLFILE.":T0%=100%:F7%=V%:M7=0:V7$="":PRINT "DATE";:
	INPUT LINE D7$:D7$=LEFT(D7$,LEN(D7$)-X%)
20 OPEN "LP:" AS FILE W%:OPEN D9$+"VLT" AS FILE X%:GET #X%:FIELD #X%,
	X% AS V$:N%=CVT$%(V$):OPEN D9$+"FND" AS FILE Y%:GET #Y%,RECORD X%:
	FIELD #Y%,160 AS E$,X% AS F$:F%=SWAP%(CVT$%(F$)):B0%=W%:
	B2%=X%:B4%=38%:B6%=W%
40 OPEN D9$+"BDT" AS FILE Z%:GET #Z%,RECORD B4%:FIELD #Z%,288% AS E$,
	X% AS B$:B%=SWAP%(CVT$%(B$)):Q$=SPACE$(10%)+"\    \    \"+
	SPACE$(21%)+"\       #,###,###.##\ \":OPEN D8$+":ACCPAY.VBK"
	AS FILE 5%:GET #5%:FIELD #5%,X% AS V$
45 R%=CVT$%(V$):J%=V%:C1$="CR ":C2$="CR*":C3$="   ":
	C4$="  *":H%,K%=W%:GOSUB 500
50 GOSUB 800:GOSUB 1000:GOSUB 900:T1=T1+T:V7$=V$+""
60 K%=K%+W%:GOTO 100 IF K%>N%:GOSUB 500:IF V7$=V$ AND M7=M0 AND F7%=F0% THEN
	T1=T1+T:GOTO 60
70 GOSUB 400:IF M7=M0 AND F7%=F0% THEN V7$=V$+"":T1=T1+T:GOTO 60
80 GOSUB 300:IF F7%=F0% THEN GOSUB 900:T1=T1+T:V7$=V$+"":GOTO 60
90 GOSUB 200:GOTO 50
100 GOSUB 400:GOSUB 300:GOSUB 200:IF T4<0 THEN C9$=C2$ ELSE C9$=C4$
110 PRINT #W%,USING "  FINAL TOTAL FOR ALL FUNDS"+SPACE$(23%)+RIGHT(Q$,51%),
	ABS(T4)/T0%,C9$:CLOSE W%,X%,Y%,Z%,5%:STOP
200 T4=T4+T3:IF T3<0 THEN C9$=C2$ ELSE C9$=C4$
210 PRINT #W%,USING "  FINAL TOTAL FOR "+D4$+"  "+RIGHT(Q$,51%),
	ABS(T3)/T0%,C9$:T3=0:H1%=W%:RETURN
300 T3=T3+T2:IF T2<0 THEN C9$=C2$ ELSE C9$=C4$
310 PRINT #W%,USING SPACE$(50%)+RIGHT(Q$,51%),ABS(T2)/T0%,C9$:
	PRINT #W% FOR I2%=W% TO Z%:L%=L%+Y%:GOSUB 2000:T2=0:RETURN
400 T2=T2+T1:FOR I2%=H2% STEP 50% UNTIL I2%>R%:GOSUB 2500:GOTO 430 IF V4$=V7$:
	GOTO 405 IF V7$<V4$:NEXT I2%
405 IF I2%>R% THEN H2%=R% ELSE H2%=I2%
410 FOR I2%=H2% STEP -X% UNTIL I2%<W%:GOSUB 2500:GOTO 430 IF V4$=V7$:GOTO 415 
	IF V7$>V4$:NEXT I2%
415 I2%=I2%+W%:GOSUB 2500:GOTO 430 IF V4$=V7$
420 D2$="*NO VENDOR NAME*":GOTO 440
430 H2%=I2%
440 IF T1<0 THEN C9$=C1$ ELSE C9$=C3$
450 PRINT #W%,USING Q$,V7$,D2$,ABS(T1)/T0%,C9$:PRINT #W%:GOSUB 2000:
	T1=0:RETURN
500 B1%=K%/32%+W%:IF B1%<>B0% THEN GET #X%,RECORD B1%:B0%=B1%
510 O%=(K%-(B0%-W%)*32%)*16%:FIELD #X%,O% AS E$,X% AS F$,6% AS V$,8% AS T$:
	F=CVT$%(F$):F0%=FIX(F/T0%+.5):M0=FIX((F/T0%-F0%)*T0%+.5):T=CVT$F(T$):
	RETURN
800 FOR I%=H% TO F%:B3%=I%/16%+W%:IF B3%<>B2% THEN GET #Y%,
	RECORD B3%:B2%=B3%
810 O2%=(I%-(B2%-W%)*16%)*32%:FIELD #Y%,O2% AS E$,X% AS F1$,30% AS D4$:
	F1%=FIX(VAL(F1$)+.5):GOTO 830 IF F0%=F1%:GOTO 820 IF F1%>F0%:NEXT I%
820 D4$="FUND "+F1$:GOTO 840
830 H%=I%
840 H1%=W%:F7%=F0%:RETURN
900 M1$=RIGHT(NUM$(M0*T0%^X%),X%):M1$="0"+M1$ IF LEN(M1$)=6%:M1$=LEFT(M1$,6%):
	FOR I1%=H1% TO B%:B5%=I1%/16%+W%:IF B5%<>B4% THEN GET #Z%,RECORD B5%:
	B4%=B5%
910 O4%=(I1%-(B4%-W%)*16%)*32%:FIELD #Z%,O4% AS E$,6% AS B$,21% AS D3$:
	GOTO 930 IF M1$=B$:GOTO 920 IF M1$<B$:NEXT I1%
920 D3$="**NO MASTER ENTRY**- "+LEFT(M1$,X%):GOTO 940
930 H1%=I1%
940 PRINT #W%,"   ";D3$:PRINT #W%:GOSUB 2000:M7=M0:H2%=W%:RETURN
1000 PRINT #W%,CHR$(130%):J%=J%+W%:L%=V%
1010 PRINT #W%,D4$;"COMPILED VENDOR LIST";TAB(55%);D7$;
	"    PAGE ";J%:PRINT #W%
1020 PRINT #W%,TAB(9%);"VDR NO.    VENDOR NAME";TAB(54%);"EXPENDED":
	PRINT #W%:RETURN
2000 L%=L%+X%:GOSUB 1000 IF L%>54%:RETURN
2500 B7%=I2%/16%+W%:IF B6%<>B7% THEN GET #5%,RECORD B7%:B6%=B7%
2510 O6%=(I2%-(B6%-W%)*16%)*32%:FIELD #5%,O6% AS E$,6% AS V4$,23% AS D2$:RETURN
3000 END