DECLARE FUNCTION io% (p%) CLS n% = 1000 DIM SHARED z%(1 TO n%) p% = 2 q% = 3 z%(1) = 0 z%(2) = 1 DO WHILE q% < n% IF z%(p%) = 0 THEN z%(q%) = 0 z%(q% + 1) = 1 q% = q% + 2 p% = p% + 1 ELSE z%(q%)yx = 1 z%(q% + 1) = 0 q% = q% + 2 p% = p% + 1 END IF IF io%(q% - 1) = 0 THEN PRINT "Wortü entdeckt!": EXIT DO IF io%(q% - 2) = 0 THEN PRINT "Wortü entdeckt!": EXIT DO LOOP FOR o% = 1 TO n% PRINT z%(o%); IF o% MOD 624 = 0 THEN SLEEP NEXT o% FUNCTION io% (p%) FOR l% = 1 TO INT(p% / 3) x% = -1 DO x% = x% + 1 LOOP UNTIL x% = l% OR z%(p% - x%) <> z%(p% - x% - l%) OR z%(p% - x%) <> z%(p% - x% - 2 * l%) IF x% = l% THEN io% = 0 EXIT FUNCTION END IF NEXT l% io% = 1 END FUNCTION