home *** CD-ROM | disk | FTP | other *** search
- assign t: ram:
- assign env: ram:
- lab 667
- assign af98a: exists >ram:necessary
- search ram:necessary "Mounted" >nil:
- if warn
- echo "*EcPlease insert the *E[33m*E[3mAmiga Format*E[0m Coverdisk."
- else
- skip 668
- endif
- skip 667 back
- lab 668
- endif
- delete ram:necessary quiet
- echo "*EcWelcome to the *E[33m*E[3mAmiga Format*E[0m serious Coverdisk, Issue 98"
- echo "This disk can only be installed to a hard drive."
- echo "Enter 'C' to Continue or 'X' to Exit."
- setenv >nil: type ?
- if not exists ram:type
- skip 631
- endif
- if not $type EQ C
- skip 631
- lab 639
- endif
- echo "Could you please now enter the path name for your hard drive?"
- echo "E.g. 'dh0:', 'work:test/', etc..."
- setenv >nil: pathname ?
- assign source: af98a:archives/
- failat 21
- cd $pathname >nil:
- if fail
- failat 10
- skip 639 back
- endif
- failat 10
- echo "*EcOK... Unpacking."
- unlzx -a -q -bi24 x source:HDProgs.lzx ""
- echo "*EcDon't forget that the programs need you to run their Installation"
- echo "routines from your hard drive before they will function."
- lab 631
- ask "Re-boot now."
- endcli
-