ソース名[Clock1]
label C1 origin(0,0) col(0xFFFFFF*c) frect(0,0,width,height) setfont("M") str=" / / : : " x=width/2-stwide(str)/2 y=height/2 w=stwide(" ") da=0 se=60 col(0xFFFFFF*!c) text(str,width/2,height/2,3)
label lp1 unlock(1) key=input(100) if(key==(1<<18)){m=0 goto "Exit"} elsif(key==(1<<13)||key==(1<<14)){goto "C2"} elsif(key==(1<<12)||key==(1<<15)){c=!c goto "C1"} lock() if(se!=second){ col(0) rect(-1,y-sthigh-1,width+1,2) rect(-1,y+sthigh-1,width+1,2) col(0xFF0000) if(!ampm){ line(0,y-sthigh,(hour*60*60+minute*60)*width/43200,y-sthigh) }else{ line(0,y-sthigh,width,y-sthigh) line(0,y+sthigh,(hour*60*60+minute*60)*width/43200,y+sthigh) } col(0xFFFFFF*!c) }
if(se==second){goto "lp1"} se=second
col(0xFFFFFF*c) frect(x+w*17,y-sthigh/2,w*2,sthigh) frect(x+w*14,y-sthigh/2,w*2,sthigh) frect(x+w*11,y-sthigh/2,w*2,sthigh)
col(0xFFFFFF*!c) str=""
if(hour<10){str="0"} str=str.hour." " if(minute<10){str=str."0"} str=str.minute." " if(second<10){str=str."0"} str=str.second col(0xFFFFFF*!c) text(str,x+w*11,y,6) if(da==date){goto "lp1"} da=date col(0xFFFFFF*c) frect(x+w*8,y-sthigh/2,w*2,sthigh) frect(x+w*5,y-sthigh/2,w*2,sthigh) frect(x,y-sthigh/2,w*4,strhigh) str=year." " if(month+1<10){str=str."0"} str=str.(month+1)." " if(date<10){str=str."0"} str=str.date col(0xFFFFFF*!c) text(str,x,y,6) goto "lp1"