{* Клеточное поле *}

REM basic

' Клеточное поле


SCREEN 9 {клеточное поле
}CLS
6 RANDOMIZE TIMER
LINE (x1, y1)-(320, y), 11, B{stolb
}LINE (x1, y1)-(x, 320), 11, B {stroka
}For t = 1 To 76000
Next t
y = y + 10
x = x + 10
If y < 320 And x < 620 Then GoTo 6