' Die W”rter und Regeln werden im Qbasic Editor eingeben CLS l$ = "010" ' 010 wird ersetzt durch regel$ = "1000" ' 1000 im Wort w$ = "0101010" ' 0101010 DO 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) ' sucht im Wort das zu ersetzende Muster und tauscht es ' durch die Regel aus EXIT FOR END IF IF p% = LEN(w$) THEN EXIT DO 'Abbruchkriterium, wenn kein Muster NEXT p% LOOP