Listing of file='FCST010A' on disk='vmedia/701-2663.wvd.zip'
# Sector 381, program filename = 'FCST010A'
0010 REM FCST010A, RELEASE 1-0, (11/28/78), THIS PROGRAM IS A COPYRIGHT PRODU
CT OF WANG LABORATORIES., UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED,
DEMAND ADJUSTMENT ROUTINE
0510 DIM B(13),B1(2,5),A$1,A0$1,A2$1,A4$1,A6$1,B$1,B1$1
0550 DEFFN'192
: B$="S"
: IF C0=CTHEN 1620
: B$="Z"
: IF B(C)=0THEN 1610
: A$,B$,B1$=" "
: ROTATE(A0$,1)
: AND (A0$,FE)
: ROTATE(A1$,1)
: AND (A1$,FE)
: ROTATE(A2$,1)
: AND (A2$,FE)
: A8=(C4-D*B(C))*(1+.3*B(C))/(B(C)+.3)
: A9=ABS(A8)
: IF C0<1THEN 1660
: A6=C-C0
: IF A6>0THEN 840
: A6=A6+P
0840 IF A6=1THEN 870
: B$="M"
0870 % LOGIC TO CHECK FOR SEASONAL ITEM IN LAST MONTH WOULD GO HERE
0900 A6=D*A3
: IF G2<A6THEN 940
: A6=G2
0940 IF A9<B*A6THEN 1050
: A6=0
: XOR (A1$,01)
: A6$=HEX(02)
: AND (A6$,A1$)
: IF A6$=HEX(02)THEN 1050
: B$="D"
: RETURN
1050 G1=.9*G1+.1*A8
: G2=.9*G2+.1*A9
: A6=A
: IF G2=0THEN 1200
: A6=ABS(G1)/G2
: IF A6<B3THEN 1150
: XOR (A2$,01)
1150 IF A0=0THEN 1170
: A6=A6*A0
1170 IF A6>ATHEN 1200
: A6=A
1200 A8=D
: D=(1-A6)*D+A6*C4/B(C)
: A8=D-A8
: D0=(1-A2)*D0+A2*A9
: IF D0>D*A3THEN 1310
: D0=D*A3
: B1$="L"
1310 IF D0<D*A4THEN 1360
: D0=D*A4
: B1$="H"
1360 IF A4$="N"THEN 1430
: IF D<>0THEN 1410
: D1=0
: GOTO 1430
1410 D1=(1-A1)*D1+A1*A8/D
1430 G=(1-A6)*G+A6*A8
: IF G>=0THEN 1490
: XOR (A0$,01)
1490 A6$=HEX(0F)
: AND (A6$,A0$)
: IF A6$>HEX(0C)THEN 1550
: IF A6$=HEX(07)THEN 1550
: IF A6$<>HEX(0B)THEN 1610
1550 A$="D"
: IF D0<D*A5THEN 1610
: D0=D*A5
: B1$="D"
1610 C0=C
1620 RETURN
1660 A0$,A1$,A2$=HEX(00)
: A6,A8=0
: IF A4$="N"THEN 1720
: D1=0
1720 G=0
: IF ABS(C0)+C4=0THEN 1620
: D=(ABS(C0)*D+C4/B(C))/ABS(C0-1)
1770 A8=A8+1
: IF D>=B1(1,A8)THEN 1770
: D0=D*B1(2,A8)
: G2=D0
: G1=0
: C0=C0-1
: IF C0=-3THEN 1610
: RETURN
1900 DEFFN'190
: P=12
: A=.1
: A0=0
: A1=.1
: A2=.2
: A3=.2
: A4=1
: A5=.5
: A4$="F"
: B=6
: B3=.5
: B1(1,1)=2
: B1(2,1)=.6
: B1(1,2)=5
: B1(2,2)=.5
: B1(1,3)=10
: B1(2,3)=.4
: B1(1,4)=100
: B1(2,4)=.3
: B1(1,5)=9E99
: B1(2,5)=.2
: RETURN
9998 DEFFN'29"Q$=";HEX(22);"FCST010A";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D
)