9454
UTILITY -> Floppy disc and tape tooltypeins
© Amstrad Computer User (1990)
 
 
 
Disc Manager
cpc
 
 

Last Update : Monday 02 February 2015 at 22 h 01
 
screenshot
CTM644 Colour Monitor
screenshot
GT65 Green Monitor
 

Keywords

INFOS

- CATEGORIES -
- DESCRIPTION -

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.

- STAFF -

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

- BUGS -

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

 

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.
Hébergement Web, Mail et serveurs de jeux haute performance