Listing of file='INVT210B' on disk='vmedia/701-2661A.wvd.zip'
# Sector 279, program filename = 'INVT210B' 0010 REM INVT210B, RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODUCT OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED 6270 % THIS SHOULD BE LINE 6270 6280 DEFFN'130 : Q5=32 : Q7=55 : PRINT "PRODUCT ID";TAB(15);F1$ : PRINT "DESCRIPTION";TAB(15);F2$ : GOSUB '35(A1$) : PRINT "PROFILE ID";TAB(27-LEN(G1$));G1$;TAB(Q5);"DEMAND FILTER HIST " ;B9$ : IF Q$="N"THEN 6400 : PRINT "DESCR";TAB(27-LEN(L2$));L2$; : GOTO 6410 6400 PRINT "*** PROFILE ID NOT FOUND ***"; 6410 GOSUB '35(A2$) : PRINT TAB(Q5);"TRACKING SIGNAL HIST ";B9$ : GOSUB '35(A0$) : PRINT "SALES STABILITY";TAB(26);I1$;TAB(Q5);"VARIABLE TREND HIST ";B9$ : PRINT "DESEAS DEMAND "; : PRINTUSING 7240,D; : PRINT TAB(Q5);"REORDER STRATEGY";TAB(62);A3$ : PRINT "SAFETY FACTOR "; : PRINTUSING 7240,D0; : IF A3$="M"THEN 6560 6540 PRINT TAB(Q5);"REVIEW TIME";TAB(61);C1 : GOTO 6590 6560 PRINT TAB(Q5);"MINIMUM LEVEL";TAB(Q7); : PRINTUSING 7260,E4 6590 PRINT "MEAN ABS DEV "; : PRINTUSING 7240,G2; : IF A3$="M"THEN 6650 : PRINT TAB(Q5);"LEAD TIME (DAYS)";TAB(Q7); : PRINTUSING 7260,C3 : GOTO 6680 6650 PRINT TAB(Q5);"MAXIMUM LEVEL";TAB(Q7); : PRINTUSING 7260,E5 6680 PRINT "MEAN SIGN DEV "; : PRINTUSING 7240,G1; : IF A3$="M"THEN 6740 : PRINT TAB(Q5);"SERVICE PERIOD";TAB(52); : PRINTUSING 7240,C2 : GOTO 6770 6740 PRINT TAB(Q5);"ITEM MINIMUM";TAB(Q7); : PRINTUSING 7260,B5 6770 PRINT "VARIABLE TREND "; : PRINTUSING 7240,G; : IF A3$="M"THEN 6830 : PRINT TAB(Q5);"COUNTER STOCK";TAB(Q7); : PRINTUSING 7260,D2 : GOTO 6860 6830 PRINT TAB(Q5);"PACK SIZE";TAB(Q7); : PRINTUSING 7260,B4 6860 PRINT "TREND PERCENT "; : PRINTUSING 7240,D1*100; : IF A3$<>"M"THEN 6910 : PRINT : GOTO 6970 6910 Q6$="FIXED ORDER QTY" : IF A3$="F"THEN 6940 : Q6$="PACK SIZE" 6940 PRINT TAB(Q5);Q6$;TAB(Q7); : PRINTUSING 7260,B4 6970 PRINT "LAST PERIOD PROC "; : PRINTUSING 7250,C0; : PRINT TAB(Q5); : IF A3$<>"M"THEN 7030 : PRINT : GOTO 7100 7030 IF A3$="F"THEN 7070 : PRINT "ITEM MINIMUM";TAB(Q7); : PRINTUSING 7260,B5 : GOTO 7100 7070 PRINT "LEVEL OF SERVICE";TAB(59); : PRINTUSING 7270,C5 7100 IF C0<>0THEN 7130 : PRINT "%1ST PER W/SLS "; : PRINTUSING 7260,100*(G4+1-SGN(G4)); 7130 PRINT TAB(Q5); : IF A3$="S"THEN 7180 : IF A3$="W"THEN 7210 : PRINT : RETURN 7180 PRINT "LEVEL OF SERVICE";TAB(59); : PRINTUSING 7270,C5 : RETURN 7210 PRINT "WEEKS SUPPLY";TAB(52); : PRINTUSING 7240,D3 : RETURN 7240 %-####,###.# 7250 %-## 7260 %####,### 7270 %.### 7300 DEFFN'131 : L=L+7 : Q3=40 : Q5=70 : Q7=104 : PRINT "PRODUCT ID";TAB(37-LEN(F1$));F1$;TAB(Q3);"SAFETY FACTOR "; : PRINTUSING 7240,D0; : PRINT TAB(Q5); : IF C0<>0THEN 7410 : PRINT "% 1ST PER W/SLS "; : PRINTUSING 7260,100*(1+G4-SGN(G4)); 7410 PRINT TAB(Q7); : IF A3$="M"THEN 7460 : PRINT "LEAD TIME (DAYS)";TAB(Q7+18); : PRINTUSING 7260,C3 : GOTO 7490 7460 PRINT "MINIMUM LEVEL "; : PRINTUSING 7260,E4 7490 PRINT "DESCRIPTION";TAB(37-LEN(F2$));F2$;TAB(Q3);"MEAN ABS DEV "; : PRINTUSING 7240,G2; : GOSUB '35(A1$) : PRINT TAB(Q5);"DEMAND FILTER HIST ";B9$;TAB(Q7); : IF A3$="M"THEN 7570 : PRINT "SERVICE PERIOD "; : PRINTUSING 7240,C2 : GOTO 7600 7570 PRINT "MAXIMUM LEVEL "; : PRINTUSING 7260,E5 7600 PRINT "PROFILE ID";TAB(37-LEN(G1$));G1$;TAB(Q3);"MEAN SIGN DEV "; : PRINTUSING 7240,G1; : GOSUB '35(A2$) : PRINT TAB(Q5);"TRACKING SIGNAL HIST ";B9$;TAB(Q7); : IF A3$="M"THEN 7680 : PRINT "COUNTER STOCK "; : PRINTUSING 7260,D2 : GOTO 7710 7680 PRINT "ITEM MINIMUM "; : PRINTUSING 7260,B5 7710 IF Q$="N"THEN 7740 : PRINT "PROF DESC";TAB(37-LEN(L2$));L2$; : GOTO 7750 7740 PRINT "*** PROFILE ID NOT FOUND ***"; 7750 PRINT TAB(Q3);"VARIABLE TREND "; : PRINTUSING 7240,G; : GOSUB '35(A0$) : PRINT TAB(Q5);"VARIABLE TREND HIST ";B9$;TAB(Q7); : Q6$="PACK SIZE" : IF A3$<>"F"THEN 7820 : Q6$="FIXED ORDER QTY" 7820 PRINT Q6$;TAB(Q7+18); : PRINTUSING 7260,B4 : PRINT "SALES STABILITY";TAB(36);I1$;TAB(Q3);"TREND PERCENT "; : PRINTUSING 7240,D1*100; : PRINT TAB(Q5);"REORDER STRATEGY";TAB(Q5+30);A3$;TAB(Q7); : IF A3$="M"THEN 7950 : IF A3$="F"THEN 7930 : PRINT "ITEM MINIMUM "; : PRINTUSING 7260,B5; : GOTO 7950 7930 PRINT "LEVEL OF SERVICE "; : PRINTUSING 7270,C5; 7950 PRINT : PRINT "DESEAS DEMAND";TAB(26); : PRINTUSING 7240,D; : PRINT TAB(Q3);"LAST PER PROC";TAB(Q3+24); : PRINTUSING 7250,C0; : PRINT TAB(Q5); : IF A3$="M"THEN 8070 : PRINT "REVIEW TIME";TAB(Q5+29);C1; : PRINT TAB(Q7); : IF A3$="S"THEN 8140 : IF A3$="W"THEN 8100 8070 PRINT : PRINT : RETURN 8100 PRINT "WEEKS SUPPLY "; : PRINTUSING 7240,D3 : PRINT : RETURN 8140 PRINT "LEVEL OF SERVICE "; : PRINTUSING 7270,C5 : PRINT : RETURN 8190 DEFFN'35(B7$) : B9$=HEX(8040201008040201) : INIT(B7$)B7$ : B8$=HEX(3180314031203110310831043102310130002020) : AND (B9$,B7$) : $TRAN(B9$,B8$)R : RETURN 9999 DEFFN'29"Q$=";HEX(22);"INVT210B";HEX(22);":SCRATCHTQ$:SAVET$()Q$";HEX(0D)