Closes the device currently open. The device may have been opened with DOPEN or with one of the sub-package loading commands, GLOAD, ILOAD etc.
