Sample SOND2

Sample

Sample UEB11 - special solution 2                                 

/* REXX YSOND2 Copyright YCOS Yves Colliard Software 1990-2009 */
/* TRACE ?R  */
  /* einschalten des interaktiven Trace Modus */
  /* */
i = 1
SAY "Bitte Vorname und Name eingeben:"
PARSE PULL    vorname.i name.i
IF name.i<>"" THEN
   i = i + 1
DO while i < 6 & (i < 4 ! name.i <> "")
   SAY "Bitte Vorname und Name eingeben:"
   PARSE PULL    vorname.i name.i
   IF name.i<>"" THEN
      i = i + 1
END