```
when green flag clicked
delete (all v) of [cards v]
add (row) to [cards v]
say (join (join (join [There is a parity error in row ] (error in row)) [ and column ]) (error in column))
```

```
change [black cards total v] by (1)
change [row index v] by (1)
set [error in column v] to (index)
change [index v] by (1)
set [black cards total v] to [0]
set [row index v] to [1]
set [index v] to [1]
change [row number v] by (1)
set [error in row v] to (row number)
change [index v] by (1)
set [black cards total v] to [0]
set [index v] to [1]
set [row number v] to [1]
set [error in row v] to [0]
set [error in column v] to [0]
set [number of rows v] to (answer)
set [row v] to (answer)
change [black cards total v] by (1)
```

```
ask (join (join (join [Enter ] (number of rows)) [ cards for row ]) (row number)) and wait
ask [How many rows would you like to enter?] and wait
```

```
repeat (number of rows)
end
repeat (length of (row))
end
if <(letter (index) of (row)) = [B]> then
end
if <((black cards total) mod (2)) = [1]> then
end
repeat (number of rows)
end
repeat (number of rows)
end
if <(letter (index) of (item (row index) of [cards v] :: list)) = [B]> then
end
if <((black cards total) mod (2)) = [1]> then
end
```