//---------------------------------------------------------------------------
//(R)CopyRight KivenSoft International ,inc 1999
//單元名稱：內碼轉換單元
//程序名稱：電子書庫
//作    者：李會文
//開始時間：1999.07.18
//最后修改：1999.07.22
//備注：此單元定義了SRM文件的讀寫接口
//---------------------------------------------------------------------------
unit GbBig;

interface

 function GbToBig(Buf:pointer):pointer;
 function BigToGb(Buf:pointer):pointer;
 function AutoGb(Buf:pointer):pointer;
 function AutoBig(Buf:pointer):pointer;

implementation

Const
  BIG5Order:array[0..14757] of Word=(
                  $2020,$ACA3,$A2A1,$A3A1,$2020,$A4A1,$BBA3,$BAA3,$BFA3,$A1A3,
                  $C3A1,$A9A9,$A7A1,$ACA3,$2020,$AEA3,$2020,$BBA3,$BAA3,$BFA3,
                  $2020,$A7A9,$A5A9,$A6A9,$A4A9,$2020,$DFA3,$2020,$2020,$A8A3,
                  $A9A3,$D0A1,$2020,$FBA3,$FDA3,$2020,$2020,$B1A1,$B2A1,$2020,
                  $2020,$BEA1,$BFA1,$2020,$2020,$B6A1,$B7A1,$C4A1,$C5A1,$B4A1,
                  $B5A1,$2020,$A6A1,$B8A1,$B9A1,$2020,$2020,$BAA1,$BBA1,$2020,
                  $2020,$A8A3,$A9A3,$2020,$2020,$B1A1,$B2A1,$AEA1,$A7A3,$B0A1,
                  $B1A1,$2020,$A2A3,$E0A3,$2020,$A3A3,$A6A3,$AAA3,$F9A1,$ECA1,
                  $2020,$F0A1,$F1A1,$F7A1,$F8A1,$F2A1,$EEA1,$EFA1,$F3A1,$F4A1,
                  $F5A1,$F6A1,$2020,$2020,$2020,$2020,$A5A1,$2020,$2020,$2020,
                  $2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$ABA3,
                  $2020,$C1A1,$C2A1,$C0A1,$2020,$BCA3,$BEA3,$BDA3,$DCA1,$DDA1,
                  $D9A1,$DEA1,$2020,$D4A1,$2020,$2020,$2020,$2020,$2020,$ABA1,
                  $C9A1,$C8A1,$2020,$CFA1,$2020,$2020,$2020,$2020,$D2A1,$D3A1,
                  $DFA1,$E0A1,$E2A1,$E1A1,$2020,$D1A1,$FCA1,$FDA1,$FBA1,$FAA1,
                  $2020,$2020,$2020,$2020,$ACA1,$2020,$AFA3,$DCA3,$2020,$2020,
                  $E7A1,$A4A3,$2020,$E9A1,$EAA1,$A5A3,$2020,$E6A1,$2020,$2020,
                  $2020,$C0A3,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,
                  $2020,$E3A1,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,
                  $2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,
                  $2020,$2020,$2020,$2020,$2020,$2020,$EFA9,$DFA9,$D7A9,$CFA9,
                  $C7A9,$FEA3,$2020,$2020,$2020,$B3A9,$B7A9,$BBA9,$BFA9,$2020,
                  $2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,
                  $2020,$2020,$2020,$2020,$B0A3,$B1A3,$B2A3,$B3A3,$B4A3,$B5A3,
                  $B6A3,$B7A3,$B8A3,$B9A3,$F1A2,$F2A2,$F3A2,$F4A2,$F5A2,$F6A2,
                  $F7A2,$F8A2,$F9A2,$FAA2,$2020,$2020,$2020,$2020,$2020,$2020,
                  $2020,$2020,$2020,$2020,$2020,$2020,$C1A3,$C2A3,$C3A3,$C4A3,
                  $C5A3,$C6A3,$C7A3,$C8A3,$C9A3,$CAA3,$CBA3,$CCA3,$CDA3,$CEA3,
                  $CFA3,$D0A3,$D1A3,$D2A3,$D3A3,$D4A3,$D5A3,$D6A3,$D7A3,$D8A3,
                  $D9A3,$DAA3,$E1A3,$E2A3,$E3A3,$E4A3,$E5A3,$E6A3,$E7A3,$E8A3,
                  $E9A3,$EAA3,$EBA3,$ECA3,$EDA3,$EEA3,$EFA3,$F0A3,$F1A3,$F2A3,
                  $F3A3,$F4A3,$F5A3,$F6A3,$F7A3,$F8A3,$F9A3,$FAA3,$A1A6,$A2A6,
                  $A3A6,$A4A6,$A5A6,$A6A6,$A7A6,$A8A6,$A9A6,$AAA6,$ABA6,$ACA6,
                  $ADA6,$AEA6,$AFA6,$B0A6,$B1A6,$B2A6,$B3A6,$B4A6,$B5A6,$B6A6,
                  $B7A6,$B8A6,$C1A6,$C2A6,$C3A6,$C4A6,$C5A6,$C6A6,$C7A6,$C8A6,
                  $C9A6,$CAA6,$CBA6,$CCA6,$CDA6,$CEA6,$CFA6,$D0A6,$D1A6,$D2A6,
                  $D3A6,$D4A6,$D5A6,$D6A6,$D7A6,$D8A6,$C5A8,$C6A8,$C7A8,$C8A8,
                  $C9A8,$CAA8,$CBA8,$CCA8,$CDA8,$CEA8,$CFA8,$D0A8,$D1A8,$D2A8,
                  $D3A8,$D4A8,$D5A8,$D6A8,$D7A8,$D8A8,$D9A8,$DAA8,$DBA8,$DCA8,
                  $DDA8,$DEA8,$DFA8,$E0A8,$E1A8,$E2A8,$E3A8,$E4A8,$E5A8,$E6A8,
                  $E7A8,$E8A8,$E9A8,$2020,$2020,$2020,$2020,$2020,$2020,$2020,
                  $2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,
                  $2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,
                  $2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,
                  $2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,
                  $2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,
                  $2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,$2020,
                  $2020,$BBD2,$D2D2,$A1B6,$DFC6,$CBC4,$C5BE,$CBC1,$FEB6,$CBC8,
                  $F9B6,$EBC8,$CBB0,$B8BC,$B6B5,$F3B5,$A6C1,$B0D8,$AECA,$B7B2,
                  $D6D3,$FDC8,$C2CF,$C9D5,$CFC9,$BED1,$E8CD,$B2B7,$C3BE,$2020,
                  $B2D2,$F2C6,$DAD3,$F6CD,$A3D8,$D0C8,$D7C9,$A7C7,$E6B2,$DABF,
                  $C1CD,$BFCA,$A6CF,$F3B4,$AEC5,$D3D7,$DDE6,$DEE6,$E7B4,$A1D0,
                  $CCDE,$ACCA,$BDC9,$A8B4,$A4B9,$BABC,$D1D2,$C8CB,$EDBD,$C9B8,
                  $C3DE,$AEDF,$ADB9,$C5B2,$F3B3,$A4D8,$BBB2,$D0D6,$E1B7,$A4B5,
                  $AED6,$FCD2,$E8D3,$C6D4,$AEBE,$A5BB,$E5CE,$BABF,$CAC8,$B2CA,
                  $EAD8,$CDC6,$F0B3,$D4C8,$F1BD,$E9BD,$C6D8,$AAD4,$CAD4,$DAC4,
                  $F9C1,$E2D9,$ABB9,$DFC8,$D7D0,$D6B7,$D0C7,$D7D8,$C8D4,$B4B9,
                  $F0CE,$AFBB,$A5C6,$E7CE,$FDC9,$A6D8,$E5B1,$F2B6,$D1D3,$B0BC,
                  $B4B7,$C9C8,$ECCC,$F2B7,$ABCC,$B2D8,$D7BF,$D9C9,$C8D3,$DFB3,
                  $CDCD,$CDB0,$C3BB,$A5D8,$F5B5,$FDD2,$C4D0,$EAB8,$A7BB,$D6CA,
                  $FAD4,$A7D6,$C4CE,$B7B6,$EFBD,$BDB7,$D5C8,$BBD4,$C2D4,$BEC4,
                  $B7C7,$B9D6,$F5B4,$E3CE,$C8B1,$ABC3,$CFCA,$AECB,$F0BB,$A6D7,
                  $B8B8,$B3D8,$ACC6,$C0D1,$A3C5,$AEC8,$F5CD,$FBB1,$C0CA,$A7D8,
                  $D2C7,$F0C7,$F7D6,$A7D5,$A6B7,$F5BA,$D4D2,$B6B8,$D0D7,$CBCA,
                  $FBCB,$CCD5,$FAB4,$EEC1,$C9CF,$F0D8,$E4B3,$D6D0,$BDC8,$E1B2,
                  $ACB6,$BCB0,$F6B3,$B9CD,$AFBF,$D3BC,$A6B9,$FCB0,$D2B4,$B1B1,
                  $D1D4,$AAC7,$EBB0,$DCBB,$A8BF,$BCD5,$AEC3,$B4D8,$A5C8,$C9BF,
                  $C5B9,$D2D3,$D9D5,$A3B6,$B5DF,$B6DF,$F0B5,$BECB,$CFD8,$D0BD,
                  $EDC1,$BBD6,$B7CA,$B3DF,$A8CC,$E4BE,$C8B0,$B7DF,$C4CB,$F4C7,
                  $E2CD,$EBD1,$A7CA,$ABC5,$CCC4,$D0D4,$FCCB,$E1C4,$DEBE,$C9C7,
                  $F3D7,$D0CA,$BCB2,$BDC6,$D7D3,$CDDB,$EBBA,$A5B8,$D8B1,$ECCE,
                  $F2B4,$D3C8,$C7B0,$CBC6,$E2B3,$A9B5,$F5CA,$BEB1,$B4CE,$A9C4,
                  $FDD4,$FDD5,$B8C4,$F1C3,$B5D8,$C0D3,$ADD6,$A1CD,$BAB7,$B8B7,
                  $FED0,$F1D3,$CFB9,$DFCD,$CAB8,$FAC9,$C3D3,$A6CB,$EFCC,$C9D3,
                  $D7BC,$EAC9,$E2F1,$D7B0,$A4C6,$F3C3,$BFC4,$ACC3,$B8CA,$AFCA,
                  $BECA,$CCBA,$A8D1,$A2C1,$A9D8,$AAB6,$B9C6,$D2C5,$C0D8,$A8D8,
                  $BBBD,$E0D2,$A5BA,$C2B7,$F8D8,$EFBB,$C1D2,$2020,$E9CE,$A5B7,
                  $DDD0,$FCB7,$D9D6,$FEBC,$CEC8,$F6D1,$F2D8,$DDB7,$F3C6,$2020,
                  $E2B9,$D7D0,$D7D5,$C8CF,$ABC8,$B2B9,$D9D4,$F9B1,$D0C1,$CCD0,
                  $AEBB,$D8D8,$BEEB,$D3C1,$D9D0,$EFBF,$B3BD,$A1D3,$A3CE,$AABC,
                  $F4C0,$ACCD,$F5B5,$C2CD,$F5D3,$2020,$F7B8,$F2CF,$FBC3,$CFBA,
                  $D4B3,$F3BA,$BADF,$B8DF,$F2D2,$D8BB,$EEE0,$DADB,$D8B5,$DAD4,
                  $E7B9,$D8DB,$DDDB,$D7DB,$EDD9,$E0B6,$C4D2,$E4BF,$FDCD,$E9BC,
                  $FAE5,$C3BA,$FDCB,$E7C8,$F9E5,$D6D7,$E6B4,$EED3,$D8CA,$ACD5,
                  $B2B0,$C2CB,$E2BC,$D9D2,$DDD6,$ABB7,$A2B2,$EAC4,$BDCA,$DAB3,
                  $A6C3,$E2E2,$D6C8,$E7D0,$F9CA,$C9B3,$DBBF,$B8BF,$D0CD,$D5CA,
                  $E7D4,$BCD6,$AED1,$F1D0,$FAC7,$B7D2,$D0D3,$E0D0,$D3C6,$ECD6,
                  $E4B6,$CEB4,$CBB4,$C0CB,$CAC4,$EAC8,$B9BA,$DBCE,$ADBD,$D8B3,
                  $ABCF,$C7C9,$DBCE,$B4D1,$2020,$2020,$D2BB,$B2C4,$F2EA,$D9B0,
                  $F1D6,$D7C3,$F9E6,$BEF3,$F2D1,$F0D3,$CFC0,$BCBF,$F8B6,$E7F1,
                  $FAB6,$B2ED,$E2C8,$DFC0,$A1BC,$BCB3,$D4D7,$C1D6,$CABE,$E0C9,
                  $B6E2,$DBD6,$DEF4,$ABC9,$ACB0,$E6B3,$AAD1,$D0D0,$C2D2,$F7CE,
                  $E4DA,$AEB4,$E0BA,$BBCE,$A1D7,$F9D8,$A2D9,$FAD8,$E9B0,$F0B7,
                  $CEBA,$C0B9,$F4D7,$D3D3,$A4D9,$C5CB,$ECC9,$E8B5,$BCD5,$C6CB,
                  $ABB5,$B6D3,$F7D7,$E3C4,$AEB2,$CDB5,$E6C1,$E0D3,$FED8,$BCB2,
                  $FDD8,$D2B6,$CBBF,$E2C3,$F8B1,$B1D2,$E4C0,$F0B1,$D0C5,$FBC0,
                  $BEC9,$D9C5,$D9BD,$FAD6,$ACC5,$BEDB,$BBCF,$B4BC,$D1C2,$DFC1,
                  $D4BF,$CCCD,$E1CE,$F1B7,$2020,$C9B0,$F4B4,$C0DF,$E2CE,$CAB3,
                  $C0C2,$FDBE,$D4B7,$E6B8,$B5B4,$C7CE,$FCCE,$B1CB,$B3B3,$C5C4,
                  $CDB7,$F0BA,$BDD1,$A8D6,$ACBA,$F7D2,$FDCC,$D1B4,$A7C0,$DAB6,
                  $F1E0,$BBB7,$D3BF,$B7D6,$AECC,$F9BE,$B2BF,$F8BB,$F8D7,$B5BB,
                  $DFDB,$B3D7,$D0BC,$B1D7,$CAB6,$C1B7,$A4E6,$FEE5,$EEC3,$FDD1,
                  $FBE5,$A5E6,$CBBC,$D1C8,$D7CD,$A2D0,$CED7,$DAE6,$C3D8,$EACD,
                  $CECB,$EABA,$CEDE,$D6BE,$A8C6,$F2C4,$B2CE,$AAE1,$AFE1,$EDB2,
                  $A7E1,$D7CE,$A3CF,$F2D0,$D3B1,$B2B4,$A2CD,$AAC5,$DCB5,$C0EB,
                  $CED0,$DDE1,$DBD2,$FCCD,$C9BC,$BED6,$CCC8,$C0B3,$ECBF,$EEE2,
                  $ECE2,$E4BD,$D2CE,$ADB3,$B9BF,$B6B6,$BCBC,$F6B7,$F1BE,$A4C5,
                  $D1B0,$F3B6,$D2D5,$FAC5,$E2B0,$E3CA,$B6B3,$DBD5,$E7B0,$B6CD,
                  $A5D7,$D6D2,$2020,$C4B8,$A5B9,$FCD8,$B5BA,$FCB8,$F8CA,$EEC0,
                  $D3D0,$C4B2,$E5B4,$C5B6,$C8D5,$BDE8,$BCC9,$CBB8,$DCB8,$BCE8,
                  $2020,$BDB2,$BFC3,$F3C7,$AFB9,$B3C9,$DFC7,$F2C9,$C1B3,$E4E3,
                  $E6C5,$F4CD,$F6BE,$E5E3,$ADCC,$E7E3,$E9E3,$E5B3,$BBC3,$FBC6,
                  $D6CE,$B3BC,$DAB7,$EAE3,$ECE3,$EBE3,$A1E4,$E6E3,$2020,$CAD2,
                  $EED4,$C6D7,$D6D4,$C4BE,$CEC0,$B5C4,$FCCB,$D2B5,$F1BF,$C1BE,
                  $AEF0,$A6B8,$D0C4,$E9B5,$EDD4,$A2B6,$D3D2,$BDCB,$E3D0,$BACD,
                  $BFBE,$B5CF,$B1BA,$A4D0,$C1EB,$CEB8,$E2D6,$D8B8,$C7B6,$FDD3,
                  $BCC1,$A2C3,$F3D3,$D6C9,$FBBC,$C7BD,$D4D1,$C8B9,$B9B6,$B9F5,
                  $B4B1,$E0B3,$DFD7,$E3D7,$EDC9,$B5B3,$C1D0,$BDB3,$D8D3,$C6E5,
                  $B8D1,$F9C6,$B2D1,$D8D2,$CFD0,$B0D0,$EEB0,$C7C4,$CFD3,$C9B2,
                  $EFC0,$C0B7,$EEC8,$E5DA,$E0DB,$2020,$A2B2,$D4B9,$E9C8,$C2CA,
                  $A9D0,$C7D1,$EDCF,$A9BE,$F0D1,$C0D2,$CCCA,$D1BC,$B9CA,$D0C0,
                  $A9B9,$FDC0,$B4C0,$A9D9,$DBB0,$A2B2,$DEB3,$E5C5,$ACD9,$D8C2,
                  $ABD9,$AAD9,$A7D9,$2020,$C3CD,$F9B6,$EED9,$BDC1,$DFBE,$E4C6,
                  $E4B5,$FDD9,$AFBA,$CCBF,$AFC8,$A2CB,$CCB4,$BDB5,$CEB9,$C6D6,
                  $E7B6,$C0DB,$2020,$E4D7,$ADD0,$BFD7,$B0B1,$D4D8,$EDBE,$B6D0,
                  $F4D0,$A1C8,$E5CA,$DCCA,$B6CE,$C7BA,$A7BF,$DEC5,$BEB9,$D7BE,
                  $EBC9,$C8DF,$CDDF,$E4D6,$D8C5,$F4BA,$C0B8,$C9DF,$CEDF,$CDBA,
                  $CBDF,$D8C4,$DCD6,$A6D5,$FCC3,$CCBE,$CCB9,$ACC0,$C0BF,$BAC6,
                  $E1DB,$C2C6,$B9CC,$A4C0,$E5DB,$B9D2,$EEB7,$E6C6,$CEC4,$D9D1,
                  $BCB1,$AAE6,$DEC6,$AFCE,$C3C3,$DDC4,$C3B9,$B7C4,$E3BD,$A9E6,
                  $BCCA,$D5D0,$A2E6,$A8E6,$CCC4,$A6E6,$2020,$CFC3,$C2B9,$BEBC,
                  $DAD7,$A8B6,$D9B9,$CBD2,$E6D6,$F0CD,$D0C9,$FCC7,$D3BE,$ECBD,
                  $BAE1,$D4B8,$B6B0,$D2D1,$B6E1,$B7E1,$C0D4,$B1C1,$E3D6,$FBCC,
                  $C1C5,$AFB2,$FBE0,$D2D0,$FDB8,$EAB5,$AEB8,$D7B5,$D2E2,$D3D1,
                  $D2CF,$A1BB,$F3E5,$F9CD,$F7D5,$F0B7,$CBB1,$C3E3,$D2D6,$F6BA,
                  $EEC4,$DEB7,$F3E2,$FAD5,$D3C7,$F0E2,$C0B2,$D6B9,$C2C5,$F9E2,
                  $D4D0,$F5E2,$F6E2,$F2E2,$F2BB,$DEE3,$BFB7,$E5EC,$F9CB,$D0B3,
                  $ADC0,$E8B0,$F4D6,$F2C3,$F7B7,$A8C4,$DCBE,$D0D5,$FBC5,$D8CD,
                  $A6B2,$D7C5,$E9C4,$EAC5,$E9B3,$BAD1,$D5B9,$BED7,$B4C4,$C4C5,
                  $D6B5,$D5DE,$A7B1,$D0BE,$CFCD,$D6DE,$F0B2,$A7CC,$E0C1,$C5B7,
                  $ABB8,$B6EC,$FACD,$F4CE,$D7D2,$FDB2,$A5C0,$BAB0,$F7C3,$C0EA,
                  $E8BB,$BFEA,$BBEA,$FDC9,$FEB7,$F3C5,$BCBA,$CAE8,$EDD5,$ABB6,
                  $FBB9,$C3E8,$CBE8,$C1E8,$A6D6,$D6C1,$ADB1,$DCBD,$E5B0,$F7CD,
                  $C9CB,$F6CE,$C6E8,$B6C3,$2020,$CCE8,$C2E8,$BDEA,$C0D0,$E4CE,
                  $E7C6,$E2E9,$A5C3,$D5B7,$FCC6,$A2D7,$BED3,$FBE3,$DAC3,$E0C4,