>「○○が実行されている時、△△を実行させる」
これかい?
//※注意※
//このプログラムは、『実行してもすぐには画面に何も表示されません。』
//
//※使用方法※
//電卓を起動すると画面が見えます。
//(新しくまっさらなメモ帳を起動してください。)
//
//※終了方法※
//電卓を起動している間のみ表示される、左上の画面をクリック
#include "hspext.as"
//二重起動されていないか確かめる
onclick goto*APL_ONCLICK
title ""
aplsel "TEST",0
if stat=0:end
await 1
title "TEST"
screen 0,150,60
dialog "OKを押した後、すぐに電卓を起動してください。",1,"注意書き"
*APL_OFFSTART
gsel 0,-1
*APL_OFFLOOP
aplsel "電卓",0
if stat=0:goto *APL_ONSTART
wait 5:goto *APL_OFFLOOP
*APL_ONSTART
//処理開始
sec=0:ref=gettime(6)
gsel 0,2
*APL_ONLOOP
//電卓が生きているか調査
aplsel "電卓",0:if stat=1:goto *APL_OFFSTART
//秒経過の調査
if ref!gettime(6):sec+:ref=gettime(6)
redraw 0
color 0,0,0:boxf
color 255,255,255:pos 1,1
mes"電卓起動し "+sec+"秒\n この黒い部分を\n クリックで終了"
redraw 1
wait 5:goto *APL_ONLOOP
*APL_ONCLICK
dialog "プログラムを終了します。",2,"終了確認"
if stat=7:goto *APL_ONLOOP//終了回避しループに戻る
end