23HOUMISECMHIGMELOCLOCKTIMISEIMIIHOU@ @X@@A6A7A8&2A @r @X @ @9@AR@) (+)CLEAR SCREEN (+=ESC-CTRL-CLR)1 (HOUR(MINUTE!-(SECOND16-@ @E#(+::( #( 6-@ @E &(:: & @ ++THIS IS A DEMO OF THE REAL TIME CLOCKHHTHIS ROUTINE ACCEPTS AN INITIAL TIME IN HOURS,MINUTES, AND SECONDS))IT SETS THE REAL TIME CLOCK TO ZERO(IITHE CURRENT VALUE OF RTCLOCK IS USED TO ADD THE INITIAL TIME TO GET*##THE CURRENT TIME HOUR,MIN,SEC-'6-A66-A7'6-A82<$$******ENTRY POINT****** 65 REMFAA_`****INITIALIZE CLOCK*****ad9@ '@9@i;@P,j 6. k An 6-6-6-$*******READ CLOCK*****6-?:C:,,666-++++F:,$AV,%F:,,$AV,%F:,,'@Y34&6-P:'A6,&6-&+$A6,)6-P:'@`,)6-P:&+$@`,,3 6-%!@`%6-&@`36-%@3 6-%!@`%6-&@`36-%@ 6-% 6-&+P:'@$,,$@$$,0-@@8")67<,.>:,- 0$6++104,165,18,141,0,6,165,19,141,1,6,165@''20,141,2,6,165,18,205,0,6,208,234J66165,19,205,1,6,208,227,165,20,205,2,6,208,220,96D1:CH8PRG8.BAS