home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 3
/
FREEWARE.BIN
/
fb386
/
font
/
font.bas
Wrap
BASIC Source File
|
1980-01-02
|
1KB
|
27 lines
10 '★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
20 '★ ★
30 '★ 漢字フォント表示プログラム Version 1.0 ★
40 '★ ★
50 '★ H.Ishihara at 1989 4/18 ★
60 '★ ★
70 '★ 実行する前に、システムCDをセットして下さい。 ★
80 '★ ★
90 '★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
100 DIM FD&(24),T$(4):CLS:CN=0:N$=CHR$(0)
110 BEEP:PRINT "0 : ゴチック":T$(0)="\FJ\FNT\GOTH\GOTH24.FNT"
120 PRINT "1 : 教科書体":T$(1)="\FJ\FNT\KYOU\KYOU24.FNT"
130 PRINT "2 : 丸文字 ":T$(2)="\FJ\FNT\MARU\MARU24.FNT"
140 PRINT "3 : 明朝体 ":T$(3)="\FJ\FNT\MINN\MINN24.FNT":PRINT
150 INPUT "表示する書体を指定して下さい.",L%:IF L%<0 OR L%>3 THEN 110
160 OPEN "I",#1,"Q:"+T$(L%):CLS:F$=INPUT$(16,#1)
170 F$=INPUT$(2,#1):F$=INPUT$(72,#1)
180 IF CN<383 THEN CN=CN+1 ELSE CN=0
190 XC%=(CN MOD 24)*26:YC%=(CN \ 24)*30
200 LINE (XC%,YC%)-(XC%+23,YC%+23),PRESET,,BF
210 FOR L%=0 TO 23
220 FD&(L%)=CVL(N$+MID$(F$,3,1)+MID$(F$,2,1)+MID$(F$,1,1))
230 F$=MID$(F$,4,74)
240 NEXT L%
250 PUT@ (XC%,YC%)-(XC%+31,YC%+23),FD&:IF NOT EOF(1) THEN 170
260 CLOSE #1:END