from EDWIN include SPECS
external routine spec Enable UIS Kb AST
external routine spec Disable UIS Kb AST
external routine spec R SAM alias "EDWIN___C_SAM" (integer name CH,x,y)
external integer user uis resize flag
begin
   Initialise for ('W')
   User Uis Resize Flag=1
   Enable UIS KB AST
   integer ch,x,y,I
for I = 1,1,1024 cycle
   R Sam(CH,X,Y)
   Write(x,0);newline
   Write(y,0);newline
   write(ch,0);newline
   Printsymbol(CH);newline
   newline
repeat
   Disable UIS KB AST
   Terminate Edwin
end