from EDWIN include Specs
external routine spec Enable UIS KB AST
begin
   integer ch,x,y
   Initialise For ('W')
   Enable UIS KB AST
   cycle 
      Sample Input(ch,x,y)
      Write(ch,0);Space
      write(x,0);space
      write(y,0);space
      Newline
   repeat
end