lab 63
assign AF89b: exists >ram:necessary
search ram:necessary "Mounted" >nil:
if warn
echo "*EcPlease insert the *E[33m*E[3mAmiga Format*E[0m Coverdisk."
else
skip 64
endif
skip 63 back
lab 64
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 for this is still floppy)."
setenv >nil: type ?
if not exists ram:env/type
skip 1
endif
if not $type EQ h
skip 1
lab 9
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: AF89b:
failat 21
cd $pathname >nil:
if fail
failat 10
skip 9 back
endif
failat 10
echo "*EcOK... Installing disk."
unlzx -a -q -bi24 x source:af89b1.lzx ""
skip 10
lab 1
endif
echo "*EcPlease wait..."
copy AF89b:af89b1.lzx ram: BUF=10
assign source: ram:
echo "*EcYou must have a spare disk ready."
setenv pathname "df0:"
lab 3
echo "Insert the spare disk into df0: (your internal drive)"
ask "and press the <return> key."
info df0: >ram:check
search ram:check "af89b" >nil:
if warn
skip 4
endif
echo "An Amiga Format disk is in df0:"
skip 3 back
lab 4
search ram:check "No disk present" >nil:
if warn
skip 5
endif
echo "No disk detected in df0:"
skip 3 back
lab 5
search ram:check "837k" >nil:
if not warn
skip 6
endif
search ram:check "879k" >nil:
if not warn
skip 6
endif
skip 7
lab 6
endif
format drive df0: name "R3Demo" noicons FFS quick <ram:go >nil:
install2 df0:
skip 8
lab 7
format drive df0: name "R3Demo" noicons FFS <ram:go >nil:
install2 df0:
lab 8
cd $pathname >nil:
echo "*EcInstalling disk."
unlzx -a -q -bi24 x source:af89b1.lzx ""
delete ram:af89b1.lzx
lab 10
delete ram:env/pathname quiet
if exists ram:env/type
delete ram:env/type quiet
endif
assign source: remove
type c:main