00000000: 00 80 5E 55 3A 48 41 43 4B 45 52 0D 0D 0D 20 20 |..^U:HACKER... |
00000010: 20 20 20 20 20 20 20 20 20 20 20 D4 C8 C5 20 C3 | ... .|
00000020: CC CF C3 CB 0D 20 20 20 20 20 20 20 20 20 20 20 |..... |
00000030: 20 20 20 20 20 20 42 59 0D 20 20 20 20 20 20 20 | BY. |
00000040: 20 20 C2 45 4E 4E 45 54 20 C3 4F 4F 4B 53 4F 4E | .ENNET .OOKSON|
00000050: 2C 20 CA 52 2E 0D 0D 0D C3 CF CD CD CF C4 CF D2 |, .R............|
00000060: C5 20 CD C1 C7 C1 DA C9 CE C5 0D C1 50 52 49 4C |. ..........PRIL|
00000070: 20 31 39 38 37 0D 0D 0D 20 20 D4 48 49 53 20 50 | 1987... .HIS P|
00000080: 52 4F 47 52 41 4D 20 50 4C 41 43 45 53 20 41 20 |ROGRAM PLACES A |
00000090: 44 49 47 49 54 41 4C 20 43 4C 4F 43 4B 0D 41 4E |DIGITAL CLOCK.AN|
000000A0: 59 57 48 45 52 45 20 4F 4E 20 54 48 45 20 53 43 |YWHERE ON THE SC|
000000B0: 52 45 45 4E 2E 20 20 C2 45 43 41 55 53 45 20 54 |REEN. .ECAUSE T|
000000C0: 48 45 0D C3 CC CF C3 CB 20 49 53 20 49 4E 54 45 |HE...... IS INTE|
000000D0: 52 52 55 50 54 2D 44 52 49 56 45 4E 2C 20 49 54 |RRUPT-DRIVEN, IT|
000000E0: 20 4B 45 45 50 53 0D 54 49 43 4B 49 4E 47 20 45 | KEEPS.TICKING E|
000000F0: 56 45 4E 20 57 48 49 4C 45 20 4F 54 48 45 52 20 |VEN WHILE OTHER |
00000100: 50 52 4F 47 52 41 4D 53 20 41 52 45 0D 52 55 4E |PROGRAMS ARE.RUN|
00000110: 4E 49 4E 47 2E 0D 0D 20 20 D7 48 45 4E 20 59 4F |NING... .HEN YO|
00000120: 55 20 52 55 4E 20 49 54 2C 20 54 48 45 20 46 4F |U RUN IT, THE FO|
00000130: 4C 4C 4F 57 49 4E 47 0D 4F 50 54 49 4F 4E 53 20 |LLOWING.OPTIONS |
00000140: 41 52 45 20 44 49 53 50 4C 41 59 45 44 3A 0D 0D |ARE DISPLAYED:..|
00000150: C6 31 20 2D 2D 20 D3 45 54 20 54 49 4D 45 2E 20 |.1 -- .ET TIME. |
00000160: 20 D4 48 49 53 20 4F 50 54 49 4F 4E 20 57 49 4C | .HIS OPTION WIL|
00000170: 4C 0D 50 52 4F 4D 50 54 20 54 4F 20 53 45 54 20 |L.PROMPT TO SET |
00000180: 54 48 45 20 48 4F 55 52 20 28 41 2E 4D 2E 20 4F |THE HOUR (A.M. O|
00000190: 52 20 50 2E 4D 2E 29 0D 4D 49 4E 55 54 45 53 2C |R P.M.).MINUTES,|
000001A0: 20 41 4E 44 20 53 45 43 4F 4E 44 53 2E 0D 0D C6 | AND SECONDS....|
000001B0: 33 20 2D 2D 20 C3 48 41 4E 47 45 53 20 54 48 45 |3 -- .HANGES THE|
000001C0: 20 43 4F 4C 4F 52 20 4F 46 20 54 48 45 20 43 4C | COLOR OF THE CL|
000001D0: 4F 43 4B 2E 0D 0D C6 35 20 2D 2D 20 C1 44 4A 55 |OCK....5 -- .DJU|
000001E0: 53 54 20 54 59 50 45 20 4F 46 20 43 4C 4F 43 4B |ST TYPE OF CLOCK|
000001F0: 2E 20 20 C1 54 0D 46 49 52 53 54 2C 20 54 48 45 |. .T.FIRST, THE|
00000200: 20 43 4C 4F 43 4B 20 44 49 53 50 4C 41 59 53 20 | CLOCK DISPLAYS |
00000210: 41 2E 4D 2E 20 4F 52 0D 50 2E 4D 2E 2C 20 48 4F |A.M. OR.P.M., HO|
00000220: 55 52 53 2C 20 4D 49 4E 55 54 45 53 2C 20 53 45 |URS, MINUTES, SE|
00000230: 43 4F 4E 44 53 2C 20 41 4E 44 0D 54 45 4E 54 48 |CONDS, AND.TENTH|
00000240: 53 20 4F 46 20 41 20 53 45 43 4F 4E 44 2E 20 20 |S OF A SECOND. |
00000250: C9 46 20 59 4F 55 20 57 41 4E 54 20 41 0D 4D 49 |.F YOU WANT A.MI|
00000260: 4E 55 54 45 20 54 49 4D 45 52 20 49 4E 53 54 45 |NUTE TIMER INSTE|
00000270: 41 44 20 4F 46 20 41 20 46 55 4C 4C 20 43 4C 4F |AD OF A FULL CLO|
00000280: 43 4B 2C 0D 46 4F 52 20 45 58 41 4D 50 4C 45 2C |CK,.FOR EXAMPLE,|
00000290: 20 50 52 45 53 53 20 54 48 45 20 C6 35 20 4B 45 | PRESS THE .5 KE|
000002A0: 59 20 55 4E 54 49 4C 0D 4F 4E 4C 59 20 4D 49 4E |Y UNTIL.ONLY MIN|
000002B0: 55 54 45 53 2C 20 53 45 43 4F 4E 44 53 2C 20 41 |UTES, SECONDS, A|
000002C0: 4E 44 20 54 45 4E 54 48 53 20 4F 46 0D 41 20 53 |ND TENTHS OF.A S|
000002D0: 45 43 4F 4E 44 20 53 48 4F 57 2E 0D 0D C6 37 20 |ECOND SHOW....7 |
000002E0: 2D 2D 20 C5 4E 44 53 20 50 52 4F 47 52 41 4D 2E |-- .NDS PROGRAM.|
000002F0: 0D 0D C3 D5 D2 D3 CF D2 20 CB C5 D9 D3 20 2D 2D |........ .... --|
00000300: 20 4D 4F 56 45 20 43 4C 4F 43 4B 20 41 52 4F 55 | MOVE CLOCK AROU|
00000310: 4E 44 0D 53 43 52 45 45 4E 2E 0D 0D C8 CF CD C5 |ND.SCREEN.......|
00000320: 20 2D 2D 20 4D 4F 56 45 53 20 43 4C 4F 43 4B 20 | -- MOVES CLOCK |
00000330: 54 4F 20 55 50 50 45 52 20 52 49 47 48 54 0D 43 |TO UPPER RIGHT.C|
00000340: 4F 52 4E 45 52 20 4F 46 20 53 43 52 45 45 4E 2E |ORNER OF SCREEN.|
00000350: 0D 0D 20 20 C1 46 54 45 52 20 59 4F 55 20 51 55 |.. .FTER YOU QU|
00000360: 49 54 2C 20 54 48 45 20 43 4C 4F 43 4B 20 57 49 |IT, THE CLOCK WI|
00000370: 4C 4C 20 42 45 0D 43 4F 4E 54 49 4E 55 41 4C 4C |LL BE.CONTINUALL|
00000380: 59 20 44 49 53 50 4C 41 59 45 44 20 2D 2D 20 55 |Y DISPLAYED -- U|
00000390: 4E 54 49 4C 0D D2 D5 CE 2F D3 D4 CF D0 2D D2 C5 |NTIL..../....-..|
000003A0: D3 D4 CF D2 C5 20 49 53 20 50 52 45 53 53 45 44 |..... IS PRESSED|
000003B0: 2E 20 20 C5 56 45 4E 0D 41 46 54 45 52 20 41 20 |. .VEN.AFTER A |
000003C0: D2 D5 CE 2F D3 D4 CF D0 20 D2 C5 D3 D4 CF D2 C5 |.../.... .......|
000003D0: 2C 20 48 4F 57 45 56 45 52 2C 0D 59 4F 55 20 4D |, HOWEVER,.YOU M|
000003E0: 41 59 20 52 45 2D 44 49 53 50 4C 41 59 20 49 54 |AY RE-DISPLAY IT|
000003F0: 20 42 59 20 45 4E 54 45 52 49 4E 47 20 D3 D9 D3 | BY ENTERING ...|
00000400: 0D 34 39 32 35 36 2E 0D 0D 20 20 C1 20 4E 4F 54 |.49256... . NOT|
00000410: 45 20 54 4F 20 48 41 43 4B 45 52 53 2E 2E 2E 20 |E TO HACKERS... |
00000420: C2 45 43 41 55 53 45 20 54 48 45 0D 43 4C 4F 43 |.ECAUSE THE.CLOC|
00000430: 4B 20 49 53 20 45 41 53 49 4C 59 20 53 45 54 20 |K IS EASILY SET |
00000440: 41 4E 44 20 52 45 41 44 20 46 52 4F 4D 0D C2 C1 |AND READ FROM...|
00000450: D3 C9 C3 2C 20 59 4F 55 20 43 4F 55 4C 44 20 55 |..., YOU COULD U|
00000460: 53 45 20 54 48 45 20 44 49 53 50 4C 41 59 20 41 |SE THE DISPLAY A|
00000470: 53 20 41 0D 54 49 4D 45 52 20 49 4E 20 59 4F 55 |S A.TIMER IN YOU|
00000480: 52 20 4F 57 4E 20 41 52 43 41 44 45 2D 53 54 59 |R OWN ARCADE-STY|
00000490: 4C 45 20 47 41 4D 45 53 2E 0D D3 45 45 20 C2 45 |LE GAMES...EE .E|
000004A0: 4E 4E 45 54 54 20 C3 4F 4F 4B 53 4F 4E 27 53 20 |NNETT .OOKSON'S |
000004B0: C3 4F 4D 4D 4F 44 4F 52 45 0D CD 41 47 41 5A 49 |.OMMODORE..AGAZI|
000004C0: 4E 45 20 41 52 54 49 43 4C 45 20 46 4F 52 20 41 |NE ARTICLE FOR A|
000004D0: 20 43 4C 4F 53 45 52 20 4C 4F 4F 4B 0D 41 54 20 | CLOSER LOOK.AT |
000004E0: 54 48 45 20 50 52 4F 47 52 41 4D 2E 0D 0D 0D C4 |THE PROGRAM.....|
000004F0: C9 D3 CB 20 C6 C9 CC C5 D3 20 D4 C8 C9 D3 20 D0 |... ..... .... .|
00000500: D2 CF C7 D2 C1 CD 20 D5 D3 C5 D3 0D 0D C3 CC CF |...... .........|
00000510: C3 CB 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00000520: D4 2E C3 CC CF C3 CB 0D 0D 20 20 20 20 20 20 20 |......... |
00000530: 20 2A 2A 2A 2A 20 C5 4E 44 20 CF 46 20 D4 45 58 | **** .ND .F .EX|
00000540: 54 20 2A 2A 2A 2A 0D |T ****. |
..^U:HACKER... THE CLOCK.
BY. BENNET COOKSON
, JR....COMMODORE MAGAZINE.APRIL 1987...
THIS PROGRAM PLACES A DIGITAL CLOCK.AN
YWHERE ON THE SCREEN. BECAUSE THE.CLOCK
IS INTERRUPT-DRIVEN, IT KEEPS.TICKING E
VEN WHILE OTHER PROGRAMS ARE.RUNNING...
WHEN YOU RUN IT, THE FOLLOWING.OPTIONS
ARE DISPLAYED:..F1 -- SET TIME. THIS OP
TION WILL.PROMPT TO SET THE HOUR (A.M. O
R P.M.).MINUTES, AND SECONDS...F3 -- CHA
NGES THE COLOR OF THE CLOCK...F5 -- ADJU
ST TYPE OF CLOCK. AT.FIRST, THE CLOCK D
ISPLAYS A.M. OR.P.M., HOURS, MINUTES, SE
CONDS, AND.TENTHS OF A SECOND. IF YOU W
ANT A.MINUTE TIMER INSTEAD OF A FULL CLO
CK,.FOR EXAMPLE, PRESS THE F5 KEY UNTIL.
ONLY MINUTES, SECONDS, AND TENTHS OF.A S
ECOND SHOW...F7 -- ENDS PROGRAM...CURSOR
KEYS -- MOVE CLOCK AROUND.SCREEN...HOME
-- MOVES CLOCK TO UPPER RIGHT.CORNER OF
SCREEN... AFTER YOU QUIT, THE CLOCK WI
LL BE.CONTINUALLY DISPLAYED -- UNTIL.RUN
/STOP-RESTORE IS PRESSED. EVEN.AFTER A
RUN/STOP RESTORE, HOWEVER,.YOU MAY RE-DI
SPLAY IT BY ENTERING SYS.49256... A NOT
E TO HACKERS... BECAUSE THE.CLOCK IS EAS
ILY SET AND READ FROM.BASIC, YOU COULD U
SE THE DISPLAY AS A.TIMER IN YOUR OWN AR
CADE-STYLE GAMES..SEE BENNETT COOKSON'S
COMMODORE.MAGAZINE ARTICLE FOR A CLOSER
LOOK.AT THE PROGRAM....DISK FILES THIS P
ROGRAM USES..CLOCK T.CLOCK.
. **** END OF TEXT ****.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL