10 @ARUN:CLS:CLT:K=60:M=24:LC0,1:?"Today is":LC2,3:?"Month":LC11,3:?"Date"
20 LC0,13:?"Current Time":LC24,4:?"ALARM":LC12,16:?CHR$(136):LC12,19:?CHR$(136)
40 GSB170:S=[9]:B=1:H=51:V=36:GSB190:E=[7]*100+[8]:G=[0]*100+[1]:LC24,6:?DEC$([0],2);":";[1]/10;[1]%10:IFIN(1)LRUN2
50 LC23,8:IF[2]=0?"DISABLE"ELSEIF[2]=1?"ENABLE"
60 IFTICK()<3600 [2]=0
70 IFE=GAND[2]=1LRUN3
80 IFK<>[8]GSB120
90 IFM<>[7]GSB130
100 IFL<>[5]GSB140
110 GOTO40
120 S=[8]:B=2:H=13:V=15:GSB190:K=[8]:RTN
130 S=[7]:B=2:H=0:V=15:GSB190:M=[7]:RTN
140 LC2,8:?"20";DEC$([3],2):LC11,8:IF[6]=1?"Sun"ELSEIF[6]=2?"Mon"ELSE IF[6]=3?"Tue"ELSEIF[6]=4?"Wed"ELSEIF[6]=5?"Thu"ELSEIF[6]=6?"Fri"ELSEIF[6]=7?"Sat"
160 S=[4]:H=2:V=8:B=1:GSB190:S=[5]:H=18:V=8:GSB190:L=[5]:RTN
170 POKE#700,0:IF I2CR(#68,#700,1,#701,10) E
180 FORI=0TO9:[I]=PEEK(#70A-I):[I]=[I]>>4*10+[I]&15:NEXT:RTN
190 X=H:N=0:IFB=1 D=7 ELSE D=6
200 [10]=S/10:[11]=S%10:FORT=10TO11:C=[T]+48:GSB220:N=N+1:X=X+(N*D):NEXT:N=0:X=H:RTN
220 Y=V:FORI=0TO7:FORJ=0TO7:DRAWX*B+J*B,Y*B+I*B,PEEK(C*8+I)>>(7-J)&1:NEXT:NEXT:RTN
