LEX    'FILELEX'
        ID     113
        MSG    0
        POLL   0
        ENTRY  RUN
        CHAR   #F
        KEY    'FILE?'
        TOKEN  7
        ENDTXT

BSERR   EQU    #0939A
FILEXQ$ EQU    #09B95
FINDF   EQU    #09F77
EXPR    EQU    #0F23C

        NIBHEX 411

RUN     CD0EX
        RSTK=C
        GOSBVL FILEXQ$
        GONC   Fspce
        ?A#0   W
        GOYES  OK
Fspce   GOVLNG BSERR

OK      CD1EX
        RSTK=C
        GOSBVL FINDF
        A=0    W
        GOC    RTN
        A=A+1  S
        ASR     W
RTN     C=RSTK
        D1=C
        D1=D1- 16
        DAT1=A W
        C=RSTK
        D0=C
        GOVLNG EXPR
        END