10 ! KLOCKA2.BAC
20 ! 
30 ! KLOCKA.BAC
40 ! Vissar klockan visuelt p} en ABC806
50 ! Program av Magnus <8042> 1990
60 ! 
70 ! "GRED" etc f|r att ge bild med monokrom sk{rm  <7759>
80 ! 
90 EXTEND : INTEGER 
100 ; CHR$(12)
110 FOR N=1 TO 12
120   PRINT CUR(13-7*COS(N/6.*PI),29+19*SIN(N/6.*PI));N
130 NEXT N 
140 FGCTL BLK+GRED+GGRN+GBLU
150 Px=200 : Py=105
160 FGPOINT 0,0,0 : FGFILL 511,239
170 E.=(2*PI/60) : He.=(2*PI/12)
180 R=55 : Hr=40
190 S=PEEK(65524)
200 M=PEEK(65523)
210 H=PEEK(65522)
220 ; CUR(0,10);TIME$
230 F.=2*PI-((S*E.)+45*E.)
240 F1.=2*PI-((M*E.)+45*E.)
250 F2.=2*PI-((H*He.)+9*He.)
260 X=2*(R*COS(F.)) : Y=1.2*(R*SIN(F.))
270 Mx=2*(R*COS(F1.)) : My=1.2*(R*SIN(F1.))
280 Hx=2*(Hr*COS(F2.)) : Hy=1.2*(Hr*SIN(F2.))
290 FGPOINT Px,Py,0 : FGLINE Px+X1,Py+Y1
300 FGPOINT Px,Py,0 : FGLINE Px+Mx1,Py+My1
310 FGPOINT Px,Py,0 : FGLINE Px+Hx1,Py+Hy1
320 FGPOINT Px,Py,2 : FGLINE Px+X,Py+Y
330 FGPOINT Px,Py,1 : FGLINE Px+Mx,Py+My
340 FGPOINT Px,Py,3 : FGLINE Px+Hx,Py+Hy
350 X1=X : Y1=Y
360 Mx1=Mx : My1=My
370 Hx1=Hx : Hy1=Hy
380 IF PEEK(65524)=S THEN 380 ELSE 190