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>a 2 b-------->a 5 b-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 " a 1 b----->a 3 b- - - -i>a 6 b------->a 7 b------->a 8 b " 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->a 4 b--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