' Svjatoslav Agejenko 2000


DECLARE SUB lu (x%, y%, l%, c2%)
DEFINT A-Z
SCREEN 12

FOR a = 0 TO 16
OUT &H3C8, a
OUT &H3C9, a * 4
OUT &H3C9, a * 4
OUT &H3C9, a * 4
NEXT

FOR x = 0 TO 200
y = SQR((200 - x) * x) / 2
lu x + 200, y + 200, y * 2, t
LINE (x + 200, y + 202)-(x + 200, y + 250), t
IF x < 195 THEN
LINE (300 + ((x - 100) / 2), y / 2 + 328)-(x + 200, y + 252), t
END IF
LINE (300 + ((x - 100) / 2), y / 2 + 330)-(300 + ((x - 100) / 2), y / 2 + 370), t
NEXT x

SUB lu (x, y, l, c2)

c = 650 - y - x
1
IF c > 30 THEN c = c - 30: GOTO 1
c2 = c
IF c2 > 15 THEN c2 = 30 - c2

FOR y1 = y TO y - l STEP -1
c1 = c
IF c1 > 15 THEN c1 = 30 - c1
PSET (x, y1), c1
c = c + 1
IF c > 30 THEN c = c - 30
NEXT y1
END SUB