*DECK RTABLES 
           IDENT    RTABLES 
          ENTRY     SET1
          ENTRY     SET2
          ENTRY     SET3
          ENTRY     SET4
          ENTRY     SET5
          ENTRY     SET6
          ENTRY     SET7
          ENTRY     SET8
          ENTRY     SET9
          ENTRY     SET10 
          ENTRY     D$SUBS
          ENTRY     E$SUBS
          ENTRY     PPVERBS 
          ENTRY     PPTABLE 
          ENTRY     PPGTEXT 
          ENTRY     PP6BITS 
          ENTRY     DDVERBS 
          ENTRY     DDTABLE 
          ENTRY     DD6BITS 
          ENTRY     EEVERBS 
          ENTRY     EETABLE 
          ENTRY     EE6BITS 
          ENTRY     STACK 
          ENTRY  LDPPSET
SET1      EQU       * 
SET2      EQU       * 
SET3      EQU       * 
SET4      EQU       * 
SET5      EQU       * 
SET6      EQU       * 
SET7      EQU       * 
SET8      EQU       * 
SET9      EQU       * 
SET10     EQU       * 
D$SUBS    EQU       * 
E$SUBS    EQU       * 
PPVERBS   EQU       * 
PPTABLE   EQU       * 
PPGTEXT   EQU       * 
PP6BITS   EQU       * 
DDVERBS   EQU       * 
DDTABLE   EQU       * 
DD6BITS   EQU       * 
EEVERBS   EQU       * 
EETABLE   EQU       * 
EE6BITS   EQU       * 
STACK     EQU       * 
LDPPSET   EQU    *
*CALL DPPPMACRO 
 RRTABLE   SETUP    RRVERBS,RR6BITS 
 SETNO EQU 13 
 RDBIT  EQU 1 
 CODEBIT  EQU 2 
 CNTRLBIT  EQU 3
 PAGEBIT  EQU 4 
 TRMPDBIT  EQU 5
 LEVL1BIT  EQU 6
 TYPEBIT  EQU 7 
 NXTGPBIT  EQU 8
 USAGEBIT  EQU 9
 LV249BIT  EQU 10 
 BLANKBIT  EQU 11 
 COLMNBIT  EQU 12 
 GROUPBIT  EQU 13 
 JSTFDBIT  EQU 14 
 LINEBIT  EQU 15
 PICTBIT  EQU 16
 SORCEBIT  EQU 17 
 SUMBIT  EQU 18 
 VALUEBIT  EQU 19 
 RSDEFPT EQU 28 
 RDDEFPT EQU 29 
 LV1DFPT EQU 30 
 LV249PT EQU 31 
 BADLVPT EQU 32 
 RPINITAL      EQU  1 
 REPSECTN      EQU  2 
 TRMPDRT       EQU  3 
 EPILOGUE      EQU  4 
 SAVELVL       EQU  5 
 TSTERMPD      EQU  6 
 SETUPRD       EQU  7 
 CODEALL       EQU  8 
 CODECLAU      EQU  9 
 CNTRLRT       EQU  10
 CTRLFIN       EQU  11
 CNTRITEM      EQU  12
 PAGERT        EQU  13
 PAGELIMT      EQU  14
 STLASDET      EQU  15
 STHEADNG      EQU  16
 STFOOTNG      EQU  17
 FIRDETL       EQU  18
STUPDNAT         EQU  19
CHEKIFTP         EQU  20
STORLNAB         EQU  21
LNXTPAGE         EQU  22
STORLREL         EQU  23
STORNGAB         EQU  24
STONGREL         EQU  25
SETNGNP          EQU  26
TYPERHRT         EQU  27
TYPEPHRT         EQU  28
TYPEPFRT         EQU  29
TYPERFRT         EQU  30
TYPEDETL         EQU  31
TYPECHRT         EQU  32
STCNTLID         EQU  33
TYPECFRT         EQU  34
CNTFINAL         EQU  35
SETUSART         EQU  36
STUP02DN         EQU  37
BLANZERO         EQU  38
COLNORT          EQU  39
GROUPIND         EQU  40
JUSTIFRT         EQU  41
STPICTUR         EQU  42
NOVALUE          EQU  43
YESVALUE         EQU  44
STVALUE          EQU  45
STSORID          EQU  46
STLCURRD         EQU  47
STQUALLC         EQU  48
STPCURRD         EQU  49
STQUALPC         EQU  50
SVSUBSCR         EQU  51
TSTSUBSC         EQU  52
INITFLGS         EQU  53
SVCTXTPT         EQU  54
CHKSUBCT         EQU  55
CHKCTLIT         EQU  56
CHKCTDNR         EQU  57
OFFSDIAG         EQU  58
CHKSCOFF         EQU  59
SETSUMCL         EQU  60
STSUMID          EQU  61
SETUPNCL         EQU  62
STUPNREF         EQU  63
BLDDUMUP         EQU  64
STRSTFIN         EQU  65
STRESREF         EQU  66
SVSUMSUB         EQU  67
FIGZRORT         EQU  68
SPACERT          EQU  69
UPBNDRT          EQU  70
LOWBNDRT         EQU  71
HIVALRT          EQU  72
LOVALRT          EQU  73
QUOTERT          EQU  74
BADLVRT          EQU  75
SETTYPE8         EQU  76
           ENDX 
           LIST        L
 RTABTOP   SUBROUT     RPINITAL      -# RP-INITIALIZATION 
           RESWORD     REPORT 
           AAREA
           RESWORD     SECTION
           TSTFLAG     FIPS5
           FDIAGNOS    T,500,LASTATOM 
           DNDEF
           SUBROUT     REPSECTN      -# REP-SECTION-RT
           DEFPT       RSDEFPT
           PERIOD 
           FDIAGNOS    T,343
 MAINLOOP  CLAUSE      SEMICOPT 
           TBRANCH     MAINLOOP 
 MLERR     ERRBRAN     CLAUSERR 
           LEVEL       1
           TBRANCH     LEVEL01
           LEVEL       2
           TBRANCH     LEVEL249 
           LEVEL       RDLVL
           TBRANCH     RDLEVEL
           PERIOD 
           TSUBROUT    TRMPDRT       -# TERM-PERIOD-RT
           TBRANCH     MAINLOOP 
           ENDOFFI
           TBRANCH     EOFTABLE 
           LEVEL       66 
           TBRANCH     BADLEVEL 
           LEVEL       77 
           TBRANCH     BADLEVEL 
           LEVEL       88 
           TBRANCH     BADLEVEL 
           LEVEL       FDLVL
           TBRANCH     BADLEVEL 
           LEVEL       SDLVL
           TBRANCH     BADLEVEL 
           LEVEL       CDLVL
           TBRANCH     BADLEVEL 
           DIAGNOS     D,301
           ADVANCE
           BRANCH      MAINLOOP 
 EOFTABLE  SUBROUT     EPILOGUE      -# RP-EPILOGUE 
           STOP 
 CLAUSERR  ALWDIAG
           ADVANCE
           BRANCH      MAINLOOP 
 RDLEVEL   SUBROUT     SAVELVL       -# SAVE-LEVEL
           TSTCONT     RDBIT
           FDIAGNOS    D,344
           SUBROUT     TSTERMPD      -# TEST-FOR-TPD
           AAREA
           DEFPT       RDDEFPT
           DNDEF
          FFILLERX
           SUBROUT     SETUPRD       -# SET-UP-RD-NAME
           CLAUSE 
           TBRANCH     MAINLOOP 
           BRANCH      MLERR
 ZCODE     TSTCONT     CODEBIT
           FDIAGNOS    D,302,LASTATOM 
           SUBROUT     CHEKIFTP 
           RESWORD     ALL
           TSUBROUT    CODEALL       -# CODE-ALL-BIT-RT 
           BRANRET     LITTABLE 
           FDSR        D,303
           SUBROUT     CODECLAU      -# CODE-CLAUSE-RT
           RETURNX
 ZCONTRLS  TSTCONT    CNTRLBIT
           FDIAGNOS   D,304,LASTATOM
           SUBROUT     CHEKIFTP 
           SUBROUT     CNTRLRT       -# CONTROLS-RT 
           BRANRET    ALWAREIS
 T1L1      RESWORD    FINAL 
           TSUBROUT    CTRLFIN       -# CONTROL-FINAL-RT
           TBRANCH    T1L3
           DATAREF
           FDSR       D,306 
 T1L2      SUBROUT     CNTRITEM      -# CONTROL-ITEM-RT 
 T1L3      DATAREF    COMMAOPT
           FRETTRUE 
           BRANCH     T1L2
 ZCONTROL  TSTCONT    CNTRLBIT
           FDIAGNOS   D,304,LASTATOM
           SUBROUT    CHEKIFTP
           SUBROUT     CNTRLRT       -# CONTROLS-RT 
           BRANRET    ALWISARE
           BRANCH     T1L1
 ALWAREIS  ALLOW      ARE 
           TRETURNX 
           FRESWORD   IS
           TDIAGNOS   T,305,LASTATOM
           RETURNX
 ALWISARE  ALLOW      IS
           TRETURNX 
           FRESWORD   ARE 
           TDIAGNOS   T,307,LASTATOM
           RETURNX
 ZPAGE      TSTCONT    PAGEBIT
           FDIAGNOS   D,308,LASTATOM
           SUBROUT    CHEKIFTP
           SUBROUT     PAGERT        -# PAGE-RT 
           ALLOW      LIMIT 
           FBRANCH    T2L1
           ALLOW       IS 
           TBRANCH     T2L2 
           FRESWORD    ARE
           TDIAGNOS    T,307,LASTATOM 
           BRANCH     T2L2
 T2L1      ALLOW      LIMITS
           FBRANCH    T2L1A 
           ALLOW       ARE
           TBRANCH     T2L2 
           FRESWORD    IS 
           TDIAGNOS    T,305,LASTATOM 
 T2L1A     ALLOW       IS 
           TBRANCH     T2L2 
           ALLOW       ARE
 T2L2      INTEGER
           FDSR       D,309 
           SUBROUT     PAGELIMT      -# STASH-PAGE-LIMIT
           ALLOW      LINE
           FALLOW     LINES 
 T2L3      COMMARW    HEADING 
           TBRANCH    T2L5
           COMMARW    FOOTING 
           TBRANCH    T2L6
           COMMARW    FIRST 
           FBRANCH    T2L4
           RESWORD    DETAIL
           TBRANCH    T2L7
           FDSR       D,310 
 T2L4      COMMARW    LAST
           FRETTRUE 
           RESWORD    DETAIL
           FDSR       D,310 
           INTEGER
           FDSR       D,309 
           SUBROUT     STLASDET      -# STASH-LAST-DETAIL 
           BRANCH     T2L3
 T2L5      INTEGER
           FDSR       D,309 
           SUBROUT     STHEADNG      -# STASH-HEADING 
           BRANCH     T2L3
 T2L6      INTEGER
           FDSR       D,309 
           SUBROUT     STFOOTNG      -# STASH-FOOTING 
           BRANCH     T2L3
 T2L7      INTEGER
           FDSR       D,309 
           SUBROUT     FIRDETL       -# STASH-FIRST-DETAIL
           BRANCH     T2L3
 LEVEL01   SUBROUT    SAVELVL         -# SAVE-LEVEL 
           TSTCONT    LEVL1BIT
           FDIAGNOS   D,313,LASTATOM
           SUBROUT    TSTERMPD         -# TEST-FOR-TPD
           AAREA
           FILLERX
           FDNDEF 
           SUBROUT    STUPDNAT         -# SET-UP-DNAT 
           DEFPT      LV1DFPT 
           BRANCH     MAINLOOP
 ZLINE      TSTCONT    LINEBIT
           FDIAGNOS   D,314,LASTATOM
           SUBROUT    CHEKIFTP         -# CHK-IF-TP 
           ALLOW      NUMBER
           ALLOW      IS
           INTEGER
           FBRANCH    T4L3
           SUBROUT    STORLNAB         -# STORE-LINE-INT-ABS
           ALLOW      ON
           FBRANCH    T4L2
           TRESWORD   NEXT
           FDSR       D,315 
 T4L1      RESWORD    RWGROUP 
           TBRANCH    GROUPTST
           RESWORD    PAGE
           FDIAGNOS   D,316 
           SUBROUT    LNXTPAGE         -# SET-LINE-NEXT-PAGE
           RETURNX
 T4L2      RESWORD    NEXT
           FRETTRUE 
           BRANCH     T4L1
 T4L3      RESWORD    PLUS
           FDSR       D,317 
           INTEGER
           FDSR       D,347 
           SUBROUT    STORLREL         -# STOR-LINE-INT-REL 
           RETURNX
 ZNXTGRUP  RESWORD    RWGROUP 
           FDSR       D,319 
 GROUPTST  TSTCONT    NXTGPBIT
           FDIAGNOS   D,318,LASTATOM
           SUBROUT    CHEKIFTP         -# CHK-IF-TP 
           ALLOW      IS
           INTEGER
           FBRANCH    T5L1
           SUBROUT    STORNGAB         -# STORE-NEXT-GROUP-ABS
           RETURNX
 T5L1      RESWORD    PLUS
           FBRANCH    T5L2
           INTEGER
           FDSR       D,320 
           SUBROUT    STONGREL         -# STORE-NEXT-GROUP-REL
           RETURNX
 T5L2      RESWORD    NEXT
           FDSR       D,348 
           RESWORD    PAGE
           FDSR       D,349 
           SUBROUT    SETNGNP          -# SET-NG-NEXT-PAGE
           RETURNX
 ZTYPE      TSTCONT    TYPEBIT
           FDIAGNOS   D,321,LASTATOM
           SUBROUT    CHEKIFTP         -# CHK-IF-TP 
           SUBROUT    SETTYPE8
           ALLOW      IS
           RESWORD    RH
           TBRANCH    T6L3
           RESWORD    PH
           TBRANCH    T6L4
           RESWORD    CH
           TBRANCH    T6L8
           RESWORD    DETAIL
           TBRANCH    T6L7
           RESWORD    CF
           TBRANCH    T6L11 
           RESWORD    PF
           TBRANCH    T6L5
           RESWORD    RF
           TBRANCH    T6L6
           RESWORD    REPORT
           FBRANCH    T6L1
           RESWORD    HEADING 
           TBRANCH    T6L3
           RESWORD    FOOTING 
           TBRANCH    T6L6
           FDSR       D,350 
 T6L1      RESWORD    PAGE
           FBRANCH    T6L2
           RESWORD    HEADING 
           TBRANCH    T6L4
           RESWORD    FOOTING 
           TBRANCH    T6L5
           FDSR       D,351 
 T6L2      RESWORD    CONTROL 
           FDSR       D,322 
           RESWORD    HEADING 
           TBRANCH    T6L8
           RESWORD    FOOTING 
           TBRANCH    T6L11 
           FDSR       D,352 
 T6L3      SUBROUT    TYPERHRT         -# TYPE-RH-RT
           RETURNX
 T6L4      SUBROUT    TYPEPHRT         -# TYPE-PH-RT
           RETURNX
 T6L5      SUBROUT    TYPEPFRT         -# TYPE-PF-RT
           RETURNX
 T6L6      SUBROUT    TYPERFRT         -# TYPE-RF-RT
           RETURNX
 T6L7      SUBROUT    TYPEDETL         -# TYPE-DETAIL-RT
           RETURNX
 T6L8      SUBROUT    TYPECHRT         -# TYPE-CH-RT
           RESWORD    FINAL 
           TBRANCH    T6L12 
 T6L9      DATAREF
           FDSR       D,353 
 T6L10     SUBROUT    STCNTLID         -# STASH-CONTROL-ID
           RETURNX
 T6L11     SUBROUT    TYPECFRT         -# TYPE-CF-RT
           RESWORD    FINAL 
           FBRANCH    T6L9
 T6L12     SUBROUT    CNTFINAL         -# SET-CONTROL-FINAL 
           RETURNX
 ZUSAGE     TSTCONT    USAGEBIT 
           FDIAGNOS   D,323,LASTATOM
           SUBROUT    CHEKIFTP         -# CHK-IF-TP 
           ALLOW      IS
           RESWORD    DISPLAY 
           FDSR       D,324 
           SUBROUT    SETUSART         -# SET-USAGE-RT
           RETURNX
 LEVEL249  SUBROUT    SAVELVL          -# SAVE-LEVEL
           TSTCONT    LV249BIT
           FDIAGNOS   D,325,LASTATOM
           SUBROUT    TSTERMPD         -# TEST-FOR-TPD
           FILLERX
           FDNDEF 
           SUBROUT    STUP02DN         -# SET-UP-02DNAT 
           DEFPT      LV249PT 
           BRANCH     MAINLOOP
 ZBLANK     TSTCONT    BLANKBIT 
           FDIAGNOS   D,326,LASTATOM
           SUBROUT    CHEKIFTP         -# CHK-IF-TP 
           ALLOW      WHEN
          LITERAL 
           FDSR       D,327 
           SUBROUT    BLANZERO         -# BLANK-ZERO-RT 
           RETURNX
 ZCOLUMN    TSTCONT    COLMNBIT 
           FDIAGNOS   D,328,LASTATOM
           SUBROUT    CHEKIFTP         -# CHK-IF-TP 
           ALLOW      NUMBER
           ALLOW      IS
           INTEGER
           FDSR       D,329 
           SUBROUT    COLNORT          -# COLUMN-NO-RT
           RETURNX
 ZGROUP     TSTCONT    GROUPBIT 
           FDIAGNOS   D,330,LASTATOM
           SUBROUT    CHEKIFTP         -# CHK-IF-TP 
           ALLOW      INDICATE
           SUBROUT    GROUPIND         -# GROUP-IND-RT
           RETTRUE
 ZJUSTIFD  TSTCONT    JSTFDBIT
           FDIAGNOS   D,331,LASTATOM
           SUBROUT    CHEKIFTP         -# CHK-IF-TP 
           ALLOW      RIGHT 
           SUBROUT    JUSTIFRT         -# JUSTIFIED-RT
           RETTRUE
 ZPICTURE   TSTCONT    PICTBIT
           FDIAGNOS   D,332 
           SUBROUT    CHEKIFTP         -# CHK-IF-TP 
           PICTURE
           FDSR       D,333 
           SUBROUT    STPICTUR         -# STASH-PICTURE 
           RETURNX
 ZVALUE     TSTCONT    VALUEBIT 
           FDIAGNOS   D,334,LASTATOM
           SUBROUT    CHEKIFTP         -# CHK-IF-TP 
           ALLOW      IS
           RESWORD    ALL 
           FSUBROUT   NOVALUE          -# NO-ALL-VALUE
           TSUBROUT   YESVALUE         -# YES-ALL-VALUE 
           BRANRET    LITTABLE
           FDSR       D,335 
           SUBROUT    STVALUE          -# STASH-VALUE-RT
           RETURNX
 ZSOURCE    TSTCONT    SORCEBIT 
           FDIAGNOS   D,336,LASTATOM
           SUBROUT    CHEKIFTP         -# CHK-IF-TP 
           ALLOW      IS
           DATAREF
           FBRANCH    T7L1
           SUBROUT    STSORID          -# STASH-SOURCE-IDENT
           BRANRET    SRSUBIDX
           RETURNX
 T7L1      LINECTR
           FBRANCH    T7L3
           RESWORD    OF
           TBRANCH    T7L2
           RESWORD    IN
           TBRANCH    T7L2
           FSUBROUT   STLCURRD         -# STOR-LC-CURRENT-RD
           RETTRUE
 T7L2      DATAREF
           FDSR       D,337 
*  SSCANNER HANDLES QUALIFICATION 
           RETURNX
 T7L3      PAGECTR
           FDSR       D,337 
           RESWORD    OF
           TBRANCH    T7L4
           RESWORD    IN
           TBRANCH    T7L4
           FSUBROUT   STPCURRD         -# STOR-PC-CURRENT-RD
           RETTRUE
 T7L4      DATAREF
           FDSR       D,337 
*   SSCANNER HANDLES QUALIFICATION
           RETURNX
 SRSUBIDX  BRANRET    RWIDBODY
           FRETTRUE 
           SUBROUT    SVSUBSCR         -# SAVE-SOURCE-SUBSCRIPTS
           ALWDIAG
           RETURNX
 RWIDBODY  LFTPARN
           FSUBROUT   TSTSUBSC         -# RW-TEST-FOR-SUBSCRIPTS
           FRETURNX 
           TSUBROUT   INITFLGS         -# RW-INIT-FLAGS-COUNTER 
 RWL0      BRANRET    RWSUBSCR
           ERRETRN
           FDSR       D,346 
 RWLOOP1   SUBROUT    SVCTXTPT         -# RW-SAVE-CTEXT-PTR 
           RTPARN 
           TSUBROUT   CHKSUBCT         -# RW-CHECK-SUBSCRIPT-COUNT
           TRETURNX 
           BRANRET    COMMASUB         -# RW-COMMA-SUBSCRIPT
           TBRANCH    RWLOOP1 
           ERRETRN
           FDSR       D,346 
 RWSUBSCR  DATAREF
           TBRANRET   SUBSBODY
           TRETURNX 
           ERRETRN
           BRANRET    LITTABLE
           FRETURNX 
           SUBROUT    CHKCTLIT         -# RW-CHECK-COUNT-LIT
           RETURNX
 COMMASUB  DATAREF    COMMAOPT
           TBRANRET   SUBSBODY
           TRETURNX 
           ERRETRN
           BRANRET    COMMALIT         -# COMMA-LITERAL-TABLE 
           FRETURNX 
           SUBROUT    CHKCTLIT         -# RW-CHECK-COUNT-LIT
           RETURNX
 SUBSBODY  SUBROUT    CHKCTDNR         -# RW-CHECK-COUNT-DNREF
           PLUS 
           TSUBROUT   OFFSDIAG         -# RW-OFFSET-DIAG
           TBRANCH    RWSB0 
           MINUS
           TSUBROUT   OFFSDIAG         -# RW-OFFSET-DIAG
           FRETTRUE 
 RWSB0     BRANRET    LITTABLE
           FDSR       D,386 
           SUBROUT    CHKSCOFF         -# RW-CHECK-SCRIPT-OFFSET
           RETURNX
 ZSUM       TSTCONT    SUMBIT 
           FDIAGNOS   D,338,LASTATOM
           SUBROUT    SETSUMCL         -# SET-SUM-CLAUSE
           SUBROUT    CHEKIFTP         -# CHK-IF-TP 
 T8L1      DATAREF
           FDSR       D,339 
           SUBROUT    STSUMID          -# STASH-SUM-IDENT 
           BRANRET    SUMSCIDX         -# SUM-SUBSCRIPT-INDEX 
 T8L2      DATAREF    COMMAOPT
           FBRANCH    T8L3
           SUBROUT    STSUMID          -# STASH-SUM-IDENT 
           BRANRET    SUMSCIDX         -# SUM-SUBSCRIPT-INDEX 
           BRANCH     T8L2
 T8L3      RESWORD    UPON
           FBRANCH    T8L5
           SUBROUT    SETUPNCL         -# SET-UPON-CLAUSE 
           DATAREF
           FDSR       D,340 
           SUBROUT    STUPNREF         -# STASH-UPON-REF
 T8L4      DATAREF    COMMAOPT
           TSUBROUT   STUPNREF
           TBRANCH    T8L4
 T8L5      RESWORD    SUM 
           TSUBROUT   BLDDUMUP         -# CHK-BUILD-DUMMY-UPON
           TBRANCH    T8L1
           RESWORD    RESET 
           FRETTRUE 
           ALLOW      ON
           RESWORD    FINAL 
           TSUBROUT   STRSTFIN         -# SET-RESET-FINAL 
           TRETURNX 
 T8L6      DATAREF
           FDSR       D,341 
           SUBROUT    STRESREF         -# STASH-RESET-REF 
           RETURNX
ZTRON      SETFLAG    CMDTRACE
           RETURNX
ZTROFF     CLRFLAG    CMDTRACE
           RETURNX
 ZRESET     DIAGNOS    D,342,LASTATOM 
           ALLOW      ON
           RESWORD    FINAL 
           TRETURNX 
           DATAREF
           FDIAGNOS   D,341 
           RETURNX
 SUMSCIDX  BRANRET    RWIDBODY
           FRETTRUE 
           SUBROUT    SVSUMSUB         -# SAVE-SUM-SUBSCRIPTS 
           ALWDIAG
           RETURNX
 LITTABLE  LITERAL
           TRETURNX 
           RESWORD    ZERO
 LITZERO   TSUBROUT   FIGZRORT         -# FIG-ZERO-ROUTINE
           TRETURNX 
           RESWORD    SPACE 
 LITSPACE  TSUBROUT   SPACERT          -# SPACE-ROUTINE 
           TRETURNX 
           RESWORD    UPRBOUND
 LITUP     TSUBROUT   UPBNDRT          -# UPPER-BOUND-ROUTINE 
           TRETURNX 
           RESWORD    LOWBOUND
 LITLOWER  TSUBROUT   LOWBNDRT         -# LOWER-BOUND-ROUTINE 
           TRETURNX 
           RESWORD    HIGHVAL 
 LITHIGH   TSUBROUT   HIVALRT          -# HIGH-VALUE-ROUTINE
           TRETURNX 
           RESWORD    LOWVALUE
 LITLOW    TSUBROUT   LOVALRT          -# LOW-VALUE-ROUTINE 
           RESWORD    QUOTE 
 LITQUOTE  TSUBROUT   QUOTERT          -# QUOTE-ROUTINE 
           RETURNX
 COMMALIT  LITERAL    COMMAOPT
           TRETURNX 
           COMMARW    ZERO
           TBRANCH    LITZERO 
           COMMARW    SPACE 
           TBRANCH    LITSPACE
           COMMARW    UPRBOUND
           TBRANCH    LITUP 
           COMMARW    LOWBOUND
           TBRANCH    LITLOWER
           COMMARW    HIGHVAL 
           TBRANCH    LITHIGH 
           COMMARW    LOWVALUE
           TBRANCH    LITLOW
           COMMARW    QUOTE 
           TBRANCH    LITQUOTE
           RETURNX
 BADLEVEL  DIAGNOS    D,312 
           SUBROUT    SAVELVL         -# SAVE-LEVEL 
           DEFPT      BADLVPT 
           DNDEF
           SUBROUT    BADLVRT          -# BAD-LEVEL-ROUTINE 
           BRANCH     MAINLOOP
           USE        RR6BITS 
           VFD        6/0 
           VERB       PICTURE 
           VERB       SUM 
           VERB       CODE
           VERB       JUSTIFID
           VERB       LINE
           VERB       NXTGROUP
           VERB       PAGE
           VERB       TYPE
           VERB       BLANK 
           VERB       RWGROUP 
           VERB       RESET 
           VERB       USAGE 
           VERB       VALUE 
           VERB       COLUMN
           VERB       SOURCE
           VERB       CONTROL 
           VERB       CONTROLS
           VERB       TRACEON 
           VERB       TRACEOFF
           USE        RRVERBS 
           VFD        15/0
           VFD        15/ZPICTURE 
           VFD        15/ZSUM 
           VFD        15/ZCODE
           VFD        15/ZJUSTIFD 
           VFD        15/ZLINE
           VFD        15/ZNXTGRUP 
           VFD        15/ZPAGE
           VFD        15/ZTYPE
           VFD        15/ZBLANK 
           VFD        15/ZGROUP 
           VFD        15/ZRESET 
           VFD        15/ZUSAGE 
           VFD        15/ZVALUE 
           VFD        15/ZCOLUMN
           VFD        15/ZSOURCE
           VFD        15/ZCONTROL 
           VFD        15/ZCONTRLS 
           VFD        15/ZTRON          TRACEON 
           VFD        15/ZTROFF         TRACEOFF
           END
