diff --git a/libsrc/atmos/cgetc.s b/libsrc/atmos/cgetc.s
index 988302138..e64734719 100644
--- a/libsrc/atmos/cgetc.s
+++ b/libsrc/atmos/cgetc.s
@@ -41,10 +41,14 @@
 
 @L2:    and     #$7F            ; Mask out avail flag
         sta     KEYBUF
+        ldy     $209
+        cpy     #$A5
+        bne     @L3
+        ora     #$80            ; FUNCT pressed
 
 ; Done
 
-        rts
+@L3:    rts
 
 .endproc