Subject: Big5 codes

From: David Steelman <[email-masked]>
Date: Tue, 23 Nov 1993 11:47:37 EST

Here is a Qbasic routine for printing out all of the codes. When you
read the resultant file under a Chinese system, it will show all of the
characters used. Presumably you could use the same text for any
codes.
-----------------------------------------------------
 OPEN "e:\big5.txt" FOR OUTPUT AS #1
start = TIMER
LET a = 164                        'start at 161 for symbols and punctuation
LET b = 65

CLS
PRINT "PROCESSING"
FOR cnt% = 1 TO 92   'change to 95 if a starts at 161
b = 65
        FOR count% = 1 TO 59 'change to 61 and rem out next 3 lines for special
                IF a < 198 OR a > 200 THEN GOTO 10  'skip
                IF a = 198 AND b = 160 THEN a = 201
                IF a = 199 OR a = 200 THEN a = 201
10              b = b + 1
                PRINT #1, CHR$(a);
                PRINT #1, CHR$(b);
                'PRINT CHR$(a);
                'PRINT CHR$(b)
        NEXT count%
        b = b + 34

        FOR count% = 1 TO 94
                b = b + 1
                PRINT #1, CHR$(a);
                PRINT #1, CHR$(b);
                'PRINT CHR$(a);
                'PRINT CHR$(b)
        NEXT count%

        a = a + 1
NEXT cnt%
finish = TIMER
PRINT "Processing time: "; (finish - start); " sec."
CLOSE
END