home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format 95
/
af095a.adf
/
c
/
start.lzx
/
c
/
3
< prev
next >
Wrap
Text File
|
2001-01-16
|
2KB
|
89 lines
lab 167
assign AF95b: exists >ram:necessary
search ram:necessary "Mounted" >nil:
if warn
echo "*EcPlease insert the *E[33m*E[3mAmiga Format*E[0m *E[32mGames*E[31m Coverdisk."
else
skip 168
endif
skip 167 back
lab 168
endif
delete ram:necessary quiet
echo "*EcWould you like to install to a floppy or hard drive?"
echo "Enter either 'f' or 'h' (the default is floppy)."
setenv >nil: type ?
if not exists ram:type
skip 131
endif
if not $type EQ h
skip 131
lab 139
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: AF95b:archives/
skip 132
lab 131
endif
echo "*EcPlease wait..."
copy AF95b:archives/utils.lzx ram: BUF=10
assign source: ram:
echo "*EcYou must have a spare disk ready."
setenv pathname "df0:"
lab 133
echo "Insert the spare disk into df0: (your internal drive)"
ask "and press the <return> key."
info df0: >ram:check
search ram:check "af95" >nil:
if warn
skip 134
endif
echo "An Amiga Format disk is in df0:"
skip 133 back
lab 134
search ram:check "No disk present" >nil:
if warn
skip 135
endif
echo "No disk detected in df0:"
skip 133 back
lab 135
search ram:check "837k" >nil:
if not warn
skip 136
endif
search ram:check "879k" >nil:
if not warn
skip 136
endif
skip 137
lab 136
endif
format drive df0: name AF95_Utils FFS noicons quick <ram:go >nil:
skip 138
lab 137
format drive df0: name AF95_Utils FFS noicons <ram:go >nil:
lab 138
copy ram:disk.info df0:
lab 132
failat 21
cd $pathname >nil:
if fail
failat 10
skip 139 back
endif
failat 10
echo "*EcOK... Installing."
unlzx -a -q -bi24 x source:utils.lzx ""
if exists ram:utils.lzx
delete ram:utils.lzx quiet
endif
delete ram:pathname quiet
if exists ram:type
delete ram:type quiet
endif
assign source: remove
type ram:main