If EXISTS l:QLFileSystem

 If EXISTS devs:mfm.device

  Assign >NIL: DF0: EXISTS
  If NOT WARN

   Assign >NIL: QL0: EXISTS
   If WARN
    Echo "Mounting QL0: <QLfilesystem & mfm.device> "
    Mount QL0:
   EndIf

  EndIf

  Assign >NIL: DF1: EXISTS
  If NOT WARN

   Assign >NIL: QL1: EXISTS
   If WARN
    Echo "Mounting QL1: <QLfilesystem & mfm.device> "
    Mount QL1:
   EndIf

  EndIf

 Else

  If EXISTS devs:messydisk.device

   Assign >NIL: DF0: EXISTS
   If NOT WARN

    Assign >NIL: QL0: EXISTS
    If WARN
     Echo "Mounting QL0: <QLfilesystem & messydisk.device> "
     Mount QL0: FROM devs:mountlst.ql
    EndIf

   EndIf

   Assign >NIL: DF1: EXISTS
   If NOT WARN

    Assign >NIL: QL1: EXISTS
    If WARN
     Echo "Mounting QL1: <QLfilesystem & messydisk.device> "
     Mount QL1: FROM devs:mountlst.ql
    EndIf

   EndIf

  EndIf

 EndIf

Else

 Echo "Please copy QLfilesystem to L: "

EndIf
