Listing of file='MENU.BAS;01' on disk='vmedia/pert_planner-sector.ccvf'
80 REM VERS.811212 90 CLEAR 2000 100 DIM A(200,5),S(200),F(200),E(200,2),DE$(200) 110 DEF FN R(Z1)= (INT (Z1* 10^ 3+ .5))/ 10^ 3 120 PLOT 12,3,0,7,14,29,21:PRINT TAB( 21)"PERT PROGRAMME" 130 PLOT 29,18,15 150 PRINT 155 PRINT TAB( 10)"SELECT ONE OF THE FOLLOWING OPTIONS:" 160 EN= 1 165 PLOT 29,19 170 PRINT : PRINT TAB( 10)"1. GENERATE RND-FILES FOR 7 NETWORKS;" 175 PRINT TAB( 13)"(THIS STEP ONLY ONES PER DISK!)" 180 PRINT :PRINT TAB( 10)"2. LOAD NETWORK PARAMETERS IN DATA FILE;" 200 PRINT :PRINT TAB( 10)"3. CORRECT DATA FILE ENTRIES;" 210 PRINT :PRINT TAB( 10)"4. CLEAR DATA FILE;" 220 PRINT :PRINT TAB( 10)"5. READ NETWORK PARAMETERS FROM FILE" 222 PRINT TAB( 13)"AND PERFORM THE REQUIRED ANALYSIS; OR" 223 PRINT :PRINT TAB( 10)"6. CALCULATE COMPLETION DATE." 224 PRINT :PRINT TAB( 10)"7. PROGRAM INFORMATION." 225 PLOT 29,18 230 PRINT :PRINT TAB( 10): INPUT "ENTER NUMBER OF REQUIRED OPTION :";EN 240 IF EN< 1OR EN> 7THEN 260 250 ON ENGOTO 4500,7000,8000,9000,6000,10000,10100 260 PRINT :PRINT TAB( 10)"PLEASE ENTER 1,2,3,4,5,6 OR 7 ONLY!" 270 GOTO 230 1500 PLOT 12,3,10,10 1510 PRINT "SORRY WRONG DISK" 1515 PRINT :PRINT 1520 PRINT TAB( 10):INPUT "** HIT RETURN TO CONTINUE **";EN 1530 GOTO 150 4500 FOR Y= 31 TO 10 STEP - 1 4510 PLOT 3,0,Y,11 4520 NEXT Y 4530 PRINT :PRINT TAB( 10):INPUT "INSERT DATA DISK AND HIT RETURN ";DA$ 5000 REM GENERATE 7 RND-FILES 5002 PLOT 12,3,5,1 5004 PRINT "GENERATION OF 7 RND-FILES" 5005 FILE "T",1500 5007 K= 0 5010 FILE "N","PERT1",200,32,8 5020 REM CLEAR FILE 5030 FILE "R",1,"PERT1",16 5040 GOSUB 5500 5050 FILE "C",1 5055 FILE "T",1500 5060 FILE "N","PERT2",200,32,8 5070 FILE "R",2,"PERT2",16 5080 GOSUB 5500 5090 FILE "C",2 5095 FILE "T",1500 5100 FILE "N","PERT3",200,32,8 5110 FILE "R",3,"PERT3",16 5120 GOSUB 5500 5130 FILE "C",3 5135 FILE "T",1500 5140 FILE "N","PERT4",200,32,8 5150 FILE "R",4,"PERT4",16 5160 GOSUB 5500 5170 FILE "C",4 5175 FILE "T",1500 5180 FILE "N","PERT5",200,32,8 5190 FILE "R",5,"PERT5",16 5200 GOSUB 5500 5210 FILE "C",5 5215 FILE "T",1500 5220 FILE "N","PERT6",200,32,8 5230 FILE "R",6,"PERT6",16 5240 GOSUB 5500 5250 FILE "C",6 5255 FILE "T",1500 5260 FILE "N","PERT7",200,32,8 5270 FILE "R",7,"PERT7",16 5280 GOSUB 5500 5290 FILE "C",7 5300 PLOT 12,3,5,2 5310 PRINT "SEVEN RND-FILES HAVE BEEN GENERATED AND CLEARED" 5320 PLOT 29,19,3,5,5 5330 INPUT "HIT ENTER TO PROCEED";EN$ 5340 EN= 1 5350 PLOT 12:PRINT "SAVE MENU PROGRAMME" 5360 SAVE "MENU" 5370 PLOT 3,5,8:PRINT "MENU PROGRAMME HAS BEEN SAVED" 5380 PLOT 3,5,11:INPUT "HAVE YOU COMPLETED ALL PERT ACTIVITIES? ";CN$ 5390 IF LEFT$ (CN$,1)= "Y" THEN 5600 5400 GOTO 150 5500 A(I,1)= 0:A(I,2)= 0:A(I,3)= 0:A(I,4)= 0:A(I,5)= 0:DE$(I)= " " 5505 K= K+ 1 5507 PRINT 5510 PRINT TAB( 5)"FILE PERT";K;" IS INITIALIZED" 5515 FOR I= 1TO 200 5520 PUT K,I;A(I,1),A(I,2),A(I,3),A(I,4),A(I,5),DE$(I)[11] 5530 NEXT I 5535 I= 0 5540 RETURN 5600 PLOT 12,3,15,15 5610 PRINT "THANK YOU AND TOT ZIENS" 5620 PLOT 3,0,0 5630 INPUT "";EN 5640 RUN 6000 REM READ NETWORK PARAMETERS AND PERFORM ANALYSIS 6010 GOSUB 8500 6020 PRINT :PRINT TAB( 10)"REAPER PROGRAMME IS LOADED" 6030 FILE "T",1500 6040 LOAD "REAPER":RUN 7000 REM DEFINITION OF NETWORK PARAMETERS AND THEIR LOADING (DEFLOA) 7010 PLOT 12,3,5,2 7020 PRINT "DEFLOA PROGRAMME IS LOADED" 7030 FILE "T",1500 7040 LOAD "DEFLOA":RUN 8000 REM CORRECTION OF DATA FILE ENTRIES ( CORENT ) 8010 GOSUB 8500 8040 PRINT :PRINT TAB( 10)"CORENT PROGRAMME IS LOADED" 8050 FILE "T",1500 8060 LOAD "CORENT":RUN 8500 FOR Y= 31 TO 10 STEP - 1 8510 PLOT 3,0,Y,11 8520 NEXT Y 8530 RETURN 9000 REM CLEAR DATA FILE ( CLEAR ) 9010 GOSUB 8500 9020 PRINT :PRINT TAB( 10)"CLEAR PROGRAMME IS LOADED" 9030 FILE "T",1500 9040 LOAD "CLEAR":RUN 10000 REM CALCULATE COMPLETION DATE 10010 GOSUB 8500 10020 PRINT :PRINT TAB( 10)"WDATE PROGRAMME IS LOADED" 10030 FILE "T",1500 10040 LOAD "WDATE":RUN 10100 LOAD "PINFO":RUN