(サンプルなので下記のスクリプトは全く意味が無いです)
かなり時間がかかってしまいます。
フリーズ防止のためにwait 1を入れていますがそれを抜いてもかなり遅いです。
この処理を高速化するにはどうすればいいでしょうか。
あるていど大きなファイルを読み込むことを想定しています。
dialog "*.*",16 filename=refstr exist filename mysize=strsize sdim ma,mysize bload filename,ma dim a,256 repeat 256:a(cnt)=cnt:loop repeat mysize poke ma,cnt,a(peek(ma,cnt)) wait 1 redraw 0 color 255,255,255:boxf:pos 0,0 color:mes ""+(double(cnt)/mysize*100)+"%" redraw 1 loop stop