プチコンでフォント変更

プチコンホームページの SHADOW FONT  に刺激されて作成。
（というかつくってみたらプログラムが同じことに。。。）

太字、イタリック体。記号は見にくい...

※元に戻すときは、R+左+START

---PRG:COLORFNT

CHRINIT "BGF0"
CL$="FCC88888"
IT$="22111000"
CLS

FOR C=0 TO 255
 LOCATE 0,0:PRINT 255-C;"   ";
 CHRREAD("BGF0",C),C$

 N$=""
 FOR I=0 TO 7
  F$=""
  FOR J=0 TO 7
   T$=MID$(C$,I*8+J,1):E$=T$
   IF T$=="F" THEN E$=MID$(CL$,I,1):F$=""
   'BOLD
   IF T$=="F" AND J<7 THEN F$=E$
   IF T$!="F" AND F$!="" THEN E$=F$:F$=""
   '
   D$=D$+E$
  NEXT
  'ITALIC 
  K=VAL(MID$(IT$,I,1))
  IF K>0 THEN FOR L=1 TO K:D$="0"+D$:NEXT
  D$=MID$(D$,0,8)
  N$=N$+D$
  '
  D$=""
 NEXT

 CHRSET "BGF0",C,N$
NEXT

---
修正
http://ktstg.blog.shinobi.jp/Date/20110326/1/　より
---
IF T$=="F" AND F$!="" THEN E$=F$:F$=""の部分を
IF T$!="F" AND F$!="" THEN E$=F$:F$=""に

J=VAL(MID$(IT$,I,1))の部分を
K=VAL(MID$(IT$,I,1))に
---
ってまさにその通りで誤植でした。ソース直しました。