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 )