.
.bra {
.ket }

set grados1 Grados1:

failat 21
version >nil: amigaguide.library
if fail
	echo "Non trovo l'amigaguide.library!"
	echo "Per una corretta installazione č necessario"
	echo "installare prima AmigaGuide nel proprio sistema."
	echo "La versione 34 si trova sul primo dischetto del Tecnico"
	echo "con il relativo script di installazione."
	echo "Lanciatelo e poi richiamate questo script."
	echo "Gli utenti del 3.0 e del 3.1 troveranno invece"
	echo "tale libreria nei dischi originali del Workbench."
	quit
endif
failat 10
	skip grados
	lab gradosret
endif
echo "Installazione completata"
unsetenv stringa
Echo noline "Premi Return per finire "
Echo >nil: to nil: ?
quit


lab grados
Echo "Inserisci il nome della directory in cui installare la GRADOS.guide"
Echo "ATTENZIONE: NON verrā creata una nuova directory!"
Echo "Si consiglia HELP:italiano (vedere Leggimi_per_primo)"
Echo noline "(es. help:italiano o Work:) > "
Echo >nil: to env:stringa ?
set local $stringa
set lastch `echo "$stringa" first 600`
if not "$lastch" eq ":"
	if not "$lastch" eq "/"
	    set local "$local/"
    endif
endif
if not exists $local
	echo "La directory $local non esiste"
	skip back grados
endif
Echo "*nAttendi..."
failat 1000
copy ${grados1}GRADOS.guide#? $local clone
if warn
	Echo "### C'č stato un errore durante la copia! ###"
	Echo noline "Continuo ugualmente? (s/n) "
	Echo >nil: to env:stringa ?
	if "$stringa" not eq "s"
		quit
	endif
endif
failat 21
version >nil: amigaguide.library version 35
if warn
	skip back gradosret
endif
Echo noline "Vuoi installare anche lo script ARexx GRADOS in S:? (s/n) >"
Echo >nil: to env:stringa ?
if $stringa eq "s"
	copy clone ${grados1}GRADOS S: clone
endif
skip back gradosret