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

Annotation of /archive/guilib/create

Parent Directory Parent Directory | Revision Log Revision Log


Revision 16 - (hide 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 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

  ViewVC Help
Powered by ViewVC 1.1.26