{* Линии из центра в углы *}

REM basic

' Линии из центра в углы


SCREEN 9 {линии из центра по угл
}CLS
1 c = 1 + INT(RND * 15)
For x = 1 To 640 Step 6{10
}LINE (320, 175)-(x, 0), c{12
}For t = 1 To 10000
Next t
Next x

For y = 1 To 350 Step 6{10
}LINE (320, 175)-(640, y), c{13
}For t = 1 To 10000
Next t
Next y


For x = 640 To 1 Step -6{-10
}LINE (x, 350)-(320, 175), c{14
}For t = 1 To 10000
Next t
Next x

For y = 350 To 1 Step -6{10
}LINE (0, y)-(320, 175), c{13
}For t = 1 To 10000
Next t
Next y