9337
UTILITY -> Floppy disc and tape tooltypeins
© Amstrad Computer User (1990)
 
 
 
DOM-S-DOS
CPC Dos
cpc
 
 

Last Update : Monday 14 September 2015 at 23 h 52
 
screenshot
screenshot
 
 
 
 
 

screenshot
CTM644 Colour Monitor
screenshot
GT65 Green Monitor
 

Keywords

INFOS

- CATEGORIES -
UTILITY -> Floppy disc and tape tool               
- DESCRIPTION -

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.

- MISC -

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

- STAFF -

* 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

- BUGS -

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

 

Goto Top
CPC-POWER/CPCSOFTS, programming by Kukulcan © 2007-2019 all rights reserved.
Reproduction forbidden without any express authorization. All the game titles used belong to their respective owners.