100 VIDEO3:CLS:CLV:P=#707:UART0:OUT5,1:WAIT60:OUT5,1
110 LC3,0:?"-CALENDER-"
120 LC0,2:?"YEAR MONTH DATE"
130 LC0,5:?"DAY:"
140 LC4,7:?"- TIME -"
150 LC4,9:?"HH MM SS"
160 LC4,10:?"  :  :"
170 A=ANA(2)/14+25
180 LC0,3:?"20";A/10;A%10
190 IF IN(1)<>1 GOTO170
200 GSB 490
210 A=ANA(2)/86+1
220 LC7,3:?DEC$(A,2)
230 IF IN(1)<>1 GOTO210
240 GSB 490
250 A=ANA(2)/34+1
260 LC12,3:?DEC$(A,2)
270 IF IN(1)<>1 GOTO250
280 GSB 490
290 A=ANA(2)/147+1
300 LC4,5
310 IF A=1 ?"SUN" ELSEIF A=2 ?"MON" ELSEIF A=3 ?"TUE"ELSEIF A=4 ?"WED" ELSEIF A=5 ?"THU" ELSEIF A=6 ?"FRI" ELSEIF A=7 ?"SAT"
320 IF IN(1)<>1 GOTO290
330 GSB 490
340 A=ANA(2)/43
350 LC4,10:?A/10;A%10
360 IF IN(1)<>1 GOTO340
370 GSB 490
380 A=ANA(2)/17-1:IF A<0 THEN A=0
390 LC7,10:?A/10;A%10
400 IF IN(1)<>1 GOTO380
410 GSB 490
420 A=ANA(2)/17-1:IF A<0 THEN A=0
430 LC10,10:?A/10;A%10
440 IF IN(1)<>1 GOTO420
450 A=A+1:GSB 490
460 POKE #700,0
470 IF I2CW(#68,#700,1,#701,7) ERR
480 VIDEO1:CLV:OUT5,0:LRUN0
490 OUT5,0:A=A/10*16+A%10:POKE P,A:P=P-1:WAIT60:OUT5,1:RTN
