© serviceprofessionalgmbh

Der Reiz dieser Variante liegt in der einfachen Ablauflogik und in der Performance. Wenn wir davon ausgehen, dass das Spiel beliebig of durchlaufen werden soll, sind die Objekt-Tabelle und die Ergebnis-Tabelle nur einmal aufzubauen.

Im eigentlichen Verarbeitungsteil gibt es weiter nichts zu tun, als am Schnittpunkt der Ergebnistabelle (Zeile R, Spalte S) das Ergebnis abzugreifen. Keine Logik, keine Abfragen, keine Verknüpfungen.

Sicher kann man sich darauf verständigen, dass nichts so schnell beantwortet werden kann als keine Frage.

//* REXX
*/
OBJ.1  ="STEIN  "
OBJ.2  ="SCHERE "
OBJ.3  ="PAPIER "
OBJ.4  ="BRUNNEN"
OBJ.5  =""
OBJ.6  =""
OBJ.7  ="TRIFF DEINE AUSWAHL (E = ENDE)"
ERG.   ="ICH HABE GEWONNEN"
ERG.1.1="UNENTSCHIEDEN"
ERG.2.2="UNENTSCHIEDEN"
ERG.3.3="UNENTSCHIEDEN"
ERG.4.4="UNENTSCHIEDEN"
ERG.1.3="DU HAST GEWONNEN"
ERG.1.4="DU HAST GEWONNEN"
ERG.2.1="DU HAST GEWONNEN"
ERG.2.4="DU HAST GEWONNEN"
ERG.3.2="DU HAST GEWONNEN"
ERG.4.3="DU HAST GEWONNEN"
DO TMP = 1
   SAY CENTER("< DIE KLEINE KNOBELEI >",79,'-')
   DO CNT = 1 TO 7
      IF CNT <= 4 THEN DMY = CNT "="
      ELSE DMY = ""
      SAY CENTER(DMY OBJ.CNT,79)
   END
   DO UNTIL S >= 1 & S <= 4
      PARSE UPPER EXTERNAL S
      IF S = "E" THEN LEAVE TMP
   END
   R=RANDOM(1,4)
   SAY;SAY
   SAY "DU HAST" OBJ.S", ICH HABE" OBJ.R"," ERG.R.S
END
SAY "BYE, BYE..."
EXIT