home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FreeWare Collection 2
/
FreeSoftwareCollection2pd199x-jp.img
/
fbasic
/
font
/
font.bas
next >
Wrap
BASIC Source File
|
1990-06-14
|
1KB
|
25 lines
100 '★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
110 '★ ★
120 '★ 漢字フォント表示プログラム Version 1.0 ★
130 '★ ★
140 '★ H.Ishihara at 1989 4/18 ★
150 '★ ★
160 '★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
170 DIM FD&(24),T$(4):CLS:CN=0:N$=CHR$(0)
180 BEEP:PRINT "0 : ゴチック":T$(0)="\FJ\FNT\GOTH\GOTH24.FNT"
190 PRINT "1 : 教科書体":T$(1)="\FJ\FNT\KYOU\KYOU24.FNT"
200 PRINT "2 : 丸文字 ":T$(2)="\FJ\FNT\MARU\MARU24.FNT"
210 PRINT "3 : 明朝体 ":T$(3)="\FJ\FNT\MINN\MINN24.FNT":PRINT
220 INPUT "表示する書体を指定して下さい.",L%:IF L%<0 OR L%>3 THEN 180
230 OPEN "I",#1,"Q:"+T$(L%):CLS:F$=INPUT$(16,#1)
240 F$=INPUT$(2,#1):F$=INPUT$(72,#1)
250 IF CN<383 THEN CN=CN+1 ELSE CN=0
260 XC%=(CN MOD 24)*26:YC%=(CN \ 24)*30
270 LINE (XC%,YC%)-(XC%+23,YC%+23),PRESET,,BF
280 FOR L%=0 TO 23
290 FD&(L%)=CVL(N$+MID$(F$,3,1)+MID$(F$,2,1)+MID$(F$,1,1))
300 F$=MID$(F$,4,74)
310 NEXT L%
320 PUT@ (XC%,YC%)-(XC%+31,YC%+23),FD&:IF NOT EOF(1) THEN 240
330 CLOSE #1:END