#define    LEN_INIT_PARAM  33

#translate .INIT()     => := ARRAY( LEN_INIT_PARAM )
#translate .nTOP       => \[  1 \]
#translate .nBOTTOM    => \[  2 \]
#translate .cCOLHEAD   => \[  3 \]
#translate .aBLOCKCOL  => \[  4 \]
#translate .cCURPROC   => \[  5 \]
#translate .aHEAD      => \[  6 \]
#translate .aREF       => \[  7 \]
#translate .aPICT      => \[  8 \]
#translate .aWHEN      => \[  9 \]
#translate .aVALID     => \[ 10 \]
#translate .nUNIMODE   => \[ 11 \]
#translate .bDELINIT   => \[ 12 \]
#translate .bSCRINIT   => \[ 13 \]
#translate .aSORTSEEK  => \[ 14 \]
#translate .aPRINTHEAD => \[ 15 \]
#translate .bDELPOST   => \[ 17 \]
#translate .aGETBLOCK  => \[ 18 \]
#translate .bCOLOR1    => \[ 20 \]
#translate .nLEFTBRD   => \[ 21 \]
#translate .bSCRPOST   => \[ 22 \]
#translate .cFINDMACRO => \[ 23 \]
#translate .cCOLBROWSE => \[ 24 \]
#translate .lYESCLEAR  => \[ 25 \]
#translate .bPREGET    => \[ 26 \]
#translate .bPOSTGET   => \[ 27 \]
#translate .nTAG       => \[ 28 \]
#translate .nDISPROW   => \[ 29 \]
#translate .aHOT_KEY   => \[ 30 \]
#translate .bRESTSAVE  => \[ 31 \]
#translate .bPOSTREAD  => \[ 32 \]
#translate .lSUBINDEX  => \[ 33 \]

#translate .bPost      => \[ 16 \]
#translate .bColor     => \[ 19 \]

#translate oInitList(<x>) => InitList(;
                             <x>\[ 1\],<x>\[ 2\],<x>\[ 3\],<x>\[ 4\],<x>\[ 5\],;
                             <x>\[ 6\],<x>\[ 7\],<x>\[ 8\],<x>\[ 9\],<x>\[10\],;
                             <x>\[11\],<x>\[12\],<x>\[13\],<x>\[14\],<x>\[15\],;
                             <x>\[16\],<x>\[17\],<x>\[18\],<x>\[19\],<x>\[20\],;
                             <x>\[21\],<x>\[22\],<x>\[23\],<x>\[24\],<x>\[25\],;
                             <x>\[26\],<x>\[27\],<x>\[28\],<x>\[29\],<x>\[30\],;
                             <x>\[31\],<x>\[32\],<x>\[33\]                     ;
                                     )


