Listing of file='ACPA040A' on disk='vmedia/701-2652C.wvd.zip'
# Sector 76, program filename = 'ACPA040A'
0010 REM ACPA040A, RELEASE 1-0, (01/31/79) THIS PROGRAM IS A COPYRIGHT PRODU
CT OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBIT
ED
0170 DIM A6$4,A7$6,A9$12,B6$5
: DIM B6(4),C6(4)
: GOTO 4000
4000 SELECT @PARTS0$
: A9$="####,###.##-"
: GOSUB '93(" ")
: IF I0$=" "THEN 5900
4250 GOSUB '100(" ",HEX(7F),8,0,"ENTER DUE DATE (MM/DD/YY)",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: GOSUB '121(Q6$)
: IF Q6$<>"E"THEN 4310
: PRINT AT(3,0,80);"Invalid date, re-enter";HEX(07)
: GOTO 4250
4310 GOSUB '123(U9)
: D6=U9
: D6$=U9$
: PRINT AT(4,23);"OPTIONS AVAILABLE ===>"
: PRINT TAB(25);"1) LIST ALL"
: PRINT TAB(25);"2) LIST ONLY ITEMS DUE"
: PRINT TAB(25);"3) LIST ONLY TOTALS"
: GOSUB '100("1","3",1,0,"ENTER OPTION DESIRED",1)
: IF Q6$=HEX(1F)THEN GOSUB '31
: N7=Q9
: PRINT AT(4,0,)
: P1=0
: L=L0+5
: GOSUB '235(2,0)
4490 Q6$="A/P OPEN ITEM FILE"
: IF Q$<>" "THEN 5980
: A6=Q
: GOSUB '71(4,A6)
: DBACKSPACE #4,1S
: C5$(A6)=" "
: GOSUB '61(4,A6)
: PRINT AT(5,0,80);"Processing Vendor ID.";HEX(06)
4570 B6$=C0$(A6)
: SELECT PRINT 005(80)
: PRINT AT(5,0,80);"Processing Vendor ID. ";B6$
: GOSUB '232(1,0,B6$)
: Q6$=B6$&" - VENDOR MASTER FILE"
: IF Q$<>" "THEN 5980
: GOSUB '70(2)
: A7,N9,D7,D8,K,E6=0
: MAT B6=ZER
: GOTO 4800
4690 GOSUB '237(2,0)
: IF Q$="E"THEN 5340
: IF Q$<>" "THEN 5980
: A6=Q
: GOSUB '71(4,A6)
: DBACKSPACE #4,1S
: C5$(A6)=" "
: GOSUB '61(4,A6)
: IF B6$<>C0$(A6)THEN 5340
4800 IF C3$(A6)<>" "THEN B(A6)=-B(A6)
: N6=B(A6)-ROUND((B(A6)*B0(A6)/100,2)
: IF C3$(A6)<>"E"THEN N9=N9+N6
: ELSE E8=E8+N6
: IF C3$(A6)<>"E"THEN A7=A7+B(A6)
: ELSE GOTO 4690
: IF N7=2AND B4(A6)>D6THEN 4690
: IF B1(A6)<>0THEN D7=B1(A6)-ROUND((B1(A6)*B0(A6)/100,2)
: ELSE D7=N6
: F7=F7+ROUND((B(A6)*B0(A6)/100,2)
: F6=F6+B(A6)
: IF N7=3THEN 5090
4910 GOSUB '123(B3(A6))
: IF K1=1THEN 4990
: K1=1
: L=L+3
: GOSUB '90
: PRINT
: PRINT TAB(6);"VENDOR";TAB(15);A$;TAB(23);A1$
: PRINT
4990 L=L+1
: GOSUB '90
: PRINT C1$(A6);TAB(11);U9$;TAB(20);
: PRINTUSING A9$,B(A6);ROUND((B0(A6)*B(A6)/100,2);N6;
: Q6$,U9$="**HOLD**"
: IF B4(A6)<>99999THEN GOSUB '123(B4(A6))
: IF Q6$="E"THEN U9$="NO DATE"
: PRINT TAB(57);U9$;
5090 Q7=INT(365.25*(INT(B4(A6)/1E3)-1))+MOD(B4(A6),1E3)
: Q6=INT(365.25*(INT(D6/1E3)-1))+MOD(D6,1E3)
: IF Q7>Q6THEN Q9=INT((Q7-Q6+59)/30)
: ELSE Q9=1
: Q9=MIN(Q9,4)
: B6(Q9)=B6(Q9)+N6
: IF Q9=1THEN Q6=N6
: ELSE Q6=D7
: C6(Q9)=C6(Q9)+Q6
: IF Q9=1THEN K=1
: IF Q9=1THEN E6=E6+D7
: IF Q9=1AND N7=3THEN D8=D8+D7
: IF N7=3THEN 4690
: PRINT TAB(54+Q9*12);
: PRINTUSING A9$,N6;
5250 IF B1(A6)=0OR B4(A6)>D6THEN 5290
: PRINT TAB(114);
: PRINTUSING A9$,D7;
: PRINT TAB(126);"PART";
5290 PRINT
: B1(A6)=0
: GOTO 4690
5340 IF N7=3THEN 5520
: IF K1=0THEN 5520
: K1=0
: A6$,A7$=" "
: IF E6<0OR E6>N9OR A7<B6(1)THEN A7$="NO PAY"
: ELSE D8=E6
: IF E6=0AND K=1THEN A6$="0.00"
: L=L+2
: GOSUB '90
: PRINT
: PRINT TAB(21);"BALANCE DUE";
: PRINT TAB(66);
: PRINTUSING A9$,B6(1);B6(2);B6(3);B6(4);
: IF D8<>0THEN PRINTUSING A9$,D8;
: IF D8<>0THEN PRINT "*";A7$
: ELSE PRINT TAB(121);A6$;TAB(126);A7$
: D9=D9+D8
: D8=0
5520 IF A7=A2THEN 5620
: L=L+2
: GOSUB '90
: PRINT
: PRINT TAB(5);A$;" ";A1$;" BALANCE CORRECTED FROM ";
: PRINTUSING A9$,A2;
: PRINT " TO ";
: PRINTUSING A9$,A7
: A2=A7
5620 IF N7=3AND D8>0AND D8<=A2THEN D9=D9+D8
: IF E6<0OR E6>N9OR A2<B6(1)THEN B4$="1"
: ELSE B4$=" "
: DBACKSPACE #2,1S
: GOSUB '60(2)
: IF Q$<>"E"THEN 4570
: L=L+4
: GOSUB '90
: PRINT HEX(0A0A0A0A)
: PRINT TAB(1);"REPORT TOTALS";TAB(20);
: PRINTUSING A9$,F6;F7;F6-F7;
: PRINT TAB(66);
: PRINTUSING A9$,C6(1);C6(2);C6(3);C6(4);D9
: L=L+1
: GOSUB '90
5790 PRINT TAB(1);"EXTERNAL PAYMENTS FOR ITEMS NOT ON FILE";TAB(66);
: PRINTUSING A9$,E8
: PRINT HEX(0C)
: SELECT PRINT 005(80)
: $OPEN #5
: GOSUB '66(5,0,1)
: M(3)=D6
: F5$(2)=" "
: GOSUB '66(5,0,0)
5900 DEFFN'31
: LOAD TM$
5980 GOSUB '91
: PRINT AT(1,0,80);"PROGRAM WILL BE TERMINATED";AT(3,17);"- ";Q6$
: GOSUB '254
: GOTO 5900
7040 DEFFN'90
: Q6$=" "
: KEYIN Q6$,7080,7080
7080 IF Q6$="P"THEN GOSUB '254
: IF Q6$=HEX(1F)THEN GOSUB '31
: SELECT PRINT <I0$>(132)
: IF L<L0THEN RETURN
: P1=P1+1
: PRINT HEX(0C0A0D0E);TAB(3);N2$
: IF N7=2THEN Q9=44
: ELSE Q9=53
: Q6$="DETAIL CURRENT DUETOTALS"
: Q7$=STR(Q6$,N7*11-10,11)
: PRINT TAB(Q9);"CASH REQUIREMENTS ";Q7$;" REPORT";TAB(98);"REPORT DATE ";Q
1$;TAB(122);"PAGE";P1
7180 PRINT TAB(101);"DUE DATE ";D6$
: PRINT
: PRINT " INVOICE";TAB(12);"INVOICE";TAB(26);"GROSS";TAB(39);"DISC";TAB(52)
;"NET";TAB(62);"DUE";TAB(119);"CASH"
7210 PRINT TAB(5);"NO";TAB(14);"DATE";TAB(28);"AMT";TAB(40);"AMT";TAB(52);"AMT
";TAB(61);"DATE";TAB(70);"CURRENT";TAB(83);"1 - 30";TAB(94);"31 - 60";TAB
(106);"OVER 60";TAB(119);"RQMT";TAB(125);"REMARKS"
: PRINT
: L=8
: RETURN
9999 DEFFN'29"Q$= ";HEX(22);"ACPA040A";HEX(22);":SCRATCH T Q$:SAVE T$()Q$";HEX
(0D)