         SYSTEM   SIG7
         DEF      FAUTH
         REF      NOROOM,SYNTAX,READSTRG,FAUTPTR
FOP      COM,1,7,8 AF(1),AF(2),AF(3)
KWDTBL   EQU      %
         DATA     LKWDTBL
         FOP      0,0,3             1 (
         FOP      1,4,11            2 TEXT
         FOP      0,1,18            3 STORE TEXT
         FOP      0,0,8             4 ),(
         FOP      0,1,1             5 GOTO 2
         BOUND    4
LKWDTBL  EQU      %-KWDTBL
         DATA     0                 NO DEFAULTS
KWDPTR   GEN,15,17 0,KWDTBL
DYNAM    EQU      %
         DATA     0
         DATA     0
#DYNAM   EQU      %-DYNAM
FAUTH    LW,1     =X'08000001'
         CAL1,8   1                 GET A PAGE
         BCS,8    NOROOM
         STW,9    FAUTPTR,3
         AI,9     1
         STW,9    DYNAM+1
         AI,9     510
         STW,9    DYNAM
         LI,2     DYNAM
         LI,1     #DYNAM
         LW,4     KWDPTR
         BAL,11   SYNTAX
         AI,5     1
         LW,1     *5
         AI,1     -1
         SW,1     FAUTPTR,3
         LW,2     FAUTPTR,3
         STW,1    *2
         LI,1     -#DYNAM
         MSP,1    *0
         B        READSTRG
         END

