00000000: 00 80 5E 55 3A 48 45 4C 50 0D 20 20 20 20 CC 20 |..^U:HELP. . |
00000010: D5 20 CE 20 C1 20 D2 20 20 20 C3 20 C1 20 CC 20 |. . . . . . . |
00000020: C5 20 CE 20 C4 20 C1 20 D2 0D 0D 20 20 20 20 20 |. . . . ... |
00000030: 20 20 20 20 42 59 20 D4 4F 4E 59 20 C8 45 52 52 | BY .ONY .ERR|
00000040: 49 4E 47 54 4F 4E 0D 0D 20 20 20 20 C1 20 4D 45 |INGTON.. . ME|
00000050: 52 45 20 31 2E 33 20 4C 49 47 48 54 2D 53 45 43 |RE 1.3 LIGHT-SEC|
00000060: 4F 4E 44 53 20 46 52 4F 4D 0D 45 41 52 54 48 2C |ONDS FROM.EARTH,|
00000070: 20 54 48 45 20 4D 4F 4F 4E 20 28 41 4E 44 20 49 | THE MOON (AND I|
00000080: 54 53 20 50 48 41 53 45 53 29 0D 48 41 53 20 50 |TS PHASES).HAS P|
00000090: 4C 41 59 45 44 20 41 20 53 49 47 4E 49 46 49 43 |LAYED A SIGNIFIC|
000000A0: 41 4E 54 20 52 4F 4C 45 20 49 4E 0D 52 45 4C 49 |ANT ROLE IN.RELI|
000000B0: 47 49 4F 4E 2C 20 4C 45 47 45 4E 44 20 41 4E 44 |GION, LEGEND AND|
000000C0: 20 4D 59 54 48 4F 4C 4F 47 59 2E 0D 0D 20 20 20 | MYTHOLOGY... |
000000D0: 20 C9 4E 20 4F 4C 44 45 4E 20 54 49 4D 45 53 2C | .N OLDEN TIMES,|
000000E0: 20 49 54 20 54 4F 4F 4B 20 43 48 41 52 54 53 2C | IT TOOK CHARTS,|
000000F0: 0D 47 52 41 50 48 53 2C 20 41 4E 44 20 41 20 43 |.GRAPHS, AND A C|
00000100: 4C 49 43 4B 49 4E 47 20 41 42 41 43 55 53 20 49 |LICKING ABACUS I|
00000110: 4E 0D 4F 52 44 45 52 20 54 4F 20 50 52 45 44 49 |N.ORDER TO PREDI|
00000120: 43 54 20 54 48 45 20 50 48 41 53 45 53 20 4F 46 |CT THE PHASES OF|
00000130: 20 54 48 45 0D 4D 4F 4F 4E 20 57 49 54 48 20 41 | THE.MOON WITH A|
00000140: 4E 59 20 41 4D 4F 55 4E 54 20 4F 46 20 41 43 43 |NY AMOUNT OF ACC|
00000150: 55 52 41 43 59 2E 0D C1 4E 44 20 41 46 54 45 52 |URACY...ND AFTER|
00000160: 20 41 4C 4C 20 54 48 41 54 20 42 4C 49 53 54 45 | ALL THAT BLISTE|
00000170: 52 49 4E 47 20 57 4F 52 4B 2C 0D 59 4F 55 20 4F |RING WORK,.YOU O|
00000180: 4E 4C 59 20 47 4F 54 20 CF CE C5 20 4D 4F 4F 4E |NLY GOT ... MOON|
00000190: 20 50 48 41 53 45 21 20 20 D3 48 45 45 53 48 21 | PHASE! .HEESH!|
000001A0: 0D CE 4F 57 2C 20 49 4E 20 54 4F 44 41 59 27 53 |..OW, IN TODAY'S|
000001B0: 20 43 4F 4D 50 55 54 45 52 20 41 47 45 2C 20 59 | COMPUTER AGE, Y|
000001C0: 4F 55 0D 4A 55 53 54 20 42 4F 4F 54 20 55 50 20 |OU.JUST BOOT UP |
000001D0: D4 4F 4E 59 20 C8 45 52 52 49 4E 47 54 4F 4E 27 |.ONY .ERRINGTON'|
000001E0: 53 20 CC D5 CE C1 D2 0D C3 C1 CC C5 CE C4 C1 D2 |S ..............|
000001F0: 2C 20 45 4E 54 45 52 20 41 20 59 45 41 52 20 41 |, ENTER A YEAR A|
00000200: 4E 44 20 53 45 45 20 41 4E 0D 45 4E 54 49 52 45 |ND SEE AN.ENTIRE|
00000210: 20 59 45 41 52 27 53 20 57 4F 52 54 48 20 4F 46 | YEAR'S WORTH OF|
00000220: 20 4D 4F 4F 4E 20 50 48 41 53 45 53 21 0D 20 20 | MOON PHASES!. |
00000230: 20 20 CC D5 CE C1 D2 20 C3 C1 CC C5 CE C4 C1 D2 | ..... ........|
00000240: 20 57 4F 52 4B 53 20 57 49 54 48 20 53 43 52 45 | WORKS WITH SCRE|
00000250: 45 4E 0D 4F 55 54 50 55 54 20 4F 52 20 57 49 54 |EN.OUTPUT OR WIT|
00000260: 48 20 31 35 32 35 20 43 4F 4D 50 41 54 49 42 4C |H 1525 COMPATIBL|
00000270: 45 0D 50 52 49 4E 54 45 52 53 2E 20 20 D4 48 45 |E.PRINTERS. .HE|
00000280: 52 45 20 49 53 20 41 4C 53 4F 20 41 4E 20 4F 50 |RE IS ALSO AN OP|
00000290: 54 49 4F 4E 0D 46 4F 52 20 C5 D0 D3 CF CE 20 C6 |TION.FOR ..... .|
000002A0: D8 2D 38 30 20 41 4E 44 20 43 4F 4D 50 41 54 49 |.-80 AND COMPATI|
000002B0: 42 4C 45 0D 50 52 49 4E 54 45 52 53 2E 0D 0D 20 |BLE.PRINTERS... |
000002C0: 20 20 20 C1 46 54 45 52 20 43 48 4F 4F 53 49 4E | .FTER CHOOSIN|
000002D0: 47 20 59 4F 55 52 20 4F 55 54 50 55 54 0D 44 45 |G YOUR OUTPUT.DE|
000002E0: 56 49 43 45 2C 20 4A 55 53 54 20 54 59 50 45 20 |VICE, JUST TYPE |
000002F0: 49 4E 20 54 48 45 20 59 45 41 52 20 28 41 46 54 |IN THE YEAR (AFT|
00000300: 45 52 0D 31 35 38 33 29 20 41 4E 44 20 57 41 49 |ER.1583) AND WAI|
00000310: 54 20 32 38 2E 34 20 53 45 43 4F 4E 44 53 2E 20 |T 28.4 SECONDS. |
00000320: 20 32 38 2E 34 0D 53 45 43 4F 4E 44 53 3F 20 20 | 28.4.SECONDS? |
00000330: C9 53 4E 27 54 20 54 48 41 54 20 41 20 54 41 44 |.SN'T THAT A TAD|
00000340: 20 4C 4F 4E 47 20 46 4F 52 20 41 0D 43 4F 4D 50 | LONG FOR A.COMP|
00000350: 49 4C 45 44 20 C2 C1 D3 C9 C3 20 50 52 4F 47 52 |ILED ..... PROGR|
00000360: 41 4D 20 54 4F 20 43 41 4C 43 55 4C 41 54 45 0D |AM TO CALCULATE.|
00000370: 4D 45 52 45 20 4D 4F 4F 4E 20 50 48 41 53 45 53 |MERE MOON PHASES|
00000380: 3F 20 20 CE 4F 21 20 20 C9 54 27 53 20 46 41 53 |? .O! .T'S FAS|
00000390: 54 2C 0D 43 4F 4E 53 49 44 45 52 49 4E 47 20 54 |T,.CONSIDERING T|
000003A0: 48 41 54 20 49 54 27 53 20 43 41 4C 43 55 4C 41 |HAT IT'S CALCULA|
000003B0: 54 49 4E 47 20 33 36 35 0D 50 48 41 53 45 53 20 |TING 365.PHASES |
000003C0: 41 4C 4C 20 41 54 20 4F 4E 43 45 2C 20 49 54 20 |ALL AT ONCE, IT |
000003D0: 54 41 4B 45 53 20 41 4E 0D 41 56 45 52 41 47 45 |TAKES AN.AVERAGE|
000003E0: 20 4F 46 20 53 45 56 45 4E 54 59 2D 45 49 47 48 | OF SEVENTY-EIGH|
000003F0: 54 20 54 48 4F 55 53 41 4E 44 54 48 53 0D 4F 46 |T THOUSANDTHS.OF|
00000400: 20 41 20 53 45 43 4F 4E 44 20 46 4F 52 20 45 41 | A SECOND FOR EA|
00000410: 43 48 20 50 48 41 53 45 21 20 20 C6 45 45 4C 0D |CH PHASE! .EEL.|
00000420: 42 45 54 54 45 52 3F 20 20 C6 4F 52 20 54 48 4F |BETTER? .OR THO|
00000430: 53 45 20 4F 46 20 59 4F 55 20 57 48 4F 20 57 41 |SE OF YOU WHO WA|
00000440: 4E 54 20 54 4F 0D 53 45 45 20 54 48 45 20 C2 C1 |NT TO.SEE THE ..|
00000450: D3 C9 C3 20 4C 49 53 54 49 4E 47 2C 20 49 54 27 |... LISTING, IT'|
00000460: 53 20 4F 4E 20 53 49 44 45 20 33 0D 49 4E 20 41 |S ON SIDE 3.IN A|
00000470: 20 46 49 4C 45 20 43 41 4C 4C 45 44 20 CC D5 CE | FILE CALLED ...|
00000480: C1 D2 2E C2 C1 D3 2E 0D 0D 20 20 20 20 C1 46 54 |......... .FT|
00000490: 45 52 20 59 4F 55 52 20 59 45 41 52 27 53 20 57 |ER YOUR YEAR'S W|
000004A0: 4F 52 54 48 20 4F 46 20 50 48 41 53 45 53 0D 41 |ORTH OF PHASES.A|
000004B0: 52 45 20 43 41 4C 43 55 4C 41 54 45 44 2C 20 59 |RE CALCULATED, Y|
000004C0: 4F 55 20 43 41 4E 20 50 52 49 4E 54 20 41 0D 43 |OU CAN PRINT A.C|
000004D0: 41 4C 45 4E 44 41 52 20 46 4F 52 20 54 48 45 20 |ALENDAR FOR THE |
000004E0: 45 4E 54 49 52 45 20 59 45 41 52 20 4F 52 20 59 |ENTIRE YEAR OR Y|
000004F0: 4F 55 0D 43 41 4E 20 56 49 45 57 20 54 48 45 20 |OU.CAN VIEW THE |
00000500: 4D 4F 4F 4E 20 50 48 41 53 45 53 20 42 59 20 54 |MOON PHASES BY T|
00000510: 48 45 20 4D 4F 4E 54 48 0D 4F 4E 20 54 48 45 20 |HE MONTH.ON THE |
00000520: 53 43 52 45 45 4E 2E 20 20 D9 4F 55 20 48 41 56 |SCREEN. .OU HAV|
00000530: 45 20 54 57 4F 20 43 48 4F 49 43 45 53 0D 46 4F |E TWO CHOICES.FO|
00000540: 52 20 53 43 52 45 45 4E 20 4F 55 54 50 55 54 3A |R SCREEN OUTPUT:|
00000550: 20 54 48 45 20 47 52 41 50 48 49 43 0D 43 41 4C | THE GRAPHIC.CAL|
00000560: 45 4E 44 41 52 2C 20 57 48 49 43 48 20 57 49 4C |ENDAR, WHICH WIL|
00000570: 4C 20 53 48 4F 57 20 59 4F 55 20 57 48 41 54 0D |L SHOW YOU WHAT.|
00000580: 54 48 45 20 4D 4F 4F 4E 20 57 49 4C 4C 20 4C 4F |THE MOON WILL LO|
00000590: 4F 4B 20 4C 49 4B 45 20 4F 4E 20 41 4E 59 20 47 |OK LIKE ON ANY G|
000005A0: 49 56 45 4E 0D 44 41 59 2C 20 4F 52 20 54 48 45 |IVEN.DAY, OR THE|
000005B0: 20 54 48 45 20 C5 4E 47 4C 49 53 48 20 54 52 41 | THE .NGLISH TRA|
000005C0: 4E 53 4C 41 54 49 4F 4E 2C 0D 57 48 49 43 48 20 |NSLATION,.WHICH |
000005D0: 43 41 4E 20 54 45 41 43 48 20 54 48 45 20 44 49 |CAN TEACH THE DI|
000005E0: 46 46 45 52 45 4E 43 45 0D 42 45 54 57 45 45 4E |FFERENCE.BETWEEN|
000005F0: 20 41 20 22 4C 41 53 54 20 51 55 41 52 54 45 52 | A "LAST QUARTER|
00000600: 22 20 41 4E 44 20 41 20 22 57 41 58 49 4E 47 0D |" AND A "WAXING.|
00000610: 47 49 42 42 4F 55 53 2E 22 0D 0D 20 20 20 20 C2 |GIBBOUS.".. .|
00000620: 4F 54 48 20 53 43 52 45 45 4E 53 20 41 52 45 20 |OTH SCREENS ARE |
00000630: C3 D5 D2 D3 CF D2 2F D2 C5 D4 D5 D2 CE 0D 44 52 |....../.......DR|
00000640: 49 56 45 4E 20 53 4F 20 59 4F 55 20 53 48 4F 55 |IVEN SO YOU SHOU|
00000650: 4C 44 20 48 41 56 45 20 4E 4F 20 54 52 4F 55 42 |LD HAVE NO TROUB|
00000660: 4C 45 0D 55 53 49 4E 47 20 54 48 45 4D 2E 20 20 |LE.USING THEM. |
00000670: D9 4F 55 20 4D 41 59 20 45 58 49 54 20 45 49 54 |.OU MAY EXIT EIT|
00000680: 48 45 52 0D 53 43 52 45 45 4E 20 42 59 20 50 52 |HER.SCREEN BY PR|
00000690: 45 53 53 49 4E 47 20 D1 2E 0D 0D 20 20 20 20 D7 |ESSING .... .|
000006A0: 48 4F 20 4E 45 45 44 53 20 4D 4F 4F 4E 20 50 48 |HO NEEDS MOON PH|
000006B0: 41 53 45 53 3F 20 20 C2 45 4C 49 45 56 45 20 49 |ASES? .ELIEVE I|
000006C0: 54 0D 4F 52 20 4E 4F 54 2C 20 50 4C 45 4E 54 59 |T.OR NOT, PLENTY|
000006D0: 20 4F 46 20 50 45 4F 50 4C 45 20 4D 4F 4F 4E 47 | OF PEOPLE MOONG|
000006E0: 41 5A 45 2E 0D D3 4F 4D 45 20 4F 4E 4C 59 20 50 |AZE...OME ONLY P|
000006F0: 4C 41 4E 54 20 44 55 52 49 4E 47 20 41 20 57 41 |LANT DURING A WA|
00000700: 58 49 4E 47 0D 47 49 42 42 4F 55 53 2E 20 20 D3 |XING.GIBBOUS. .|
00000710: 4F 4D 45 20 50 45 4F 50 4C 45 20 44 4F 4E 27 54 |OME PEOPLE DON'T|
00000720: 20 44 41 54 45 20 4F 4E 0D 46 55 4C 4C 20 4D 4F | DATE ON.FULL MO|
00000730: 4F 4E 53 2E 20 20 C1 4E 44 20 46 4F 52 20 53 4F |ONS. .ND FOR SO|
00000740: 4D 45 20 57 45 49 52 44 0D 52 45 41 53 4F 4E 2C |ME WEIRD.REASON,|
00000750: 20 50 4F 4C 49 43 45 20 53 54 41 54 49 4F 4E 53 | POLICE STATIONS|
00000760: 20 48 41 56 45 20 54 48 45 49 52 0D 48 41 4E 44 | HAVE THEIR.HAND|
00000770: 53 20 46 55 4C 4C 20 44 55 52 49 4E 47 20 46 55 |S FULL DURING FU|
00000780: 4C 4C 20 4D 4F 4F 4E 53 2E 0D 0D 20 20 20 20 C1 |LL MOONS... .|
00000790: 53 20 59 4F 55 20 43 41 4E 20 53 45 45 2C 20 54 |S YOU CAN SEE, T|
000007A0: 48 45 20 4D 4F 4F 4E 20 C9 D3 20 54 48 45 52 45 |HE MOON .. THERE|
000007B0: 0D 46 4F 52 20 47 4F 4F 44 20 52 45 41 53 4F 4E |.FOR GOOD REASON|
000007C0: 53 20 42 45 53 49 44 45 53 20 4C 45 54 54 49 4E |S BESIDES LETTIN|
000007D0: 47 20 59 4F 55 0D 4B 4E 4F 57 20 54 48 45 20 53 |G YOU.KNOW THE S|
000007E0: 55 4E 20 49 53 20 4F 4E 20 54 48 45 20 4F 54 48 |UN IS ON THE OTH|
000007F0: 45 52 20 53 49 44 45 20 4F 46 0D 54 48 45 20 45 |ER SIDE OF.THE E|
00000800: 41 52 54 48 2E 20 20 CF 4E 43 45 20 49 4E 20 41 |ARTH. .NCE IN A|
00000810: 20 57 48 49 4C 45 20 45 56 45 4E 20 C9 0D 44 52 | WHILE EVEN ..DR|
00000820: 41 47 20 4F 55 54 20 54 48 45 20 4F 4C 44 20 D4 |AG OUT THE OLD .|
00000830: 41 53 43 4F 20 46 4F 52 20 41 20 43 4C 4F 53 45 |ASCO FOR A CLOSE|
00000840: 20 55 50 0D 56 49 45 57 20 4F 46 20 54 48 45 20 | UP.VIEW OF THE |
00000850: 4D 4F 4F 4E 2C 20 43 48 45 43 4B 49 4E 47 20 46 |MOON, CHECKING F|
00000860: 4F 52 20 4E 45 57 0D 43 52 41 54 45 52 53 20 41 |OR NEW.CRATERS A|
00000870: 4E 44 20 46 4F 4F 54 50 52 49 4E 54 53 2C 20 42 |ND FOOTPRINTS, B|
00000880: 55 54 20 4D 4F 53 54 4C 59 20 C9 0D 4C 4F 4F 4B |UT MOSTLY ..LOOK|
00000890: 20 46 4F 52 20 4E 45 57 20 CC CF C1 C4 D3 D4 C1 | FOR NEW .......|
000008A0: D2 20 53 55 42 53 43 52 49 42 45 52 53 2E 0D D2 |. SUBSCRIBERS...|
000008B0: 45 4D 45 4D 42 45 52 2C 20 41 54 20 CC CF C1 C4 |EMEMBER, AT ....|
000008C0: D3 D4 C1 D2 20 57 45 20 44 4F 4E 27 54 0D 44 49 |.... WE DON'T.DI|
000008D0: 53 43 52 49 4D 49 4E 41 54 45 20 4F 4E 20 54 48 |SCRIMINATE ON TH|
000008E0: 45 20 42 41 53 49 53 20 4F 46 20 52 41 43 45 2C |E BASIS OF RACE,|
000008F0: 0D 53 45 58 20 4F 52 20 50 4C 41 4E 45 54 20 4F |.SEX OR PLANET O|
00000900: 46 20 4F 52 49 47 49 4E 2E 0D 0D C4 C9 D3 CB 20 |F ORIGIN....... |
00000910: C6 C9 CC C5 D3 20 D4 C8 C9 D3 20 D0 D2 CF C7 D2 |..... .... .....|
00000920: C1 CD 20 D5 D3 C5 D3 0D 0D CC D5 CE C1 D2 20 C3 |.. ........... .|
00000930: C1 CC C5 CE C4 C1 D2 20 20 20 20 20 D4 2E CC D5 |....... ....|
00000940: CE C1 D2 20 C3 C1 CC C5 CE C4 C1 D2 0D 0D 20 20 |... .......... |
00000950: 20 20 20 20 20 2A 2A 2A 2A 20 C5 4E 44 20 CF 46 | **** .ND .F|
00000960: 20 D4 45 58 54 20 2A 2A 2A 2A 0D | .EXT ****. |
..^U:HELP. L U N A R C A L E N D A
R.. BY TONY HERRINGTON.. A ME
RE 1.3 LIGHT-SECONDS FROM.EARTH, THE MOO
N (AND ITS PHASES).HAS PLAYED A SIGNIFIC
ANT ROLE IN.RELIGION, LEGEND AND MYTHOLO
GY... IN OLDEN TIMES, IT TOOK CHARTS,
.GRAPHS, AND A CLICKING ABACUS IN.ORDER
TO PREDICT THE PHASES OF THE.MOON WITH A
NY AMOUNT OF ACCURACY..AND AFTER ALL THA
T BLISTERING WORK,.YOU ONLY GOT ONE MOON
PHASE! SHEESH!.NOW, IN TODAY'S COMPUTE
R AGE, YOU.JUST BOOT UP TONY HERRINGTON'
S LUNAR.CALENDAR, ENTER A YEAR AND SEE A
N.ENTIRE YEAR'S WORTH OF MOON PHASES!.
LUNAR CALENDAR WORKS WITH SCREEN.OUTPU
T OR WITH 1525 COMPATIBLE.PRINTERS. THE
RE IS ALSO AN OPTION.FOR EPSON FX-80 AND
COMPATIBLE.PRINTERS... AFTER CHOOSIN
G YOUR OUTPUT.DEVICE, JUST TYPE IN THE Y
EAR (AFTER.1583) AND WAIT 28.4 SECONDS.
28.4.SECONDS? ISN'T THAT A TAD LONG FO
R A.COMPILED BASIC PROGRAM TO CALCULATE.
MERE MOON PHASES? NO! IT'S FAST,.CONSI
DERING THAT IT'S CALCULATING 365.PHASES
ALL AT ONCE, IT TAKES AN.AVERAGE OF SEVE
NTY-EIGHT THOUSANDTHS.OF A SECOND FOR EA
CH PHASE! FEEL.BETTER? FOR THOSE OF YO
U WHO WANT TO.SEE THE BASIC LISTING, IT'
S ON SIDE 3.IN A FILE CALLED LUNAR.BAS..
. AFTER YOUR YEAR'S WORTH OF PHASES.A
RE CALCULATED, YOU CAN PRINT A.CALENDAR
FOR THE ENTIRE YEAR OR YOU.CAN VIEW THE
MOON PHASES BY THE MONTH.ON THE SCREEN.
YOU HAVE TWO CHOICES.FOR SCREEN OUTPUT:
THE GRAPHIC.CALENDAR, WHICH WILL SHOW Y
OU WHAT.THE MOON WILL LOOK LIKE ON ANY G
IVEN.DAY, OR THE THE ENGLISH TRANSLATION
,.WHICH CAN TEACH THE DIFFERENCE.BETWEEN
A "LAST QUARTER" AND A "WAXING.GIBBOUS.
".. BOTH SCREENS ARE CURSOR/RETURN.DR
IVEN SO YOU SHOULD HAVE NO TROUBLE.USING
THEM. YOU MAY EXIT EITHER.SCREEN BY PR
ESSING Q... WHO NEEDS MOON PHASES? B
ELIEVE IT.OR NOT, PLENTY OF PEOPLE MOONG
AZE..SOME ONLY PLANT DURING A WAXING.GIB
BOUS. SOME PEOPLE DON'T DATE ON.FULL MO
ONS. AND FOR SOME WEIRD.REASON, POLICE
STATIONS HAVE THEIR.HANDS FULL DURING FU
LL MOONS... AS YOU CAN SEE, THE MOON
IS THERE.FOR GOOD REASONS BESIDES LETTIN
G YOU.KNOW THE SUN IS ON THE OTHER SIDE
OF.THE EARTH. ONCE IN A WHILE EVEN I.DR
AG OUT THE OLD TASCO FOR A CLOSE UP.VIEW
OF THE MOON, CHECKING FOR NEW.CRATERS A
ND FOOTPRINTS, BUT MOSTLY I.LOOK FOR NEW
LOADSTAR SUBSCRIBERS..REMEMBER, AT LOAD
STAR WE DON'T.DISCRIMINATE ON THE BASIS
OF RACE,.SEX OR PLANET OF ORIGIN...DISK
FILES THIS PROGRAM USES..LUNAR CALENDAR
T.LUNAR CALENDAR.. **** END OF
TEXT ****.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL