Listing of file='INVC030G' on disk='vmedia/701-2607C.wvd.zip'
# Sector 143, program filename = 'INVC030G' 0010 REM INVC030G, RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODUCT OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED 0170 DIM K6$6,K7$6,K8$6 : GOTO 4000 4000 SELECT @PARTS0$ : PRINT HEX(03);"ENTER INVOICES - VOID INVOICE" : IF P4$<>"P"THEN 4090 : SELECT PRINT <I0$>(80) : PRINT HEX(0A0E);TAB(11);"THIS INVOICE VOID" : GOSUB '95(L0+9-L) : SELECT PRINT 005(80) 4090 PRINT AT(7,24,0);"Voiding invoice no. ";HEXOF(STR(B$,,4)) : K8$=B$ : STR(K8$,6,1)=HEX(00) : K6$,K7$=B$ : STR(K6$,6,1)=HEX(00) : GOSUB '231(3,0,K6$) : IF Q$>" "THEN 4580 : GOSUB '54(1,1) : STR(B$,,1)=HEX(FF) : DBACKSPACE #1,1S : GOSUB '44(1,1) : K,I9=0 4220 K=K+1 : J9=INT((K-1)/N0)+1 : IF J9=I9THEN 4350 : I9=J9 : PACK(##)STR(K6$,6)FROMI9 : IF K6$>K7$THEN 4510 : GOSUB '231(3,0,K6$) : IF Q$>" "THEN 4580 : GOSUB '54(1,2) : STR(B$,,1)=HEX(FF) : DBACKSPACE #1,1S : GOSUB '44(1,2) 4350 I=MOD(K-1,N0)+1 : IF P$(I)="END"THEN 4510 : PRINT AT(9,24,0);"Re-adjusting line item no.";K 4380 GOSUB '232(2,1,P$(I)) : J$(3)=" " : GOSUB '91 : ON J0GOTO ,,4220,,,,4380 : IF J0>0THEN 4580 : GOSUB '52(3) : DBACKSPACE #3,1S : E3=E3-B(I)*M6 : GOSUB '42(3) : GOSUB '238(2) : GOTO 4220 4510 B$=K8$ : STR(M5$,8)="B" : LOAD TM5$4000, 4550 DEFFN'31 : PRINT AT(1,0,80);"Invoicing program will now abort (with possible file er rors).";HEX(07) : GOSUB '254 4580 STR(M5$,8)="F" : LOAD TM5$4000, 9998 DEFFN'29"Q$=";HEX(22);"INVC030G";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 - Void an invoice.";HEX(22);":SELECT#15<I0$>:$OPEN#15:SELECTLIST <I0$>(132): LIST Z$:LIST Z$#:LIST Z$V:LIST Z$':$CLOSE#15:SELECTLIST005(80 )";HEX(0D)