home *** CD-ROM | disk | FTP | other *** search
/ MACD 4 / MACD4.iso / Emulatory / QLboot / MountQLdrives < prev    next >
Encoding:
Text File  |  1978-03-06  |  914 b   |  62 lines
  1. If EXISTS l:QLFileSystem
  2.  
  3.  If EXISTS devs:mfm.device
  4.  
  5.   Assign >NIL: DF0: EXISTS
  6.   If NOT WARN
  7.  
  8.    Assign >NIL: QL0: EXISTS
  9.    If WARN
  10.     Echo "Mounting QL0: <QLfilesystem & mfm.device> "
  11.     Mount QL0:
  12.    EndIf
  13.  
  14.   EndIf
  15.  
  16.   Assign >NIL: DF1: EXISTS
  17.   If NOT WARN
  18.  
  19.    Assign >NIL: QL1: EXISTS
  20.    If WARN
  21.     Echo "Mounting QL1: <QLfilesystem & mfm.device> "
  22.     Mount QL1:
  23.    EndIf
  24.  
  25.   EndIf
  26.  
  27.  Else
  28.  
  29.   If EXISTS devs:messydisk.device
  30.  
  31.    Assign >NIL: DF0: EXISTS
  32.    If NOT WARN
  33.  
  34.     Assign >NIL: QL0: EXISTS
  35.     If WARN
  36.      Echo "Mounting QL0: <QLfilesystem & messydisk.device> "
  37.      Mount QL0: FROM devs:mountlst.ql
  38.     EndIf
  39.  
  40.    EndIf
  41.  
  42.    Assign >NIL: DF1: EXISTS
  43.    If NOT WARN
  44.  
  45.     Assign >NIL: QL1: EXISTS
  46.     If WARN
  47.      Echo "Mounting QL1: <QLfilesystem & messydisk.device> "
  48.      Mount QL1: FROM devs:mountlst.ql
  49.     EndIf
  50.  
  51.    EndIf
  52.  
  53.   EndIf
  54.  
  55.  EndIf
  56.  
  57. Else
  58.  
  59.  Echo "Please copy QLfilesystem to L: "
  60.  
  61. EndIf
  62.