REM Start of BASIC! Program
REM АНАЛОГОВЫЕ  ЧАСЫ

!Включение графического режима 

GR.OPEN 255,255,255,255
GR.ORIENTATION 1
GR.SCREEN w,h

!Проинициализируем начальные точки стрелок

XS=0:YS=0:XM=0:YM=0:XCH=0:YCH=0

! Читаем системное время 

TIME year$, month$, day$, hour$, minute$, second$, weekday, isdst

! Определяем, который сейчас час 

Chas = VAL(MID$(hour$, 1, 2)) 


! А если больше 12, то высчитываем насколько больше 

IF Chas > 12 THEN Chas = Chas - 12 

! Теперь смотрим, сколько минут прошло с начала часа 

Min = VAL(MID$(minute$, 1, 2)) 


! Теперь секунд и превращаем строчку времени в цифры: часы, минуты, секунды 

sek = VAL(MID$(second$, 1, 2)) 


! Разметка часов - 12 штук 

FOR I = 0 TO 360 STEP 30 

! Вычисление координат X и Y меток, переводя при этом градусы в радианы 

X = 190* SIN(I / 180 * 3.14) 
Y = 190* COS(I / 180 * 3.14) 


! Исходная точка в левом верхнем углу рисуем эти точки 

gr.color 255,0,0,0,0

gr.circle nc1,w/2+X, h/2-Y,5

gr.point nc1,w/2 + X, h/2 - Y

gr.point nc1,w/2 + X+1,h/2 -Y+1

gr.point nc1,w/2 + X+2,h/2 -Y-2

NEXT I

! Показ часов, цикл до нажатия клавиши 

cikl:

! Количество секунд, прошедших после полуночи, и добавляем секунду 

T = TIMER + 1 

! Ждем пока эта секунда пройдет 

Z: IF T > TIMER GOTO Z 

! Добавляем к тем еще одну 

sek = sek + 1 

! Если больше 60, прибавляем минуту, а секунды превращаем в 1 

IF sek > 60 THEN sek = 1: Min = Min + 1

! Количество минут, и делаем то же с часом 

IF Min > 60 THEN Chas = Chas + 1 

!С часами, если их больше 12 

IF Chas > 12 THEN Chas = 0: sek = 1: Min = 0 

! Вычисляем новые положения концов стрелок для секундной, минутной и часовой 

XS = 180* SIN(sek * 6 / 180 * 3.14) 
YS = 180* COS(sek * 6 / 180 * 3.14) 
XM = 160* SIN(Min * 6 / 180 * 3.14) 
YM = 160* COS(Min * 6 / 180 * 3.14) 

XCH = 140* SIN((Chas * 30 + (Min / 2)) / 180 * 3.14)

YCH = 140* COS((Chas * 30 + (Min / 2)) / 180 * 3.14) 

! Включаем цвет, свой для каждой стрелки 

! Рисуем стрелки из центра в точки, согласно вычисленным координатам 

gr.COLOR 255,255,0,0

GR.LINE Ls,w/2, h/2,w/2 + XS, h/2 - YS

gr.COLOR 255,0,255,0

GR.LINE Ls,w/2, h/2,w/2 + XM, h/2 - YM

gr.COLOR 255,0,0,255

GR.LINE Ls,w/2, h/2,w/2 + XCH, h/2 - YCH

!pause 1000

!стирание

gr.COLOR 255,255,255,255

!GR.LINE L,w/2, h/2,w/2 + XS, h/2 - YS

gr.COLOR 255,255,255,255

GR.LINE L,w/2, h/2,w/2 + XM, h/2 - YM
s
gr.COLOR 255,255,255,255

GR.LINE L,w/2, h/2,w/2 + XCH, h/2- YCH

gr.render

goto cikl