home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Fax / AVMN199D.LHA / avminstall / rexx / efaxview.avm < prev    next >
Encoding:
Text File  |  1995-04-10  |  1.3 KB  |  55 lines
  1. /* efax viewer */
  2. parse arg filename .
  3.  
  4. base = filename || '.'
  5.  
  6. do i = 1 to 999
  7.   if ~exists(base || right(i, 3, '0')) then break
  8. end
  9.  
  10. lastPage = i - 1
  11. currentPage = 1
  12.  
  13. /* extract filename base */
  14. /*
  15. lcolon = lastpos(':', filename)
  16. lslash = lastpos('/', filename)
  17. if lcolon > lslash then last = lcolon
  18. else last = lslash
  19. last = last
  20.  
  21. faxFileName = right(filename, length(filename) - last)
  22. */
  23.  
  24. address command 'avm:avmfaxview' filename lastPage
  25.  
  26. /*
  27. do forever
  28.   address command 'avm:gnu/fax2iff' '-o faxtemp:' || faxFileName || '.' || right(currentPage, 3, '0') base || right(currentPage, 3, '0')
  29.   if rc = 0 then do
  30.     do forever
  31.       address command 'avm:avmfaxview faxtemp:' || faxFileName || '.' || right(currentPage, 3, '0') currentPage lastPage
  32.       retVal = rc
  33.       if retVal ~= 3 then break
  34.     end
  35.  
  36.     call delete('faxtemp:' || faxFileName || '.' || right(currentPage, 3, '0'))
  37.     if retVal = 1 then do
  38.       currentPage = currentPage - 1
  39.       if currentPage < 1 then currentPage = 1
  40.     end; else if retVal = 2 then do
  41.       currentPage = currentPage + 1
  42.     end; else if retVal = 0 then do
  43.       signal done
  44.     end; else do
  45.       currentPage = currentPage + 1
  46.     end
  47.   end; else do
  48.     currentPage = currentPage + 1
  49.   end
  50.  
  51.   if currentPage > lastPage then signal done
  52. end
  53.  
  54. done:
  55. */