;$VER: Full device remover
;Steve Clack (Liquid Software Design ) v1.0
;Call the Total Eclipse BBS on +44(0)1983 522428!
;(make sure the 's' protect bit is set on this file!)

.key Device/A
.bra {
.ket }
 
FailAt 100

ResolveDeviceName >ENV:DEV {Device}
Echo >ENV:DEVO $DEV NOLINE
Echo >>ENV:DEVO ":" NOLINE

Assign {Device} DISMOUNT
Assign $DEVO DISMOUNT

Delete >nil: ENV:DEV
Delete >nil: ENV:DEVO