Critical Path Analysis 143
620 PEN 3:LOCATE 1,9:PRINT"The goal migh t be the completion of a	large project
or, more simply,arrival ata distant met ro station by the shortest possible rout e.":PEN 1
630 LOCATE 1,14:PRINT CHR$(24)" This pro gram is suitable for both cases":PRINT C HR$(24)
640 LOCATE 1,16:PEN 2:PRINT"A demonstrat ion network is shown and theprogram wil I trace out all possiblepaths throug h the network,indicating thelongest and
shortest routes.":PEN 1
650 PEN 3:LOCATE 15,22:PRINT"PRESS ENTER ":PEN 1
660 X$=INKEY$:IF X$<>CHR$(13) THEN 660 E LSE CLS
670 WINDOW #1,1,40,1,25:PAPER #1,0:CLS # 1
680 WINDOW #0,5,36,1,25:PAPER #0,0:PEN # 0,1:CLS #0
690 PLOT 70,310:DRAWR 46,64
700 DRAWR 320,0:DRAWR 84,-32
710 PLOT 70,310:DRAWR 96,32:DRAWR 352,0
720 PLOT 70,310:DRAWR 144,0:DRAWR 48,32: DRAWR 224,0
730 PLOT 70,310:DRAWR 64,-20:DRAWR 160,0 :DRAWR 64,20
740 PLOT 168,342:DRAWR 48,32
750 PLOT 312,376:DRAWR 32,-32:DRAWR 16,- 32:DRAWR 16,-32
760 DRAWR 144,64:REM DRAWR -80,2
770 PLOT448,312:DRAWR -96,2
780 LOCATE 4,2:PRINT CHR$(24)"4":LOCATE 10,2:PRINT"5":LOCATE 16,2:PRINT"6":LOCAT E 24,2:PRINT"11":PRINT CHR$(24)
790 LOCATE 1,6:PRINT CHR$(24)"1":LOCATE 7,4:PRINT"2":LOCATE 13,4:PRINT"3":LOCATE
18,4:PRINT"7":LOCATE 29,4:PRINT"12":PRI NT CHR$(24)
800 LOCATE 19,6:PRINT CHR$(24)"8":LOCATE 25,6:PRINT"10":LOCATE 20,8:PRINT "9":PR INT CHR$(24)