Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
Le petit programme ci-dessous lit<br />
votre catalogue et le p<strong>la</strong>ce dans un<br />
tableau de chaînes de caractères. La<br />
ligne 10 réaise l J'initialisation indispensable<br />
: il est préférable de <strong>la</strong> mettre<br />
au tout début du programme. Attention<br />
: <strong>la</strong> variable N doit l'!tre<br />
supérieure au nombre maximum de<br />
fichiers sur une disquette, sous peine<br />
de graves ennuis.<br />
Les lignes 30 et 40 doivent être exécutées<br />
chaque fois qu'un catalogue<br />
est lu. Les lignes 20 el 50 ont été<br />
p<strong>la</strong>cées là à titre de démonstration.<br />
A partir de ce programme, chacun<br />
peut constituer le programme de son<br />
choix el se créer un programme de<br />
MENU personnalisé en Applesoft<br />
sans effort. Ainsi, en ajoutant <strong>la</strong> ligne<br />
Jonglez avec votre catalogue<br />
5 el <strong>la</strong> ligne 60 ci-dessous, on obtient<br />
une liste en 3 colonnes des fichiers<br />
mémorisés sur une disquette.<br />
NDLR : ne pas utiliser ce programme<br />
quand le Program Une Editar (PLE)<br />
est actif.<br />
5 llAlT ' DE LA D:S!J..ETTE ":'001<br />
,<br />
": .PRI.'H OS"PR.!": DR!NT<br />
"D[SQLETTE : ';fOK: FOR J = l<br />
ro 1 + 1 STEP 3: FOii K = fi TO<br />
2: PRINT lEFT$ (R$(j .. 1\1 •<br />
a.,26I ;: SEXi : PRINT • ": 1t€x<br />
T<br />
Programme CATALOG --> TABLEAU :AS ,. AS ..<br />
10 N .. 100: DIH M!I(N) :AS " "300:38 48 84<br />
FD AD 00 91 FE E6 FE DO 02 E6 FF<br />
68 A4 FD 60 1.9 AD 60 N D823G ": F<br />
OR 1 ,. l Ta LEN (AS) : POKE 511 ..<br />
l, ASC ( HIDS (AS, I,l» .. 128 : N<br />
EXT : POKE 72,0: 'CALL - 144<br />
20 TEXT : HOttE : PRINT "ENTREZ VOTRE DI<br />
SCUETTE ET ": PRINT .. APPUYEZ SUR<br />
UNE TOUCHE" : POKE - 16368 ,0: WAI<br />
T 16384 ,128 : POKE 16368 .0<br />
30 A " FRE (0) : A8 '" .... : FOR 1 .. 1 TO 1 9<br />
ISQUETTE , Disquette POIII 'S NUlll éro 9<br />
Olivier Herz<br />
Contenu des variables<br />
A$(O) : longueur de 19 caractères.<br />
Position<br />
1<br />
3-13<br />
14<br />
15-17<br />
18<br />
19<br />
Contenu<br />
CR (retour chariot)<br />
CR<br />
espace<br />
numéro de volume<br />
CR<br />
CR<br />
A$(I) pour 1>0 : 38 caractères.<br />
Position Contenu<br />
1 espace ou ,.<br />
2 T, B, 1 ou A<br />
3 espace<br />
4-6 taille<br />
7 espace<br />
8·37<br />
38 CR<br />
nom du fichier<br />
.. : NEXT : FOR 1 = N<br />
TO 1 STEP 1:A9(I) .. A$ .. A$: N<br />
.<br />
EXT :A5(0) = AS .. ... :1. PEEK
Change language