Обсуждение участника:Squork/Unicode table
Перейти к навигации
Перейти к поиску
OPEN "e:\download\unicode.txt" FOR OUTPUT AS #1FOR 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, " |}"NEXTCLOSE