Mikkels fede BF3 side - C64 kode
15 screen 1:cls
20 cx=375:cy=450:dr=-3.1415/180
25 sl=210:ml=175:hl=110
50 hh=val(mid$(ti$,1,2))
55 mm=val(mid$(ti$,3,2))
60 ss=val(mid$(ti$,5,2))
70 if os=-(ss-15) then 50
72 hh=hh*5+(mm*60+ss)/3600*5:hh=-(hh-15)
73 mm=mm+ss/60_mm=-(mm-15)confused.gifs=-(ss-15)
90 cls: circle cx,cy,250,1,0
96 for d=0to330 step 30
97 circle cx+250*cos(d*dr),cy+250*sin(d*dr),5,4,1
98 next
100 line cx,cy,hl*cos(hh*6*dr)+cx,hl*sin(hh*6*dr)+cy,4
110 line cx,cy,ml*cos(mm*6*dr)+cx,ml*sin(mm*6*dr)+cy,4
120 line cx,cy,sl*cos(ss*6*dr)+cx,sl*sin(ss*6*dr)+cy,4
175 os=ss
999 goto 50
 
Panel title

© 2017 bf3

Antal besøg: 48

Lav en gratis hjemmeside på Freewebsite-service.com

Editing

-0,32033014297485sekunder