10 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   !!             NICK.BAS                !!
   !!COMPUTER AUG. CASES IN OP. AND LOG.  !!
   !!            MANAGEMENT               !!
20 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   !!              AUTHORS                !!
   !!  WILLIAM BERRY & D. CLAY WHYBARK    !!
30 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   !!             PUBLISHER               !!
   !!           SOUTH-WESTERN             !!
40 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   !!        RSTS/11 VERSION BY           !!
   !!          DARRYL JOHNSON             !!
   !!          BENTLEY COLLEGE            !!
   !!             MAY 1973                !!
50 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
100 &:&:&"THE NICHOLAS GARAGE":&"ADAPTIVE SMOOTHING MODEL":&:&
105 & "INPUT SMOOTHING CONSTANTS ONE AT A TIME ":&
110 INPUT "BASE LEVEL (INPUT '-1' TO END THE PROGRAM) ";A:
	GOTO 9999 IF A<0:INPUT "FIRST PERIOD ";O:
	INPUT "SECOND PERIOD ";T0:&:
	INPUT "DO YOU WANT A DETAILED REPORT ";F$:IF ASCII(F$)=78% THEN
	I1%=0% ELSE I1%=1%
120 &:&:INPUT "DIRECT OUTPUT TO ";F$:
	F$="KB:" IF LEN(F$)=0%:OPEN F$ FOR OUTPUT AS FILE 1%
130 OPEN "$NICK.DAT" FOR INPUT AS FILE 2%:DIM #2%,S(200%):
	S1=1:C=.004:L0%=200%:O0=37:D=10:IF I1%=0% THEN 150
140 GOSUB 3000
150 K%,M%,L%,I%,Q,C3,O1,C2,T,S2,S3=0:Y=A:X0=D
160 FOR N%=1% TO L0%:I%=I%+1%:C0=O0-S(N%):
	GOTO 180 IF C0>=0
170 I0%=SQR((2*D*S1)/C):X=I0%:Q=X+Q:O1=O1+S1:C0=Q+C0:
	GOTO 170 IF C0<0
180 C1=(O0+C0)*(C/2):T=C1+O1+T:E=S(N%)-D:X=ABS(E):
	GOTO 200 IF X<6:Y=O:M%,L%=0%:K%=2%:GOTO 300
200 IF E>1.8 THEN M%=M%+1%:L%=0%:GOTO 300 IF M%<2%:
	Y=O:M%=0%:K%=2%:GOTO 300
270 IF E+1.8<0 THEN L%=L%+1%:M%=0%:GOTO 300 IF L%<2%:
	Y=O:L%=0%:K%=2%:GOTO 300
290 M%,L%=0%
300 D=(Y*S(N%))+((1-Y)*D):IF I1%=0% GOTO 320
310 % USING "### #### ####",N%,O0,S(N%);:
	% USING "#####",Q;:% USING "####.##",C1;:
	% USING "#####.##",O1;:% USING "######.##",T;:
	% USING "####.##",D;:% USING " ####.##",E;:
	% USING " ##.##",Y
320 S2=S2+E:S3=S3+E^2%:O1,Q=0:O0=C0:GOTO 340 IF K%<1%:
	GOTO 330 IF K%=1%:K%=1%:Y=T0:GOTO 340
330 K%=0%:Y=A
340 GOTO 900 IF I1%=0% OR I%<50% OR N%>=L0%:
	% FOR I4%=0% TO 5%:GOSUB 3000:I%=0%
900 NEXT N%:X=L0%:B=S2/X:D0=X*(X-1):V=((X*S3)-S2%^2%)/D0:
	S0=SQR(V):%:%:%
910 %:% " SMOOTHING CONSTANTS, BASE =";:
	% USING "#.## ONE =#.## TWO =#.##",A,O,T0:%:
	% " MEAN ERROR (BIAS =";:
	% USING "####.###  ERROR STAND. DEV. =######.###",B,S0:
	%
915 % USING " TOTAL COST AT END =######.###",T:CLOSE 1%,2%:GOTO 100
3000 % FOR I%=0% TO 5%:% TAB(6);"BEG.";SPACE$(12%);"INV.    ORD.    ";:
	% "CUM.   FORE-";SPACE$(8%);"SMOOTH":
	% " DAY  INV. DEMD ORD.  COST    COST    COST";:
	% "   CAST   ERROR CONST.":%:RETURN
9999 END