home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / DAT-WW5C.DMS / in.adf / Archive / WwRexx.lha / Print_File.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-02-09  |  524 b   |  41 lines
  1. /*    Print_File
  2.  
  3.         Prints selected file.
  4.  
  5.         Digita ARexx Script for Wordworth 5
  6.         Copyright ©1996, Digita International Ltd.
  7.         
  8.         Created: 19 January 1996
  9.         Author:  MJ
  10. */
  11.  
  12.  
  13. OPTIONS RESULTS
  14.  
  15.  
  16. Finished = 0
  17. DO While Finished = 0
  18.  
  19.     RequestFile TITLE "Select File to Print"
  20.     File = Result
  21.  
  22.     IF (RC > 0) THEN
  23.         Exit
  24.  
  25.     OldPort = Address()
  26.  
  27.     New
  28.     Address Value Result
  29.  
  30.     Open FILENAME File
  31.  
  32.     Print
  33.     Close FORCE
  34.  
  35.     Address Value OldPort
  36.  
  37.     RequestResponse PROMPT "Do you wish to print another file?"
  38.     IF (RC > 0) THEN
  39.         Finished = 1
  40. END
  41.