144 Critical Path Analysis
810 LOCATE 3,3:PEN 2:PRINT "4":LOCATE 8, 2:PRINT"1":LOCATE 14,2:PRINT"1":LOCATE 2 0,2:PRINT"7":LOCATE 27,2:PRINT "3":PEN 1 820 LOCATE 5,4:PEN 2:PRINT "2":LOCATE 11 ,4:PRINT "3":LOCATE 16,4:PRINT"5":LOCATE
23,4:PRINT"11":LOCATE 7,6:PRINT"4":LOCA TE 22,6:PRINT"3":LOCATE 28,5:PRINT"9":LO CATE 24,7:PRINT"2":PEN 1
830 LOCATE 9,3:PEN 2:PRINT "3":LOCATE 17 ,3:PRINT"2":LOCATE 19,5:PRINT"0":LOCATE 20,7:PRINT"3":LOCATE 12,7:PRINT"11":PEN 1
840 REM
850 LOCATE 2,10:PEN 2: PRINT"Nodes ";:PEN
1:PRINT CHR$(24);"1";CHR$(24):PRINT"rep resent the commencement of activities,
(represented by the joining lines).The
line lengthsmight represent a number of
daysor weeks required to complete anact ivity."
860 LOCATE 1,17:PEN 3:PRINT"Activities c
an progress in one direction only and
the programwill reject a network havin
E	a loop-back condition.":PEN 1
870 LOCATE 1,21:PRINT"Each activity pr ogresses in the direction entered i n the program DATA."
880 LOCATE 11,24:PEN 2:PRINT"PRESS ENTER ":)($=INKEY$:IF X$<>CHR$(13) THEN 980 ELS
E	PEN 1:LOCATE 2,10:PRINT CHR$(20):LOCAT
E	2,13
890 PRINT"The zero (0) length between no de";CHR$(24);"7";CHR$(24);" and ";CHR$(2 4);"8";CHR$(24);:PRINT" indicates the exitence";:PRINT"of a constraint which p revents":PRINT"activities at node ";CHR$ (24);"8";CHR$(24);" from"
900 PRINT"commencing until ";CHR$(24);"3 ";CHR$(24);" to ";CHR$(24);"7";CHR$(24); " and ";CHR$(24);"6";CHR$(24);" to ";CHR $(24);"7";CHR$(24);" are complete."
910 LOCATE 11,24:PEN 2:PRINT"PRESS ENTER ":X$=INKEY$:IF X$<>CHR$(13) THEN 910 ELS
E	PEN 1:LOCATE 2,10:PRINT CHR$(20):LOCAT
E	2,10