Contents of file named text

message "Fee fie foe fum" "I smell the blood of an Englishman"
message "What should I do now?"

* Ask for response and validate
setbb ok no                            ;* Sets value of bb var ok
while %ok% EQ no                       ;* Tests value of bb var ok
   setbb ans "_(reply 'respond kill or pause:')"  ;* Prompt, read
   if "%ans%" EQ _kill
      setbb ok yes
   elseif "%ans%" EQ _pause
      setbb ok yes
   else
      message "Invalid response"
   endif
enddo

* Act on response
if "%ans%" EQ _kill
   message "OK, quitting ..."         ;* Macro will terminate
   $KILL
endif
if "%ans%" EQ _pause
   message "Type @$RESUME to resume"  ;* Macro will be suspended
   $TERMINAL
   message "Resuming macro ..."       ;* Resumed at this point
endif
message "If he is alive or if he is dead"
message "I'll crush his bones to make my bread"