Sample UEB11

Sample

Input: Vorname und Name (vom Terminal anfordern)                                 
minumum 3 Vor- und Nachnamen
maximum 5 Vor- und Nachnamen
Process: ???
Output: "Heute den 20*01*08"
"Um 09 Uhr 33 Minuten"
"Folgende Vornamen"
(in umgekehrte Reihenfolge)
"---------Yves 4---------"
"---------Yves 3---------"
...
(zentriert 60 Zeichen, rechts und links "-")
"Folgende Namen"
"Colliard 1"
"Colliard 2"
...
"Anzahl Vor- und Nachnamen:" 4

/* REXX UEB11 Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
i = 1                 /* Anzahl der Eingaben  */
  /* */
DO FOREVER
   SAY "Bitte Vorname und Name eingeben ("i")"
   PARSE EXTERNAL vorn.i name.i     /* Anfrage an der Konsole     */
   IF vorn.i = "" ! name.i = "" THEN
      IF i > 3 THEN
         LEAVE                      /* mehr als 3 Eingaben        */
      ELSE
         SAY "Falsche Eingabe:" vorn.i "/" name.i "/"
   ELSE DO
      i = i + 1                     /* naechste Eingabe           */
      IF i > 5 THEN
         LEAVE                      /* mehr als 5 Eingaben        */
      ELSE
         NOP
   END
END  /* Do Forever */
  /* */
i = i - 1                           /* Eintrag nicht gefuellt     */
  /* */
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 "Folgende Vornamen"
  /* */
DO ix=i TO 1 BY -1
   SAY CENTER(vorn.ix ix,60,"-")
END
  /* */
SAY "Folgende Namen"
  /* */
DO ix=1 TO i
   SAY name.ix "Nummer:" ix
END
  /* */
SAY "Anzahl Vor- und Nachnamen:" i
  /* */