100 CLS: PRINT "WIN RENAME by Franz Herrmann"
110 INPUT "Drive Number:"!DrvNr%
120 WinCh% = FOP_IN("win" & DrvNr% & "_*d2d")
130 IF WinCh% < 0 THEN
140   PRINT "Failed to open WIN device.": STOP
150 END IF
160 GET #WinCh%, Sector$
170 IF Sector$(1 TO 4) <> "QLWA" THEN
180   PRINT "Device is not a hard disk."
190   CLOSE #WinCh%: STOP
200 END IF
210 IF LEN(Sector$) <> 512 THEN
220   PRINT "Warning: Unexpected sector length."
230 END IF
240 PRINT "Current device name:"!Sector$(7 TO 16)
250 INPUT "    New device name:"!DrvName$
260 Sector$(7 TO 16) = DrvName$
270 PUT #WinCh%, Sector$
280 CLOSE #WinCh%
290 PRINT "Done."
300 REMark NUR FUER QXL! ONLY FOR QXL!