DECLARE SUB STAR (X!, Y!, C!)
SCREEN 7
LINE (20, 80)-(160, 180), , B     '#zdanie'
LINE (90, 30)-(20, 80)            '#krisha'
LINE (90, 30)-(160, 80)
CIRCLE (60, 120), 25              '#okno'
LINE (60, 100)-(60, 140)
LINE (35, 120)-(85, 120)
LINE (110, 130)-(150, 180), , B   '#dver'

FOR Y = 80 TO 150 STEP 20          '#elka'
LINE (210, Y + 20)-(250, Y + 20), 2
LINE (210, Y + 20)-(230, Y), 2
LINE (230, Y)-(250, Y + 20), 2
NEXT Y
LINE (225, 161)-(235, 179), 6, B

CIRCLE (270, 30), 30, 14, 4.6, 1.6     '#mesac'
CIRCLE (260, 30), 30, 14, 4.8, 1.3

CALL STAR(20, 20, 14)
CALL STAR(70, 10, 14)
X = 200
Y = 0
FOR P = 0 TO 10
CALL STAR(X, Y, 0)
X = X - P
Y = Y + P
SLEEP 1
CALL STAR(X, Y, 14)
SLEEP 1
NEXT P
CALL STAR(X, Y, 0)

SUB STAR (X, Y, C)
LINE (X, Y)-(X - 5, Y + 10), C
LINE (X, Y)-(X + 5, Y + 10), C
LINE (X - 7, Y + 5)-(X + 7, Y + 5), C
LINE (X - 7, Y + 5)-(X + 5, Y + 10), C
LINE (X + 7, Y + 5)-(X - 5, Y + 10), C
END SUB