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)