{* Буква M *}

REM basic

' Буква M



SCREEN 9{M
}CLS
n = 2: x = 50: s = 2000
dx = 2
st = 1
Do
x = 20
col = 9 + INT(RND * 7)
For y = 150 To 20 Step -n
CIRCLE (x, y), 10, col
For t = 1 To s: Next t
Next y

For y = 20 To 150 Step n{dx
}CIRCLE (x, y), 10, col
x = x + st {n'dx
}For t = 1 To s: Next t
Next y
{dx = dx + 1
}{If dx > 5 Then dx = 2
}
For y = 150 To 20 Step -n{dx
}CIRCLE (x, y), 10, col
x = x + st{n'dx
}For t = 1 To s: Next t
Next y
{dx = dx + 1
}{If dx > 5 Then dx = 2
}
For y = 20 To 150 Step n
CIRCLE (x, y), 10, col
For t = 1 To s: Next t
Next y

Loop