Listing of file='CORENT.BAS;01' on disk='vmedia/pert_planner-sector.ccvf'
40 REM VERS. 811212 100 REM CORRECTION OF DATA FILE ENTRIES ( CORENT ) 110 CLEAR 2000:DIM A(200,5),DE$(200) 120 PLOT 12,3,0,1,14,29,21 130 PRINT TAB( 15)"CORRECTION OF DATA FILE ENTRIES" 140 B= 4:GOSUB 800 145 PLOT 3,12,15,15 150 INPUT "** INSERT DATA DISK AND HIT RETURN **";EN 152 PLOT 29,18 155 FILE "T",1500 160 PRINT :PRINT TAB( 5) 170 INPUT "ENTER # OF FILE TO BE CORRECTED (1,2,3,4,5,6,OR 7):";PD 180 ON PD GOTO 210,220,230,240,250,260,270 210 FILE "R",1,"PERT1",16:GOTO 280 220 FILE "R",2,"PERT2",16:GOTO 280 230 FILE "R",3,"PERT3",16:GOTO 280 240 FILE "R",4,"PERT4",16:GOTO 280 250 FILE "R",5,"PERT5",16:GOTO 280 260 FILE "R",6,"PERT6",16:GOTO 280 270 FILE "R",7,"PERT7",16 280 B= 4:GOSUB 800:PRINT :PRINT TAB( 15):INPUT "UPDATE OLD ACTIVITY OR INSERT NEW ONE ";UI$ 282 IF LEFT$ (UI$,1)= "U"THEN PLOT 28,28,11:GOTO 290 284 IF LEFT$ (UI$,1)= "I"THEN PLOT 28,28,11:GOTO 1600 286 PLOT 28,28,11,7:GOTO 280 290 B= 4:GOSUB 800:PRINT TAB( 15)"U P D A T E A C T I V I T Y ":PRINT 295 PRINT :PRINT TAB( 5):INPUT "ENTER NUMBER OF THE TO BE UPDATED ACTIVITY :";I 299 REM GET OLD DATA LINE 300 GET PD,I;A(I,1),A(I,2),A(I,3),A(I,4),A(I,5),DE$(I)[11] 310 B= 4:GOSUB 800 320 PLOT 3,5,10 330 PRINT "======ACTIVITY";I;"====== "+ DE$+ " " 331 IF II> 0THEN 370 332 PRINT :PRINT TAB( 5)"ENTER NEW DESCRIPTION OR 0 FOR NO CHANGE "; 335 PLOT 6,38:FOR X= 1TO 11:PLOT 26:NEXT X:INPUT "";D$ 336 PRINT :PLOT 6,2:IF D$= "0"OR D$= " "THEN 340 337 DE$(I)= D$ 340 PLOT 3,5,14:PRINT "PRESENT START-,AND END NODE ARE :";A(I,1),A(I,2) 350 PRINT 360 PRINT TAB( 5) "THE STORED THREE TIME ESTIMATES ARE :";A(I,3),A(I,4),A(I,5) 370 PLOT 29,19:PRINT :PRINT 380 PRINT TAB( 5):INPUT "ENTER NEW START-,AND END NODE (S,E) : ";A(I,1),A(I,2) 390 PRINT :PRINT 400 PRINT TAB( 5):INPUT "THE THREE NEW TIME ESTIMATES ARE : ";A(I,3),A(I,4),A(I,5) 410 PRINT :PRINT 420 PRINT TAB( 5)"ARE UPDATES FOR ACTIVITY";I;" CORRECT?" 430 PRINT :PRINT TAB( 5):INPUT "ENTER YES OR NO ";UP$ 440 IF LEFT$ (UP$,1)= "Y" THEN 500 450 B= 16 460 GOSUB 800 470 GOTO 370 500 PLOT 3,5,25:PRINT "THESE UPDATES WILL BE STORED IN FILE:";PD 510 PUT PD,I;A(I,1),A(I,2),A(I,3),A(I,4),A(I,5),DE$(I)[11] 520 B= 4 530 GOSUB 800 550 PRINT :PRINT 560 INPUT "SHALL OTHER ACTIVITIES IN THIS NETWORK BE UPDATED? ";U$ 570 IF LEFT$ (U$,1)= "Y" THEN 280 580 FILE "C",PD 590 A= 0:GOSUB 800 600 PRINT :PRINT 605 PRINT TAB( 5)"ALL UPDATES HAVE BEEN STORED" 610 PRINT :PRINT TAB( 5):INPUT "ARE OTHER NETWORKS TO BE UPDATED? ";N$ 620 IF LEFT$ (N$,1)= "Y" THEN 140 630 PRINT :PRINT 640 PRINT TAB( 5):INPUT "ARE OTHER TASKS TO BE PERFORMED ? ";M$ 650 IF LEFT$ (M$,1)= "N" THEN 1200 655 PLOT 29,21:PRINT :PRINT 660 PRINT TAB( 5):INPUT "INSERT PROGRAMME DISK AND HIT RETURN";P$ 662 PLOT 6,2,15 665 PLOT 29,18 670 FILE "T",1900 680 LOAD "MENU":RUN 690 END 800 FOR Y= 31 TO B STEP - 1 810 PLOT 3,0,Y,11 820 NEXT Y 830 RETURN 1200 PLOT 12,3,15,15 1210 PRINT "THANK YOU AND TOT ZIENS" 1220 PLOT 3,0,0 1230 INPUT "";EN 1240 RUN 1500 B= 4:GOSUB 800:PRINT :PRINT 1510 PRINT TAB( 10)"SORRY WRONG DISK":GOTO 120 1600 REM INSERT NEW ACTIVITY 1610 B= 4:GOSUB 800 1620 PRINT TAB( 15)"I N S E R T N E W A C T I V I T Y" 1630 PRINT :PRINT 1640 I= 0 1650 I= I+ 1:IF I= 200THEN 1680 1660 GET PD,I;A(I,2):IF A(I,1)< = 0THEN 1680 1670 GOTO 1650 1680 I= I- 1 1690 PRINT TAB( 5)"";I;"ACTIVITIES IN THIS DATA FILE":PRINT 1700 PRINT TAB( 5):INPUT "ENTER NEW ACTIVITY # TO BE INSERTED --> ";II 1710 IF II< 0OR II> 199THEN PLOT 7,28,11:GOTO 1700 1720 REM MOVE DATA IN FILE 1730 L= 200 1740 GET PD,L;A(L,1) 1750 IF A(L,1)< = 0THEN L= L- 1:GOTO 1740 1760 GET PD,L;A(L,1),A(L,2),A(L,3),A(L,4),A(L,5),DE$(L)[11] 1770 PUT PD,L+ 1;A(L,1),A(L,2),A(L,3),A(L,4),A(L,5),DE$(L)[11] 1780 L= L- 1:IF L= II- 1THEN 1800 1790 GOTO 1760 1800 I= L:GOTO 310 1900 B= 4:GOSUB 800:PRINT :PRINT 1910 PRINT TAB( 10)"SORRY WRONG DISK" 1920 PRINT :PRINT :PLOT 31,6,1:GOTO 660