Listing of file='INVC030F' on disk='vmedia/701-2607C.wvd.zip'
# Sector 557, program filename = 'INVC030F'
0010 REM INVC030F, RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODUCT
OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0198 GOTO 4000
4000 PRINT HEX(03);"ENTER INVOICES"
: SELECT @PARTS0$
: GOSUB '91
: IF J0=0THEN 4090
: Q6$="Customer Inventory Invoice P.O.Act."
: Q6$=STR(Q6$,T6*10-9,10)
: PRINT AT(1,0,80);J$(J0);" - ";Q6$;" file.";HEX(07)
4090 PRINT AT(5,0)
: Q6$="Total of all invoices"
: PRINTUSING 4180,Q6$,G9
: Q6$="Printed invoice totals"
: IF G8<>0THEN PRINTUSING 4180,Q6$,G8
: GOSUB '254
: IF G0>1THEN GOSUB '49(10)
4160 DEFFN'31
: LOAD TM$
4180 %###################### #,###,###.##-
9998 DEFFN'29"Q$=";HEX(22);"INVC030F";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 - Display KFAM errors, terminate invoice entry.";HEX(22);":SELEC
T#15<I0$>:$OPEN#15:SELECTLIST<I0$>(132): LIST Z$:LIST Z$#:LIST Z$V:LIST Z
$':$CLOSE#15:SELECTLIST005(80)";HEX(0D)