LEX    'FKEYLEX'
        ID     113
        MSG    0
        POLL   0
        ENTRY  FSTe
        CHAR   #D
        KEY    'FKEY'
        TOKEN  11
        ENDTXT

NXTSTM  EQU    #08A48
GTKYCD  EQU    #08D92
MOVE^M  EQU    #01308
KEYBUF  EQU    #2F444
PUTp    EQU    #0379D
PUTd    EQU    #05493

        REL(5) FSTd
        REL(5) FSTp
FSTe    GOSBVL GTKYCD
        C=B    A
        R0=C
        LC(5)  28
        B=C    A
        LC(5)  KEYBUF
        A=C    A
        C=C+1  A
        C=C+1  A
        INTOFF
        GOSBVL MOVE^M
        A=R0
        D0=(5) KEYBUF
        DAT0=A B
        D0=D0- 1
        A=DAT0 S
        A=A+1  S
        GONC   LBL
        A=A-1  S
LBL     DAT0=A S
        INTON
        GOVLNG NXTSTM
FSTp    GOVLNG PUTp
FSTd    GOVLNG PUTd
        END