Contents of /archive/guilib/create

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
1	DIM u% &10000 * 2
2
3	REM default char is '·'
4	FOR a% = &0000 TO &ffff
5	PROCSet(a%, 0, ASC"·")
6	NEXT
7
8	f% = OPENIN"table"
9
10	WHILE NOT EOF#f%
11	l$ = GET$#f%
12	IF l$ <> "" AND LEFT$(l$,1) <> "#" THEN
13	uni% = EVAL("&"+LEFT$(l$, 4))
14	font% = EVAL(MID$(l$,6,1))
15	char% = EVAL("&"+RIGHT$(l$, 2))
16	PROCSet(uni%, font%, char%)
17	ENDIF
18	ENDWHILE
19
20	CLOSE#f%
21
22	SYS"OS_File", 10, "Data", &ffd,, u%, u% + &10000 * 2
23
24	END
25
26
27
28
29	DEF PROCSet(uni%, font%, char%)
30	u%?uni% = font%
31	u%?(65536+uni%) = char%
32	ENDPROC