#!PECMD
ENVI &&&EnviMode=1  //避免意外错误，空变量，外部变量，
ENVI &&&FORCELOCAL=1  //可以处理大变量. 不影响外部变量

_SUB  EditDisk, W360H300,创建分区（危险）
      // 磁盘  1分区  激活  类型          起始            大小

      //GROU         ,L10T6W330H60, 分区   
      //GROU -center ,L10T6W330H60, 分区   
      //GROU  ,L10T10W330H55, 
      GROU  ,L10T10W330H65,   //不要些标题
      LABE    ,    L200T70W30H20, 分区  //下边
      LABE    ,    L335T22W10H40, 分区  //右边

      LABE    ,    L20T20W30H20, 磁盘
      EDIT EDISK,  L20T40W30H20,%DISK%,

      LABE    ,    L55T20W30H20, 分区
      EDIT EPART,  L55T40W30H20,%IPART%,

      LABE    ,    L90T20W30H20, 激活
      EDIT EACKTIVE, L90T40W30H20,%ACKTIVE%,

      LABE    ,    L125T20W30H20, 类型
      EDIT ETYPE,  L125T40W30H20,%TYPE%,
      
      LABE    ,    L160T20W80H20, 起始
      EDIT ESTAR,  L160T40W80H20,%STAR%,
      
      LABE    ,    L245T20W80H20, 大小
      EDIT ELEN,   L245T40W80H20,%LEN%,
      

      //MEMO MNOTE,  L20T80W180H120,%NOTE%,
      EDIT|- MNOTE,  L20T80W180H120,%NOTE%,MESS- %NOTE%@说明#OK,4

      ITEM ,  L100T230W100H20,创建分区, CALL OnDoit
_END

_SUB OnDoit
  //校验参数...
  MESS  part -super -align=2m  %EDISK%#%EPART% %EACKTIVE% %ETYPE% %ESTAR% %ELEN%  @调试#OK //下面才是执行。
  //part -super -align=2m  %EDISK%#%EPART% %EACKTIVE% %ETYPE% %ESTAR% %ELEN% 
_END

// 初始化 变量 DISK ... 
ENVI$ &NL=0d 0a
//ENVI &NL=\n
ENVI DISK=0
ENVI IPART=1
ENVI ACKTIVE=-a
ENVI TYPE=0x06
ENVI STAR=131m
ENVI LEN=35m
ENVI NOTE=cdsacsac--------------dsacdsacdsa%&NL%cdscdsacdsa%&NL%cdsacdsacdsacdsa%&NL%cdsacdsacdsacdsa%&NL%cdsacdsacdsacdsa%&NL%cdsacdsacdsacdsa%&NL%cdsacdsacdsacdsa%&NL%cdsacdsacdsacdsa%&NL%cdsacdsacdsacdsa%&NL%

//图形界面
CALL EditDisk


