.key DEVICE/A
.bra [
.ket ]
.def [DEVICE] :

If Not Exists [DEVICE]
  Echo "Invalid drive specification."
  Quit
EndIf

Echo "Current drive label is " NOLINE
Which [DEVICE]
Echo "Enter new label: " NOLINE
Echo >RAM:LB "C:Relabel [DEVICE] " NOLINE
GetLine >>RAM:LB
Execute >NIL: RAM:LB
Delete RAM:LB Quiet
