Listing of file='FCST030A' on disk='vmedia/701-2663.wvd.zip'
# Sector 92, program filename = 'FCST030A'
0010 REM FCST030A, RELEASE 1-0, (12/05/78), THIS PROGRAM IS A COPYRIGHT PRODU
CT OF WANG LABORATORIES., UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED,
SALES PROJECTION ROUTINE
0560 DIM D6$4,D6$(3)7,D7$6,D7$(39)12,K9$4
: DIM C6$4,C6$(21)2,C7$(21)1,P7$(1)2
: DIM A4$1,B(13)
0640 DEFFN'173
: B$=" "
: IF K9=0THEN 1200
: IF INT(-C5)=-1THEN 710
: B$="A"
0710 GOSUB 1890
: INIT(00)D6$(),D7$()
: CONVERT STR(K9$,1,2)TO F7
: D8,F9=F7
: D6=D
: IF D>0THEN 830
: D6,D7,D9=0
: B$="D"
: RETURN
0830 D7=D1
: E7=D*D7
: IF A4$="F"THEN 870
: D7,E7=0
0870 IF I9=0THEN 920
: GOSUB 1340
0920 A6=B(F7)*D6*(1+D7*.5)
: A7=A6+C8*D6*SQR(B(F7))
: A8=A7-F6
: IF A8>0THEN 970
: A8=0
0970 F6=F6+A8-A6
: $PACK(F=D7$)D7$(F9-D8+1)FROMA6,A7,A8
: IF D7>0THEN 1050
: D6=D6*(1+D7)
: GOTO 1060
1050 D6=D6+E7
1060 IF F7<>P2THEN 1120
: GOSUB 1250
: $PACK(F=D6$)D6$(-INT(-F9/P))FROMD6,D9
1120 F7=F7+1
: F9=F9+1
: IF F7<=PTHEN 1160
: F7=1
1160 IF F9<D8+K9THEN 920
: GOSUB 1250
1200 RETURN
1250 D9=0
: IF F8=0THEN 1280
: D9=(D6-F8)/F8
1280 F8=D6
: RETURN
1340 IF K9>1THEN 1390
: IF B(F7)=0THEN 1830
: D7=2*(I9/(D*B(F7))-1)
: GOTO 1800
1390 D7,E7,A7,A8=0
: FOR A6=D8TO D8+K9-1
: D9=A6-INT((A6-1)/P)*P
: A7=A7+B(D9)
: A8=A8+B(D9)*(A6-D8)
: NEXT A6
: IF A7*D>I9THEN 1600
1510 IF A8=0THEN 1830
: D7=(-A7*.5-A8+SQR(A7*A7*.25+A8*A8-A7*A8+2*A8*I9/D))/A8
: E7=D*D7
: RETURN
1600 IF I9<=D*.5*B(F7)THEN 1830
1630 A7=B(D8)
: A8=0
: A9=1
: FOR A6=D8+1TO D8+K9-1
: D9=A6-P*INT((A6-1)/P)
: A8=A8+B(D9)*A9*(A6-D8)
: A9=A9*(1+D7)
: A7=A7+B(D9)*A9
: NEXT A6
: A8=D*((1+.5*D7)*A8+.5*A7)
: IF A8=0THEN 1830
: A7=(D*(1+.5*D7)*A7-I9)/A8
: D7=D7-A7
: IF ABS(A7)>=.001THEN 1630
1800 IF D7<=-1THEN 1830
: RETURN
1830 D7=D1
: B$="C"
: RETURN
1890 IF D0*D=0THEN 2010
: C8=C5
: IF INT(-C8)=-1THEN 1930
: C8=.95
1930 C8=D/D0*(1-C8)
: IF C8>=.5THEN 2010
: PACK(.####)C6$FROMC8
: MAT SEARCHC6$(),>STR(C6$,1,2)TO P7$()STEP 2
: C9=.5*VAL(STR(P7$(1),2))+.5
: IF C9>1THEN 2040
2010 C8=0
: RETURN
2040 UNPACK(.####)C6$(C9-1)TO D6
: UNPACK(.####)C6$(C9)TO D8
: UNPACK(#.#)C7$(C9-1)TO D7
: UNPACK(#.#)C7$(C9)TO D9
: C8=((D9-D7)/(D8-D6)*(C8-D6)+D7)*(D0/D)
: RETURN
2130 DEFFN'172
: A4$="F"
: C5=.95
: D1=0
: I9=0
: P=12
: P2=12
: D6$=HEX(51045303)
: D7$=HEX(510451045104)
: 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
2270 RETURN