数年前に作ったと思われるバイナリエディタもどき
コメントをいれてないので、参考程度にど〜ぞ
title "手抜きバイナリエディタw "+(16*20)+"bytesまでOK!"
dialog "*",16
if stat=0:end
fname=refstr:gsel 0,-1
sdim buf,16*20
bload fname,buf,16*20,0
s="":objsize 640/17,20
repeat 16
pos (640/17)*(cnt+1)+12,2
mes strf("%X",cnt)
loop
//2次配列変数を今回は使用してみます
sdim s,64,16,20:i=0
repeat 20
repeat 16
pos (640/17)*(cnt+1),20*(c+1)
tmp=peek(buf,i):i++
s.cnt.c=strf("%02X",tmp)
input s.cnt.c,,,2
loop
c++
loop
button "save",*save
gsel 0,1
stop
*save
i=0:c=0
repeat 20
repeat 16
//文字列の16進数を10進数に変換
tmp=int("$"+s.cnt.c)
poke buf,i,tmp
i++
loop
c++
loop
bsave fname+"_",buf //上書きが怖いので(^_^;)