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)