image of READY prompt

Wang2200.org

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
     )