CLS
   PRINT "Das ist das Spiel der 23 Streichhoelzer. Man bekommt 23"
   PRINT "Streichhoelzer. Jeder Spieler ( 2 Spieler oder der Computer und du )"
   PRINT "nimmt 1, 2 oder 3 Streichhoelzer weg."
   PRINT "Wer das letzte nimmt hat verloren. Kapiert? Dann gehts los!"
1  INPUT "1 Spieler und der Computer (1) oder 2 Spieler (2) ?"; Spieler
   IF Spieler = 1 THEN GOTO 6                     'Auswahl 1/2 Spieler
   REM *************2 Spieler****************************************************
   streich = 0
   PRINT
   INPUT "Name des 1. Spielers : "; spieler1$     'Namenseingabe fuer Spielende
   INPUT "Name des 2. Spielers : "; spieler2$
   PRINT
   PRINT "Hier sind nun 23 Streichhoelzer."
   PRINT
   REM --------------------------------------------------------------------------
2  INPUT "Spieler 1 nimmt wieviel Streichhoelzer :"; i
   IF i < 1 OR i > 3 THEN
     PRINT "Spieler 1 hat gemogelt."
     GOTO 2
   END IF                                         'Auswahl Anzahl, nur 1-3
   IF i > (23 - streich) THEN
     PRINT "Es sind nicht mehr so viele Streichhoelzer da."
     GOTO 2
   END IF                                         'Nur maximal soviele wie da sind.
   streich = streich + i
   IF streich = 23 THEN GOTO 13                   'Spielende
   i = 0                                          'Ruecksetzen fuer richtige Gewinnbestimmung
3  INPUT "Spieler 2 nimmt wieviele Streichhoelzer :"; u
   IF u < 1 OR u > 3 THEN PRINT "Spieler 2 hat gemogelt.": GOTO 3
   IF u > (23 - streich) THEN
     PRINT "Es sind nicht mehr so viele Streichhoelzer da."
     GOTO 3
   END IF
   streich = streich + u
   IF streich < 23 THEN
     u = 0
     GOTO 2                                      'Weiterspielen
   END IF
13 REM -----------------------------------------------------------------------
   IF streich - i = 22 THEN GOTO 4
   IF streich - u = 22 THEN GOTO 9
   IF streich - i = 21 THEN GOTO 4
   IF streich - u = 21 THEN GOTO 9
   IF streich - i = 20 THEN GOTO 4
   IF streich - u = 20 THEN GOTO 9
9  PRINT spieler1$; " hat gewonnen !!!!!": GOTO 10
4  PRINT spieler2$; " hat gewonnen !!!!!"
   REM --------------------------------------------------------------------------
10 INPUT "Wollen Sie noch einmal spielen? (ja/j//nein/*):"; nocheinmal$
   PRINT
   IF nocheinmal$ = "ja" THEN GOTO 1
   IF nocheinmal$ = "j" THEN GOTO 1 ELSE END
6  REM ***********1 Spieler und Computer***************************************
   streich = 0
   PRINT
   INPUT "Name des Spielers : "; Spieler$
   PRINT
   PRINT "Hier sind nun 23 Streichhoelzer."
   PRINT
   REM --------------------------------------------------------------------------
5  INPUT "Du nimmst wieviel Streichhoelzer :"; i
   IF i < 1 THEN PRINT "Spieler 1 hat gemogelt.": GOTO 5
   IF i > 3 THEN PRINT "Spieler 1 hat gemogelt.": GOTO 5
   IF i > 23 - streich THEN
     PRINT "Es sind nicht mehr so viele Streichhoelzer da."
     GOTO 5
   END IF
   streich = streich + i
   IF streich = 23 THEN GOTO 14
   i = 0
7  u = INT(RND * 4)
   IF u < 1 THEN GOTO 7
   IF u > 23 - streich THEN GOTO 7
   IF (u + streich = 23) AND (u > 1) THEN GOTO 7
   PRINT "Der Computer nimmt "; u; " Streichhoelzer."
   streich = streich + u
   IF streich < 23 THEN
     u = 0
     GOTO 5
   END IF
14 REM -----------------------------------------------------------------------
   IF streich - i = 22 THEN GOTO 8
   IF streich - u = 22 THEN GOTO 11
   IF streich - i = 21 THEN GOTO 8
   IF streich - u = 21 THEN GOTO 11
   IF streich - i = 20 THEN GOTO 8
   IF streich - u = 20 THEN GOTO 11
11 PRINT Spieler$; " hat gewonnen!!!!!": GOTO 12
8  PRINT "Der Computer hat gewonnen!!!!!"
   REM --------------------------------------------------------------------------
12 INPUT "Wollen Sie noch einmal spielen? (ja/j//nein/*):"; nocheinmal$
   PRINT
   IF nocheinmal$ = "ja" THEN GOTO 1
   IF nocheinmal$ = "j" THEN GOTO 1 ELSE END
   REM **************************************************************************
END