Renaming a Floppy Disk

In English: DISKreNAME, a short SuperBASIC program by Réal Gagnon that changes the name of an already formatted QL floppy disk without reformatting it, by reading and rewriting the disk's first sector through the direct-sector device (flpN_*D2D). It works only with floppy disks, not microdrives, and names are limited to 10 characters. The listing follows.

Printed title: Au nom de la DISQUETTE. The article below is in French, as printed in QL_DOC n13 (December 1989-January 1990).

---

Lors du formatage d’une disquette, nous avons la possibilité de donner un nom à celle-ci. Cependant il n’est pas possible de renommer une disquette une fois formatée à moins bien sûr de procéder à un reformatage qui effacera en même temps la disquette.

Le programme SuperBASIC suivant vise à régler ce problème. Il sera désormais possible de renommer une disquette sans être obligé de reformater celle-ci.

A l’exécution du programme, on demande le numéro du lecteur de disquette à être renommer. Il est à noter que ce programme ne fonctionne qu’avec des disquettes et qu’il n’est pas possible de renommer des µicrodrives par exemple. Le nom actuel de la disquette est alors affiché et on demande le nouveau nom. Nous sommes limité à une longueur de 10 caractères.

100 REMark DISKreNAME  v1
110 REMark par Réal Gagnon
120 :
130 REPeat loop
140 PRINT#0,"Disquette no."!;
145 d$=INKEY$(-1)
150 IF d$ INSTR '123456789':PRINT#0,d$:EXIT loop
160 END REPeat loop
165 :
170 OPEN#10,"flp"&d$&"_*D2D"
180 :
190 GET#101,a$
200 PRINT#0,"Nom actuel  :"!a$(5 TO 14)
210 INPUT#0,"Nouveau nom :"!n$
220 LET a$(5 TO 15)=n$
230 PUT#101,a$
240 :
250 CLOSE#10