' data 文で定義したキャラクタを .d ファイルに変換するプログラム＆
' それを読み出してキャラクタにするプログラム
' プログラムはご自由に改変、お使い下さい
'
' ささお (http://ha6.seikyou.ne.jp/home/sasao/junk/)

screen 1,,256

'--------------------------------------------------------------------
filename$="cram:test.d"
chr_no = 2
gosub *chr_to_d: 'キャラクタデータを .dファイルにするサブルーチンへ

'--------------------------------------------------------------------
filename$="cram:test.d"
chr_no = 2
'filename$="cd:bgchr.d" : chr_no=8
'filename$="cd:wlchr.d" : chr_no=8
start_no = asc("a") : '文字 'a' から定義する
gosub *d_to_chr: '.dファイルを読み出してキャラクタにするサブルーチンへ

'--------------------------------------------------------------------

'▼ おまけ
print "bbbbbbbbbbbbbbbbbb"
print "baaaaaaaaaaaaaaaab"
print "baaaaaaaaaaaabbaab"
print "baaaaaaaaaaaabbaab"
print "bbbbbbbbbbbbbbbbbb"

end

'■ .dファイルを読み出してキャラクタにする
'■ 入力: filename$ <- 読み出すファイル名
'■       chr_no    <- 読み出すキャラクタの数
'■       start_no  <- 定義するキャラクタの開始番号
*d_to_chr

open filename$ for input as #1

for i=0 to chr_no-1
   fread #1,a$,64
   setchr 4,start_no+i,a$
next

close #1
return

'■ キャラクタデータを .dファイルに変換する
'■ 入力: filename$ <- 保存するファイル名
'■       chr_no    <- 定義するキャラクタの数
*chr_to_d

open filename$ for output as #1

for i=0 to chr_no-1
   a$=readhex$(64)
   fwrite #1,a$
next

close #1
return

'キャラクタ 0
data ffffffffffffffff
data ff000000000000ff
data ff000000000000ff
data ff000000000000ff
data ff000000000000ff
data ff000000000000ff
data ff000000000000ff
data ffffffffffffffff

'キャラクタ 1
data 8080808080808080
data 8080808080808040
data 8080808080804040
data 8080808080404040
data 8080808040404040
data 8080804040404040
data 8080404040404040
data 8040404040404040