         ,  _SUB.
================================================================================

SPIN [-right -left] [*] <Name>, <Shape>[, ValInfo][, CMDPar][, CMD][, Status]

*	 <BName>    ,  
	   
Name	  ,       
Shape	   ,  <L()T()W()H()>.
	 L, T, W  H   .
ValInfo	[PartnerEDITVarName][:StartVal][:EndVal][:InitVal], -:0:100:0
	EDITVarName  
Event	  WinCMD,   
CMDPar	[NewValVarName][:ButtonVarName][:OldValVarName]. ButtonVarmame 
	0/1,    / 
Status	, "-" , 0x10 , 0x20 , 0x40: 
	0x80  
-------------------------------------------------------------------------------
  SPIN    _SUB  _END (.  _SUB  CALL).
"ENVI @BName=ButtonTxt"      
"ENVI @BName.Enable=[#]Num"   : "0" ,
	"1"  ( ), "#"   
"ENVI @BName.Visible=Num"   : "0" , "-0" 
"ENVI @BName.VAL=[CurVal][:StartVal][:EndVal]"  ValInfo
"ENVI @BName.VAL=?[CurValName][:StartValName][:EndValName]"  VInfo

******************************************************************[]*****
SPIN SP,L32T108W300H54,edit1:-10:10,&&pos:&&id:&&oldv,CALL SP1 %&pos% %&id%,0x40
SPIN SPIN15,L418T331W18H40,:0:100,,0x80,0x80