008a.txt

*text_lb ;クリック待ち／改ページ待ちカーソルを表示 ispage %sys_ispage getcursorpos %x,%y if %sys_ispage == 0 amsp 0,%x,%y,255 if %sys_ispage == 1 amsp 0,%x,%y+2,255 vsp 0,1 *textbtnloop btndef clear textbtnwait %11 ;どこでもないところをクリック if %11 == 0 goto *end_textbtn ;右クリック if %11 == -1 vsp 0,0:gosub *systemmenu:vsp 0,1 ;上方向スクロール if %11 == -2 vsp 0,0:systemcall lookback:vsp 0,1:goto *textbtnloop ;下方向スクロール if %11 == -3 goto *end_textbtn goto *textbtnloop *end_textbtn ;ページクリアとカーソル非表示 texec vsp 0,0 print 1 ;改ページ(\)の時ボイスストップ if %sys_ispage == 1 dwavestop 0 saveon return
 * ――――――――――――――――――――テキストクリック待ちラベル