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