Listing of file='INVC030A' on disk='vmedia/701-2607C.wvd.zip'
# Sector 382, program filename = 'INVC030A'
0010 REM INVC030A, RELEASE 2.1, (04/09/80) THIS PROGRAM IS A COPYRIGHT PRODUCT
OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0170 COM A8$1,A6$1,B8$5,B9$5,F6,F7,F8,G7,G8,G9,H6$14,H7$14
: COM I6$8,I7$8,I8$5,I9$11,J0$1,K(3,2),L,L0,L9,M6
: GOTO 4000
4000 SELECT @PARTS0$
: I6$=Q1$
: I6=Q1
: A0$=HEX(00)
: L9=15
: K(1,1)=2
: K(2,1)=3
: K(3,1)=4
: K(1,2)=2.5
: K(2,2)=3.5
: K(3,2)=4.5
: GOTO 4260
4130 %################# = ###########
4150 PRINT AT(3,0,80);Q7$
: Q6$=I6$
: GOSUB '100(" ",HEX(7F),8,0,"ENTER INVOICE DATE (MM/DD/YY)",3)
: IF Q6$=HEX(1F)THEN GOSUB '31
: GOSUB '121(Q6$)
: Q7$="Invalid date, re-enter."&HEX(07)
: IF Q6$="E"THEN 4150
: GOSUB '123(U9)
: I6$=U9$
: I6=U9
4260 PRINT AT(4,0)
: PRINTUSING 4130,"INVOICE DATE",I6$;
: PRINT TAB(34);I6
: GOSUB '100("Y,N","YyY Nn",1,1,"IS INVOICE DATE OK (Y OR N)",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: Q7$=" "
: IF Q6$="N"THEN 4150
: I9$="2/15 NET 30"
: I8$="02.00"
: GOSUB '123(I6+15)
: I7$=U9$
4380 PRINT AT(5,0,)
: PRINTUSING 4130,"TERMS DUE DATE",I7$
: PRINTUSING 4130,"TERMS DISCOUNT %",I8$
: PRINTUSING 4130,"TERMS DESCRIPTION",I9$
: GOSUB '100("Y,N","YyY Nn",1,1,"ARE STANDARD TERMS OK (Y OR N)",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: IF Q6$="Y"THEN 4660
: Q7$=" "
4470 PRINT AT(3,0,80);Q7$
: Q6$=I7$
: GOSUB '100(" ",HEX(7F),8,0,"ENTER TERMS DUE DATE (MM/DD/YY)",3)
: IF Q6$=HEX(1F)THEN GOSUB '31
: GOSUB '121(Q6$)
: Q7$="Invalid date, re-enter."&HEX(07)
: IF Q6$="E"THEN 4470
: GOSUB '123(U9)
: I7$=U9$
: CONVERT I8$TO Q9
: GOSUB '100("0","99.99",2,2,"ENTER TERMS DISCOUNT %",0)
: IF Q6$=HEX(1F)THEN GOSUB '31
4590 CONVERT Q9TO I8$,(##.##)
: Q6$=I9$
: GOSUB '100(" ",HEX(7F),11,0,"ENTER TERMS DESCRIPTION",3)
: IF Q6$=HEX(1F)THEN GOSUB '31
: I9$=Q6$
: GOTO 4380
4660 PRINT AT(4,0,);"SALES TAX TABLE"
: FOR I=1TO 3
: PRINT ,"SALES TAX ";I;TAB(32);
: PRINTUSING "##.###% ",K(I,1);K(I,2)
: NEXT I
: GOSUB '100("Y,N","YyY Nn",1,1,"ARE SALES TAX PERCENTAGES O.K. (Y OR N)",2
)
: IF Q6$=HEX(1F)THEN GOSUB '31
: IF Q6$="Y"THEN 4840
: FOR I=1TO 3
: FOR J=1TO 2
: PRINT AT(1,0);"ENTER SALES TAX";I;"- ID";J
: Q9=K(I,J)
4780 GOSUB '100("0","99.999",2,3," ",0)
: IF Q6$=HEX(1F)THEN GOSUB '31
: K(I,J)=Q9
: NEXT J
: NEXT I
: GOTO 4660
4840 PRINT AT(1,0,)
: MAT K=(.01)*K
: GOSUB '100("Y,N","YyY Nn",1,1,"ARE ANY INVOICES TO BE PRINTED (Y OR N)",
2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: A6$=Q6$
: IF Q6$="N"THEN 4960
: GOSUB '93("MOUNT INVOICE FORMS")
: L0=42
: IF I0$=" "THEN A6$="N"
: ELSE GOSUB '84
4960 LIMITS T#1,S$(1),Q6,Q7,Q8
: F8=Q7-Q6-1
: F7=F8-Q8+2
: O2$,B8$,B9$=HEX(FF)
: STR(M5$,8)="B"
: LOAD TM5$4000,
5030 DEFFN'31
: LOAD TM$
6010 %###,###.##-
6020 %##,###.##-
6030 %##,###.##
6050 DEFFN'81
: MAT REDIM M$(8)23
: M$()=" "
: M$(1)=B0$
: J=2
: IF C0$>" "THEN M$(J)=C0$
: ELSE J=J-1
: J=J+1
: IF D0$>" "THEN M$(J)=D0$
: ELSE J=J-1
: J=J+1
: IF E0$>" "OR F0$>" "THEN M$(J)=E0$&" "&F0$
: ELSE J=J-1
: M$(5)=L0$
: J=6
: IF M0$>" "THEN M$(J)=M0$
: ELSE J=J-1
: J=J+1
: IF N0$>" "THEN M$(J)=N0$
: ELSE J=J-1
: J=J+1
6230 IF O0$>" "OR P0$>" "THEN M$(J)=O0$&" "&P0$
: ELSE J=J-1
: SELECT PRINT <I0$>(85)
: FOR J=1TO 4
: PRINT TAB(9);M$(J);TAB(46);M$(J+4)
: NEXT J
: MAT REDIM M$(4)62
: GOSUB '85(D4)
: PRINT
: IF O2$<>HEX(FF)THEN PRINT TAB(43);"ORDER ";HEXOF(STR(O2$,,3));"-";HEXOF(A
0$);" DATE ";Q6$;
: IF P1>1THEN PRINT TAB(72);"PAGE";P1;
: PRINT
: PRINT HEX(0E);
: PRINT TAB(13);H6$
: PRINT HEX(0A0A)
: GOSUB '85(D3)
6390 PRINT TAB(1);G0$;TAB(11);C1$;TAB(19);O3$;TAB(33);H0$;TAB(47);H1$;TAB(52);
N4$;TAB(59);Q6$;TAB(70);HEXOF(STR(B$,,4))
: PRINT HEX(0A0A)
: L=23
: SELECT PRINT 005(80)
: RETURN
6440 DEFFN'85(Q9)
: CONVERT Q9TO Q7$,(######)
: Q6$=STR(Q7$,,2)&"/"&STR(Q7$,3,2)&"/"&STR(Q7$,5)
: RETURN
6490 DEFFN'82(I)
: IF L>37THEN GOSUB 6660
: SELECT PRINT <I0$>(85)
: PRINT TAB(1);P$(I);TAB(15);
: IF B(I)>0THEN PRINTUSING "#####",B(I);
: PRINT TAB(22);P1$(I);TAB(47);
: IF B1(I)<>0THEN PRINTUSING 6010,B1(I);
: PRINT TAB(58);
: IF B2(I)<>0THEN PRINTUSING 6020,B2(I);
: PRINT TAB(69);
: IF B4(I)<>0THEN PRINTUSING 6010,B4(I);
: IF B0$(I)<>" "THEN PRINT TAB(79);"*"
: ELSE PRINT
: L=L+1
: SELECT PRINT 005(80)
: RETURN
6660 SELECT PRINT <I0$>(85)
: GOSUB '95(L0-3-L)
: PRINT TAB(70);"CONTINUED"
: GOSUB '95(12)
: P1=P1+1
: GOSUB '81
: RETURN
6760 DEFFN'83
: SELECT PRINT <I0$>(85)
: GOSUB '95(L0-3-L)
: PRINTUSING 6030,G(1);
: PRINT TAB(9);
: PRINTUSING 6030,G(2);
: PRINT TAB(18);
: PRINTUSING 6030,G(3);
: PRINT TAB(27);
: PRINTUSING 6020,A2;
: PRINT TAB(37);
: PRINTUSING 6020,A1;
: PRINT TAB(49);
: PRINTUSING 6010,D;
: PRINT TAB(69);
: PRINTUSING 6010,D1
: GOSUB '85(D5)
: IF D2>0THEN PRINTUSING "CASH DISCOUNT OF ##.##% IF PAID BY ########",D2,Q
6$;
: PRINT
: GOSUB '95(12)
: SELECT PRINT 005(80)
: RETURN
7000 DEFFN'84
: GOSUB '100("Y,N","YyY Nn",1,1,"DO YOU WISH TO PRINT A MASK (Y OR N)",2)
: IF Q6$="N"THEN RETURN
7030 SELECT PRINT <I0$>(87)
: C1$,B0$,L0$,C0$,M0$,N0$,D0$,E0$,O0$,F0$,P0$,G0$,N4$,O3$,H1$,H0$,P$(),P1$(
),B0$(),C0$()=ALL("X")
: H6$="FORMS MASK"
: B$,O2$,A0$=ALL(99)
: D3,D4,D5,B(1)=99999
: B1(1)=999999.99
: P1=1
: GOSUB '81
: GOSUB '82(1)
: GOSUB '83
7130 C1$,B0$,L0$,C0$,M0$,N0$,D0$,E0$,O0$,F0$,P0$,G0$,N4$,O3$,H1$,H0$,P$(),P1$(
),B0$(),C0$()=" "
: A0$=HEX(00)
: D3,D4,D5,B(1),B1(1)=0
: GOSUB '100("Y,N","YyY Nn",1,1,"DO YOU WISH TO PRINT ANOTHER MASK (Y OR N
)",2)
: IF Q6$="Y"THEN 7030
: RETURN
9998 DEFFN'29"Q$=";HEX(22);"INVC030A";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 invoices - initialization.";HEX(22);":SELECT#15<I0$>:$OP
EN#15:SELECTLIST<I0$>(132): LIST Z$:LIST Z$#:LIST Z$V:LIST Z$':$CLOSE#15:
SELECTLIST005(80)";HEX(0D)