' Eingabe von Wort und Regel beim Ausfhren 1 : CLS COLOR 9 PRINT "Bsp: Aus 010 wird 1000" PRINT " Im Wort 0101010" COLOR 15 PRINT INPUT "Aus...: ", l$ PRINT INPUT "...wird: ", regel$ PRINT INPUT "Wort: ", w$ o$ = w$ PRINT PRINT FOR p% = 1 TO LEN(regel$) IF MID$(regel$, p%, LEN(l$)) = l$ THEN COLOR 4 PRINT "Ensteht unendliche Wortkette, da das obere Wort im unterem ist!" SLEEP COLOR 0 END END IF NEXT p% COLOR 10 m% = 0 DO m% = m% + 1 IF m% MOD (20) = 0 THEN SLEEP END IF PRINT w$ FOR p% = 1 TO LEN(w$) IF MID$(w$, p%, LEN(l$)) = l$ THEN w$ = LEFT$(w$, p% - 1) + regel$ + RIGHT$(w$, LEN(w$) - p% - LEN(l$) + 1) EXIT FOR END IF IF p% = LEN(w$) THEN EXIT DO NEXT p% LOOP PRINT COLOR 3 PRINT "Schritte: ", m% COLOR 7 PRINT PRINT PRINT "Aus "; l$; " wurde "; regel$; " im Wort "; o$ PRINT INPUT "Nochmal J/N? ", h$ IF h$ = "j" THEN GOTO 1 IF h$ = "n" THEN END