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.)