Annotation 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	james	16	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