12/03 2007 困難

パンストかぶってたら呼吸困難で病院へ。
しばらく自重フラグたった。

Const SHIBOU_FLG as boolean  = true

Function　sub Hitoshi(Byval Panst as Boolean) as Boolean

     Dim  flgJicho as Boolean

     if Panst then
          flgJicho
          msgbox "そんなものはない"
          goto Hospital
     end if

     hospital:
          Hitoshi = SHIBOU_FLG 
end function

まあ、これじゃどっちみち死亡フラグたってるわけですけどね。