LEX    'KEYWAIT'
        ID     #52
        MSG    0
        POLL   0
SLEEP   EQU    #006C2
CKSREQ  EQU    #00721
KEY$    EQU    #1ACA8
        ENTRY  KW$
        CHAR   #F
        KEY    'KEYWAIT$'
        TOKEN  1
        ENDTXT
        NIBHEX 00
KW$     CD0EX
        R0=C
        CD1EX
        R1=C
LBL1    GOSBVL SLEEP
        GOC    LBL2
        C=R1
        D1=C
        C=R0
        D0=C
        GOVLNG KEY$
LBL2    GOSBVL CKSREQ
        GOTO   LBL1
        END