*! 1.0.0  31Jul97  Jeroen Weesie/ICS  STB-40 ip21
      
program define keyb
        version 5.0
        
        * display command on display
        if "$BUF_DISP" != "" { 
                di in wh ". `*'"
        }                
        
        * push the command in the command buffer
        push `*'
        
        * execute the command
        `*'
end

* uses the undocumented command -push- that pushes a string
* in the command buffer.