CLS n% = 10 m% = 0 DIM z%(1 TO n%) 'array mit nullen auffllen FOR u% = 1 TO n% z%(u%) = 0 NEXT u% COLOR 10 wahr% = 1 falsch% = 0 DO gut% = wahr% FOR k% = 1 TO n% - 1 IF z%(k%) = 1 AND z%(k% + 1) = 1 THEN gut% = falsch% NEXT k% IF gut% THEN m% = m% + 1 IF m% = 21 THEN SLEEP FOR i% = 1 TO n% PRINT z%(i%); NEXT i% PRINT " "; m% END IF k% = n% DO WHILE z%(k%) = 1 z%(k%) = 0 k% = k% - 1 IF k% = 0 THEN GOTO Ende LOOP z%(k%) = 1 LOOP Ende: COLOR 2 PRINT PRINT " Wake up, Neo..." COLOR 0