Différences
Cette page vous donne les différences entre la révision choisie et la version actuelle de la page.
| — | libcounter 2008/11/04 22:25 version actuelle | ||
|---|---|---|---|
| Ligne 1: | Ligne 1: | ||
| + | ====== 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. | ||
| + | |||
| + | ===== Listing ===== | ||
| + | |||
| + | <code:basic4gl> | ||
| + | 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 | ||
| + | </code> | ||
| + | |||
| + | ===== Téléchargement du source ===== | ||
| + | |||
| + | {{ libcounter.cas }} : Dernière mise à jour 04.11.08 / 486 octets. | ||
libcounter.txt · Dernière modification: 2008/11/04 22:25 par chrix · [Anciennes révisions]
