home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / dev / misc / FetchRefs1.3.lha / FetchRefs1.3 / Scripts / FetchQuit.amitex next >
Encoding:
Text File  |  1997-02-15  |  368 b   |  19 lines
  1. /*   $VER: FetchQuit.amitex 1.0 (Samedi 15 Février 1997)
  2. **
  3. **   Script ARexx pour quitter FetchRefs.
  4. */
  5.  
  6. signal on syntax
  7.  
  8. if show(p, "FETCHREFS") then do
  9.     ADDRESS 'FETCHREFS'
  10.     FR_QUIT
  11. end
  12. exit
  13.  
  14. /* Traitement des erreurs, interruption du programme */
  15. syntax:
  16. erreur=RC
  17. 'MESSAGE("Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  18. exit
  19.