5219
UTILITAIRE -> Base de donneestypeins
© Amstrad Computer User (1991)
 
 
 
Database
Datafile
cpc
 
 
screenshot
CTM644 Colour Monitor
screenshot
GT65 Green Monitor
 

Mots Clefs

INFOS

- CATEGORIES -
UTILITAIRE -> Base de donnees               
- DESCRIPTION -
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.

- DIVERS -
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.


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

- BUGS -
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
- LIENS -
COMPILATION -> Presse Amstrad Action Issue 072 © Amstrad Action (1991)

 

Goto Top
CPC-POWER/CPCSOFTS, programmation par Kukulcan © 2007-2024 tous droits réservés.
Reproduction sans autorisation interdite. Tous les titres utilisés appartiennent à leurs propriétaires respectifs.
Hébergement Web, Mail et serveurs de jeux haute performance