DIM u% &10000 * 2

REM default char is '·'
FOR a% = &0000 TO &ffff
  PROCSet(a%, 0, ASC"·")
NEXT

f% = OPENIN"table"

WHILE NOT EOF#f%
  l$ = GET$#f%
  IF l$ <> "" AND LEFT$(l$,1) <> "#" THEN
    uni% = EVAL("&"+LEFT$(l$, 4))
    font% = EVAL(MID$(l$,6,1))
    char% = EVAL("&"+RIGHT$(l$, 2))
    PROCSet(uni%, font%, char%)
  ENDIF
ENDWHILE

CLOSE#f%

SYS"OS_File", 10, "Data", &ffd,, u%, u% + &10000 * 2

END




DEF PROCSet(uni%, font%, char%)
u%?uni% = font%
u%?(65536+uni%) = char%
ENDPROC
