LIBCOUNTER : Décompter les librairies

Le logiciel suivant vous permet de connaitre le nombre exact de programmes contenus dans la librairie ainsi que la taille (en octets) de chacun d'entre eux.

1 'OISAC'
10 CLEAR:DEFSEG=0
20 A=PEEK1718+PEEK1719*256+PEEK1720*65536
30 B=PEEK1724+PEEK1725*256+PEEK1726*65536
40 CLS:PRINT "THERE IS";(B-A)/15;"PROGRAM IN LIB0"
50 FOR I=A TO B-15 STEP 15
60 DEFSEG=I/16:C=I-INT(I/16)*16+6:SZ1=PEEK(C-1)*65536+PEEK(C-2)*256+PEEK(C-3):SZ1=SZ1-(PEEK(C-4)*65536+PEEK(C-5)*256+PEEK(C-6)):SZ=SZ+SZ1
70 $="":FOR K=1 TO 8:X=PEEK(K+C):IF X=32;K=8:GOTO80 ELSE $=$+CHR$(X)
80 NEXT:PRINT $;"="SZ1;"BYTES"
90 NEXT:PRINT "LIB0 SIZE :";SZ;"BYTES"
100 END

libcounter.cas : Dernière mise à jour 04.11.08 / 486 octets.