Vous pouvez maintenant placer des enregistrements dans les chaines definies avec la commande FIELD, comme ceci :
X> NOM$="Professionnel" PRENOM$="AMOS" TEL$="0625859333"
PUT
instruction : ecrire un enregistrement dans un fichier a acces direct
Put canal,numero_enregistrement
Une fois qu un enregistrement est stocke dans les chaines, il peut etre transfere de la memoire de l ordinateur vers un numero d enregistrement dans le fichier a acces direct. Si vous utilisez toujours le canal 1, votre premier enregistrement serait stocke ainsi :
X> Put 1,1
L enregistrement suivant sera le numero 2, et ainsi de suite jusqu a remplir votre annuaire. Voici un exemple simple. Quand vous avez cree assez d enregistrements, tapez "exit" lorsqu on vous demande un autre nom.
E> Open Random 1,"ADRESSE"
Field 1,25 As NOM$,12 As TEL$
INDEX=1
Do
Input "Entrez un nom :";NOM$
If NOM$="exit" Then Exit
Input "Entrez le numero de telephone :";TEL$
Put 1,INDEX
Inc INDEX
Loop
Close 1
Apres avoir cree votre annuaire, vous voudrez probablement l utiliser.
GET
instruction : lire un enregistrement dans un fichier a acces direct
Get canal,numero_enregistrement
Cette instruction lit un enregistrement d un fichier a acces direct, en indiquant le canal et le numero de l enregistrement a lire. Pour lire le premier enregistrement, vous utiliseriez :
X> Get 1,1
La commande GET charge cet enregistrement dans les chaines de champs definies, et ces chaines peuvent ensuite etre manipulees comme vous le souhaitez. Bien entendu, vous ne pouvez lire que les numeros d enregistrement qui ont ete prealablement ecrits sur le disque avec PUT.