Обсуждение участника:Squork/Unicode table

OPEN "e:\download\unicode.txt" FOR OUTPUT AS #1
FOR aext = 0 TO 254 STEP 2
 PRINT #1, "{| border=0"
 PRINT #1, " !";
 FOR i = 1 TO 2
  FOR j = 0 TO 15
   PRINT #1, "|| " + HEX$(j) + " ";
  NEXT
  PRINT #1, " ||";
 NEXT
 PRINT #1,
 PRINT #1, " |-"
 FOR B = 0 TO 15
  FOR A = aext TO aext + 1
   PRINT #1,
   PRINT #1, " ! ";
   IF A < 16 THEN PRINT #1, "0";
   PRINT #1, HEX$(A) + HEX$(B) + "0 "
   FOR C = 0 TO 15
    IF C = 0 THEN PRINT #1, " |";  ELSE PRINT #1, "||";
    IF A = 0 AND B < 2 THEN
     PRINT #1, " ";
    ELSE
     PRINT #1, " &#x" + HEX$(A) + HEX$(B) + HEX$(C) + "; ";
    END IF
   NEXT
  NEXT
  PRINT #1,
  PRINT #1, " |-"
 NEXT
 PRINT #1, " |}"
NEXT
CLOSE