20 REM DATA LINES CONTAIN ACTIVITY # FROM & TO AND TIME TO COMPLETE 30 REM IF A=3 ENTER OPTIMISTIC,EXPECTED, & PESSIMISTIC TIMES 40 REM IF A=1 ENTER ONLY EXPECTED TIME 50 DIM I(150),J(150),D(150),M(150),P(150) 60 DIM E(150),F(150),G(150),S(150),T(150) 70 MAT M=ZER 80 MAT P=ZER 90 LET A=3 100 LET Q8=I5=0 110 GOTO 830 120 LET N5=G2 121 REM*N5=NUMBER OF ACTIVITIES 129 REM*AT GOSUB 420 HEADINGS ARE PRINTED 130 GOSUB 420 140 FOR K=1 TO N5 150 LET E)=0 160 LET F(K)=999999. 170 NEXT K 180 FOR K=2 TO N5 190 LET N=K-1 200 IF I(K)>I(N) THEN 230 210 LET E(K)=E(N) 220 GOTO 280 230 FOR L=1 TO N 240 IF I(K) <> J(L) THEN 270 250 IF E(K) >= E(L)+D(L) THEN 270 260 LET E(K)=E(L)+D(L) 270 NEXT L 280 NEXT K 290 LET F(N5)=E(N5)+D(N5) 300 FOR K=2 TO N5 310 LET N=N5-K+1 320 LET I(N5+1)=0 330 FOR L=N+1 TO N5 340 IF J(N) <> I(L) THEN 380 350 IF F(N) <= F(L)-D(L) THEN 380 360 LET F(N)(L)-D(L) 370 IF I(L).001 THEN 590 580 LET L2=0 590 LET T6=F(K)-E6 600 IF T6>.001 THEN 620 610 LET T6=0 620 PRINT INT(I(K));-INT(J(K)); 630 PRINT TAB(12);INT(D(K)+.5); 640 PRINT TAB(18);INT(E(K)+.5); 650 PRINT TAB(24);INT(E6+.5); 660 PRINT TAB(30);INT(L2+.5); 670 IF T6=0 THEN 700 680 PRINT TAB(36);INT(F(K)+.5);TAB(42);INT(T6+.5) 690 GOTO 710 700 PRINT TAB(3;INT(F(K)+.5);TAB(42);INT(T6+.5);" ON CRITICAL PATH" 710 NEXT K 720 PRINT 730 PRINT " PROJECT COMPLETION ="INT(F(N5)+.5) 740 PRINT 750 IF A<1 THEN 9999 ELSE IF A=3 THEN 790 760 MAT D=(1)*M 770 LET A=-1 780 GOTO 940 790 MAT D=(1)*P 800 LET A=A-1 810 GOTO 940 820 STOP 830 REM THIS SUBROUTINE SORTS ON J WITHIN K VALUES 840 PRINT 850 PRINT 860 FOR G2=1 TO 210 870 IF A=2 OR A=3 THEN 900 880 READ S(G2),T(G2),D(G2) 890 GOTO 910 00 READ S(G2),T(G2),D(G2),M(G2),P(G2) 910 IF S(G2)<0 THEN 930 920 NEXT G2 930 LET G2=G2-1 940 FOR I1=1 TO G2 950 LET G(I1)=S(I1)*1000+T(I1) 960 NEXT I1 970 FOR F1=1 TO G2-1 980 FOR F2=1 TO G2-F1 990 IF G(F2)