{* Глобус *}

REM basic

' Глобус


SCREEN 9{глобус
}CLS
COLOR 13
r = 150: x = .01: y = 1: n = .1
Do
{r = r + 10
}z = 10000
col = 1 + INT(RND * 15)
CIRCLE (300, 150), r, col, , , 4
PAINT (300, 150), col

For i = y To x Step -.06
CIRCLE (300, 150), r, col, 0, 3, i
For t = 1 To z: Next t
Next i

For i = x To y Step .06
CIRCLE (300, 150), r, col, 3, 0, i
For t = 1 To z: Next t
Next i

z = 7000
For i = 1 To 6 Step .1
CIRCLE (300, 150), r, col, 4.9, 1.5, i
For t = 1 To z: Next t
Next i

For i = 6 To 1 Step -.1
CIRCLE (300, 150), r, col, 1.5, 4.9, i
For t = 1 To z: Next t
Next i
Loop