［資料４］
アンケート調査用スタックの
主要なスクリプト

（１）スタックのスクリプト

on openCard
  put number of this card &"/"& number of cards into field "page"
end openCard
---------------
on openStack
  set the textArrows to false
end openStack

（２）バックグラウンドカードのスクリプト

on openCard
  repeat with n=3 to number of  background buttons
    get field n
    if it  is not empty then
      show bkgnd button n
    else
      hide bkgnd button n
    end if
  end repeat  
  pass openCard
end openCard
---------------------
on selected itemNum
  put itemNum + 2 into buttonNum
  clearOtherButton buttonNum
  set the hilite of  bkgnd button buttonNum to true
  put itemNum into field "回答"
end selected
--------------------
on clearOtherButton num
  repeat with n=3 to number of  background buttons
    if  n is not  num  then
      set the hilite of  bkgnd button n to false
    end if
  end repeat
end clearOtherButton

（３）バックグラウンドボタンのスクリプト

on mouseUp
  selected 1
end mouseUp