image of READY prompt

Wang2200.org

Listing of file='INVC030E' on disk='vmedia/701-2607C.wvd.zip'

# Sector 37, program filename = 'INVC030E'
0010 REM INVC030E, RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODUCT
      OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0170 DIM A9$13,K$(6)21
   : GOTO 4000
4000 DATA "CUSTOMER NAME",21,"ADDRESS 1",20,"ADDRESS 2",20,"CITY,STATE",16,"ZI
     P CODE",5,"SALESMAN ID",3
   : SELECT @PARTS0$
   : PRINT HEX(03);"ENTER INVOICES - ADD A NEW CUSTOMER TO CUSTOMER MASTER FIL
     E"
4040 PRINT AT(4,5,);"Customer ID  -  ";C1$
   : GOSUB '100("Y,N","YyY Nn",1,1,"IS CUSTOMER ID OK  (Y OR N)",2)
   : IF Q6$=HEX(1F)THEN GOSUB '31
   : IF Q6$="Y"THEN 4180
4090 GOSUB '100(" ",HEX(7F),VAL(Q0$(2)),0,"ENTER CUSTOMER ID",2)
   : IF Q6$=HEX(1F)THEN GOSUB '31
   : GOSUB '96(1)
   : C1$=Q6$
   : GOSUB '232(1,0,C1$)
   : IF Q$="N"THEN 4040
   : PRINT AT(3,0,80);HEX(07);"Customer ID is already in master file"
   : GOTO 4090
4180 I9=1
   : J9=6
4200 FOR I=I9TO J9
   : RESTORE I*2-1
   : READ A9$,A9
   : IF I=6THEN A9=VAL(Q0$(3))
   : Q7$="ENTER "&A9$
   : GOSUB '100(" ",HEX(7F),A9,0,Q7$,2)
   : IF Q6$=HEX(1F)THEN GOSUB '31
   : IF I=6THEN GOSUB '96(3)
   : K$(I)=Q6$
   : PRINT AT(I+4,5,0)
   : PRINTUSING "(#) ############# - #####################",I,A9$,K$(I)
   : NEXT I
4350 GOSUB '100("0","6",1,0,"ENTER LINE NO. (1-6) TO CORRECT   (0=NONE)",1)
   : IF Q6$=HEX(1F)THEN GOSUB '31
   : I9,J9=Q9
   : IF Q9>0THEN 4200
   : C$=C1$
   : A1$,B0$=K$(1)
   : A2$,C0$=K$(2)
   : A3$,D0$=K$(3)
   : A4$,E0$=K$(4)
   : A5$,F0$=K$(5)
   : N1$,N4$=K$(6)
   : P2$="1"
   : G$,P3$="0"
   : P5$="Y"
   : C3$,C4$,P$=" "
4490 B,B0,M,M1,P2,P3,P4,P5=0
   : GOSUB '233(1,0,C1$,0)
   : STR(M5$,8)="F"
   : IF Q$>" "THEN LOAD TM5$4000,
   : GOSUB '40(5," ")
   : G0$(G0)="1"&C$
   : G1$(G0)="A"
   : G2$(G0)=" "
   : G3$(G0)=A1$
   : G5$(G0)="New customer"
   : IF G0<4THEN 4670
   : G0=G0+1
   : GOSUB '49(10)
   : G1$(),G2$(),G3$(),G5$()=" "
   : G0$()=ALL(FF)
   : G0=1
4670 A8$="1"
4680 DEFFN'31
   : STR(M5$,8)="B"
   : LOAD TM5$4000,
9998 DEFFN'29"Q$=";HEX(22);"INVC030E";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 - Add a new customer to the customer master file.";HEX(22);":SEL
     ECT#15<I0$>:$OPEN#15:SELECTLIST<I0$>(132): LIST Z$:LIST Z$#:LIST Z$V:LIST
      Z$':$CLOSE#15:SELECTLIST005(80)";HEX(0D)