{* Диадема *}

REM basic

' Диадема


SCREEN 7
w: RANDOMIZE TIMER
For j = 1 To 15
c = INT(RND(1) * 17)
CIRCLE (160, 165), 110, c, , , .25
LINE (40, 60)-(50, 70), c
LINE -(50, 55), c
LINE (35, 70)-(50, 70), c
LINE (40, 80)-(60, 60), c
LINE (100, 40)-(120, 40), c
LINE (100, 50)-(120, 30), c
LINE (100, 30)-(120, 50), c
LINE (110, 30)-(110, 40), c
LINE (145, 10)-(175, 10), c
LINE (150, 20)-(170, 1), c
LINE (150, 1)-(170, 20), c
LINE (160, 1)-(160, 10), c
LINE (200, 30)-(220, 50), c
LINE (200, 40)-(220, 40), c
LINE (200, 50)-(220, 30), c
LINE (210, 30)-(210, 40), c
LINE (260, 60)-(280, 80), c
LINE (270, 55)-(270, 70), c
LINE -(280, 60), c
LINE (285, 70)-(270, 70), c
LINE (60, 150)-(50, 70), j
LINE -(120, 140), j
LINE -(160, 10), j
LINE -(200, 140), j
LINE -(270, 70), j
LINE -(260, 150), j
LINE (100, 140)-(110, 40), j
LINE -(160, 135), j
LINE -(210, 40), j
LINE -(220, 140), j
For i = 1 To 10000: Next i
Next j
GoTo w