image of READY prompt

Wang2200.org

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