home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / FileMover / Dopus5 / DC-OP55B.LZX / Opus5 / modules / check.dopus5 < prev    next >
Encoding:
Text File  |  1996-07-11  |  883 b   |  36 lines
  1. /*
  2.  
  3.    $VER: check.dopus5 1.0 (10.07.96)
  4.  
  5.    Example of an 'arexx module'. This program adds a "Check" command to Opus,
  6.    and also installs a PopUpExtension to add a 'Check' item to disk icons.
  7.    When the user selects the Check option, DiskSalv is automatically
  8.    started in Check mode.
  9.  
  10.    This program must go in the DOpus5:Modules directory. It requires
  11.    DiskSalv v3 by Dave Haynie to be in the specified path.
  12.  
  13. */
  14.  
  15. /* Change this for where DiskSalv is located on your system */
  16. disksalv = 'SYS:Tools/DiskSalv'
  17.  
  18. parse arg portname ' ' function ' ' source ' ' dest ' ' device
  19. address value portname
  20. options results
  21.  
  22. /* Initialise */
  23.  
  24. if function='init' then do
  25.     dopus command "Check" program "check" private ext 'Check...' type disk
  26.     exit
  27.     end
  28.  
  29.  
  30. /* Check function */
  31.  
  32. if function='Check' then do
  33.     address command 'run >nil: <nil:' disksalv from device 'mode=check'
  34.     exit
  35.     end
  36.