Publicité
10
20
30
40
50
51
52
53
54
55
61
62
63
70
80
85
90
95
100
110
120
130
150
160
170
190
200
210
220
225
230
DIM W$(5,12)
FOR I = 1 TO 5
INPUT W$(l)
NEXTI
FOR I = 1 TO 5
LET $ = ""
FOR L= 1 TO 12
IF W$(I,L) = "Ü" THEN GOTO 55
NEXT L
LET L = L-1
FOR P = 1 TO L
LET $ =
$+"-"
NEXTP
LET N = 6
PRINT AT 2,0; N,"LEBEN"
IF N = 0THEN GOTO 225
INPUT G$
LET F = 1
FOR P = 1 TO L
IF W$(I,P) < > G$ THEN GOTO 150
LET
$(P) = G$
LET F = 0
NEXT P
PRINT AT 11,11; $
LETN = N-F
FOR P = 1 TO L
IF
$(P) = "-" THEN GOTO 80
NEXTP
PRINT AT 15,0; "GEWINNT"
PRINT AT11, 11; W$(l)
INPUT $
136
Publicité
