home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / viewer / hf-pv204.lha / PicView20 / PicViewAddOne.lha / Rexx / MakeCopy.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-07-30  |  1.6 KB  |  68 lines
  1. /*********************************************************/
  2. /* MakeCopy.rexx        $VER: 1.2 (1.8.96)  for PicView  */
  3. /* (C) 1996 Maik Solf            solf@madhouse.boerde.de */
  4. /* Im collecting handdrawn pictures, contact me 2 swap   */
  5. /*********************************************************/
  6.  
  7. OPTIONS RESULTS
  8. ADDRESS 'PICVIEW.1'
  9.  
  10. /* open rexxreqtools.library */
  11. IF ~SHOW('L',"rexxreqtools.library") THEN
  12.    IF ~ADDLIB("rexxreqtools.library", 0, -30, 0) THEN
  13.       EXIT 10
  14.  
  15. /* User-Options */
  16. YourName='solf@madhouse.boerde.de (Maik Solf)'
  17. DefDir='RAM:'                               /* for copy-file */
  18. OutDir='TEMP:'                              /* copy ... TO OutDir */
  19. Titel=';Pictures for' YourName
  20.  
  21. /* number of pictures */
  22. getentries
  23. Number=RESULT
  24. IF Number=0 THEN DO
  25.    rtezrequest('No pictures in current catalog.' , , 'MakeCopy.rexx' )
  26.    EXIT 5
  27. END
  28.  
  29. /* get filename */
  30. Filename=rtfilerequest(DefDir, , "Select File" , , , )
  31. IF rtresult==0 THEN DO
  32.    CALL rtezrequest('You didnt pick a file.' , , 'MakeCopy.rexx' )
  33.    EXIT 20
  34. END
  35.  
  36. /* open file */
  37. IF OPEN(Handle,Filename,'W')=0 THEN DO
  38.    rtezrequest('Couldnt open file.' , , 'MakeCopy.rexx' )
  39.    EXIT 20
  40. END
  41.  
  42. /* write titel */
  43. WRITELN(Handle,Titel)
  44.  
  45. DO i=0 TO Number-1
  46. /* get data of picture */
  47.    /* no parse because Space */
  48.    getpicdata i data file
  49.    OneFile=RESULT
  50. /* write to ascii */
  51.    Entry='copy "' || OneFile || '" "' || OutDir || '"'
  52.    WRITELN(Handle,Entry)
  53. END
  54.  
  55. IF Number=1
  56.    THEN Ende=Number 'picture'
  57.    ELSE Ende=Number 'pictures'
  58.  
  59. CLOSE(handle)
  60.  
  61. ADDRESS COMMAND 'Protect "' || Filename || '" S ADD'
  62.  
  63. Ende=Ende 'saved as copy.'
  64.  
  65. rtezrequest(Ende , , 'MakeCopy.rexx' )
  66.  
  67. EXIT 0
  68.