UTILITY -> Floppy disc and tape tool   

It's amazing just what can be done in only 10 lines. Here we present a disc manager program which enables files to be renamed, erased or un-erased and to boot a CP/M program. All clever stuff.

Paru sous forme de listing dans le magazine Amstrad Computer User (January 1990).
Auteur : Mark WOOD

Le listing, comme publié dans Amstrad Computer User, ne fonctionne qu'avec BASIC 1.1 parce que la manière dans lequelle les RSXs sont utilisés, mais il est possible de le modifier afin de faire fonctionner avec BASIC 1.0 :

AVANT :

40 x$=UPPER$(x$):IF x$="R" THEN GOSUB 90:INPUT "NEW NAME ",nfil$:|REN,nfil$,fil$:CLS:|DIR ELSE IF x$="E" THEN GOSUB 90:|ERA,fil$:CLS:|DIR

APRES :

40 x$=UPPER$(x$):IF x$="R" THEN GOSUB 90:INPUT "NEW NAME ",nfil$:|REN,@nfil$,@fil$:CLS:|DIR ELSE IF x$="E" THEN GOSUB 90:|ERA,@fil$:CLS:|DIR

De plus, le listing contient un bug ; la fonction "Unerase ASCII File" ne fonctionne pas correctement s'il y a des virgules dans le fichier ASCII. Ce bug peut être corrigé en modifiant la ligne 100 :

AVANT :

100 ct$=nuse$+":"+ascii$:OPENIN (ascii$):OPENOUT (ct$):WHILE NOT EOF:INPUT #9,t$:PRINT#9,t$:WEND:CLOSEIN:CLOSEOUT:CLS#2:GOTO 30

APRES :

100 ct$=nuse$+":"+ascii$:OPENIN (ascii$):OPENOUT (ct$):WHILE NOT EOF:LINE INPUT #9,t$:PRINT#9,t$:WEND:CLOSEIN:CLOSEOUT:CLS#2:GOTO 30