//函数：GET_DRV_TP
//参数1：磁盘
//参数2：类型
//参数3：返回变量名
_SUB  GET_DRV_TP 
    ENVI^ EnviMode=1 //避免讨厌的空变量问题
    ENVI &&磁盘=%1
    ENVI &&tp0=%2
    ENVI &&_LIST_=     //空表
    ENVI &&全部分区=
    ENVI &&分区=
    ENVI &&分区信息=
    PART list part %&磁盘%,&全部分区
    forx * %&全部分区%,&分区,
    {
        PART -hextp list part %&磁盘%#%&分区%,&分区信息
        MSTR &&tp=<2>%&分区信息%
        MSTR &&drv=<8>%&分区信息%   //盘符：第8列
        IFEX $%&tp%=%&tp0%,!!  ENVI &_LIST_=%&_LIST_% %&drv%
    }
    ENVI %3=%&_LIST_%   //返回
_END


//调用示例 
ENVI &&_LSIT=  //空表
GET_DRV_TP  0 0x16  &_LSIT   //全部 0x16
MESS  0磁盘 0x16类型： %&_LSIT% @#OK  


//函数： LOAD_BY_TP
//参数1：磁盘
//参数2：类型
_SUB  LOAD_BY_TP 
    ENVI^ EnviMode=1 //避免讨厌的空变量问题
    ENVI &&磁盘=%1
    ENVI &&tp0=%2
    ENVI &&全部分区=
    ENVI &&分区=
    ENVI &&分区信息=
    PART list part %&磁盘%,&全部分区
    forx * %&全部分区%,&分区,
    {
        PART -hextp list part %&磁盘%#%&分区%,&分区信息
        MSTR &&tp=<2>%&分区信息%
        IFEX $%&tp%=%&tp0%,!!  SHOW %&磁盘%:%&分区%   //自动加载
    }
    ENVI %3=%&_LIST_%   //返回
_END


//调用示例 
LOAD_BY_TP  0 0x16 
