image of READY prompt

Wang2200.org

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)