/** Analysiere ein Wort **/

OPTIONS RESULTS

IF ~SHOW('P','DITO.1') THEN DO
   ADDRESS COMMAND 'run <>NIL: DITO:English'
   i = 15
   DO UNTIL (SHOW('P','DITO.1')) | (i=0)
      ADDRESS COMMAND 'Wait 1'
      i = i - 1
   END
   IF ~SHOW('P','DITO.1') THEN DO
      ADDRESS COMMAND 'RequestChoice <>NIL: "Error" "Could''nt find/start DITO!" "OK" PUBSCREEN'pubscreen
      EXIT
   END
END

ADDRESS 'DITO.1'
HIDE

/*
WriteMailTo mailto
ADDRESS COMMAND 'ed "T:WriteMail.tmp" WINDOW "RAW:0/15/640/465/MailTo: 'mailto'/CLOSE/SCREEN'pubscreen'" WITH "awebsendYAMmail.ed"'
IF EXISTS("T:WriteMail.tmp")=0 THEN
  EXIT
CALL OPEN(4,'T:WriteMail.tmp',r)
CALL OPEN(5,'T:SendMail.tmp',w);
line = readln(4)
PARSE VAR line 'Subject:' subject
IF subject='' THEN
  subject='Unknown'
WriteSubject subject
DO UNTIL EOF(4)
  line = READLN(4)
  CALL WRITELN(5,line)
END
CALL CLOSE(4)
CALL CLOSE(5)
WriteLetter 'T:SendMail.tmp'
WriteQueue
setfolder 1
ADDRESS COMMAND 'delete <>NIL: T:WriteMail.tmp'
ADDRESS COMMAND 'delete <>NIL: T:SendMail.tmp'
*/