10 'clock
20 CURSOR 0
30 GOSUB 3000
40 GOSUB 1000
45 COLOR 11,15
50 AT 37,3
60 PRINT "          "
70 AT 37,3
80 PRINT H;
90 PRINT ":";
100 PRINT M;
110 PRINT ":";
120 PRINT S;
130 GOSUB 2000
150 'DELAY(200)
160 GOTO 40
170 CURSOR 1
180 END
1000 'time
1010 Z=S 
1020 w=TIME(1)-x
1030 S=MOD(R+W,60)
1040 H=MOD(G+int((R+W+L*60)/3600),24)
1050 M=MOD(L+int((R+W)/60),60)
1090 O=INT(H*30+M/2)
1100 J=INT(M*6+S/10)
1110 IF Z=S GOTO 1000
1120 RETURN
2000 'draw clock 
2020 LINE 15,320,100,320+int(1000*COS(90-T*6)*4/26),100-int(1000*SIN(90-T*6)*13/208),1
2030 LINE 15,320,100,320+int(1000*COS(90-N)*4/26),100-int(1000*SIN(90-N)*13/208),1
2040 LINE 15,320,100,320+int(1000*COS(90-P)*2/25),100-int(1000*SIN(90-P)*13/400),1
2100 LINE 10,320,100,320+int(1000*COS(90-S*6)*4/26),100-int(1000*SIN(90-S*6)*13/208),1
2110 LINE 14,320,100,320+int(1000*COS(90-J)*4/26),100-int(1000*SIN(90-J)*13/208),1
2120 LINE 8,320,100,320+int(1000*COS(90-O)*2/25),100-int(1000*SIN(90-O)*13/400),1
2140 ELIPSE 9,320,100,332,135,-1
2145 T=S: N=J: P=O
2150 for i = 1 to 60
2160 line 9, 320+int(1000*COS(6*i)*4/25),100-int(1000*SIN(6*i)*13/200),320+int(1000*COS(6*i)*4/24),100-int(1000*SIN(6*i)*13/192),1
2170 next i
2180 for i = 1 to 12
2190 line 9, 320+int(1000*COS(30*i)*4/27),100-int(1000*SIN(30*i)*13/216),320+int(1000*COS(30*i)*4/24),100-int(1000*SIN(30*i)*13/192),1
2400 next i
2500 RETURN
3000 'input actual time 
3005 CLS
3010 PRINT " hours = ";
3020 INPUT G
3040 PRINT " minutes = ";
3050 INPUT L
3070 PRINT " seconds = ";
3080 INPUT R
3090 x=TIME(1)
3100 CLS
3110 RETURN