home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / disk / backup_utils / mrbackup1.5 / arexx_scripts / yesno.mrbk < prev   
Text File  |  1995-02-27  |  856b  |  44 lines
  1. /* yesno.mrbk */
  2. /* This simple ARexx program runs tests MRBackup's Yes/No requester. */
  3.  
  4. signal on ERROR
  5. signal on BREAK_C
  6.  
  7.  
  8. options results
  9. if ~(Show('P', 'MRBackup_#1')) then do
  10.     say "You must run MRBackup first. With a little work, you could"
  11.     say "get this ARexx script to do it for you."
  12.     exit 1
  13. end
  14.  
  15. address "MRBackup_#1"
  16.  
  17. poptofront
  18.  
  19. 'yesno "Are you having a good time?"'
  20. say result
  21. if result == "Yes" then 'notealert "I am very glad to hear that!"'
  22. else 'notealert "Sorry about that. I hope it isn''t my fault."'
  23.  
  24.  
  25. exit 0
  26.  
  27.  
  28. /*------------------------------------------------------------------*/
  29.  
  30. break_c:
  31.  
  32. say "*** Control-C recieved.  Stopped by user. ***"
  33. exit 5
  34.  
  35. /*------------------------------------------------------------------*/
  36.  
  37. error:
  38.  
  39. say "Error"
  40. exit 6
  41.  
  42. /*------------------------------------------------------------------*/
  43.  
  44.