Listing of file='CLEAR.BAS;01' on disk='vmedia/pert_planner-sector.ccvf'
100 REM CLEAR SELECTABLE DATA FILE VERS.811212 110 CLEAR 2000:DIM A(200,5),DE$8200) 120 PLOT 12,3,0,7,14,29,21 130 PRINT TAB( 10)"CLEAR SELECTABLE DATA FILE" 140 PLOT 29,18,15:PRINT 150 PRINT TAB( 5):INPUT "** INSERT DATA DISK AND HIT RETURN **";EN 155 FILE "T",1500 160 PRINT :PRINT TAB( 5) 165 PLOT 29,19 170 INPUT "ENTER # OF FILE TO BE CLEARED (1,2,3,4,5,6,OR 7):";PD 180 ON PD GOTO 5005,5055,5095,5135,5175,5215,5255 200 PRINT :PRINT TAB( 10)"3. CORRECT DATA FILE ENTRIES;" 800 FOR Y= 31 TO B STEP - 1 810 PLOT 3,0,Y,11 820 NEXT Y 830 RETURN 1500 PLOT 12,3,10,10 1510 PRINT "SORRY WRONG DISK":GOTO 120 5005 FILE "T",1500 5030 FILE "R",1,"PERT1",17 5040 GOSUB 5500 5050 FILE "C",1 5052 GOTO 5300 5055 FILE "T",1500 5070 FILE "R",2,"PERT2",17 5080 GOSUB 5500 5090 FILE "C",2 5092 GOTO 5300 5095 FILE "T",1500 5110 FILE "R",3,"PERT3",17 5120 GOSUB 5500 5130 FILE "C",3 5132 GOTO 5300 5135 FILE "T",1500 5150 FILE "R",4,"PERT4",17 5160 GOSUB 5500 5170 FILE "C",4 5172 GOTO 5300 5175 FILE "T",1500 5190 FILE "R",5,"PERT5",17 5200 GOSUB 5500 5210 FILE "C",5 5212 GOTO 5300 5215 FILE "T",1500 5230 FILE "R",6,"PERT6",17 5240 GOSUB 5500 5250 FILE "C",6 5252 GOTO 5300 5255 FILE "T",1500 5270 FILE "R",7,"PERT7",17 5280 GOSUB 5500 5290 FILE "C",7 5300 B= 0 5305 GOSUB 800 5307 PLOT 3,5,8 5310 PRINT "FILE";PD;" HAS BEEN CLEARED" 5320 PLOT 29,19,3,5,12 5330 INPUT "ARE MORE FILES TO BE CLEARED? ";CF$ 5340 IF LEFT$ (CF$,1)= "Y" THEN 120 5350 B= 6:GOSUB 800 5355 PLOT 3,5,8 5360 INPUT "SHALL OTHER PERT ACTIVITIES BE PERFORMED? ";PA$ 5370 IF LEFT$ (PA$,1)= "N" THEN 5600 5380 PLOT 3,5,11,29,21 5390 INPUT "INSERT PROGRAMME DISK AND HIT RETURN";EN 5400 PLOT 29,18 5410 FILE "T",1500 5420 LOAD "MENU":RUN 5500 A(I,1)= 0:A(I,2)= 0:A(I,3)= 0:A(I,4)= 0:A(I,5)= 0,DE$(I)= "" 5507 PRINT 5510 PRINT TAB( 5)"FILE PERT";PD;" IS CLEARED" 5515 FOR I= 1TO 200 5520 PUT PD,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