Listing of file='FCST126A' on disk='vmedia/701-2663.wvd.zip'
# Sector 362, program filename = 'FCST126A'
0010 REM FCST126A, RELEASE 1-0, (07/20/79), THIS PROGRAM IS A COPYRIGHT PRODUC
T OF WANG LABORATORIES., UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED,
PRINT REORDER SIMULATION PARAMETERS
0170 COM C6$(21)2,A0$1,A1$1,A7,G6,G8,G9,D,D0,G2,G1,G,D1,C0,B0,B1,D5
: COM C7$(21)1
: GOTO 4000
4000 DIM C6$8,O7$20,O8$8,O9$8
4010 %.##
4020 %.###
4030 %#.##
4040 GOTO 4620
4050 DEFFNR(X)=ROUND((X,0)
4090 DEFFN'179
: IF D5>0THEN 4130
: D5=.5
4130 FOR E9=0TO 20
: PACK(#.#)C7$(21-E9)FROME9*.2
: NEXT E9
: PACK(.####)C6$()FROM0,.0004,.0009,.0015,.0023,.0035,.0056,.0088,.0134,.01
99,.0294,.0425,.06,.0829,.1131,.151,.1985,.2561,.3252,.4062,.5
: RETURN
4220 DEFFN'35(O8$)
: O9$=HEX(8040201008040201)
: INIT(O8$)O8$
: O7$=HEX(3180314031203110310831043102310130002020)
: AND (O9$,O8$)
: $TRAN(O9$,O7$)R
: RETURN
4310 G8=3
: G9=G9+1
: PRINT HEX(0C);"REORDER SIMULATOR";TAB(37-LEN(K5$)/2);K5$
: PRINT TAB(70);"PAGE";G9
: RETURN
4380 PRINT " "
: PRINT TAB(A7);" RD OH RCV OO OP OUTL RO MADE LO
ST RC"
: G8=G8+2
: RETURN
4440 DEFFN'36(G6)
: IF G8<55THEN RETURN
: GOSUB 4310
: IF G6=1THEN 4380
: RETURN
4510 SELECT PRINT <I0$>(96)
: RETURN
4550 SELECT PRINT 005(80)
: RETURN
4620 GOSUB 4550
: A7=0
: GOSUB '179
: $UNPACK(F=HEX(610461046104510451045303500260046004A001A001))A6$()TO D,D0,
G2,G1,G,D1,C0,B0,B1,A1$,A0$
: IF K2$(1)="Y"THEN 5720
: A7=10
: GOSUB 4510
: GOSUB 4550
: PRINT AT(1,0,);"PRINTING PARAMETER VALUES"
: GOSUB 4510
: G9=0
: GOSUB 4310
: PRINT HEX(0A0E);"DEMAND ADJUST PARAMETERS"
: PRINT " "
4810 PRINT "MINIMUM DEMAND SMOOTHING RATE ";
: PRINTUSING 4020,A
: PRINT "DAMPING FOR DEMAND SMOOTHING RATE ";
: PRINTUSING 4030,A0
: PRINT "DEMAND FILTER LIMIT";B
: PRINT "TRACKING SIGNAL LIMIT";B3
: PRINT "TREND TYPE ";A4$
: PRINT "TREND PERCENT SMOOTHING RATE ";
: PRINTUSING 4020,A1
: PRINT "SAFETY FACTOR SMOOTHING RATE ";
: PRINTUSING 4020,A2
4920 PRINT "MIN% OF DEMAND FOR SAFETY FACTOR";A3*100;"%"
: PRINT "MAX% OF DEMAND FOR SAFETY FACTOR";A4*100;"%"
: PRINT "MAX% OF DEMAND FOR DYING ITEM SAFETY FACTOR";A5*100;"%"
: PRINT HEX(0A0A0A0E);"SEASONALITY PARAMETERS"
: PRINT " "
: PRINT "BASE INDICES"
: FOR K=1TO P
: PRINTUSING 4030,P$(K);
: NEXT K
: PRINT
: FOR K=1TO P
5030 PRINTUSING 4030,B(K);
: NEXT K
: PRINT
: PRINT HEX(0A0A0A0E);"REORDER PARAMETERS"
: PRINT " "
: PRINT "REORDER STRATEGY ";A3$
: IF A3$<>"M"THEN 5120
: PRINT "MINIMUM STOCK LEVEL";D3
: PRINT "MAXIMUM STOCK LEVEL";D4
5120 IF A3$<>"W"THEN 5140
: PRINT "WEEKS OF SUPPLY";D3
5140 IF A3$="M"THEN 5190
: PRINT "REVIEW TIME IN WEEKS";C1
: PRINT "LEAD TIME IN DAYS";C3
: PRINT "SERVICE PERIOD IN WEEKS";C2
: PRINT "COUNTER STOCK";D2
5190 PRINT "ITEM MINIMUM";B5
: IF A3$<>"F"THEN 5230
: PRINT "FIXED ORDER QUANTITY";B4
: GOTO 5240
5230 PRINT "PACK SIZE";B4
5240 IF A3$="M"THEN 5300
: PRINT "TREND LIMIT ";
: PRINTUSING 4010,B2
: IF A3$="W"THEN 5300
: PRINT "LEVEL OF SERVICE ";
: PRINTUSING 4010,C5
5300 PRINT HEX(0A0A0A0E);"SIMULATION PARAMETERS"
: PRINT " "
: PRINT "POTENTIAL SALES"
: PRINT
: CONVERT STR(K1$,1,2)TO H6
: G6=INT(P/2)
: Q9=H6-G6*INT((H6-1)/G6)
: PRINT TAB((Q9-1)*12);
: FOR K=1TO K3
: PRINTUSING "### ####### ",P$(H6),K(K);
: H6=H6+1
: IF H6=G6+1THEN 5440
: IF H6<P+1THEN 5450
: H6=1
5440 PRINT
5450 NEXT K
: PRINT
: PRINT " "
: PRINT "MEAN LEAD TIME";K1;"DAYS"
: PRINT "LEAD TIME DEVIATION";K2;"DAYS"
: GOSUB 4310
: PRINT HEX(0E);"INITIAL VALUES"
: PRINT HEX(0A);"DESEASONALIZED DEMAND";D
: PRINT "SAFETY FACTOR";D0
: PRINT "MEAN ABSOLUTE DEVIATION";G2
: PRINT "MEAN SIGNED DEVIATION";G1
: PRINT "VARIABLE TREND";G
: PRINT "TREND %";D1*100
5590 PRINT "LAST PERIOD PROCESSED";C0
: GOSUB '35(A1$)
: PRINT "DEMAND FILTER HISTORY ";O9$
: GOSUB '35(A0$)
: PRINT "VARIABLE TREND HISTORY ";O9$
: PRINT "ON HAND";B0
: PRINT "ON ORDER";B1
: G8=G8+11
: GOSUB 4380
: GOTO 5760
5720 PRINT AT(1,0,);HEX(0A0A0A)
: GOSUB 4380
: G8=5
5760 LOAD T"FCST127A"4000,8999
5770 DEFFN'29"Q$=";HEX(22);"FCST126A";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D
)