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)