Klicken Sie auf einen Programmteil um Hilfe zu erhalten











































CLS
COLOR 9
PRINT "Bsp: Aus 010 wird 1000"
PRINT " Im Wort 0101010"
COLOR 15
INPUT "Aus: ", l$
INPUT "wird: ", regel$

RANDOMIZE TIMER
w$ = ""
p% = INT(RND * 20) + 5
FOR u% = 1 TO p%
w% = INT(RND * 2)
w$ = w$ + RIGHT$(STR$(w%), 1)
NEXT u%
COLOR 7
PRINT "im Wort ";
COLOR 14
o$ = w$
PRINT w$
SLEEP
Die Regeln werden eingegeben und das Wort wird zufällig generiert.











































vorbei% = 0
tafel$(1) = w$
oben% = 1
o$ = w$
PRINT
COLOR 15
PRINT w$
DO WHILE vorbei% <= oben%
vorbei% = vorbei% + 1
jetzt$ = tafel$(vorbei%)
FOR p% = 1 TO LEN(jetzt$)
IF MID$(jetzt$, p%, LEN(l$)) = l$ THEN
dann$ = LEFT$(jetzt$, p% - 1) + regel$ + RIGHT$(jetzt$, LEN(jetzt$) - p% - LEN(l$) + 1)
Ersetzt Wörter im Bezug auf die Regel.











































FOR p% = 1 TO LEN(dann$)
IF MID$(dann$, p%, LEN(w$)) = w$ THEN
COLOR 4
PRINT " SCHLEIFENALARM!"
PRINT " Ab Position: ", p%
COLOR 15
GOTO 2
END IF
NEXT p%
Findet Schleifen in der Wortfolge.