home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Fax / AFAX1431.LHA / AmigaFax / s / SetLastFax < prev    next >
Encoding:
Text File  |  1993-05-26  |  523 b   |  21 lines
  1. ; Afax:s/SetLastFax
  2. ; Script sets local variable lastfax to name of last fax received
  3. ;
  4. if exists FAXREC:.next
  5.   set num `type FAXREC:.next`
  6.   set num `eval $num - 1`
  7.   set lastfax FAXREC:FAX$num
  8.   if not exists $lastfax
  9.     set lastfax FAXREC:FAX0$num
  10.       if not exists $lastfax
  11.         set lastfax FAXREC:FAX00$num
  12.           if not exists $lastfax
  13.             set lastfax FAXREC:FAX000$num
  14.               if not exists $lastfax
  15.                 unset lastfax
  16.               endif
  17.           endif
  18.       endif
  19.   endif
  20. endif
  21.