'■■■■■■■■■■■■■■■ '■ このソースコードは '■ ActiveBasic 2.62 '■ でコンパイルできます。 Dim A As WORD Dim B As WORD Dim i As Long Dim recode As Long Dim t As Long Dim C(72) As Byte Dim X As WORD Dim Y As WORD Dim x As WORD Dim y As WORD cls 3 fontName$="あずきフォント" fontName$="MS 明朝" Open "sjis.txt" For Append As 1 For B=129 to 252 if(B=133) then B=135 if(B=160) then B=224 if(B=239) then B=250 if(B=235) then B=237 'Write #1, Hex$(B) For A=64 to 255 'print A,B out$=out$+Chr$(B)+Chr$(A) 'print Asc(Mid$("あ",1,1)),Asc(Mid$("あ",2,1)) if A=63 Or A = 127 Or A=191 then Write #1, out$ TextOut 0,(t Mod 24)*24, out$,7,0,24,12,fontName$ t=t+1 out$="" end if Next A Write #1, out$ TextOut 0,(t Mod 24)*24, out$,7,0,24,12,fontName$ t=t+1 out$="" Next B Close #1 Sub a() EndSub