.ENABLE SUBSTITUTION
.DVDAGN:
.ASKN VD VD NUMBER
DMO VD'VD':/DEV
DVD VD'VD':
.ASK TF AGAIN
.IFT TF .GOTO DVDAGN
.ASKS DR ENTER DR NUMBER TO DMO <CR> IF NO DMO
.IF <STRLEN> EQ 1 DMO DR'DR':/DEV
.ASK TF UNLOAD VD:
.IFT TF UNL VD:
AVD /LI
