3 X$=CHR$(34)
4 Q$=X$+"STRING"+X$
5 SYS4096
10 POKE53280,6:POKE53281,0:GOSUB2030
30 PRINT" [212]HIS PROGRAM WILL CONTINUALLY DISPLAY
40 [153]" AN ACCURATE 24-HOUR DIGITAL CLOCK IN"
50 [153]" THE BORDER JUST BELOW THE BOTTOM OF
60 PRINT" THE NORMAL SCREEN. [212]HE DISPLAY IS IN
70 [153]" THE NORMAL SYSHOURS:MINS:SECSOPEN FORMAT WITH
80 PRINT" [158][193][205][159]/[158][208][205][159] BEING INDICATED BY A SMALL BOX
90 [153]" TO THE RIGHT OF THE TIME.
100 GOSUB 2000
110 PRINT" [212]HE PROGRAM IS STORED IN MEMORY AT"
120 PRINT" [158]$[195]000-$[195]280[159] ([158]49152-49792[159]). [217]OU CAN USE
130 [153]" THESE COMMANDS TO CHANGE THE CLOCK:"
150 [153]" SYS(null)(null)(null) 49152OPEN"
160 [153]" STR$ISPLAY THE CLOCK AT THE BOTTOM OF THE
170 PRINT" SCREEN. [212]HIS IS NECESSARY IF YOU HAVE
180 [153]" PRESSED RUN/STOP-RESTORE."
190 [141]2000
200 [153]"SYS (null)(null)(null) 49152,"Q$
210 [153]"OPEN (null)ETS THE CLOCK TO THE TIME SPECIFIED
220 PRINT" IN [158]"Q$"[159]. [212]HE FORMAT IS THE SAME AS
230 [153]" IS USED TO SET (null)RIGHT$$, THAT IS SYSHHMMSSOPEN. RIGHT$N
240 PRINT" ADDITION, IF THE FIRST CHARACTER IN
250 [153]" THE STRING IS AN SYS@OPEN, THEN THE TIME WILL
260 PRINT" BE DISPLAYED IN REVERSE VIDEO."
270 GOSUB2000
300 PRINT"[158] [211][217][211] 49152,COLOUR"
310 PRINT"[159] [195]HANGES THE COLOUR OF THE CLOCK. [212]HE
320 [153]" COLOUR GIVEN IN THE (null)(null)(null) COMMAND IS A
330 PRINT" STANDARD COLOUR CODE FROM 0-15."
340 PRINT" [158][206][207][212][197]:[159] [212]HE LAST TWO COMMANDS CAN BE
350 [153]" COMBINED INTO A SINGLE COMMAND LIKE:
360 PRINT" [158][211][217][211] 49152,"X$"@043000"X$",6[159]."
390 GOSUB 2000
400 PRINT" [215]HEN THE CLOCK IS RUNNING, [212][201]$ IS NO
410 [153]" NO LONGER ACCURATE SINCE THE PROGRAM
420 PRINT" MAKES USE OF RASTER INTERRUPTS. [193]LSO,
430 [153]" SPRITES 0,1 AND 2 ARE USED TO DISPLAY
440 PRINT" THE CLOCK SO THESE SHOULD NOT BE USED."
450 PRINT" [198]INALLY, THE SPRITE DATA IS STORED IN
460 [153]" MEMORY FROM 832-1023 SO THIS AREA IS
470 PRINT" NOT AVAILABLE FOR MACHINE-CODE ETC."
480 GOSUB 2000
490 PRINT " [208]LEASE ENTER THE CORRECT TIME BELOW."
500 PRINT"SYS49152,"X$:PRINT"[145][145][145][145][158]"
510 FORT=631TO640:POKET,29:NEXT:POKE198,10
600 END
1900 GOSUB2000
1990 END
2000 POKE214,22:PRINT:PRINT"        [208]RESS [158][211][208][193][195][197][159] TO CONTINUE"
2010 GETA$:IFA$<>""THEN2010
2020 GETA$:IFA$<>" "THEN2020
2025 :
2030 PRINT"[147][153]    [212]HE [195]OMMODORE 64 [201]NVISIBLE [195]LOCK"
2040 PRINT "         BY[158] [197]DWARD [195]ARROLL 1986[159]"
2050 RETURN