Create an executable file that copies stdin to stdout, or else a script that does so through the invocation of an interpreter at the command line.

PROC Main()
  CHAR c
 
  DO 
    c=GetD(7)
    Put(c)
  UNTIL c=27 ;repeat until Esc key is pressed
  OD
RETURN