*begin
; ver 0.0.3
#include "hspda.as"
pos 210,0
sdim a_data,1700
repeat 40
repeat 40
a_data+="0"
loop
loop
poke a_data,0,'1'
poke a_data,1,'2'
poke a_data,2,'3'
poke a_data,40,'4'
poke a_data,80,'5'
poke a_data,120,'6'
sdim the_data,2000
the_data+=" "
repeat 40
the_data+=str(cnt\10)
loop
the_data+="\n"
repeat 40
n=cnt
the_data+=strf("%02d:",cnt)
repeat 40
nn=cnt
the_data+=strmid(a_data,(n*40+nn),1)
loop
the_data+="\n"
loop
mesbox the_data,400,400,5
ID4mesbox=stat
pos 0,0
n4input_one_loc=0
n4input_one_val=0
mes "loc"
input n4input_one_loc,200,20,4
ID4input_one_loc=stat
mes "val"
input n4input_one_val,200,20,4
ID4input_one_val=stat
objsize 200,20
button "do one",*l_do_one
n4input_xy_loc_x=0
n4input_xy_loc_y=0
n4input_xy_val=0
mes "loc x"
input n4input_xy_loc_x,200,20,2
ID4input_xy_loc_x=stat
mes "loc y"
input n4input_xy_loc_y,200,20,2
ID4input_xy_loc_y=stat
mes "val"
input n4input_xy_val,200,20,2
ID4input_xy_val=stat
button "do xy",*l_do_xy
button "do redraw",*l_redraw_mb
button "vsave",*do_vsave
button "vload",*do_vload
screen 1,640,480
sdim IN_OUT_MB,1610
IN_OUT_MB=""
mesbox IN_OUT_MB,640,380
ID4IN_OUT_MB=stat
objsize 200,20
button "data in",*l_do_din
button "data out",*l_do_dout
button "bsave",*l_do_bsave
button "bload",*l_do_bload
DO_FILE="hoge.dat"
input DO_FILE,200,20
ID4DO_FILE=stat
gsel 0
stop
*l_do_bload
dialog "bloadしますか？",2
if stat==7:stop
exist DO_FILE
tmp_bout=strsize
if tmp_bout>1600:tmp_bout=1600
bload DO_FILE,IN_OUT_MB,tmp_bout
// size 1600以下の読み込みTESTしてないｗ
gsel 1
objprm ID4IN_OUT_MB,IN_OUT_MB
gsel 0
stop
*l_do_bsave
dialog "bsaveしますか？",2
if stat==7:stop
tmp_din=""
repeat 1600
tmp_din+="0"
loop
tmp_din=IN_OUT_MB+tmp_din
tmp_din=strmid(tmp_din,0,1600)
bsave DO_FILE,tmp_din,1600
stop
*l_do_din
tmp_din=""
repeat 1600
tmp_din+="0"
loop
tmp_din=IN_OUT_MB+tmp_din
tmp_din=strmid(tmp_din,0,1600)
gsel 0
a_data=tmp_din
goto *l_redraw_mb
stop
*l_do_dout
gsel 1
IN_OUT_MB=a_data
objprm ID4IN_OUT_MB,IN_OUT_MB
gsel 0
stop
*tmp
stop
*l_do_xy
tmp_xy=n4input_xy_loc_y*40+n4input_xy_loc_x
n4input_one_loc=tmp_xy
objprm ID4input_one_loc,n4input_one_loc
n4input_one_val=n4input_xy_val
objprm ID4input_one_val,n4input_one_val
goto *l_do_one
*l_do_one
tmp_loc=n4input_one_loc
tmp_val=n4input_one_val
tmp_val\=16
tmp_char=strf("%01x",tmp_val)
if tmp_loc >= 1601:tmp_loc=1601
poke a_data,tmp_loc,peek(tmp_char,0)
goto *l_redraw_mb
stop
*l_redraw_mb
sdim the_data,2000
the_data+=" "
repeat 40
the_data+=str(cnt\10)
loop
the_data+="\n"
repeat 40
n=cnt
the_data+=strf("%02d:",cnt)
repeat 40
nn=cnt
the_data+=strmid(a_data,(n*40+nn),1)
loop
the_data+="\n"
loop
objprm ID4mesbox,the_data
stop
*do_vsave
dialog "vsaveしますか？",2
if stat==7:stop
vsave "tmp_FILE.dat"
stop
*do_vload
dialog "vloadしますか？",2
if stat==7:stop
vload "tmp_FILE.dat"
goto *l_redraw_mb
stop
; ver 0.0.1 初稿
; ver0.0.2
; mesboxからバイナリ入力取得 実装
; ver0.0.3
; FILE読み込み実装
Skin "GS2" is designed by yiza.
Powered by PHP 7.1.33. HTML convert time: 0.005 sec.