2 ! PRINTS ACCOUNTS PAYABLE CHECKS!
5 ! PROGRAM NAME:"PAPCK" - BY JAC.
10 INPUT "INPUT THE STARTING CHECK NUMBER";N
15 INPUT "INPUT THE DATE TO BE PRINTED ON CHECKS AS: MM-DD-YY.";D1$
18 N%=INSTR(1%,D1$,"-"):IF N%<2% OR N%>3% THEN 15
20 IF N%=2% THEN D1$=" "+D1$
22 N%=INSTR(4%,D1$,"-"):IF N%<5% OR N%>6% THEN 15
25 IF N%=5% THEN D9$=LEFT(D1$,3%)+" "+RIGHT(D1$,4%)
28 ON ERROR GOTO 400
30 OPEN "LP:" FOR OUTPUT AS FILE 1%,MODE 42%
35 OPEN "DK1:ACCPAY.INV" AS FILE 2%:DIM #2%,I1$(600%)=128%,I%(0%)
45 OPEN "DK1:ACCPAY.DEB" AS FILE 3%:DIM #3%,D4$(25%)=64%,D%(0%)
48 OPEN "DK1:ACCPAY.DB1" AS FILE 4%:DIM #4%,D5$(25%)=64%,D5%(0%)
50 D4$(K%)=D5$(K%) FOR K%=1% TO D5%(0%)
52 D%(0%)=D5%(0%):KILL "DK1:ACCPAY.DB1":CLOSE 4%
55 OPEN "DK1:ACCPAY.CHK" AS FILE 4%:DIM #4%,C$(1000%)=64%,C%(0%)
65 OPEN "DK1:ACCPAY.VBK" AS FILE 5%:DIM #5%,V$(3500%)=128%,V%(0%)
75 Q$="###,###.##":Q4$="**###,###":DIM T$(5%):PRINT #1%,CHR$(128%+1%)
80 N%=I%(0%):M%=V%(0%):O%=D%(0%):P%=C%(0%):H%=1%:X1$=SPACE$(23%)
81 DEF FNZ$(B%,A)
82 IF ABS(A)<1E+6 THEN FNZ$=LEFT(NUM$(A)+SPACE$(B%-LEN(NUM$(A))),B%):GOTO 87
83 A1=FIX(A/1E+6):A2=((A/1E+6)-A1)*1E+6:A3$=NUM$(A1):A4$=RIGHT(NUM$(A2),2%)
84 IF LEN(A4$)<7% THEN A4$="0"+A4$:GOTO 84
85 A3$=LEFT(A3$,INSTR(2%,A3$," ")-1%)+A4$:FNZ$=LEFT(A3$+SPACE$(B%-LEN(A3$)),B%)
87 FNEND
88 FOR K%=1% TO N%
90 S=0%:V$=MID(I1$(K%),6%,6%):Z%=0%:C1%=0%:L%=0%
95 FOR I%=1% TO O%
100 IF MID(D4$(I%),6%,6%)<>V$ THEN 110
105 R%=I%:Z%=-1%:GOTO 115
110 NEXT I%
115 IF Z%=0% THEN 140
120 IF MID(D4$(R%),51%,1%)<>"F" THEN 290
122 IF MID(D4$(R%),52%,1%)="Z" THEN IF V$=MID(I1$(K%+1%),6%,6%) AND K%<N% THEN 290 ELSE 288
125 A=VAL(MID(D4$(R%),42%,8%)):S=S-A:PRINT #1%,"DEBIT BALANCE  ";
130 PRINT #1%,USING Q$,A/100%;:PRINT #1%,"CR ";:C1%=C1%+1%:O%=O%-1%
135 D4$(I%)=D4$(I%+1%) FOR I%=R% TO O%
140 D7$=LEFT(I1$(K%),2%)+"-"+MID(I1$(K%),3%,2%)+"-7"+MID(I1$(K%),5%,1%)
145 I$=MID(I1$(K%),65%,5%):A=VAL(MID(I1$(K%),29%,9%)):S=S+A
150 D$=" "+D7$+"  "+I$:PRINT #1%,D$;:PRINT #1%,USING Q$,ABS(A)/100%;
155 IF A<0% THEN PRINT #1%,"CR"; ELSE PRINT #1%,"  ";
160 C1%=C1%+1%:IF C1%=3% THEN C1%=0%:L%=L%+1%:PRINT #1%
165 IF K%=N% THEN 175 ELSE IF MID(I1$(K%+1%),6%,6%)=V$ AND L%=15% THEN 175
170 IF MID(I1$(K%+1%),6%,6%)=V$ THEN K%=K%+1%:GOTO 140
175 PRINT #1%, FOR I%=L% TO 15%
180 PRINT #1%,"CHECK NO.";:PRINT #1%,USING "######",N;
185 PRINT #1%,TAB(56%);"CHECK AMOUNT    ";:PRINT #1%,USING Q$,S/100%;
190 PRINT #1% FOR I%=1% TO 11%
195 S1=FIX(((S/100%-INT(S/100%))*100%)+.5):IF S1=0% THEN S1$="00":GOTO 205
200 IF S1<10% THEN S1$="0"+MID(NUM$(S1),2%,1%) ELSE S1$=MID(NUM$(S1),2%,2%)
205 S2=INT(S/100%):PRINT #1%,"  EXACTLY   ";:PRINT #1%,USING Q4$,S2;
210 PRINT #1%," DOLLARS AND ";S1$;" CENTS";TAB(62%);D1$;
215 PRINT #1%,USING "$$"+Q$,S/100%:Z%=0%
220 PRINT #1% FOR I%=1% TO 4%
230 GOTO 245 IF LEFT(V$(R%),6%)=V$ FOR R%=H% UNTIL R%>M%
245 IF R%>M% THEN PRINT "NO VENDOR IN VENDOR BOOK ";V$:
	T$(1%)=MID(I1$(K%),12%,17%):GOTO 280
246 H%=R%
250 T$(I%)=MID(V$(R%),(I%-1%)*23%+7%,23%) FOR I%=1% TO 5%
255 Z$=MID(V$(R%),122%,5%)
260 IF T$(4%)=X1$ THEN T$(3%)=T$(3%)+" "+Z$:L%=3%:GOTO 275
265 IF T$(5%)=X1$ THEN T$(4%)=T$(4%)+" "+Z$:L%=4%:GOTO 275
270 T$(5%)=T$(5%)+" "+Z$:L%=5%
275 PRINT #1%,TAB(13%);T$(I%) FOR I%=1% TO L%
280 P%=P%+1%:C$(P%)=D1$+V$+LEFT(T$(1%),17%)+FNZ$(6%,N)+"0000100000201020"
285 C$(P%)=C$(P%)+FNZ$(9%,-S)+"  ":T=T+S:N=N+1%:PRINT #1%,CHR$(128%+1%):GOTO 290
288 O%=O%-1%
289 D4$(I%)=D4$(I%+1%) FOR I%=R% TO O%
290 NEXT K%
295 OPEN "DK1:GLFILE.EXP[2,4]" AS FILE 6%
300 DIM #6%,U1$(4000%)=64%,U%(0%)
305 D$=LEFT(D1$,2%)+MID(D1$,4%,2%):N%=U%(0%):N%=N%+1%
310 U1$(N%)="0000100000223000"+D$+"ACCOUNTS/PAY. CHECKS"+SPACE$(12%)+"3E"+FNZ$(10%,T)
315 N%=N%+1%:T=-T
320 U1$(N%)="0000100000201020"+D$+"ENCUM SUMMARY/PAYABLES          3E"+FNZ$(10%,T)
321 U%(0%)=N%:C%(0%)=P%:D%(0%)=O%:CLOSE 1%,2%,3%,4%,5%,6%
325 PRINT "TOTAL OF ACCOUNTS PAYABLE CHECKS":PRINT USING Q$,ABS(T)/100%:STOP
400 IF ERR<>8% AND ERR<>14% THEN ON ERROR GOTO 0
405 PRINT "WAITING FOR LP:":SLEEP(30%):RESUME
410 END