image of READY prompt

Wang2200.org

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
     )