home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / FileMover / Dopus5 / tradecfg.lha / arexx / MountFMS.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1995-04-26  |  2.1 KB  |  124 lines
  1. /* Directory Opus REXX Script   Created By Pink Floyd                  */
  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.  
  18. Call rtezrequest("Please Select." lf "Which Fake Device You Wish To Mount?","FF_0:|FF_1:|FF_2:|FF_3:|FF_4:|SC_0:|_RAD:|_Cancel","Drive Mounter for Opus 5*","RTEz_Flags=EZReqF_CenterText RT_ReqPos=ReqPos_CenterScr RT_PubScrName="DOPUS.1)
  19. Altered = Result
  20. If RTResult = 1 Then Signal FF0
  21. If RTResult = 2 Then Signal FF1
  22. If RTResult = 3 Then Signal FF2
  23. If RTResult = 4 Then Signal FF3
  24. If RTResult = 5 Then Signal FF4
  25. If RTResult = 6 Then Signal SC0
  26. If RTResult = 7 Then Signal RAD
  27. If RTResult = 8 Then Signal End
  28.  
  29.  
  30. Busy On
  31.  
  32. Exit 
  33.  
  34. FF0:
  35. lister 1
  36.    DeviceName = Result
  37. address Command 'C:mount FF0:'
  38. address Command 'FF0:'
  39. end
  40. dest='FF0:'
  41. lister set handle busy off
  42. lister read handle dest force
  43.  
  44. exit
  45.  
  46. FF1:
  47. lister 1
  48. DeviceName = Result
  49. address Command 'C:mount FF1:'
  50. address Command 'FF1:'
  51. end
  52. dest='FF1:'
  53. lister set handle busy off
  54. lister read handle dest force
  55. end
  56. exit
  57.  
  58. FF2:
  59. lister 1
  60. DeviceName = Result
  61. address Command 'C:mount FF2:'
  62. address Command 'FF2:'
  63. end
  64. dest='FF2:'
  65. lister set handle busy off
  66. lister read handle dest force
  67. end
  68. exit
  69.  
  70. FF3:
  71. lister 1
  72. DeviceName = Result
  73. address Command 'C:mount FF3:'
  74. address Command 'FF3:'
  75. end
  76. dest='FF3:'
  77. lister set handle busy off
  78. lister read handle dest force
  79. end
  80. exit
  81.  
  82. FF4:
  83. lister 1
  84. DeviceName = Result
  85. address Command 'C:mount FF4:'
  86. address Command 'FF4:'
  87. end
  88. dest='FF4:'
  89. lister set handle busy off
  90. lister read handle dest force
  91. end
  92. exit
  93.  
  94. FF5:
  95. lister 1
  96. DeviceName = Result
  97. address Command 'C:mount SC0:'
  98. address Command 'SC0:'
  99. end
  100. dest='SC0:'
  101. lister set handle busy off
  102. lister read handle dest force
  103. end
  104. exit
  105.  
  106. RAD:
  107. lister 1
  108. DeviceName = Result
  109. address Command 'C:mount RAD:'
  110. address Command 'RAD:'
  111. end
  112. dest='RAD:'
  113. lister set handle busy off
  114. lister read handle dest force
  115. end
  116. exit
  117.  
  118. End:
  119.  
  120. End
  121. Exit
  122.  
  123. lister set handle busy off
  124. lister read handle dest force