; ( -- f) Character IO ; R( -- ) ; fetch 'key? vector and execute it if not zero. Leave true if a character can be read, false otherwise VE_SLASHKEY: .db $04, "/key",0 .dw VE_HEAD .set VE_HEAD = VE_SLASHKEY XT_SLASHKEY: .dw PFA_DODEFER PFA_SLASHKEY: .dw 20 .dw XT_UDEFERFETCH .dw XT_UDEFERSTORE