REM Start of BASIC! Program
GR.OPEN 255,0,0,0,0,1
GR.SCREEN xres,yres
GR.COLOR 255,255,255,255,1% Циферблат
GR.CIRCLE nb,xres/2,yres/2,xres*0.48
GR.COLOR 255,0,255,255,1
FOR q=1 TO 12
x=xres*0.44*SIN(q*30/180*3.14)+xres/2
y=xres*0.44*COS(q*30/180*3.14)+yres/2
GR.CIRCLE cif,x,y,xres*0.01
NEXT
FOR q=1 TO 60
x=xres*0.44*SIN(q*6/180*3.14)+xres/2
y=xres*0.44*COS(q*6/180*3.14)+yres/2
GR.CIRCLE cif,x,y,xres*0.005
NEXT
LIST.CREATE N,ch% Стрелки с помощью полигонов
LIST.CREATE N,mn
LIST.CREATE N,sk
FOR q=1 TO 6 %Шесть координат иначе ошибка. Полигон минимум треугольник.
	LIST.ADD ch,0
	LIST.ADD mn,0
	LIST.ADD sk,0
NEXT
GR.COLOR 255,255,0,0,0
GR.POLY rtr,sk,xres/2,yres/2
GR.COLOR 255,0,0,255,0
GR.POLY rt,mn,xres/2,yres/2
GR.COLOR 255,0,0,0,0
GR.POLY r,ch,xres/2,yres/2
GR.COLOR 255,0,0,255,1%Рядом обычные часы
GR.TEXT.ALIGN 2
GR.TEXT.SIZE xres*0.1
GR.TEXT.DRAW tx,xres/2,yres*0.9,"5566"
DO% Основной цикл
	TIME g$,m$,d$,chas$,mnt$,sek$
	ch1=VAL(chas$)
	mn1=VAL(mnt$)
	sk1=VAL(sek$)
	IF ch1>12 THEN ch1=ch1-12
	LIST.REPLACE sk,3,xres*0.4*COS((VAL(sek$)*6+90)/180*3.14)*-1
	LIST.REPLACE sk,4,xres*0.4*SIN((VAL(sek$)*6+90)/180*3.14)*-1
	LIST.REPLACE mn,3,xres*0.3*COS((VAL(mnt$)*6+90)/180*3.14)*-1
	LIST.REPLACE mn,4,xres*0.3*SIN((VAL(mnt$)*6+90)/180*3.14)*-1
	LIST.REPLACE ch,3,xres*0.2*COS((ch1*30+90+(VAL(mnt$)/2))/180*3.14)*-1
	LIST.REPLACE ch,4,xres*0.2*SIN((ch1*30+90+(VAL(mnt$)/2))/180*3.14)*-1
	vrem$=chas$+":"+mnt$+":"+sek$
	GR.MODIFY tx,"text",vrem$
	GR.RENDER
UNTIL 2=3