/*
------------------------------------------------------------
 requester.rexx

 This script demonstrates the purpose of "m_request"-command

 Copyright ©1996 WK-Artworks
------------------------------------------------------------
*/

if ~show('P','Wildfire') then do
 say " Error: The Wildfire-program must be started before executing this script."
 exit
end

address 'Wildfire'
options results

m_request "Do you really wan't to continue this stupid operation ?"
tt=result
if tt=1 then do
 m_message "This was the better choice."
 exit
end

do loop=1 to 10
 msg="Message " || loop || " of 10"
 m_message msg
end