close(D: DEVICE)

  D := OpenOFile("my-test"); -- open file for output from CoCoA
  Print "test" On D;  -- write to my-file
  close(D);  -- close the file
  close(DEV.STDIN);  -- close the standard input device
-- Bye

(close(DEV.OUT) suppresses all output to the CoCoA window.)