/* 
*
*
        #####################################
        #             ItalSHELL             #
        #  AREXX Words Translator for ITAL  #
        #    Written by: Andrea Modenese    #
        #      SysOp of: ToTaLLy WiReD      #
        #   +39-41-5269419  12:00 > 24:00   #
        # Fido: 2:333/714 AmigaNet 39:101/8 #
        #####################################
*
*  (25.8.94)
*
*  Revisionato da Arturo Ortino per Ital 2.0 in data 15.12.94.
*
*  (E' stato tolto 'NOREQ' in quanto superfluo
*  con la nuova versione di Ital e, inoltre,
*  per l'input della linea/frase da tradurre,
*  a 'pull word$' ho sostituito 'parse pull word$')
*
*  NOTA.1: Usate sempre una corretta punteggiatura quando inserite
*          una frase da tradurre, e possibilmente, inserite un
*          segno di punteggiatura finale; ad esempio, provate ad
*          inserire le seguenti frasi CON e SENZA il punto finale:
*
*	   1) I love you.
*          2) My trouble.
*	   
*           
*  NOTA.2: Per terminare inserire una linea vuota, cioč, premete ENTER.
*
*/


options results

/* Cambia il path di ITAL !! */

ITAL = "Work:Inglese/Varie/ITAL"

$VER = v.035 (25.8.94)


if ~show('P','ITAL') then
	DO
        address command ITAL
	address command "waitforport ITAL"
	END

address 'ITAL'

say '+----------------------------------+'
say ' ItalShell - AREXX Word Translator!'
say '+----------------------------------+'
say '         [RETURN] per uscire'
say 

TRANSLATE:
options prompt '> Che devo Tradurre? ';parse pull word$
say ''

if word$ = '' then signal OUT
     
           else do
           say 'Attendi, cerco: 'word$
           call open out,'T:word.tmp',write
           call writeln out,word$
           call close out


'CLEAR'
't:word.tmp'

           say
           say "Ecco la traduzione..."
           say

           address command "type t:word.tmp.tra"
           address command 'delete >NIL: t:word.tmp'
           address command 'delete >NIL: t:word.tmp.tra'

say
end
signal translate

OUT:
'QUIT'
say 'ItalShell '$Ver '...Byeeeeee!'
exit