/* REXX UEB10 Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
DO FOREVER
   SAY "Bitte Vorname und Name eingeben"
   PARSE EXTERNAL vorn name         /* Anfrage an der Konsole     */
   IF vorn = "" ! name = "" THEN
      SAY "Falsche Eingabe:" vorn "/" name "/"
   ELSE
      LEAVE
END  /* Do Forever */
  /* */
dt = DATE(e)                        /* Datum Format TT/MM/JJ      */
dt = TRANSLATE(dt,"*","/")          /* neues Format TT*MM*JJ      */
mn = SUBSTR(TIME(),4,2)             /* Minuten                    */
  /* */
SAY "Heute den" dt
SAY "Um" TIME(h) "Uhr" mn "Minuten"
  /* */
SAY "Vorname"
SAY CENTER(vorn,60,"-")
  /* */
SAY "Name"
SAY name
  /* */