00000000: 00 80 5E 55 3A 48 45 4C 50 0D 0D 0D 20 20 20 20 |..^U:HELP... |
00000010: 20 20 20 20 20 20 20 20 C3 C1 CC C5 CE C4 C1 D2 | ........|
00000020: 20 CD C1 CB C5 D2 0D 20 20 20 20 20 20 20 20 20 | ...... |
00000030: 20 20 20 20 20 20 20 20 20 42 59 0D 20 20 20 20 | BY. |
00000040: 20 20 20 20 20 20 20 20 20 C2 52 55 43 45 20 CA | .RUCE .|
00000050: 41 45 47 45 52 0D 0D 0D C3 CF CD CD CF C4 CF D2 |AEGER...........|
00000060: C5 20 CD C1 C7 C1 DA C9 CE C5 0D C1 55 47 55 53 |. ..........UGUS|
00000070: 54 20 31 39 38 37 0D 0D 0D 20 20 C8 41 56 45 20 |T 1987... .AVE |
00000080: 59 4F 55 20 45 56 45 52 20 57 4F 4E 44 45 52 45 |YOU EVER WONDERE|
00000090: 44 20 49 4E 20 57 48 41 54 20 50 41 52 54 0D 4F |D IN WHAT PART.O|
000000A0: 46 20 54 48 45 20 57 45 45 4B 20 54 48 45 20 42 |F THE WEEK THE B|
000000B0: 41 54 54 4C 45 20 4F 46 20 C7 45 54 54 59 53 42 |ATTLE OF .ETTYSB|
000000C0: 55 52 47 0D 57 41 53 20 46 4F 55 47 48 54 3F 20 |URG.WAS FOUGHT? |
000000D0: 20 C5 56 45 52 20 57 41 4E 54 45 44 20 54 4F 20 | .VER WANTED TO |
000000E0: 4B 4E 4F 57 20 57 48 41 54 0D 44 41 59 20 4F 46 |KNOW WHAT.DAY OF|
000000F0: 20 54 48 45 20 57 45 45 4B 20 59 4F 55 52 20 42 | THE WEEK YOUR B|
00000100: 49 52 54 48 44 41 59 20 57 49 4C 4C 0D 46 41 4C |IRTHDAY WILL.FAL|
00000110: 4C 20 4F 4E 20 49 4E 20 31 39 39 38 3F 0D 0D 20 |L ON IN 1998?.. |
00000120: 20 D4 48 45 20 50 52 4F 47 52 41 4D 53 20 54 48 | .HE PROGRAMS TH|
00000130: 41 54 20 43 41 4E 20 41 4E 53 57 45 52 20 54 48 |AT CAN ANSWER TH|
00000140: 45 53 45 0D 53 4F 52 54 53 20 4F 46 20 51 55 45 |ESE.SORTS OF QUE|
00000150: 53 54 49 4F 4E 53 20 41 52 45 20 43 41 4C 4C 45 |STIONS ARE CALLE|
00000160: 44 0D 50 45 52 50 45 54 55 41 4C 20 43 41 4C 45 |D.PERPETUAL CALE|
00000170: 4E 44 41 52 53 2E 20 20 D7 48 49 4C 45 20 54 48 |NDARS. .HILE TH|
00000180: 45 59 20 54 45 4E 44 0D 54 4F 20 41 4D 41 5A 45 |EY TEND.TO AMAZE|
00000190: 20 50 45 4F 50 4C 45 20 55 4E 46 41 4D 49 4C 49 | PEOPLE UNFAMILI|
000001A0: 41 52 20 57 49 54 48 0D 43 4F 4D 50 55 54 45 52 |AR WITH.COMPUTER|
000001B0: 53 2C 20 43 41 4C 45 4E 44 41 52 20 50 52 4F 47 |S, CALENDAR PROG|
000001C0: 52 41 4D 53 20 41 52 45 0D 42 41 53 45 44 20 4F |RAMS ARE.BASED O|
000001D0: 4E 20 41 20 57 45 4C 4C 2D 4B 4E 4F 57 4E 20 41 |N A WELL-KNOWN A|
000001E0: 4C 47 4F 52 49 54 48 4D 20 41 4E 44 0D 41 52 45 |LGORITHM AND.ARE|
000001F0: 20 51 55 49 54 45 20 45 41 53 59 20 54 4F 20 57 | QUITE EASY TO W|
00000200: 52 49 54 45 2E 0D 0D 20 20 C3 C1 CC C5 CE C4 C1 |RITE... .......|
00000210: D2 20 CD C1 CB C5 D2 20 49 53 20 41 20 50 45 52 |. ..... IS A PER|
00000220: 50 45 54 55 41 4C 0D 43 41 4C 45 4E 44 41 52 20 |PETUAL.CALENDAR |
00000230: 57 48 49 43 48 20 50 52 49 4E 54 53 20 41 20 59 |WHICH PRINTS A Y|
00000240: 45 41 52 27 53 20 57 4F 52 54 48 0D 4F 46 20 4D |EAR'S WORTH.OF M|
00000250: 4F 4E 54 48 4C 59 20 43 41 4C 45 4E 44 41 52 53 |ONTHLY CALENDARS|
00000260: 20 50 45 52 20 50 41 47 45 2E 20 20 D4 4F 0D 55 | PER PAGE. .O.U|
00000270: 53 45 20 54 48 45 20 50 52 4F 47 52 41 4D 2C 20 |SE THE PROGRAM, |
00000280: 53 49 4D 50 4C 59 20 45 4E 54 45 52 20 54 48 45 |SIMPLY ENTER THE|
00000290: 0D 42 45 47 49 4E 4E 49 4E 47 20 41 4E 44 20 45 |.BEGINNING AND E|
000002A0: 4E 44 49 4E 47 20 59 45 41 52 53 2E 20 20 28 CB |NDING YEARS. (.|
000002B0: 45 45 50 20 49 4E 0D 4D 49 4E 44 20 54 48 41 54 |EEP IN.MIND THAT|
000002C0: 20 4F 55 54 50 55 54 20 47 4F 45 53 20 54 4F 20 | OUTPUT GOES TO |
000002D0: 54 48 45 20 50 52 49 4E 54 45 52 2C 0D 4E 4F 54 |THE PRINTER,.NOT|
000002E0: 20 54 4F 20 54 48 45 20 53 43 52 45 45 4E 2E 29 | TO THE SCREEN.)|
000002F0: 0D 0D 20 20 C1 20 46 49 4E 41 4C 20 4E 4F 54 45 |.. . FINAL NOTE|
00000300: 3A 20 59 4F 55 20 4D 41 59 20 4E 4F 54 20 55 53 |: YOU MAY NOT US|
00000310: 45 20 59 45 41 52 53 0D 45 41 52 4C 49 45 52 20 |E YEARS.EARLIER |
00000320: 54 48 41 4E 20 31 37 35 32 20 28 54 48 45 20 59 |THAN 1752 (THE Y|
00000330: 45 41 52 20 54 48 45 0D C5 4E 47 4C 49 53 48 2D |EAR THE..NGLISH-|
00000340: 53 50 45 41 4B 49 4E 47 20 57 4F 52 4C 44 20 41 |SPEAKING WORLD A|
00000350: 44 4F 50 54 45 44 20 54 48 45 0D C7 52 45 47 4F |DOPTED THE..REGO|
00000360: 52 49 41 4E 20 C3 41 4C 45 4E 44 41 52 29 2E 0D |RIAN .ALENDAR)..|
00000370: 0D 0D C4 C9 D3 CB 20 C6 C9 CC C5 D3 20 D4 C8 C9 |...... ..... ...|
00000380: D3 20 D0 D2 CF C7 D2 C1 CD 20 D5 D3 C5 D3 3A 0D |. ....... ....:.|
00000390: 0D C3 C1 CC C5 CE C4 C1 D2 20 CD C1 CB C5 D2 20 |......... ..... |
000003A0: 20 20 20 20 D4 2E C3 C1 CC C5 CE C4 C1 D2 20 CD | .......... .|
000003B0: C1 CB C5 D2 0D 0D 20 20 20 20 20 20 20 20 2A 2A |...... **|
000003C0: 2A 2A 20 C5 4E 44 20 CF 46 20 D4 45 58 54 20 2A |** .ND .F .EXT *|
000003D0: 2A 2A 2A 0D |***. |
..^U:HELP... CALENDAR MAKER.
BY. BRUCE J
AEGER...COMMODORE MAGAZINE.AUGUST 1987..
. HAVE YOU EVER WONDERED IN WHAT PART.O
F THE WEEK THE BATTLE OF GETTYSBURG.WAS
FOUGHT? EVER WANTED TO KNOW WHAT.DAY OF
THE WEEK YOUR BIRTHDAY WILL.FALL ON IN
1998?.. THE PROGRAMS THAT CAN ANSWER TH
ESE.SORTS OF QUESTIONS ARE CALLED.PERPET
UAL CALENDARS. WHILE THEY TEND.TO AMAZE
PEOPLE UNFAMILIAR WITH.COMPUTERS, CALEN
DAR PROGRAMS ARE.BASED ON A WELL-KNOWN A
LGORITHM AND.ARE QUITE EASY TO WRITE...
CALENDAR MAKER IS A PERPETUAL.CALENDAR
WHICH PRINTS A YEAR'S WORTH.OF MONTHLY C
ALENDARS PER PAGE. TO.USE THE PROGRAM,
SIMPLY ENTER THE.BEGINNING AND ENDING YE
ARS. (KEEP IN.MIND THAT OUTPUT GOES TO
THE PRINTER,.NOT TO THE SCREEN.).. A FI
NAL NOTE: YOU MAY NOT USE YEARS.EARLIER
THAN 1752 (THE YEAR THE.ENGLISH-SPEAKING
WORLD ADOPTED THE.GREGORIAN CALENDAR)..
..DISK FILES THIS PROGRAM USES:..CALENDA
R MAKER T.CALENDAR MAKER.. **
** END OF TEXT ****.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL