; unsigned char cgetc (void);
 
            .export _cgetc
-           .import cursor
+           .import cursor, _PromptOff
            .importzp cursor_x, cursor_y
 
            .include "jumptab.inc"
        tax
        beq L0
        pha
-
-; from 'The Hitchhiker's Guide To GEOS'
-       php
-       sei
-       jsr PromptOff
-       lda #0
-       sta alphaFlag
-       plp
-
+       jsr _PromptOff
        pla
        ldx #0
        rts
 
            .export _PromptOff
 
            .include "jumptab.inc"
+           .include "geossym.inc"
 
-_PromptOff     = PromptOff
+_PromptOff:
+; from 'The Hitchhiker's Guide To GEOS'
+       php
+       sei
+       jsr PromptOff
+       lda #0
+       sta alphaFlag
+       plp
+       rts