Sa  h: ():  PERTSAMP.BASb "PERT/CRITICAL PATH SCHEDULING PROGRAM"/b "BY STEVEN ZIMMERMAN AND LEO M. CONRAD"gb( "MODIFIED FOR THE OSBORNE 1 BY D. M. HURST, 1982"pbU bd: "*** NOTE BEGINNING EVENTS WILL BE SORTED ***"bn" *** INTO NUMERICAL ORDER ***":co: "TIME UNITS WILL BE MEASURED IN ";DWM$6cq: "PROJECT START DATE IS (MM/DD/YY) ";ST$Dcs ( wxcu D%: A$(D%,),A(D%, ),SV( ): :IO$p"R": fcw) x4cx: " !!! WARNING !!!"nc: "NO DATA READ STARTING AT LINE 4000. AM ASSUMING"%d  "DATA TO BE ENTERED FROM KEYBOARD OR DISK FILE."]d: "ENTER TOTAL NUMBER OF ACTIVITIES (ALLOW EXTRA"d "FOR ANTICIPATED ADDITIONS) ";D%:%d  A$(D%,),A(D%, ),SV( )d*KK$p"N"Dd4 "INPUT MENU"^d>" K KEYBOARD"ydH" D DISK FILE"e\ "SELECTION";IO$$ef IO$o"K" O 6 "DATE";TT$: "DATE: ";TT$nH "TIME IS IN ";DWM$nM "PROJECT START DATE ";ST$3nR " NO ";Z3$Bn\ " ";Z4$Rnf I p M%np Y C4$;I;nz Y C2$;A$(I,),A$(I,); o Jp N $o Y C1$;A(I,J);: J2o Jp N Jo" Y C3$;A(I,J);: JUo, " "]o6 Ijo@ ( )}oJ FORWARD PASS oT Ip N M%2o^A(I,)p(A(I,)rtA(I,)rA(I,))u`oh A(I,)p O A(I,)p:A(I,)pA(I,): 8orMAXp}o| Jp N M%p A(J,)qoA(I,) $8p A(J,)oMAX O MAX p A(J,)GpA(I,)pMAXOp$ Jhp.A(I,)pA(I,)rA(I,)pp8 IpB BACKWARD PASSpLXM%pV IpM% N  Q s " ": I)tH ( )1t\Kpmta (DWM$,)p"W" O f :" (DWM$,)p"M" O  :" |tf: " GANNT CHART FOR ";T$;" IN WEEKS";" START DATE ";ST$>uk " YEAR #1 YEAR #2"Fup " 12345678911111111112222222222333333333344444444445551234567891111111111222222222233333333334444444444555"Tvz " 0123456789012345678901234567890123456789012 0123456789012345678901234567890123456789012": ,8v " GANNT CHART FOR ";T$;" IN MONTHS";" START DATE ";ST$w " YR#1 YR#2 YR#3 YR#4 YR#5"kw " 123456789111123456789111123456789111123456789111123456789111"Gw" " 012 012 012 012 012"Yw,: ()"l"hw6 Ip N M%ww@ Jp N  xJA(I,J)p(A(I,J))xT Jx^ I,xh Ip N M%yxm A(I, )r o  O  ()"m";"NOT ENOUGH ROOM FOR SCREEN PRINT": Pxr Y C2$;A$(I,),A$(I,);x| PA(I,)r);"E";Dx J N (A(I,)s)gx A(I, )p O  "C"; :"  "@";ox J0y$ A(I, )p  PA(I,)rA(I,)r);"L" :" PA(I, ));"L"vy)KpKr: Kp O  ()"m";"ENTER TO PAGE";: DU$: ()"l":Kp~y. Iy8 ()"m";y: "E = EARLIEST START FOR AN ACTIVITY"z "C & @ = EXPECTED TIME FOR AN ACTIVITY WITH C DESIGNATING THOSE ON THE CRITICAL PATH"}zV "L = LAST FINISH FOR AN ACTIVITY WITHOUT EXTENDING THE TIME OF THE CRITICAL PATH"z`:zP"DO YOU WANT A GANNT CHART PRINTOUT (Y/N)";KK${d KK$p"Y" w (DWM$,)p"W" O g : KK$p"Y" w (DWM$,)p"M" O   :" KK$p"Y": r3{g (DWM$,)p"W" O (){n " GANNT CHART FOR ";T$;" IN WEEKS";" START DATE ";ST$7|s " YEAR#1 YEAR #2 YEAR #3"s|x " 123456789111111111122222222223333333333444444444455512345678911111111112222222222333333333344444444445551234567891111111111222222222233333333334444444444555"5} " 0123456789012345678901234567890123456789012 0123456789012345678901234567890123456789012 0123456789012345678901234567890123456789012": 4~  " GANNT CHART FOR ";T$;" IN MONTHS";" START DATE ";ST$p~ " YR#1 YR#2 YR#3 YR#4 YR#5"L~  " 123456789111123456789111123456789111123456789111123456789111"(* " 012 012 012 012 012"?4: ()"-"()N> Ip M%]H Jp  sRA(I,J)(A(I,J)){\ Jf Ip I N M%/z Y C2$;A$(I,),A$(I,);F PA(I,));"E"; Jp (A(I,)s) A(I, )p O  "C"; :"  "@"; JI, A(I, )p O  PA(I,)rA(I,));"L" :  PA(I, )r);"L"Q6 Iq; (DWM$,)"W"  ()@ ()"-"()3J: "E = EARLIEST START FOR AN ACTIVITY"T "C & @ = EXPECTED TIME FOR AN ACTIVITY WITH C DESIGNATING THOSE ON THE CRITICAL PATH"u^ "L = LAST FINISH FOR AN ACTIVITY WITHOUT EXTENDING THE TIME OF THE CRITICAL PATH"h ( ) r J | "OUTPUT MENU"I  " C CRITICAL PATH AND TIME"  " D DISK"v  " E END":$  " R RECYCLE SELECTION";OP$: OP$p"R" O KK$p"N": P. OP$qo "C" O X 8  IDENTIFICATION OF CRITICAL PATH AND COSTSB COp:PATH$p" ":SIdL  I N M%: A(I, )onw ` : NOTE >0 SHOULD WORK BUT .0001 USED*V COpCOrA(I,):PATH$PATH$r" "rA$(I,):SIpSI((A(I,)sA(I,))u)Q`  I:C6$p"###,###,###.##":SIp(SI)zj  (): "CRITICAL PATH": PATH$:pt  "TIME OF CRITICAL PATH": C6$;CO: "SCHEDULED PROJECT TIME(USE SAME TIME UNITS AS DATA)";ST:Zp(STsCO)uSI:XXp-~ BB$p"PROBABILITY OF BEING COMPLETED ON TIME": Zq O & C ApS_:Bs#v}:CpCro:Dp(x:T- v (sZvu))(tUBhZI)v(s):E(rJ*tZ)v(s):PpsDt(AtErBEvrCtEv): XXo O  : TAYLOR SERIES^  "Z= ";Z,BB$;P: 0 {  "Z= ";sZ,BB$;sP:   XXpc:ZpZ:  ;0  "HARD COPY (Y/N)";P$: P$o"Y" O |: !  P: " ": "CRITICAL PATH": PATH$: " ": "SCHEDULED PROJECT TIME IS ";STD  "TIME OF CRITICAL PATH": Y C6$;CO: XX O "Z= ";Z,BB$;P: |sN  "Z= ";sZ,BB$;sP: |X OP$"E" 2b 1 "NAME OF FILE: DISK ";X$:? "O",,X$Al  #,M%,EE,v  Ip N M%:# ,(");A$(I,);(");",";(");A$(I,);(");A(I,);A(I,);A(I,);A(I,);A(I,): I: : |  "THE REMAINDER OF THE PROGRAM WILL CONSIST"  "OF DATA TO BE READ IN. STARTING AT 4000 "Q "ENTER # OF ACTIVITIES AND ENDING EVENT # " ( "AS -----4000 DATA 15,4----- "2 @<  "THEN LIST ACTIVITY,DESCRIPTION,STARTING"pF  "EVENT#,ENDING EVENT#, OPTIMISTIC TIME, " P  "LIKELY TIME, AND PESSIMISTIC TIME-AS "PZ  " ---4010 DATA A,MAKE HASTE,2,5,3,4,6---" EVENT#, OPTIMISTIC TIME, " P  "LIKELY TIME, AND PESSIMISTIC TIME-AS "PZ " ---401