UTILITY -> Database               

Here's a marvellous all-purpose work-horse for your delectation. Run it and take a look through the extensive menu for information about the system itself, then use it for whatever you want. Enter your own records, to a total of 400 and you should find this a very handy source for your data.

Crédité sur le listing à Alan KENNEDY, mais il n'est pas l'auteur.

A propos de l'attribution erronée de l'auteur, Amstrad Computer User a publié une explication dans le numéro June 1991 :

Last month "sic" we published a database listing, giving an incorrect credit to Alan Kennedy for the hard work. In actual fact, due to a mix-up of discs, the program, in fact, forms a part of the Tug 2 disc available from Alan Scully's Scull PD library.

Paru sous forme de listing dans le magazine Amstrad Computer User Issue 77 : April 1991.
Auteur : John FAIRLIE

Le mode d'emploi dans le programme indique que la longueur maximale de chaque champ dans la base de données peut aller jusqu'à 60 caractères, mais elle est en fait de 62 caractères.

Avant la sauvegarde d'un fichier, le programme demande un nom de fichier. Si des espaces sont saisies au début du nom de fichier, le programme affiche l'erreur "Syntax error in 1390" parce qu'a cette ligne il manque une parenthèse droite. Ce bug peut être corrigé en ajoutant la parenthèse droite manquante :

AVANT :

1390 LOCATE 29,12:PRINT"Enter Filename: ";:LINE INPUT"",N$:WHILE LEN(N$)>0:IF ASC(N$)=32 THEN N$=RIGHT$(N$,LEN(N$)-1:WEND

APRES :

1390 LOCATE 29,12:PRINT"Enter Filename: ";:LINE INPUT"",N$:WHILE LEN(N$)>0:IF ASC(N$)=32 THEN N$=RIGHT$(N$,LEN(N$)-1):WEND

AVANT :

1820 h$="BROWSE FILES":GOSUB 1740:LOCATE 8,10:INPUT"Which record number do you want to start from? for No 1 ",R2:IF R2=0 THEN R2=1 ELSE IF R2>tr THEN R2=tr

APRES :

1820 h$="BROWSE FILES":GOSUB 1740:LOCATE 8,10:INPUT"Which record number do you want to start from? for No 1 ",R2:IF R2<=0 THEN R2=1 ELSE IF R2>tr THEN R2=tr