TEXT VAR  name :="M20"; 
command dialogue (FALSE); forget (name); 
new type (name);
cursor logic (0,""6"","","");
 
enter incode (7,""7"");  (* sv *)
 
 
enter outcode (14,""14""); 
enter outcode (15,""15"");