! gtlang.bsi [100] - map and code to retrieve language info
!-------------------------------------------------------------------------
!EDIT HISTORY
!VEDIT=100
![100] juin 22, 2007 00:45 AM           Edited by Jack
!	Extracted from ashell.bsi	

    map1 LANG'STATUS,f,6
    map1 GTLANG'MAP
        map2 LANG'NAME1,s,20
        map2 LANG'NAME2,s,20
        map2 LANG'EXTENSION,s,4
        map2 LANG'CURRENCY'SYM,s,4
        map2 LANG'CURRENCY'POS,f,6
        map2 LANG'CURRENCY'SPC,f,6
        map2 LANG'CURRENCY'SIZE,f,6
        map2 LANG'THOUSANDS,s,1
        map2 LANG'DECIMAL,s,1
        map2 LANG'DATE'FORMAT,f,6
        map2 LANG'TIME'FORMAT,f,6
        map2 LANG'DATE'SEP,s,1
        map2 LANG'TIME'SEP,s,1
        map2 LANG'DATA'SEP,s,2
        map2 LANG'PPN'LEFT,s,1
        map2 LANG'PPN'RIGHT,s,1
        map2 LANG'CHARSET,f,6
        map2 LANG'YES'WORD,s,6
        map2 LANG'NO'WORD,s,6
        map2 LANG'YES'CHAR,s,1
        map2 LANG'NO'CHAR,s,1
        map2 LANG'WORD'CHARS,s,30
        map2 LANG'ULC,s,30
        map2 LANG'USR,x,30            ! [102]
        map2 LANG'SPARE,x,30          ! [102]
        map2 LANG'COL,x,128
        map2 LANG'JAN,s,20            ! [79]-
        map2 LANG'FEB,s,20
        map2 LANG'MAR,s,20
        map2 LANG'APR,s,20
        map2 LANG'MAY,s,20
        map2 LANG'JUN,s,20
        map2 LANG'JUL,s,20
        map2 LANG'AUG,s,20
        map2 LANG'SEP,s,20
        map2 LANG'OCT,s,20
        map2 LANG'NOV,s,20
        map2 LANG'DEC,s,20
        map2 LANG'MON,s,20
        map2 LANG'TUE,s,20
        map2 LANG'WED,s,20
        map2 LANG'THU,s,20
        map2 LANG'FRI,s,20
        map2 LANG'SAT,s,20
        map2 LANG'SUN,S,20
        map2 LANG'EXTEND1,s,1
        map2 LANG'EXTEND2,s,1
        map1 LANG'COL2,s,128          ! -[79]

	xcall GTLANG,LANG'STATUS,GTLANG'MAP