home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / emulation / qlboot / qldisk.unlha < prev    next >
Encoding:
AmigaDOS Script File  |  1998-02-13  |  853 b   |  50 lines
  1. .key opt1
  2. .def opt1 "QDOS4amiga3.lha"
  3. .bra {
  4. .ket }
  5.  
  6. FailAt 21
  7.  
  8. Echo "This script copies the contents of an"
  9. Echo "LHA archive onto a QDOS (QL) disk."
  10.  
  11. Assign >NIL: FD0: EXISTS
  12.  
  13. If WARN
  14.  Echo "Please:"
  15.  Echo "   1) Mount the QLfilesystem"
  16.  Echo "   2) Copy the file QDOS4amiga3.lha to RAM:"
  17.  Echo "      (or SHIFT-SELECT a different lha archive)"
  18.  Echo "   3) Try again."
  19.  Wait 5
  20. Else
  21.  
  22.  If EXISTS ram:{opt1}
  23.   QLFormat -u0 -mBUSY -a
  24.   DiskChange FD0:
  25.   Lha -m -a  x ram:{opt1} FD0:
  26.   Skip NAMEIT
  27.  Else
  28.   If EXISTS {opt1}
  29.    QLFormat -u0 -mBUSY -a
  30.    DiskChange FD0:
  31.    Lha -m -a  x {opt1} FD0:
  32.    Skip NAMEIT
  33.   Else
  34.    Echo "Please:"
  35.    Echo "   1) Copy the file {opt1} to RAM:"
  36.    Echo "      (or SHIFT-SELECT a different lha archive)"
  37.    Echo "   2) Try again."
  38.    Wait 5
  39.    Skip DONE
  40.   EndIf
  41.  EndIf
  42.  
  43. Lab NAMEIT
  44.  
  45.  Relabel FD0: QLdisk
  46.  
  47. EndIf
  48.  
  49. Lab DONE
  50.