Listing of file='FREESP.BAS;01' on disk='vmedia/taylor_7-sector.ccvf'
100 REM ** CALC FREE SPACE ** 105 PLOT 6,2,12,15 110 AD= PEEK (32941)* 256+ PEEK (32940):AD= AD- 5000 120 POKE 32941,INT (AD/ 256):POKE 32940,AD- INT (AD/ 256)* 256 130 CLEAR 200:AD= PEEK (32941)* 256+ PEEK (32940):A= AD+ 1 140 S$= "0123456789ABCDEF":D= 65536 150 FOR I= 1TO 4:D= D/ 16:V= INT (A/ D):A= A- V* D 160 ADR$= ADR$+ MID$ (S$,V+ 1,1):NEXT I 170 PLOT 27,4:PRINT "READ 0 "+ ADR$+ " 1000":PLOT 27,27 180 FOR I= AD+ 24TO AD+ 128* (PEEK (AD+ 2)+ 1)STEP 21 190 I1= I- AD- 1:IF I1/ 128= INT (I1/ 128)THEN I= I+ 2 200 IF PEEK (I)< > 1THEN 230 210 FR= PEEK (I+ 13)+ PEEK (I+ 14)* 256 216 PRINT " ****************************************" 218 PRINT " DISK MEMORY STATUS " 220 PRINT "# OF FREE SECTORS (DECIMAL #)..";FR:I= 9999999 224 FB= FR* 128 225 PRINT "# OF FREE BYTES................";FB:I= 9999999 227 PRINT "****************************************" 230 NEXT I:AD= AD+ 5000:POKE 32941,INT (AD/ 256) 240 POKE 32940,AD- INT (AD/ 256)* 256:CLEAR 100