Sample UEB10

Sample

Input: Vorname und Name (vom Terminal anfordern)                                 
Process: ???
Output: Zahl (z.B. Eingabe=77 => 77 * 12 +25 = 949)
"Heute den 20*01*08"
"Um 09 Uhr 33 Minuten"
"Vorname"
"---------Yves---------"
(zentriert 60 Zeichen, rechts und links "-")
"Name"
"Colliard"

/* 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
  /* */