Compucolor.org – Virtual Media

Listing of file='PINFO.BAS;01' on disk='vmedia/pert_planner-sector.ccvf'

90 PLOT 27,24
100 PLOT 6,2,12,15,29,3,13,3:PRINT "T H E   P E R T   P R O G R A M"
110 PLOT 3,3,7:PRINT "WHAT OFFERS PERT?"
120 PLOT 3,3,9:PRINT "PERT OFFERS AN EFFICIENT TOOL THAT ALLOWS THE USER TO"
130 PLOT 3,3,10:PRINT "CREATE, STORE, RECALL, UPDATE OR EDIT, AND  CALCULATE"
140 PLOT 3,3,11:PRINT "PERT NETWORS. IT CALCULATES THE MINIMUM TIME NEEDE TO"
150 PLOT 3,3,12:PRINT "COMPLETE A COMPLEX PROJECT UNDER UNCERTAIN CONDITIONS"
160 PLOT 3,3,13:PRINT "AND CALCULATES THE PROBABILITY OF THE PROJECT'S  COM-"
170 PLOT 3,3,14:PRINT "PLETION BY TARGET TIME WHICH THE USER ENTERS AND  MAY"
180 PLOT 3,3,15:PRINT "ALSO MODIFY. THE PROGRAM ALSO CALCULATES LATE  START,"
190 PLOT 3,3,16:PRINT "EARLY  FINISH  AND LATE  FINISH TIME AND THE STANDARD"
200 PLOT 3,3,17:PRINT "DEVIATION OF EXPECTED ACTIVITY TIMES."
210 PLOT 3,3,19:PRINT "ALL NETWORK DATA CAN BE KEPT ON DATA FILES WHICH  ARE"
220 PLOT 3,3,20:PRINT "NORMALLY STORED ON FLOPPY DISKS AND CAN BE DUPLICATED"
230 PLOT 3,3,23:PRINT "WHO NEEDS PERT?"
240 PLOT 3,3,25:PRINT "PROJECT AND PRODUCTION MANAGERS, PROJECT COORDINATORS"
250 PLOT 3,3,26:PRINT "AND ADMINISTRATORS, CONSTRUCTORS,  BUILDERS,  SHORTLY"
260 PLOT 3,3,27:PRINT "EVERYBODY INVOLVED IN PLANNING OF COMPLEX PROJECTS OR"
270 PLOT 3,3,28:PRINT "PROGRAMS."
280 PLOT 20,2,24,122,242,24,110,90,110,90,122,24,122,255
290 PLOT 17,2,6,94,242,38,94,255
300 PLOT 17,2,6,30,242,34,30,255
310 PLOT 3,40,29:INPUT "HIT ENTER TO CONTINUE";T$
320 PLOT 6,2,12,15,29,3,13,3:PRINT "T H E   P E R T   P R O G R A M"
330 PLOT 3,3,7:PRINT "OPERATION OF THE PERT PROGRAM:"
340 PLOT 3,3,9:PRINT "THE PERT PROGRAM IS AS EASY TO OPERATE AS TO FILL NETWORK"
350 PLOT 3,3,10:PRINT "DATA INTO A LEDGER PAD.  THE PROGRAM HAS THE USER IN MIND"
360 PLOT 3,3,11:PRINT "AND NOT THE PROGRAMMING SPECIALIST.  THE COMMANDS ARE EX-"
370 PLOT 3,3,12:PRINT "TREMELY EASY TO LEARN AND TO UNDERSTAND.  THERE IS NO EX-"
380 PLOT 3,3,13:PRINT "TRA  PROCEDURE  NECESSARY  BESIDES  THE  SELF - PROMPTING"
390 PLOT 3,3,14:PRINT "MESSAGES DISPLAYED ON THE SCREEN."
400 PLOT 3,3,16:PRINT "BEFORE USING THE PROGRAM, THE USER MUST ORGANIZE THE PRO-"
410 PLOT 3,3,17:PRINT "JECT,  USING  PERT'S  GRAPHING  TECHNIQUE OR A PRECEDENCE"
420 PLOT 3,3,18:PRINT "TABLE. TO USE THE PROGRAM, THE USER MUST FIRST  ENTER THE"
430 PLOT 3,3,19:PRINT "THE NUMBER OF ACTIVITIES IN THE PROJECT  INCLUDING  DUMMY"
440 PLOT 3,3,20:PRINT "ACTIVITIES.  FOR EACH  ACTIVITY HE HAS TO ENTER ITS START"
450 PLOT 3,3,21:PRINT "AND END NODES,  FOLLOWED BY THE OPTIMISTIC,  MOST LIKELY,"
460 PLOT 3,3,22:PRINT "AND PESSIMISTIC  DURATION  ESTIMATES.  WHEN ENTERING EACH"
470 PLOT 3,3,23:PRINT "ACTIVITY ONE HAS TO  MAKE SURE  THAT EACH  START  NODE IS"
480 PLOT 3,3,24:PRINT "GREATER THAN THE PREVIOUS END NODE."
490 PLOT 3,41,29:PRINT "HIT ENTER TO CONTINUE"
500 PLOT 20,2,24,122,242,24,110,90,110,90,122,24,122,255
510 PLOT 17,2,6,94,242,64,94,255
520 PLOT 3,64,29:INPUT "";T$
630 PLOT 20,2,24,122,242,24,110,90,110,90,122,24,122,255
650 PLOT 6,2,12,15,29,3,13,3:PRINT "T H E   P E R T   P R O G R A M"
660 PLOT 3,14,7:PRINT "E X A M P L E :"
670 PLOT 3,0,9:PRINT "JIM JUST BOUGHT A VICTORIAN HOUSE, ADVERTISED AS A FIXER-UPPER."
680 PLOT 3,0,10:PRINT "HE ASKED HIS CONTRACTOR  TO PROVIDE HIM WITH  THREE TIME  ESTI-"
690 PLOT 3,0,11:PRINT "MATES FOR EACH TASK INVOLVED IN THE REMODELING.  HIS PERT CHART"
700 PLOT 3,0,12:PRINT "AND PRECEDENCE TABLE LOOK LIKE THIS:"
710 PLOT 3,14,15:PRINT "teu";SPC( 9);"teu"
720 PLOT 3,12,16:PRINT "i>a2b-------->a5b-g"
730 PLOT 3,11,17:PRINT "~  v w";SPC( 9);"v w  |"
740 PLOT 3,10,18:PRINT "~    e";SPC( 11);"e    |"
750 PLOT 3,9,19:PRINT "~";SPC( 23);"|"
760 PLOT 3,8,20:PRINT "~";SPC( 25);"|"
770 PLOT 3,5,21:PRINT "teu      teu";SPC( 9);"teu      | teu";SPC( 8);"teu"
780 PLOT 3,5,22:PRINT "a1b----->a3b- - - -i>a6b------->a7b------->a8b"
790 PLOT 3,5,23:PRINT "v w      v w      ~  v w";SPC( 8);"v w";SPC( 8);"v w"
800 PLOT 3,6,24:PRINT "e |      e      ~    e";SPC( 10);"e";SPC( 10);"e"
810 PLOT 3,9,25:PRINT "|";SPC( 11);"~"
820 PLOT 3,10,26:PRINT "|   teu   ~"
830 PLOT 3,11,27:PRINT "f->a4b--h"
840 PLOT 3,14,28:PRINT "v w"
850 PLOT 3,15,29:PRINT "e"
860 PLOT 3,41,31:PRINT "HIT ENTER TO CONTINUE"
870 PLOT 20,2,24,122,242,24,110,90,110,90,122,24,122,255
880 PLOT 17,2,28,94,242,56,94,255
890 PLOT 3,13,30:INPUT "";T$
900 PLOT 6,2,12,15,29,3,13,3:PRINT "T H E   P E R T   P R O G R A M"
910 PLOT 3,14,7:PRINT "E X A M P L E :"
920 PLOT 3,33,11:PRINT "TIME GIVEN IN DAYS"
930 PLOT 3,4,13:PRINT "ACTIVITY";SPC( 10);"START  END    OPTIM.  M.LIKELY  PESSIMIST."
940 PLOT 3,22,14:PRINT "NODE   NODE   TIME      TIME       TIME"
950 PLOT 3,1,17:PRINT "1.SCRAPE EXTERIOR      1      2       1       2";SPC( 9);"4"
960 PLOT 3,1,18:PRINT "2.REMOVE WALLPAPER     1      3       2       3";SPC( 9);"5"
970 PLOT 3,1,19:PRINT "3.REPLACE CABINETRY    1      4       3       4";SPC( 9);"7"
980 PLOT 3,1,20:PRINT "4.PAINT EXTERIOR       2      5       2       3";SPC( 9);"6"
990 PLOT 3,1,21:PRINT "5.(DUMMY ACTIVITY)     3      6       0       0";SPC( 9);"0"
1000 PLOT 3,1,22:PRINT "6.LAY KITCHEN FLOOR    4      6       1       2";SPC( 9);"2.5"
1010 PLOT 3,1,23:PRINT "7.PAINT EXTERIOR"
1020 PLOT 3,3,24:PRINT "TRIM";SPC( 17);"5      7       1.5     2";SPC( 9);"4"
1030 PLOT 3,1,25:PRINT "8.PAINT INTERIOR"
1040 PLOT 3,3,26:PRINT "WALLS";SPC( 16);"6      7       2       3";SPC( 9);"3"
1050 PLOT 3,1,27:PRINT "9.REFINISH FLOORS      7      8       2       4";SPC( 9);"5"
1060 PLOT 20,2,24,122,242,24,110,90,110,90,122,24,122,255
1070 PLOT 17,2,28,94,242,56,94,255
1080 PLOT 22,2,0,86,242,126,86,126,10,0,10,0,86,0,78,126,78,126,62,0,62,42,62,42,78,42,10,56,10,56,78,70,78,70,10,86,10,86,78,106,78,106,10,255
1090 PLOT 3,40,30:INPUT "HIT ENTER TO CONTINUE";T$
1100 REM
1110 PLOT 6,2,12,15,29,3,13,3:PRINT "T H E   P E R T   P R O G R A M"
1120 PLOT 3,14,7:PRINT "E X A M P L E :"
1130 PLOT 15,3,1,10:PRINT "HOW WILL JIM RUN THIS PROGRAM? WHAT IS THE MINIMUM TIME NEEDED"
1140 PLOT 3,1,11:PRINT "TO COMPLETE THIS PROJECT? WHAT IS THE PROBABILITY OF  COMPLET-"
1150 PLOT 3,1,12:PRINT "TING IT ONE DAY SOONER THAN EXPECTED?"
1160 PLOT 3,1,14:PRINT "AFTER HAVING GENERATED THE DATA FILES SELECT  PROGRAM #2  FROM"
1170 PLOT 3,1,15:PRINT "THE MENU LOAD NETWORK PARAMETERS INTO DATA FILE AND PRESS <CR>"
1180 PLOT 3,1,16:PRINT "THE PROGRAM WILL ASK YOU TO ENTER THE NUMBER OF ACTIVITIES  OF"
1190 PLOT 3,1,17:PRINT "THIS NETWORK:"
1200 PLOT 3,1,19:PRINT "THE FOLLOWING PROMT WILL BE DISPLAYED:"
1210 PLOT 3,37,29:PRINT "HIT ENTER TO CONTINUE"
1220 PLOT 20,2,24,122,242,24,110,90,110,90,122,24,122,255
1230 PLOT 17,2,28,94,242,56,94,255
1240 PLOT 3,58,29:INPUT "";T$
1250 PLOT 6,2,12,15,29,3,13,3:PRINT "T H E   P E R T   P R O G R A M"
1260 PLOT 3,14,7:PRINT "E X A M P L E :"
1270 PLOT 3,21,13:PRINT "PERT PROGRAMME"
1280 PLOT 3,0,17:PRINT "ENTER THE NUMBER OF ACTIVITIES IN THIS NETWORK   :9"
1290 PLOT 3,0,20:PRINT "======ACTIVITY 1======"
1300 PLOT 3,0,21:PRINT "ENTER START NODE AND END NODE # (S,E)";SPC( 12);":1,2"
1310 PLOT 3,0,23:PRINT "ENTER THE THREE TIME ESTIMATES FOR THIS ACTIVITY"
1320 PLOT 3,0,24:PRINT "(OPTIMISTIC-,MOST LIKELY-,AND PESSIMISTIC VALUE) :1,2,4"
1330 PLOT 3,0,26:PRINT "REPEAT THIS STEP FOR EACH ACTIVITY NUMBER. BE SURE THAT EACH"
1340 PLOT 3,0,27:PRINT "START NODE YOU ENTER IS GREATER THAN THE  PREVIOUS END NODE!"
1350 PLOT 3,39,29:PRINT "HIT ENTER TO CONTINUE"
1360 PLOT 20,2,24,122,242,24,110,90,110,90,122,24,122,255
1370 PLOT 17,2,28,94,242,56,94,255
1380 PLOT 3,60,29:INPUT "";T$
1390 PLOT 6,2,12,15,29,3,13,3:PRINT "T H E   P E R T   P R O G R A M"
1400 PLOT 3,14,7:PRINT "E X A M P L E :"
1410 PLOT 3,0,11:PRINT "AFTER HAVING THE LAST ACTIVITY'S PARAMETERS THE PROGRAM WILL"
1420 PLOT 3,0,12:PRINT "PROMPT YOU WITH THE FOLLOWING MESSAGE:"
1430 PLOT 3,0,14:PRINT "SHALL THE JUST ENTERED PARAMETERS BE STORED? Y"
1440 PLOT 3,0,16:PRINT "INSERT DATA DISK AND HIT RETURN  (FOLLOW THE MESSAGE)"
1450 PLOT 3,0,18:PRINT "ENTER # OF FILE TO BE USED (1,2,3,4,5,6,OR 7)  1"
1460 PLOT 3,0,20:PRINT "ALL INPUTS HAVE BEEN STORED"
1470 PLOT 3,0,22:PRINT "ARE OTHER TASKS TO BE PERFORMED? Y"
1480 PLOT 3,0,24:PRINT "INSERT PROGRAMME DISK AND HIT RETURN"
1490 PLOT 3,0,26:PRINT "AT THIS TIME THE MENU COMES UP. SELECT #5 TO PROCESS DATA"
1500 PLOT 3,37,29:PRINT "HIT ENTER TO CONTINUE"
1510 PLOT 20,2,24,122,242,24,110,90,110,90,122,24,122,255
1520 PLOT 17,2,28,94,242,56,94,255
1530 PLOT 3,58,29:INPUT "";T$
1540 PLOT 6,2,12,15,29,3,13,3:PRINT "T H E   P E R T   P R O G R A M"
1550 PLOT 3,14,7:PRINT "E X A M P L E :"
1560 PLOT 3,10,11:PRINT "READ NETWORK PARAMETERS FROM"
1570 PLOT 3,10,13:PRINT "FILE AND PERFORM ANALYSIS"
1580 PLOT 15,3,5,16:PRINT "** INSERT DATA DISK AND HIT RETURN **"
1590 PLOT 3,9,18:PRINT "FOLLOW INSTRUCTION"
1600 PLOT 3,5,20:PRINT "ENTER # OF FILE TO BE READ (1,2,3,4,5,6,OR 7): 1"
1610 PLOT 3,5,22:PRINT "THE NUMBER OF STORED ACTIVITIES IS: 9"
1620 PLOT 3,5,24:PRINT "SHALL DATA BE PROCESSED? Y"
1630 PLOT 3,5,26:PRINT "ARE RESULTS TO BE DISPLAYED ON SCREEN OR PRINTED?  D"
1640 PLOT 3,37,29:PRINT "HIT ENTER TO CONTINUE"
1650 PLOT 20,2,24,122,242,24,110,90,110,90,122,24,122,255
1660 PLOT 17,2,28,94,242,56,94,255
1670 PLOT 3,58,29:INPUT "";T$
1680 PLOT 6,2,12,15,29,3,13,3:PRINT "T H E   P E R T   P R O G R A M"
1690 PLOT 3,14,7:PRINT "E X A M P L E :"
1700 PLOT 3,0,9:PRINT "THE COMPUTED RESULTS ARE:"
1710 PLOT 3,0,10:PRINT "----------------------------------------------------------------"
1720 PLOT 3,0,12:PRINT "ACTIVITY 1(NODE 1 TO NODE 2)"
1730 PLOT 3,0,13:PRINT "IS A NON CRITICAL EVENT."
1740 PLOT 3,0,15:PRINT "EXPECTED DURATION   :  2.167   STANDARD DEVIATION:   0.500"
1750 PLOT 3,0,16:PRINT "EARLY START";SPC( 9);":  0.000   LATE START   :  1.333"
1760 PLOT 3,0,17:PRINT "EARLY FINISH";SPC( 8);":  2.167   LATE FINISH  :  3.500"
1770 PLOT 3,0,18:PRINT "SLACK TIME";SPC( 10);":  1.333"
1780 PLOT 3,0,19:PRINT "----------------------------------------------------------------"
1790 PLOT 3,14,20:PRINT "ETC....."
1800 PLOT 3,0,21:PRINT "----------------------------------------------------------------"
1810 PLOT 3,0,23:PRINT "ACTIVITY 3(NODE 1 TO NODE 4)"
1820 PLOT 3,0,24:PRINT "IS A CRITICAL EVENT"
1830 PLOT 3,14,26:PRINT "ETC......"
1840 PLOT 3,0,27:PRINT "----------------------------------------------------------------"
1850 PLOT 3,39,29:PRINT "HIT ENTER TO CONTINUE"
1860 PLOT 20,2,24,122,242,24,110,90,110,90,122,24,122,255
1870 PLOT 17,2,28,94,242,56,94,255
1880 PLOT 3,61,29:INPUT "";T$
1890 PLOT 6,2,12,15,29,3,13,3:PRINT "T H E   P E R T   P R O G R A M"
1900 PLOT 3,14,7:PRINT "E X A M P L E :"
1910 PLOT 3,1,11:PRINT "THE LAST DISPLAY WILL COME UP WITH THE COMPUTED RESULTS:"
1920 PLOT 3,1,13:PRINT "THE CRITICAL PATH LENGTH IS";SPC( 14);": 12.916 +/- .886"
1930 PLOT 3,1,15:PRINT "ENTER DESIRED COMPLETION TIME (0 TO END) : 12"
1940 PLOT 3,1,17:PRINT "PROBABILITY OF COMPLETION WITH DURATION OF  :  12 = .150593"
1950 PLOT 3,1,19:PRINT "SHALL PROBABILITY BE CALCULATED FOR OTHER COMPLETION TIMES? N"
1960 PLOT 3,1,21:PRINT "ARE OTHER TASKS TO BE PERFORMED? Y"
1970 PLOT 3,10,24:PRINT "INSERT PROGRAMME DISK AND HIT RETURN"
1980 PLOT 3,33,28:PRINT "HIT ENTER TO CONTINUE"
1990 PLOT 20,2,24,122,242,24,110,90,110,90,122,24,122,255
2000 PLOT 17,2,28,94,242,56,94,255
2010 PLOT 3,54,28:INPUT "";T$
2020 PLOT 6,2,12,15,29,3,13,3:PRINT "T H E   P E R T   P R O G R A M"
2030 PLOT 3,14,7:PRINT "E X A M P L E :"
2040 PLOT 15,3,0,10:PRINT "FROM THE NOW DISPLAYED MENU SELECT #6 TO CALCULATE COMPLETION"
2050 PLOT 3,0,11:PRINT "DATE. THE FOLLOWING DISPLAY WILL COME UP:"
2060 PLOT 3,13,15:PRINT "DETERMINATION DATE OF COMPLETION"
2070 PLOT 15,3,0,18:PRINT "ENTER ACTIVITY START DATE (DD.MM.YYYY).....:09.07.1981"
2080 PLOT 3,0,20:PRINT "ENTER ACTIVITY DURATION (# OF WORKING DAYS):13"
2090 PLOT 3,0,22:PRINT "THE ACTIVITY END DATE IS...................:28.07.1981"
2100 PLOT 3,0,24:PRINT "ARE THERE ANY PUBLIC HOLIDAYS BETWEEN THESE DAYS?    N"
2110 PLOT 3,17,26:PRINT "END DATE IS START DATE"
2120 PLOT 3,19,27:PRINT "SUBSEQUENT ACTIVITY"
2130 PLOT 3,39,29:PRINT "HIT ENTER TO CONTINUE"
2140 PLOT 20,2,24,122,242,24,110,90,110,90,122,24,122,255
2150 PLOT 17,2,28,94,242,56,94,255
2160 PLOT 3,60,29:INPUT "";T$
2170 PLOT 6,2,12,15,29,3,13,3:PRINT "T H E   P E R T   P R O G R A M"
2180 PLOT 3,14,7:PRINT "E X A M P L E :"
2190 PLOT 15,3,0,10:PRINT "ARE:"
2200 PLOT 3,9,12:PRINT "A. OTHER COMPLETION DATES TO BE CALCULATED"
2210 PLOT 3,9,14:PRINT "B. OTHER PERT TASKS TO BE PERFORMED; OR IS"
2220 PLOT 3,9,16:PRINT "C. PROGRAMME TO BE TERMINATED?"
2230 PLOT 3,0,19:PRINT "SELECT:  A, B, OR C  C"
2240 PLOT 3,12,23:PRINT "THANK YOU AND TOT ZIENS"
2250 PLOT 3,0,26:PRINT "NOTE: THIS PROGRAM IS SET UP TO SUPPORT THE EPSON MX-80 PRINTER"
2260 PLOT 3,26,29:PRINT "HIT ENTER TO LOAD THE PERT MENU"
2270 PLOT 20,2,24,122,242,24,110,90,110,90,122,24,122,255
2280 PLOT 17,2,28,94,242,56,94,255
2290 PLOT 3,58,29:INPUT "";T$
2295 PLOT 15,27,11
2300 LOAD "MENU":RUN