.; HOME.IND, IND control file. .; Moves back to system device and deassigns DK, and any .; logical device name given in DOWN. .; .; There no parameters for the control file. .; .; When used in conjunction with a UCL, you can type .; HO[ME] to return to the system device and remove the logical .; device nesting. .; The UCL entry is .; HOME == R IND\SY:HOME (assuming you are using UCL+). .; (Also assuming you have patched IND to expect .IND as the default .; extension)! .; .; Written by: .; R. W. Barnard .; BIO/Comp Applications .; Albuquerque, NM 87185 .; .; Version 2.2; 20-Oct-86. .; .enable quiet .disable lowercase .; .openr SY:CURDK.TMP .read LINE .;Get the logical name used in DOWN. .close .parse LINE " ," ESC CURFIL REST .parse CURFIL " " CURFIL IS LOGICL REST .; .; See where we are right now. .testdevice 'LOGICL' .parse "," DEVNAM SIZE A1 A2 A3 LOAD ONL MOU NAT .if DEVNAM eq "LD7" DISMOUNT LD7 DEASS 'LOGICL' .; .; See what the default device is. .testdevice DK .parse "," DEVNAM SIZE A1 A2 A3 LOAD ONL MOU NAT .if DEVNAM ne "LD6" .goto 10 DEASS DK .sets DEVNAM "''''" .10: DISMOUNT LD6 .vol VOLID DK .parse VOLID " " VOLID REST .; .open SY:CURDK.TMP .data E 'DEVNAM':'VOLID' is DK  .close TYPE SY:CURDK.TMP .; .exit