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