loscutnkover.BAS

{* Лоскутный ковер *}

REM basic

' Лоскутный ковер



SCREEN 9
RANDOMIZE TIMER
For X = 0 To 640 Step 10
For Y = О ТО 350 Step 10
С = INT(RNDd) *15) + 1
LINE (X, Y)-(X + 10, Y + 10), С, BF
LINE (X, Y)-(X + 10, Y + 10), 15, В Next Y Next X End