Listing of file='INVC030D' on disk='vmedia/701-2607C.wvd.zip'
# Sector 408, program filename = 'INVC030D'
0010 REM INVC030D, RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODUCT
OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0170 DIM K$(6)18,K$18
: GOTO 4000
4000 SELECT @PARTS0$
: PRINT HEX(03);"ENTER INVOICES - TOTALS";TAB(38);"** ";H7$;" **"
: A2,B9,D=0
: K$(1)="INVOICE DISCOUNT %"
: K$(2)="FREIGHT"
: K$(3)="SALES TAX ID 1"
: K$(4)="SALES TAX ID 2"
: K$(5)="SALES TAX ID 3"
: K$(6)="SPECIAL CHG/CR"
4100 PRINT AT(4,0,0);"CUST ID ";C1$;" NAME ";B0$;TAB(49);"INV NO.";HEXOF(STR(
B$,,4))
: A1=ROUND((A*D0/100,2)
: GOSUB '35(1,K$(1),D0," ",A1)
: GOSUB '35(2,K$(2),0," ",A2)
: G$()=" "
: FOR K2=1TO 3
: G(K2)=0
: IF G$(K2)>" "THEN CONVERT G$(K2)TO Q9
: IF Q9>0THEN G(K2)=ROUND((K(K2,Q9)*G7*(1-D0/100),2)
4190 GOSUB '35(K2+2,K$(K2+2),0,G$(K2),G(K2))
: NEXT K2
: GOSUB '35(6,K$(6),0," ",D)
: B9=1
: GOTO 4650
4250 ON IGOTO 4270,4340,4390,4390,4390,4620
4270 GOSUB '34(" ",D0,K$(I)," ","0","99.99",2,2,1)
: D0=Q9
: A1=ROUND((A*D0/100,2)
: GOSUB '35(I,K$(I),D0," ",A1)
: IF G7=0THEN 4650
: GOTO 4470
4340 GOSUB '34(" ",A2,K$(I)," ","0","99999.99",5,2,1)
: A2=Q9
: GOSUB '35(I,K$(I),0," ",A2)
: GOTO 4650
4390 K2=I-2
: G$(K2)=" "
: G(K2)=0
: GOSUB '35(K2+2,K$(K2+2),0,G$(K2),G(K2))
: IF I=3THEN GOSUB '34(G$(K2),0,K$(I)," (RETURN = STD, 0 = 0%, 1-2 = NORM
AL)"," ,0,1,2"," ",1,1,2)
: ELSE GOSUB '34(G$(K2),0,K$(I)," (0 = 0%, 1-2 = NORMAL)","0,1,2"," ",1,1,2
)
: ON POS("012"=Q6$)GOTO 4650,4550,4550
4460 G$()="111"
4470 FOR K2=1TO 3
: Q9=0
: IF G$(K2)>" "THEN CONVERT G$(K2)TO Q9
: IF Q9>0THEN G(K2)=ROUND((K(K2,Q9)*G7*(1-D0/100),2)
: GOSUB '35(K2+2,K$(K2+2),0,G$(K2),G(K2))
: NEXT K2
: GOTO 4650
4550 CONVERT Q6$TO Q9
: K2=I-2
: G$(K2)=Q6$
: G(K2)=ROUND((K(K2,Q9)*G7*(1-D0/100),2)
: GOSUB '35(I,K$(I),0,G$(K2),G(K2))
: GOTO 4650
4620 GOSUB '34(" ",D,K$(I)," ","-999999.99","999999.99",6,2,1)
: D=Q9
: GOSUB '35(I,K$(I),0," ",D)
4650 D1=A+G(1)+G(2)+G(3)+A2+D-A1
: PRINT AT(13,0,0)
: PRINT TAB(26);"AMOUNT TAXABLE";TAB(41);
: PRINTUSING 6220,ROUND((G7*(1-D0/100),2)
: PRINT TAB(26);"GROSS SALES";TAB(41);
: PRINTUSING 6220,A
: PRINT TAB(26);"INVOICE TOTAL";TAB(41);
: PRINTUSING 6220,D1
4750 GOSUB '100("-1","6",1,0,"ENTER LINE NO. (1-6) TO CORRECT (0=NONE, -1=VOI
D)",1)
: IF Q6$=HEX(1F)OR Q9=-1THEN GOSUB '31
: I=Q9
: IF I=0THEN 4830
: IF INT((I-3)/3)<>0OR G7<>0THEN 4250
: PRINT AT(3,0,80);HEX(07);"Taxable amount is '$0.00', re-enter."
: GOTO 4750
4830 STR(B$,6,1)=HEX(FE)
: GOSUB '233(3,1,B$,0)
: GOSUB '91
: IF J0>0THEN 4970
: GOSUB '44(1,3)
: F7=F8-MOD(VAL(STR(T$(2),4),2)+VAL(STR(T$(2),12)),65536)
: GOSUB '238(3)
: G9=G9+D1*M6
: IF I2$="0"THEN B8$=HEX(FF)
: ELSE B9$=HEX(FF)
: IF P4$="P"THEN GOSUB '83
: IF P4$="P"THEN G8=G8+D1*M6
: STR(M5$,8)="B"
: LOAD TM5$4000,
4970 PRINT AT(1,0,80);HEX(07);"Error - Invoice transaction file - current invo
ice will be voided."
: GOSUB '254
4990 DEFFN'31
: STR(M5$,8)="G"
: LOAD TM5$4000,
6020 DEFFN'34(Q6$,Q9,G5$(G0),Q7$,Q$(1),Q$(2),Q3,Q4,Q5)
: PRINT AT(1,0,80);"ENTER ";G5$(G0);Q7$
: IF Q5<2THEN GOSUB 6140
: G2$(G0)=Q6$
: IF Q6$>" "AND Q5=2THEN Q5=3
: IF Q9<>0AND Q5=1THEN Q5=0
: GOSUB '100(Q$(1),Q$(2),Q3,Q4," ",Q5)
: IF Q6$=HEX(1F)THEN GOSUB '31
: IF Q5<2THEN GOSUB 6140
: G3$(G0)=Q6$
: RETURN
6140 Q6$=ALL("#")
: Q7$=STR(Q6$,,Q3)
: IF Q4>0THEN Q7$=Q7$&"."&STR(Q6$,,Q4)
: Q6$=ALL(00)
: PRINTUSING TO Q6$,Q7$,Q9
: Q6$=STR(Q6$,3,LEN(Q7$))
: RETURN
6220 %#,###,###.##-
6230 DEFFN'35(J,Q6$,Q8,Q7$,Q9)
: PRINT AT(5+J,0,0)
: PRINTUSING " (#)",J;
: PRINT TAB(6);Q6$;TAB(27);
: IF Q8>0THEN PRINTUSING "##.##",Q8;
: ELSE PRINT Q7$;
: PRINT TAB(41);
: PRINTUSING 6220,Q9
: IF B9=0THEN RETURN
: HEXUNPACKO2$TO Q6$
: RETURN
6330 %###,###.##-
6340 %##,###.##-
6350 %##,###.##
6360 %#####
6380 DEFFN'83
: SELECT PRINT <I0$>(85)
: Q$()=ALL(0D)
: PRINT STR(Q$(),,L0-3-L)
: PRINTUSING 6350,G(1);
: PRINT TAB(9);
: PRINTUSING 6350,G(2);
: PRINT TAB(18);
: PRINTUSING 6350,G(3);
: PRINT TAB(27);
: PRINTUSING 6340,A2;
: PRINT TAB(37);
: PRINTUSING 6340,A1;
: PRINT TAB(49);
: PRINTUSING 6330,D;
: PRINT TAB(69);
: PRINTUSING 6330,D1
: CONVERT D5TO Q7$,(######)
: Q6$=STR(Q7$,,2)&"/"&STR(Q7$,3,2)&"/"&STR(Q7$,5)
6570 IF D2>0THEN PRINTUSING "CASH DISCOUNT OF ##.##% IF PAID BY ########",D2,Q
6$;
: PRINT
: PRINT STR(Q$(),,12)
: SELECT PRINT 005(80)
: RETURN
9998 DEFFN'29"Q$=";HEX(22);"INVC030D";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D
)
9999 DEFFN'30"DIM Z$57:IF STR(I0$,,1)=HEX(20)THENI0$=HEX(323135):Z$=";HEX(22);
"GBS/MVP - Enter invoice totals.";HEX(22);":SELECT#15<I0$>:$OPEN#15:SELEC
TLIST<I0$>(132): LIST Z$:LIST Z$#:LIST Z$V:LIST Z$':$CLOSE#15:SELECTLIST0
05(80)";HEX(0D)