 	Termometer V1.0
		 ..
	   
	-    
		-     
		-        
    COM  (Exe-)      

  
--------------------------------
     :   Termometer /regserver


   
-----------------------------
o=createobject('Termometer.Termometer')			;  ""
o.SetFirstLine('  Termometer')	;    
o.SetSecondLine('Termometer -  Com-')		;    
o.show								; ""
	.........  ...........

	o.Update(K)						;     0<=K<=100
	if o.EndProc=.t.					;    
								; .t.,       ""
		release o					;  ""  
	endif							;

	.........  ...........
