MultiMedia/radium/RADIUM.RUN

   1
   2 failat 21
   3
   4 assign >nil: radium: EXISTS
   5 IF WARN
   6
   7         echo "Can not find Radium: Assigning it to S:"
   8         assign Radium: s:
   9
  10 EndIf
  11
  12
  13 IF EXISTS DEVS:midi
  14
  15     assign >nil: RAD: EXISTS
  16     If WARN
  17       echo "Rad: not mounted. Mounting..."
  18       mount >nil: RAD:
  19       Wait 3 SECS
  20     EndIf
  21
  22     Radium
  23
  24 Else
  25
  26   echo "Devs:midi not found"
  27   Wait 10 SECS
  28
  29 Endif
  30
  31
  32