UTILITAIRE -> Outils pour disquettes et cassettes               

Yes, I know there are more than ten lines, there's no need to shout. This is such a handy utility, we thought we'd include it in the mag anyway. Produced as an alternative to the well known MS-DOS disc operating system, in a mere 13 lines, you can now catalogue a disc, rename, erase, move, run and even find out the format of a disc and view erased files. Type it in and save it on each side of your disc under your own filenames and watch it go.

Publiés dans la section "10-Liner" mais il n'est pas écrit en 10 lignes.

* Version originale
Paru sous forme de listing dans le magazine Amstrad Computer User Issue 68 : July 1990
Auteur : Nick HUTTON

* Repompage
Paru sous forme de listing dans le magazine MegaOcio n° 19 (Octobre 1990)
Auteur : Jose Manuel RODRIGEZ

Le listing, comme publié dans Amstrad Computer User, contient deux bugs. Il manque un arrobase dans la commande |REN dans la ligne 50, et donc la commande ne fonctionne qu'avec BASIC 1.1 :
AVANT :

50 INPUT "Old filename:",of$:INPUT"New filename:",nf$:IF of$="" OR nf$="" THEN RUN ELSE |REN,@nf$,of$:RUN

APRES :

50 INPUT "Old filename:",of$:INPUT"New filename:",nf$:IF of$="" OR nf$="" THEN RUN ELSE |REN,@nf$,@of$:RUN

Le programme accepte les "user areas" entre 0 et 229, mais la commande |REN n'accepte que les "user areas" entre 0 et 15. Ce bug peut être corrigé en modifiant la ligne 80 :
AVANT :

80 INPUT"Filename:",f$:INPUT "Present USER:",pu$:INPUT "New USER:",nu$:IF f$="" OR VAL(nu$)<0 OR VAL(nu$)>229 OR VAL(pu$)<0 OR VAL(pu$)>229 THEN RUN ELSE n$=nu$+":"+f$:o$=pu$+":"+f$:|REN,@n$,@o$:RUN

APRES :

80 INPUT"Filename:",f$:INPUT "Present USER:",pu$:INPUT "New USER:",nu$:IF f$="" OR VAL(nu$)<0 OR VAL(nu$)>15 OR VAL(pu$)<0 OR VAL(pu$)>15 THEN RUN ELSE n$=nu$+":"+f$:o$=pu$+":"+f$:|REN,@n$,@o$:RUN