{* Глобус2 *}

REM basic

' Глобус2


SCREEN 9{глобус2
}CLS
COLOR 13
{CIRCLE (300, 150), 93, 11, , , .1
}67 z = 5000: m = 3: r = 140
x = .001: y = 6: n = .1: ip = 1        {: n1 = -.5
}col = 9 + INT(RND * 7)
For i = x To y Step n
CIRCLE (300, 150), r, 0, , , i
CIRCLE (300, 150), r, 0, , , i / y {i + ip
}For t = 1 To z
Next t
{CIRCLE (300, 150), r, 0, , , i
}CIRCLE (300, 150), r, col, , , i / y{i + ip
}Next i
col = 9 + INT(RND * 7)
For i = y To x Step -n
CIRCLE (300, 150), r, 0, , , i
{CIRCLE (300, 150), r, col, , , i + ip
}For t = 1 To z
Next t
CIRCLE (300, 150), r, col, , , i
{CIRCLE (300, 150), r, 0, , , i + ip
}
Next i
GoTo 67