*        %GOTO FBQBSL;      /* BILINGUAL MAPPING        /*   /*         06000021
         MACRO                                                          12000021
         IHAFBQE  &TYPE                                                 18000021
*                                                                       18010021
*        RELEASE 1 AOS, 11/3/71, LEVEL=1                                18020021
*                                                                       18030021
         AIF   ('&TYPE' EQ 'INTERNAL').EQU                              18050021
FBQESECT DSECT      FREE BLOCK QUEUE ELEMENT                            24000021
FWDPTR   DS    A    PTR TO NEXT FBQE OR PQE                             30000021
BCKPTR   DS    A    PTR TO PREVIOUS FBQE OR PQE                         36000021
SIZE     DS    F    SIZE OF THIS FREE BLOCK                             42000021
FBQAREA  DS    A    LOW ADDRESS OF FREE BLOCK                           42050021
         MEXIT                                                          42100021
.EQU     ANOP                                                           42150021
FWDPTR   EQU      0    PTR TO NEXT FBQE OR PQE                          42200021
BCKPTR   EQU      4    PTR TO PREVIOUS FBQE OR PQE                      42250021
SIZE     EQU      8    SIZE OF THIS FREE BLOCK                          42300021
FBQAREA  EQU      12    LOW ADDRESS OF FREE BLOCK                       42350021
         MEND  , */                                                     48000021
*%FBQBSL:   ;                                                           54000021
*                                                                       54050021
*/*      RELEASE 1 AOS, 11/3/71, LEVEL=1                             */ 54100021
*                                                                       54150021
* DECLARE                                                               60000021
*   1 FBQESECT BASED(FBQESPTR),      /* BLOCK QUEUE ELEMENT          */ 66000021
*    2 FWDPTR      PTR(31),          /* PTR TO NEXT FBQE OR PQE      */ 72000021
*    2 BCKPTR      PTR(31),          /* PTR TO PREVIOUS FBQE OR PQE  */ 78000021
*    2 SIZE        FIXED(31),        /* SIZE OF THIS FREE BLOCK      */ 78050021
*    2 FBQAREA     PTR(31);          /* LOW ADDRESS OF FREE BLOCK    */ 78100021