diff --git a/libsrc/telestrat/cgetc.s b/libsrc/telestrat/cgetc.s
new file mode 100644
index 000000000..85ea4fccb
--- /dev/null
+++ b/libsrc/telestrat/cgetc.s
@@ -0,0 +1,15 @@
+;
+; jede jede@oric.org 2017-10-01
+;
+    .export    _cgetc
+   
+    .include   "telestrat.inc"
+
+.proc _cgetc
+loop:   
+        BRK_TELEMON XRD0
+        bcc     key_pressed
+        jmp     loop
+key_pressed:
+        rts
+.endproc