00000000: 00 80 0D 0D 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
00000010: 20 C2 C1 D3 C9 C3 20 C3 CC CF C3 CB 0D 20 20 20 | ..... ...... |
00000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 59 | BY|
00000030: 0D 20 20 20 20 20 20 20 20 20 20 CA 45 52 52 59 |. .ERRY|
00000040: 20 D3 54 55 52 44 49 56 41 4E 54 0D 0D 0D C3 CF | .TURDIVANT.....|
00000050: CD CD CF C4 CF D2 C5 20 CD C1 C7 C1 DA C9 CE C5 |....... ........|
00000060: 0D CA 41 4E 55 41 52 59 20 31 39 38 37 0D 0D 2A |..ANUARY 1987..*|
00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000090: 2A 2A 2A 2A 0D CE CF D4 C5 3A 20 C2 45 43 41 55 |****.....: .ECAU|
000000A0: 53 45 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |SE THIS PROGRAM |
000000B0: 49 53 20 57 52 49 54 54 45 4E 0D 46 4F 52 20 54 |IS WRITTEN.FOR T|
000000C0: 48 45 20 C3 4F 4D 4D 4F 44 4F 52 45 20 31 32 38 |HE .OMMODORE 128|
000000D0: 2C 20 49 54 20 43 41 4E 4E 4F 54 20 42 45 0D 52 |, IT CANNOT BE.R|
000000E0: 55 4E 20 4C 49 4B 45 20 4F 54 48 45 52 20 50 52 |UN LIKE OTHER PR|
000000F0: 4F 47 52 41 4D 53 20 4F 4E 20 CC CF C1 C4 D3 D4 |OGRAMS ON ......|
00000100: C1 D2 2E 0D D4 4F 20 52 55 4E 20 54 48 49 53 20 |.....O RUN THIS |
00000110: 50 52 4F 47 52 41 4D 2C 20 4D 41 4B 45 20 53 55 |PROGRAM, MAKE SU|
00000120: 52 45 20 D3 49 44 45 20 31 0D 4F 46 20 54 48 45 |RE .IDE 1.OF THE|
00000130: 20 CC CF C1 C4 D3 D4 C1 D2 20 44 49 53 4B 20 49 | ........ DISK I|
00000140: 53 20 49 4E 20 54 48 45 20 44 52 49 56 45 2C 0D |S IN THE DRIVE,.|
00000150: 54 48 45 4E 20 50 52 45 53 53 20 59 4F 55 52 20 |THEN PRESS YOUR |
00000160: 31 32 38 27 53 20 D2 C5 D3 C5 D4 20 42 55 54 54 |128'S ..... BUTT|
00000170: 4F 4E 2E 0D D4 48 49 53 20 57 49 4C 4C 20 44 49 |ON...HIS WILL DI|
00000180: 53 50 4C 41 59 20 41 20 4D 45 4E 55 20 4F 46 20 |SPLAY A MENU OF |
00000190: 41 4C 4C 20 4F 46 0D 54 48 49 53 20 49 53 53 55 |ALL OF.THIS ISSU|
000001A0: 45 27 53 20 C3 2D 31 32 38 20 50 52 4F 47 52 41 |E'S .-128 PROGRA|
000001B0: 4D 53 2E 20 20 C3 48 4F 4F 53 45 0D 54 48 45 20 |MS. .HOOSE.THE |
000001C0: 50 52 4F 47 52 41 4D 20 59 4F 55 20 57 49 53 48 |PROGRAM YOU WISH|
000001D0: 20 54 4F 20 52 55 4E 20 46 52 4F 4D 20 54 48 49 | TO RUN FROM THI|
000001E0: 53 0D 4D 45 4E 55 2E 0D 2A 2A 2A 2A 2A 2A 2A 2A |S.MENU..********|
000001F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000200: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0D 0D |*************...|
00000210: 20 20 CC 45 54 27 53 20 46 41 43 45 20 49 54 2E | .ET'S FACE IT.|
00000220: 20 20 D1 55 49 54 45 20 41 20 46 45 57 20 4F 46 | .UITE A FEW OF|
00000230: 20 59 4F 55 0D 43 4F 4D 50 55 54 45 52 20 4F 57 | YOU.COMPUTER OW|
00000240: 4E 45 52 53 20 4F 55 54 20 54 48 45 52 45 20 41 |NERS OUT THERE A|
00000250: 52 45 20 48 41 52 53 48 0D 54 41 53 4B 4D 41 53 |RE HARSH.TASKMAS|
00000260: 54 45 52 53 2E 20 20 CF 4E 43 45 20 59 4F 55 27 |TERS. .NCE YOU'|
00000270: 56 45 20 4D 41 44 45 20 59 4F 55 52 0D 49 4E 56 |VE MADE YOUR.INV|
00000280: 45 53 54 4D 45 4E 54 2C 20 59 4F 55 20 57 41 4E |ESTMENT, YOU WAN|
00000290: 54 20 54 4F 20 47 45 54 20 59 4F 55 52 0D 4D 4F |T TO GET YOUR.MO|
000002A0: 4E 45 59 27 53 20 57 4F 52 54 48 2E 20 20 22 C2 |NEY'S WORTH. ".|
000002B0: 45 53 49 44 45 53 2C 22 20 59 4F 55 20 53 41 59 |ESIDES," YOU SAY|
000002C0: 20 41 53 0D 59 4F 55 20 54 52 59 20 54 4F 20 54 | AS.YOU TRY TO T|
000002D0: 48 49 4E 4B 20 4F 46 20 53 4F 4D 45 54 48 49 4E |HINK OF SOMETHIN|
000002E0: 47 20 59 4F 55 52 0D C3 2D 31 32 38 20 43 4F 55 |G YOUR..-128 COU|
000002F0: 4C 44 20 42 45 20 44 4F 49 4E 47 20 41 54 20 54 |LD BE DOING AT T|
00000300: 48 45 20 4D 4F 4D 45 4E 54 2C 0D 22 C1 4E 20 49 |HE MOMENT,.".N I|
00000310: 44 4C 45 20 C3 D0 D5 20 49 53 20 54 48 45 20 44 |DLE ... IS THE D|
00000320: 45 56 49 4C 27 53 0D 57 4F 52 4B 53 48 4F 50 2E |EVIL'S.WORKSHOP.|
00000330: 22 0D 0D 20 20 C2 C1 D3 C9 C3 20 C3 CC CF C3 CB |".. ..... .....|
00000340: 2C 20 4F 54 48 45 52 20 54 48 41 4E 20 42 45 49 |, OTHER THAN BEI|
00000350: 4E 47 20 41 0D 50 45 52 46 45 43 54 4C 59 20 41 |NG A.PERFECTLY A|
00000360: 57 46 55 4C 20 50 55 4E 2C 20 49 53 20 4A 55 53 |WFUL PUN, IS JUS|
00000370: 54 20 54 48 45 0D 54 48 49 4E 47 20 54 4F 20 4F |T THE.THING TO O|
00000380: 43 43 55 50 59 20 59 4F 55 52 20 31 32 38 27 53 |CCUPY YOUR 128'S|
00000390: 20 54 49 4D 45 2E 20 20 D2 55 4E 0D 54 48 45 20 | TIME. .UN.THE |
000003A0: 50 52 4F 47 52 41 4D 2C 20 53 45 54 20 54 48 45 |PROGRAM, SET THE|
000003B0: 20 54 49 4D 45 2C 20 41 4E 44 20 56 4F 49 4C 41 | TIME, AND VOILA|
000003C0: 2C 0D 59 4F 55 52 20 43 4F 4D 50 55 54 45 52 20 |,.YOUR COMPUTER |
000003D0: 4D 4F 4E 49 54 4F 52 20 49 53 20 54 52 41 4E 53 |MONITOR IS TRANS|
000003E0: 46 4F 52 4D 45 44 0D 49 4E 54 4F 20 41 20 43 4C |FORMED.INTO A CL|
000003F0: 4F 43 4B 46 41 43 45 20 43 4F 4D 50 4C 45 54 45 |OCKFACE COMPLETE|
00000400: 20 57 49 54 48 20 4D 4F 56 49 4E 47 0D 48 4F 55 | WITH MOVING.HOU|
00000410: 52 2C 20 4D 49 4E 55 54 45 2C 20 41 4E 44 20 53 |R, MINUTE, AND S|
00000420: 45 43 4F 4E 44 20 48 41 4E 44 53 2E 0D 0D 20 20 |ECOND HANDS... |
00000430: CF 46 20 43 4F 55 52 53 45 2C 20 54 48 45 20 50 |.F COURSE, THE P|
00000440: 52 4F 47 52 41 4D 4D 49 4E 47 20 55 53 45 44 20 |ROGRAMMING USED |
00000450: 54 4F 0D 57 4F 52 4B 20 54 48 49 53 20 54 52 41 |TO.WORK THIS TRA|
00000460: 4E 53 46 4F 52 4D 41 54 49 4F 4E 20 4D 49 47 48 |NSFORMATION MIGH|
00000470: 54 20 42 45 20 4F 46 0D 54 48 45 20 4D 4F 53 54 |T BE OF.THE MOST|
00000480: 20 49 4E 54 45 52 45 53 54 20 48 45 52 45 2E 20 | INTEREST HERE. |
00000490: 20 D4 4F 20 4C 45 41 52 4E 0D 4D 4F 52 45 20 41 | .O LEARN.MORE A|
000004A0: 42 4F 55 54 20 54 48 45 20 54 45 43 48 4E 49 51 |BOUT THE TECHNIQ|
000004B0: 55 45 53 20 55 53 45 44 2C 0D 43 4F 4E 53 55 4C |UES USED,.CONSUL|
000004C0: 54 20 54 48 45 20 C3 4F 4D 4D 4F 44 4F 52 45 20 |T THE .OMMODORE |
000004D0: D0 CF D7 C5 D2 2F D0 CC C1 D9 0D 4D 41 47 41 5A |...../.....MAGAZ|
000004E0: 49 4E 45 20 41 52 54 49 43 4C 45 20 43 49 54 45 |INE ARTICLE CITE|
000004F0: 44 20 41 42 4F 56 45 2E 0D 0D 0D C4 C9 D3 CB 20 |D ABOVE........ |
00000500: C6 C9 CC C5 D3 20 D4 C8 C9 D3 20 D0 D2 CF C7 D2 |..... .... .....|
00000510: C1 CD 20 D5 D3 C5 D3 0D 0D C3 CC CF C3 CB 20 CD |.. ........... .|
00000520: C5 CE D5 2E 31 32 38 20 20 20 20 20 D2 CF D5 CE |....128 ....|
00000530: C4 20 C3 CC CF C3 CB 0D C2 C1 D3 C9 C3 20 C3 CC |. ........... ..|
00000540: CF C3 CB 20 20 20 20 20 20 20 20 D4 2E C3 CC CF |... .....|
00000550: C3 CB 20 CD C5 CE D5 2E 31 32 38 0D 0D 20 20 20 |.. .....128.. |
00000560: 20 20 20 20 20 2A 2A 2A 2A 20 C5 4E 44 20 CF 46 | **** .ND .F|
00000570: 20 D4 45 58 54 20 2A 2A 2A 2A 0D | .EXT ****. |
.... BASIC CLOCK.
BY. JERRY STURDIVANT...CO
MMODORE MAGAZINE.JANUARY 1987..*********
****************************.NOTE: BECAU
SE THIS PROGRAM IS WRITTEN.FOR THE COMMO
DORE 128, IT CANNOT BE.RUN LIKE OTHER PR
OGRAMS ON LOADSTAR..TO RUN THIS PROGRAM,
MAKE SURE SIDE 1.OF THE LOADSTAR DISK I
S IN THE DRIVE,.THEN PRESS YOUR 128'S RE
SET BUTTON..THIS WILL DISPLAY A MENU OF
ALL OF.THIS ISSUE'S C-128 PROGRAMS. CHO
OSE.THE PROGRAM YOU WISH TO RUN FROM THI
S.MENU..********************************
*****... LET'S FACE IT. QUITE A FEW OF
YOU.COMPUTER OWNERS OUT THERE ARE HARSH
.TASKMASTERS. ONCE YOU'VE MADE YOUR.INV
ESTMENT, YOU WANT TO GET YOUR.MONEY'S WO
RTH. "BESIDES," YOU SAY AS.YOU TRY TO T
HINK OF SOMETHING YOUR.C-128 COULD BE DO
ING AT THE MOMENT,."AN IDLE CPU IS THE D
EVIL'S.WORKSHOP.".. BASIC CLOCK, OTHER
THAN BEING A.PERFECTLY AWFUL PUN, IS JUS
T THE.THING TO OCCUPY YOUR 128'S TIME.
RUN.THE PROGRAM, SET THE TIME, AND VOILA
,.YOUR COMPUTER MONITOR IS TRANSFORMED.I
NTO A CLOCKFACE COMPLETE WITH MOVING.HOU
R, MINUTE, AND SECOND HANDS... OF COURS
E, THE PROGRAMMING USED TO.WORK THIS TRA
NSFORMATION MIGHT BE OF.THE MOST INTERES
T HERE. TO LEARN.MORE ABOUT THE TECHNIQ
UES USED,.CONSULT THE COMMODORE POWER/PL
AY.MAGAZINE ARTICLE CITED ABOVE....DISK
FILES THIS PROGRAM USES..CLOCK MENU.128
ROUND CLOCK.BASIC CLOCK T.CLO
CK MENU.128.. **** END OF TEXT **
**.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL