UTILITY -> Database               

Ce programme bien utile vous permettra de créer des petits fichiers. Vous serez de cette manière en mesure de comprendre les mécanismes utilisés pour l'ouverture et la fermeture des fichiers sur la disquette ainsi que plusieurs autres routines intéressantes (caractères double hauteur, boucles while...wend).

Paru dans le Manuel français du CPC 664 et CPC 6128.
A noter, qu'il n'a pas été publié dans les manuels anglais.

Auteur : DA

Le listing, comme publié dans les manuels d'utilisation, contient deux bugs.

* Le programme utilise un faux enregistrement 0 pour mettre les noms des champs.
Il est possible d'effacer cet enregistrement et les noms des champs deviendront corrompus.
Ce bug peut être corrigé en modifiant la ligne 1000 :
AVANT :

1000 IF dl >= nextblank THEN PRINT "Cet enreg. n'existe pas" : GOTO 1120

APRES :

1000 IF dl < 1 OR dl >= nextblank THEN PRINT "Cet enreg. n'existe pas" : GOTO 1120

* L'option pour imprimer les enregistrements affiche ou imprime l'enregistrement 0.
Ce bug peut être corrigé en modifiant la ligne 2310 :
AVANT :

2310 FOR d=0 TO nextblank-1

APRES :

2310 FOR d=1 TO nextblank-1