; メモリノートパッド命令テスト2 ; 選んだファイルをメッセージボックスに表示。 ; (32000バイトを越える大きなファイルはロードできません) alloc a,32000 alloc tmem,32000 tmem="" fname="" ; dirlist a,"*.*" sel=0 objsize 160,24 listbox sel,150,a ; ID=0 button "SELECT",*ok ; ID=1 pos 180,0 mesbox tmem,450,200 ; ID=2 stop *ok notesel a noteget fname,sel exist fname if (strsize=0)or(strsize>32000) : goto *lderr bload fname,tmem objprm 2,tmem stop *lderr dialog "LOAD ERROR!" stop