9454
UTILITAIRE -> Outils pour disquettes et cassettestypeins
© Amstrad Computer User (1990)
 
 
 
Disc Manager
cpc
 
 
screenshot
CTM644 Colour Monitor
screenshot
GT65 Green Monitor
 

Mots Clefs

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, 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