!Kristen Rosano

!Junior 5

!Contest #2

!Montgomer Blair

!#8009

for z=1 to 5

INPUT length

let grid$=""

FOR x=1 to length

INPUT aord$

LET grid$=grid$&aord$

NEXT x

INPUT generation

let grid2$=""

for y=1 to generation

IF grid$[2:2]="a" then

LET grid2$[1:1]="a"

ELSE

LET grid2$[1:1]="d"

END IF

IF length > 2 then

FOR x=2 to (length-1)

IF grid$[x-1:x-1]="a" and grid$[x+1:x+1]="d" then

LET grid2$[x:x]="a"

ELSE IF grid$[x-1:x-1]="d" and grid$[x+1:x+1]="a" then

LET grid2$[x:x]="a"

ELSE

LET grid2$[x:x]="d"

END IF

NEXT x

END IF

IF grid$[length-1:length-1]="a" then

LET grid2$[length:length]="a"

ELSE

LET grid2$[length:length]="d"

END IF

let grid$=grid2$

NEXT y

PRINT grid$

next z

END