00001 let T3,T4=1
00002 print chr$(12)
00003 for I=0 to 60
00004   print tab(cos(I/30*pi)*39+40,sin(I/30*pi)*11+12);".";
00005 next I
00006 let A$=""
00010 enable handler RESM
00020 let SEC=val(time$(7:8))
00021 let MIN=val(time$(4:5))
00030 if SEC=60 then let MIN=MIN+1
00040 let X=cos((SEC-15)/30*pi)*35+40
00042 let Y=sin((SEC-15)/30*pi)*10+12
00044 print tab(X,Y);"S";
00046 let T1=X
00048 let T2=Y
00050 let X=cos((MIN-15)/30*pi)*32+40
00052 let Y=sin((MIN-15)/30*pi)*9+12
00067 print tab(X,Y);"M";tab(37,12);time$;
00068 linput prompt "", noecho, bytes 1, wait 1:A$
00069 print tab(T1,T2);" ";
00070 if T3<>X and T4<>Y then print tab(T3,T4);" ";
00071 let T3=X
00072 let T4=Y
00080 if A$="" then 00020
00090 print chr$(12);
00100 handler RESM
00110   resume
00120 end handler
00999 end