* new interactive test for Ctrl-C

tests/test/units/crt/tctrlc.pp

@@ -0,0 +1,16 @@
+{ %INTERACTIVE }
+
+program test_crt;
+
+uses
+  crt;
+
+  var
+    ch : char;
+
+begin
+  Write('Press Ctrl-C to test :');
+  Read(ch);
+  if ch=#3 then
+    Writeln('It works correctly');
+end.