/*
 *
 *  Ital e Arexx
 *  scritto da Arturo Ortino il 12/12/93
 *  rev. Dicembre 1994 per Ital 2.0
 *
*/

options results

/*
 *  Dobbiamo controllare se Ital č stato giā lanciato,
 *  cercando una porta di nome 'ITAL' ...
 *  Se Ital non č gia presente lo lanciamo
 *  con .... address command "Work:Inglese/Varie/Ital NOREQ"
 *  poi, aspettiamo fino a quando
 *  Ital non č pronto per ricevere ordini
 *  con .... address command "waitforport ITAL"
 *  NOTA (1): Assumiamo che Ital si trovi nella directory
 *	      'Work:Inglese/Varie'
 *  NOTA (2): Il comando 'waitforport' deve essere in una
 *	      delle directory di ricerca assegnate con il
 *	      comando 'path' (ovviamente).
*/


if ~show('P','ITAL') then
	DO
	address command "Work:Inglese/Varie/Ital"
	address command "waitforport ITAL"
	END

address 'ITAL'		/* Contattiamo Ital */

'CLEAR'			/* resettiamo eventuali precedenti settaggi */

'Work:Docs/miofile'	/* Ordina a Ital di tradurre il
			 * file "miofile"; lo stesso
			 * verrā salvato nella directory di
			 * provenienza (Work:Docs) con il
			 * nome "miofile.TRA"
			 */

address command "more Work:Docs/miofile.TRA"
			/* Adesso leggiamo, con "More", il file tradotto */

address 'ITAL'		/* ricontattiamo Ital */

'df1:GamesDocs/*'	/* Ordina a Ital di tradurre tutti i
			 * file contenuti nella directory
			 * "GamesDocs" del dischetto in df1:
			 */

'SAVEDIR=df0:'		/* Dice a Ital che d'ora in poi
			 * tutti i file tradotti dovranno essere
			 * salvati in df0:
			 */

'df1:GamesDocs2/*'	/* Ordina a Ital di tradurre tutti i
			 * file contenuti nella directory
			 * "GamesDocs2" del dischetto in df1:
			 * NOTA: I file tradotti saranno
			 * adesso salvati in df0:  (vedi sopra)
			 */

'CLEAR'			/* ripristina SAVEDIR ... */


'RAM:Provv/read.me'	/* Ordina a Ital di tradurre il file
			 * "read.me".
			 * NOTA: Il file tradotto verrā salvato
			 * nella stessa directory di provenienza
			 * (in questo caso in "RAM:Provv")
			 */

'QUIT'			/* Abbiamo finito, Ciao Ital! */


exit (0)