
10 CLS :A=1
20 GOSUB 30
30 CURSOR 0,0 :PRINT"NUMBER OF FREE BYTES :";SIZE :WAIT 50:A=A+1 :IF A<51 THEN 20
40 IF A=51 THEN WAIT 2000
50 IF A<101 THEN RETURN
<EOF>