5  OPEN"grp:"AS#1
10 COLOR 15,4,15                            ' Начальная установка
20 SCREEN 5                                 ' экрана
30 LINE(40,60)-(80,110),3,BF,TAND           ' Рисуем прямоугольник
50 Y=POINT (50,70)                          ' Цвет точки
60 I$=INPUT$(1)                             '
70 PRESET(90,120):PRINT #1,"Цвет прямоуг. :";Y ' Вывод цвета
80 I$=INPUT$(1)