| | |
| 18. ZUFALLSWÖRTER | |
| Diesmal sollen Sie ein Wort aus vier Buchstaben finden. Sie gehen dabei genauso vor wie bei der Zufallszahl. | |
| | |
| 10 REM GUESS AN ENGLISH WORD | |
| 20 CLS | |
| 30 C$ = "FISHRUSHRESTSIDETALKDIRTWORKGIRLJUMPMOOD" | |
| 40 I = ( RND (10) - 1) * 4 + 1 | |
| 50 A$ = MID$ (C$,I,4) : S = 1 | |
| 60 PRINT "SUCHEN SIE EIN WORT" | |
| 70 INPUT "(4 BUCHSTABEN)";B$ | |
| 80 FOR J = 1 TO 4 | |
| 90 IF MID$ (A$,1,J) = MID$ (B$,1,J) THEN NEXT | |
| 100 PRINT "SIE HABEN";J - 1; | |
| 110 PRINT "BUCHSTABEN RICHTIG" | |
| 120 IF J < > 5 THEN S = S + 1 : GOTO 60 | |
| 130 PRINT "SIE HATTEN";S; | |
| 140 PRINT "VERSUCHE" | |
| 150 END | |
