home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 98 / af098a.adf / All_to_HD next >
Text File  |  1997-04-14  |  638b  |  32 lines
  1. skip 60
  2. lab 61
  3. endif
  4. lab 60
  5. echo "*EcPlease enter the pathname you wish to install to."
  6. echo "NB. Hard drive *E[32mONLY*E[0m."
  7. echo "E.g. 'dh0:', 'work:test/', etc..."
  8. setenv >nil: pathname ?
  9. failat 21
  10. cd $pathname >nil:
  11. if fail
  12. failat 10
  13. skip 61 back
  14. endif
  15. failat 10
  16. echo "*EcOK... Installing disks."
  17. lab 75
  18. assign af98a: exists >ram:necessary
  19. search ram:necessary "Mounted" >nil:
  20. if warn
  21. echo "*EcPlease insert the *E[33m*E[3mAmiga Format*E[0m Coverdisk."
  22. else
  23. skip 76
  24. endif
  25. skip 75 back
  26. lab 76
  27. endif
  28. delete ram:necessary quiet
  29. echo "*EcDe-archiving..."
  30. af98a:c/unlzx -a -q x af98a:archives/HDProgs.lzx ""
  31. delete ram:env/pathname quiet
  32.