Critical Path Analysis 141
190 LOCATE 1, 20:PRINT CHR$(20):LOCATE 1 1,20:PRINT"PLEASE WAIT"
200 P=1:H$=N$
210 P$(P)=CHR$(33+N)
220 IF MID$(N$,N,1)=" " THEN 300
230 MID$(6$,N,1)="1"
240 H=ASC(MID$(H$,N,1))-32
250 IF MID$(6$,ASC(MIDS(E4(N),H,1))-33,1 )<>" " THEN 540
260 P$(P)=P$(P)+MIDS(B$(N),H,1)
270 T(N)=P(P):P(F)=P(P)+ASC(MID$(A$(N),H
280 N=ASC(MID$(B$(N),H,1))-33
290 60TO 220
300 V=1:6=0
310 FOR X=LEN(P$(P)) TO 1 STEP -1
320 MID$(6$,ASC(MID$(P$(P),X,1))-33,1)="
"
330 IF 6=0 AND MIDS(P$(P),X,1)<>CHR$(F+3 3) AND F>0 THEN V=0
340 6=1:IF MID$(H$,ASC(MID$(P$(P),X,1))- .33,1)>"!" THEN 490
350 NEXT X
360 IF V=0 THEN P$(P)=STRING$(32," "):P= P-1
370 SOUND 1,120,10: LOCATE 1,10:PRINT CH R$(20):LOCATE 7,10:PEN 3:PRINT"PATH";TAB (26);"LENGTH":PEN 1:J=0:U=0:R=0:TP=0:FOR
X=1 TO P:PRINT CHR$(32+32*(X>9)); MID$( 8TR$((),2);"> ";
380 FOR Y=1 TO LEN(P$(X))
790 PRINT MID$(STR$(ASC(MID$(P$(X),Y,1)) -33),2);:IF Y<LEN(P$(X)) THEN PRINT"-"; 400 NEXT Y
410 PRINT TAB(27);"=";P(X):IF P(X)>J THE N J=P(X):K=X
415 IF P(X)<sht THEN sht=P(X):shp=x 420 TP=TP+1:IF Y-1>R THEN R=Y-1:U=X
430 IF X/9 =X\9 THEN LOCATE 5,25:PEN 2:I NPUT"PRESS ENTER FOR MORE";X$:LOCATE 1,1 1:PRINT CHR$(20):LOCATE 1,11:PEN 1
440 NEXT X