win=true
For i=0 to 3
For j=0 to 7
If mapcheck(i,j)<>mapwin(i,j) win=False : goto l
Next
Next
.l
За goto просьба не пинать - я не знаю как без лишних флагов сделать выход из двойного цикла. Конечно, тут не критичен сам выход, но если массивы большие, то может понадобиться для оптимизации.