home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / FileMover / Dopus5 / tradecfg.lha / arexx / DisMountFMS.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-04-24  |  1.1 KB  |  42 lines
  1. /* Dismount FFx Created By Pink Floyd UPDATED FOR OPUS 5 24/4/95  */
  2.  
  3. options results
  4.  
  5. address 'DOPUS.1'
  6.  
  7. lf='0a'x
  8.  
  9. flag=Exists("Libs:rexxreqtools.library")
  10. if flag=0 then do
  11.     say "! ERROR ! Libs:RexxReqTools.Library not found."
  12.     Exit
  13. end
  14. addlib("rexxreqtools.library",0,-30)
  15. result = ''
  16.  
  17. Call rtgetstring(,"Insert Device 'FFx:." lf "To Be Removed From The System","FFx Control Dismount V1.1ß","_Dismount|_Cancel","RTEz_Flags=EZReqF_CenterText RT_ReqPos=ReqPos_CenterScr RT_PubScrName="DOPUS.1)
  18.  
  19. DeviceName = result
  20.                                                                                                                 
  21. If RTResult = 1 then
  22.     If result > '' then
  23.       call Dismountit
  24. Busy On
  25.  
  26.  
  27. hello:
  28. Call rtgetstring(,"Insert Volume Name:." lf "To Be Removed From The System","FFx Control Dismount V1.1ß","_Dismount|_Cancel","RTEz_Flags=EZReqF_CenterText RT_ReqPos=ReqPos_CenterScr RT_PubScrName="DOPUS.1)
  29.  
  30. DeviceName = result
  31.  
  32. If RTResult = 1 then call Dismountit
  33. Busy On
  34.  
  35. Exit 
  36.  
  37. Dismountit:
  38.    DeviceName = Upper(Result)
  39.    address command 'Assign' DeviceName 'DISMOUNT'
  40. return hello
  41.  
  42.