10 'PROGRAMME POUR RENCONTRER
20 'UN VIDAGE de MEMOIRE 30 ' 40 MODE 2:DEFINT I-N 50 n=1000 60 ' 70 'REMPLISSAGE DU TABLEAU 80 ' 90 PRINT"ATTENTION, "; 100 DIM A$(300,8) 110 FOR I=0 TO 300 120 A$(I,0)=CHR$(46)+CHR$(47)+CHR$(48) 130 FOR J=0 TO 8 140 A$(I,J)=A$(I,0) 150 NEXT J 160 NEXT I 170 ' 180 'CREATION CHAINE DE CARACTERES 190 ' 200 FOR I=0 TO 253 210 B$=B$+CHR$(I) 220 NEXT 230 ' 240 'OCCUPATION MEMOIRE 250 ' 260 PRINT"c'est parti !" 270 K=0:T8=TIME 280 ' 290 WHILE K<n 300 LOCATE 1,3:PRINT L"Ramassage"; 310 IF L>1 THEN PRINT"s "; 320 T=TIME 330 B$=B$+"" 340 T1=TIME:T2=T1-T 350 IF T2>10 THEN laps=laps+T2:L=L+1 360 K=K+1 370 WEND 380 ' 390 IF L>1 THEN PRINT"ont dures";ELSE PRINT" a dure"; 400 M=laps/3:GOSUB 620:M1=M 410 ' 420 PRINT:PRINT"ce n'est pas FINI..." 430 T=TIME:X=FRE("#"):T1=TIME 440 PRINT:PRINT"Le ramassage final prend encore"; 450 M=(T1-T)/3:GOSUB 620:M2=M 460 ' 470 PRINT:PRINT"et un acces disquette demande"; 480 'ERASE A$ 490 T=TIME:OPENOUT"BIDON":T1=TIME:CLOSEOUT 500 M=(T1-T)/3:GOSUB 620:M3=M 510 ' 520 PRINT:PRINT"TOTAL :"; 530 M=M1+M2+M3:GOSUB 620:M4=M 540 ' 550 PRINT:PRINT"pour un fonctionnement de"; 560 T9=TIME:M=(T9-T8)/3:GOSUB 620:M5=M 570 PRINT:PRINT"soit :"INT((M4/M5)*10^4)/100"%" 580 PRINT 590 ' 600 END 610 ' 620 S=M/100:PRINT S;:IF S>1 THEN PRINT"secondes"ELSE PRINT"seconde" 630 RETURN |