/[james]/archive/guilib/create
ViewVC logotype

Contents of /archive/guilib/create

Parent Directory Parent Directory | Revision Log Revision Log


Revision 16 - (show annotations) (download)
Mon Feb 10 22:56:40 2003 UTC (21 years, 8 months ago) by james
File size: 495 byte(s)
Initial import.

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

  ViewVC Help
Powered by ViewVC 1.1.26