Listing of file='INVT290A' on disk='vmedia/701-2661A.wvd.zip'
# Sector 380, program filename = 'INVT290A'
0010 REM INVT290A, RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODUCT
OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0170 DIM A6$1
: DIM K$1,K1$Q0,K2$Q0,K3$17,K8$Q0,K9$30,B$1
: GOTO 4000
4000 SELECT @PARTS0$
: K1$,Q$=" "
: K2$=ALL(FF)
: K8$=HEX(00)
: P1=0
: K=VAL(Q0$(2))
: GOSUB '100("N,Y","NnYy",1,1,"PRINT REPORT & UPDATE INVENTORY FILE (Y OR N
)",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: A6$=Q6$
: IF A6$="Y"THEN GOSUB '93(" ")
: IF I0$=" "AND A6$="Y"THEN 4000
4130 GOSUB '100("A,R,I","AaRrIi",1,1,"ENTER INQUIRY TYPE (A=ALL, R=RANGE, I=IN
DIVIDUAL)",2)
: IF Q6$=HEX(1F)THEN GOSUB '31
: K$=Q6$
: Q6$="ALL RANGE INDIVIDUAL"
: K3$=STR(Q6$,Q9*10-9,10)
: K3$=K3$&" OPTION"
: ON Q9GOTO ,4330,4270
: GOSUB '235(2,0)
: GOSUB '91
: IF J0<>3THEN 4480
: GOSUB '254
: GOTO 4870
4270 GOSUB '34(HEX(08))
: IF Q6$="END"THEN 4870
: K1$,K2$=Q6$
: GOTO 4410
4320 PRINT AT(3,0,80);HEX(07);"Starting vendor ID must be lower than ending ve
ndor ID."
4330 GOSUB '34("STARTING")
: IF Q6$="END"THEN 4870
: K1$=Q6$
: GOSUB '34("ENDING")
: IF Q6$="END"THEN Q6$=ALL(7F)
: K2$=Q6$
: IF K2$<K1$THEN 4320
4410 Q6$=STR(K1$)&ALL(00)
: GOSUB '232(2,0,Q6$)
4430 IF J0=7THEN GOSUB '92
: GOSUB '237(2,0)
: IF Q$="E"THEN 4830
: GOSUB '91
: IF J0=7THEN 4430
4480 IF J0>0THEN 4980
: F1$=STR(T7$,Q0+1,K)
: K9$=T7$
: IF STR(T7$,,Q0)>K2$THEN 4830
: IF STR(T7$,,Q0)<>K8$AND K8$>HEX(00)THEN GOSUB 6490
: IF A6$="N"THEN 4740
: IF K8$>HEX(00)THEN 4600
: K8$=STR(T7$,,Q0)
: GOSUB '90
: PRINT "VENDOR ID ";K8$
: L=L+1
4600 GOSUB 6100
: GOSUB 6680
: IF C6$="1"THEN 4670
: E1=E1+B8
: DBACKSPACE #2,1S
: GOSUB '68(2)
4670 GOSUB '238(1)
: GOSUB '231(2,0,K9$)
: IF Q$=" "THEN 4430
: GOSUB '91
: GOTO 4980
4740 IF K8$>HEX(00)THEN 4790
: K8$=STR(T7$,,Q0)
: PRINT AT(1,0,)
: PRINT AT(4,0);"VENDOR ID ";K8$;HEX(0D0A);"PRODUCT ID";TAB(K+2);"DESCRIPTI
ON";TAB(40);"U/M";TAB(45);"REORDER";TAB(55);"BACKORDERED"
: A6=0
4790 GOSUB 6100
: GOSUB 6940
: GOTO 4430
4830 GOSUB 6490
: ON POS("RI"=K$)GOTO 4330,4270
4870 IF A6$="N"THEN 4910
: SELECT PRINT <I0$>(132)
: PRINT HEX(0C)
: SELECT PRINT 005(80)
4910 PRINT AT(1,0,)
: GOSUB '100("M,R","MmRr",1,1,"ENTER R TO RESTART, M FOR MENU",2)
: IF Q6$="R"THEN 4000
4950 DEFFN'31
: LOAD TM$
4980 Q6$="Inventory master file."
: IF T6=2THEN Q6$="P.O. Activity file."
: PRINT AT(3,16,64);" - ";Q6$
: GOSUB '254
: GOTO 4950
6020 DEFFN'34(Q7$)
: PRINT AT(1,0,80);"ENTER ";Q7$;" VENDOR ID (OR END)"
: GOSUB '100(" ",HEX(7F),Q0,0," ",2)
: IF Q6$="end"THEN Q6$="END"
: IF Q6$="END"THEN RETURN
: IF Q6$=HEX(1F)THEN GOSUB '31
: GOSUB '96(4)
: RETURN
6100 IF J0=7THEN GOSUB '92
: GOSUB '232(1,1,F1$)
: C6$,J$(3)=" "
: IF Q$=" "THEN 6220
: GOSUB '91
: IF J0=7THEN 6100
: IF J0<>3THEN 4980
: F2$="NOT ON INVENTORY FILE"
: C6$="1"
: RETURN
6220 GOSUB '78(2)
: GOSUB '123(H0)
: IF E+E1-E3<E4THEN 6280
: F2$="NOT BELOW MINIMUM"
: C6$="1"
: RETURN
6280 GOSUB 7120
: RETURN
6310 DEFFN'90
: SELECT PRINT 005(80)
: Q6$=" "
: KEYIN Q6$,6350,6350
6350 IF Q6$="P"THEN GOSUB '254
: IF Q6$=HEX(1F)THEN GOSUB '31
: SELECT PRINT <I0$>(132)
: IF L<L0THEN RETURN
: P1=P1+1
: PRINT HEX(0C0A0E);TAB(3);N2$
: PRINT K3$;TAB(50);"RECOMMENDED PURCHASE ORDER REPORT";TAB(110);Q1$;TAB(12
2);"PAGE";P1
: PRINT HEX(0A)
: PRINT TAB(45);"RECMND ACTUAL";TAB(84);"ON";TAB(93);"ON";TAB(108);"BACK-"
;TAB(118);"LAST"
6440 PRINT "PRODUCT ID";TAB(K+2);"DESCRIPTION";TAB(40);"U/M REORDER REORDER";
TAB(65);"MIN";TAB(74);"MAX";TAB(82);"HAND";TAB(90);"ORDER ALLOCATED ORDER
ED ACTIVITY WEIGHT"
: PRINT HEX(0A)
: L=5
: RETURN
6490 K8$=HEX(00)
: IF A7=0THEN 6620
: IF A6$="N"THEN 6580
: GOSUB '90
: PRINT HEX(0A)
: SELECT PRINT 005(80)
: L=L+1
: A7=0
: RETURN
6580 PRINT AT(4,35,0);
: PRINTUSING "NO. OF PRODUCTS = #####",A7
: GOTO 6630
6620 PRINT AT(3,0,80);HEX(07);"No activity for vendor ID ";K1$;"."
6630 GOSUB '254
: A6,A7=0
: RETURN
6660 %###,###-
6680 GOSUB '90
: PRINT F1$;TAB(K+2);STR(F2$,,MIN(36-K,LEN(F2$)));
: IF C6$="1"THEN 6870
: PRINT TAB(41);F3$;TAB(45);
: PRINTUSING 6660,B8;
: PRINT " ";B$;
: PRINT TAB(61);
: PRINTUSING 6660,E4;
: PRINT TAB(70);
: PRINTUSING 6660,E5;
: PRINT TAB(79);
: PRINTUSING 6660,E;
: PRINT TAB(88);
: PRINTUSING 6660,E1;
: PRINT TAB(98);
: PRINTUSING 6660,E3;
: PRINT TAB(106);
: PRINTUSING 6660,E2;
: PRINT TAB(114);U9$;TAB(122);
: PRINTUSING "####.####",H5;
6870 PRINT
: PRINT HEX(0A)
: L=L+2
: A7=A7+1
: SELECT PRINT 005(80)
: RETURN
6940 PRINT AT(A6+6,0);F1$;TAB(K+2);STR(F2$,,MIN(36-K,LEN(F2$)));
: IF C6$="1"THEN 6990
: PRINT TAB(41);F3$;TAB(45);
: PRINTUSING 6660,B8;
: PRINT TAB(59);
: PRINTUSING 6660,E2
: IF B$="M"THEN PRINT " MULTIPLE FOQ";
6990 PRINT
: A6=A6+1
: A7=A7+1
: IF A6<17THEN RETURN
: GOSUB '254
: PRINT AT(6,0,)
: A6=0
: RETURN
7120 B6=E4
: B7=E5
: B0=E-E3
: B1=E1
: B$=" "
7180 DEFFN'176
: B8=0
: IF B0+B1>B6THEN 7340
: B8=B7-B0-B1
: IF A3$="F"THEN 7300
: IF B8>B5THEN 7330
: B8=B5
: GOTO 7330
7300 IF B4>=B8THEN 7330
: B$="M"
7330 IF B4<>0THEN B8=-INT(-B8/B4)*B4
7340 RETURN
9998 DEFFN'29"Q$=";HEX(22);"INVT290A";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 - Recommended purchases report.";HEX(22);":SELECT#15<I0$>:$OPEN#
15:SELECTLIST<I0$>(132): LIST Z$:LIST Z$#:LIST Z$V:LIST Z$':$CLOSE#15:SEL
ECTLIST005(80)";HEX(0D)