Generate BIG5 character set all characters

PROGRAM GENBIG5CODE;

...

{$ Apptype console}

Uses sysutils; var i, j:

Byte

Mbig5file: TextFile; Begin Assignfile (Mbig5file,

'

C: Big5code.bin

'

ReWrite (mbig5file);

//

BIG5 character set range: High level $ A1 ~ $ Fe, the low is divided into two paragraphs: $ 40 ~ $ 7E, $ A1 ~ $ FE

for

i:

=

$ A1 to $ f

DO

Begin

for

J:

=

$

40

To $ 7e

DO

Write (Mbig5File, CHR (i), chr (j));

for

J:

=

$ A1 to $ f

DO

Write (Mbig5File, CHR (I), CHR (J)); End; Close (Mbig5File); END.