home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDGE1_704.DMS / in.adf / Edge_Rexx.lha / Menu_PlayNDefMac.edge < prev    next >
Encoding:
Text File  |  1993-10-27  |  869 b   |  44 lines
  1. /*
  2. ** $VER: Menu_PlayNDefMac.edge 1.0 (Friday 22-Oct-93 12:55:22)
  3. **
  4. ** Playback the default macro N' times, upto 65535 times
  5. **
  6. ** Written by Thomas liljetoft & Inovatronics
  7. */
  8.  
  9. options results
  10.  
  11. /* check to see if it exists */
  12. if exists('ram:edge.macro') then do
  13.     
  14.     /* clear out the control-c flag */
  15.     checkabort
  16.         
  17.     /* ask the user how many times to replay the macro */
  18.     'requestnumber showlimits title "How many times" default 10 min 1 max 65535'
  19.     if rc==0 then do
  20.         
  21.         /* save off the count */
  22.         top=result
  23.         
  24.         /* put edge to sleep */
  25.         disableuser
  26.         
  27.         /* loop N times */
  28.         do n=1 to top
  29.             'ram:edge.macro'
  30.             if rc~=0 then leave
  31.             
  32.             /* check to see if the user want's to give up yet */
  33.             checkabort
  34.             if rc~=0 then leave
  35.         end
  36.         
  37.         /* wake edge back up */
  38.         enableuser
  39.     end
  40. end
  41.  
  42. /* if not then complain */
  43. else 'requestnotify "There is no default macro."'
  44.