home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 103 / af103b.adf / ARexx / break.rexx next >
OS/2 REXX Batch file  |  1997-08-28  |  283b  |  21 lines
  1. /* break.rexx - a simple break trap example... */
  2.  
  3. signal on break_c /* cause a branch to my script's 
  4.                      own control-c handling routine */
  5. do i=1 to 40000
  6.  
  7.   say i
  8.  
  9. end
  10.  
  11. quit:
  12.  
  13. exit /* end of main program */
  14.  
  15. break_c: 
  16.  
  17. say 'user has hit control-c' 
  18.  
  19. signal quit
  20.  
  21.