_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

LUNAR.BAS

FILE INFORMATION

FILENAME(S): LUNAR.BAS

FILE TYPE(S): PRG

FILE SIZE: 14.8K

FIRST SEEN: 2025-11-30 18:05:25

APPEARS ON: 2 disk(s)

FILE HASH

8cb7d7d50d065d8ab9c8cf1d15ddc5b3535067910e297eec9b149db599d33bf5

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
LOADSTAR 58 S 3 LUNAR.BAS PRG Xii 29 1 DOWNLOAD FILE
LOADSTAR 58 S 3 LUNAR.BAS PRG Sailor, Ganheden 29 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 10 08 0A 00 8F 20  40 20 53 20 31 30 32 34  |....... @ S 1024|
00000010: 00 4E 08 14 00 86 59 25  28 31 32 2C 33 31 2C 32  |.N....Y%(12,31,2|
00000020: 29 2C 50 24 28 31 31 29  2C 4D 4F 24 28 31 32 29  |),P$(11),MO$(12)|
00000030: 2C 4D 24 28 31 32 29 2C  4D 4F 25 28 31 32 29 2C  |,M$(12),MO%(12),|
00000040: 44 59 24 28 37 29 2C 57  25 28 37 2C 31 29 00 69  |DY$(7),W%(7,1).i|
00000050: 08 1E 00 53 58 B2 32 39  2E 35 33 30 35 38 38 3A  |...SX.29.530588:|
00000060: 8F 40 20 45 20 33 38 30  30 00 7E 08 28 00 97 35  |.@ E 3800.~.(..5|
00000070: 33 32 34 38 AA 32 31 2C  30 3A 5A 25 B2 31 00 AC  |3248.21,0:Z%.1..|
00000080: 08 32 00 8F 20 4C 55 4E  41 52 20 50 48 41 53 45  |.2.. LUNAR PHASE|
00000090: 20 43 41 4C 45 4E 44 41  52 20 4E 4F 52 4D 20 35  | CALENDAR NORM 5|
000000A0: 36 35 37 36 20 31 39 35  2C 31 39 36 00 CC 08 3C  |6576 195,196...<|
000000B0: 00 97 35 36 35 37 36 2C  31 39 35 3A 97 36 34 38  |..56576,195:.648|
000000C0: 2C 34 3A 97 35 33 32 37  32 2C 32 31 00 0C 09 46  |,4:.53272,21...F|
000000D0: 00 8F 20 46 4F 52 20 31  35 32 35 2F 38 30 31 2F  |.. FOR 1525/801/|
000000E0: 38 30 33 20 41 4E 44 20  45 50 53 4F 4E 20 46 58  |803 AND EPSON FX|
000000F0: 2D 38 30 20 50 52 49 4E  54 45 52 53 20 41 4E 44  |-80 PRINTERS AND|
00000100: 20 43 4F 4D 50 41 54 49  42 4C 45 53 00 44 09 50  | COMPATIBLES.D.P|
00000110: 00 56 49 43 B2 35 33 32  34 38 3A 97 32 30 34 30  |.VIC.53248:.2040|
00000120: 2C 31 35 3A 99 C7 28 31  34 32 29 22 93 08 22 3A  |,15:..(142)"..":|
00000130: 8D 31 39 33 30 3A 8D 32  35 30 30 3A 97 32 30 34  |.1930:.2500:.204|
00000140: 31 2C 31 34 00 79 09 5A  00 97 35 33 32 38 37 2C  |1,14.y.Z..53287,|
00000150: 33 3A 97 56 49 AA 32 39  2C 33 3A 97 35 33 32 37  |3:.VI.29,3:.5327|
00000160: 35 2C 32 35 35 3A 81 49  B2 39 36 30 A4 39 38 33  |5,255:.I.960.983|
00000170: 3A 97 49 2C 32 35 35 3A  82 00 99 09 64 00 81 49  |:.I,255:....d..I|
00000180: B2 39 38 34 A4 31 30 32  32 3A 97 49 2C 30 3A 82  |.984.1022:.I,0:.|
00000190: 3A 58 24 B2 C7 28 31 33  29 00 CC 09 6E 00 81 49  |:X$..(13)...n..I|
000001A0: B2 38 39 36 A4 39 31 39  3A 97 49 2C 32 35 35 3A  |.896.919:.I,255:|
000001B0: 82 3A 81 49 B2 39 32 30  A4 39 35 39 3A 97 49 2C  |.:.I.920.959:.I,|
000001C0: 30 3A 82 3A 97 35 33 32  38 38 2C 31 00 00 0A 78  |0:.:.53288,1...x|
000001D0: 00 97 32 31 34 2C 31 36  3A 99 3A 99 A3 37 29 22  |..214,16:.:..7)"|
000001E0: 12 50 4C 45 41 53 45 20  53 45 4C 45 43 54 20 54  |.PLEASE SELECT T|
000001F0: 59 50 45 20 4F 46 20 4F  55 54 50 55 54 3A 11 22  |YPE OF OUTPUT:."|
00000200: 00 21 0A 82 00 99 A3 37  29 22 12 31 2E 20 31 35  |.!.....7)".1. 15|
00000210: 32 35 20 4F 52 20 43 4F  4D 50 41 54 49 42 4C 45  |25 OR COMPATIBLE|
00000220: 22 00 49 0A 8C 00 99 A3  37 29 22 12 32 2E 20 45  |".I.....7)".2. E|
00000230: 50 53 4F 4E 20 46 58 2D  38 30 20 4F 52 20 43 4F  |PSON FX-80 OR CO|
00000240: 4D 50 41 54 49 42 4C 45  22 00 6D 0A 96 00 99 A3  |MPATIBLE".m.....|
00000250: 37 29 22 12 33 2E 20 53  43 52 45 45 4E 22 3A 99  |7)".3. SCREEN":.|
00000260: A3 37 29 22 12 51 2E 20  51 55 49 54 22 00 98 0A  |.7)".Q. QUIT"...|
00000270: A0 00 A1 41 24 3A 8D 32  35 37 30 3A 8B 28 41 24  |...A$:.2570:.(A$|
00000280: B3 22 31 22 B0 41 24 B1  22 33 22 29 AF 41 24 B3  |."1".A$."3").A$.|
00000290: B1 22 51 22 A7 31 36 30  00 C8 0A AA 00 8B 41 24  |."Q".160......A$|
000002A0: B2 22 51 22 A7 97 36 34  36 2C 30 3A 8D 32 35 38  |."Q"..646,0:.258|
000002B0: 30 3A 8D 32 35 34 30 3A  8D 33 31 36 30 3A 8D 32  |0:.2540:.3160:.2|
000002C0: 35 34 30 3A 89 31 32 30  00 00 0B B4 00 97 36 34  |540:.120......64|
000002D0: 36 2C 30 3A 8D 32 35 38  30 3A 8D 32 35 34 30 3A  |6,0:.2580:.2540:|
000002E0: 97 32 31 34 2C 31 38 3A  99 3A 99 2C 22 12 98 20  |.214,18:.:.,".. |
000002F0: 20 20 20 53 45 54 54 49  4E 47 20 55 50 2E 2E 2E  |   SETTING UP...|
00000300: 00 0D 0B BE 00 50 52 B2  C5 28 41 24 29 00 1D 0B  |.....PR..(A$)...|
00000310: C8 00 91 50 52 89 32 31  30 2C 32 33 30 00 66 0B  |...PR.210,230.f.|
00000320: D2 00 81 49 B2 30 A4 31  31 3A 50 24 28 49 29 B2  |...I.0.11:P$(I).|
00000330: C7 28 38 29 3A 81 4A B2  31 A4 36 3A 87 50 3A 50  |.(8):.J.1.6:.P:P|
00000340: 24 28 49 29 B2 50 24 28  49 29 AA C7 28 50 29 3A  |$(I).P$(I)..(P):|
00000350: 82 4A 3A 50 24 28 49 29  B2 50 24 28 49 29 AA C7  |.J:P$(I).P$(I)..|
00000360: 28 31 35 29 3A 82 00 6F  0B DC 00 89 32 35 30 00  |(15):..o....250.|
00000370: 95 0B E6 00 81 49 B2 30  A4 31 31 3A 50 24 28 49  |.....I.0.11:P$(I|
00000380: 29 B2 C7 28 32 37 29 AA  22 4B 22 AA C7 28 36 29  |)..(27)."K"..(6)|
00000390: AA C7 28 30 29 00 BC 0B  F0 00 81 4A B2 31 A4 36  |..(0)......J.1.6|
000003A0: 3A 87 50 3A 50 24 28 49  29 B2 50 24 28 49 29 AA  |:.P:P$(I).P$(I).|
000003B0: C7 28 50 AB 31 32 38 29  3A 82 3A 82 00 D8 0B FA  |.(P.128):.:.....|
000003C0: 00 81 49 B2 31 A4 31 32  3A 87 4D 4F 24 28 49 29  |..I.1.12:.MO$(I)|
000003D0: 3A 82 3A 8D 33 32 30 30  00 EF 0B 04 01 81 49 B2  |:.:.3200......I.|
000003E0: 31 A4 31 32 3A 87 20 4D  4F 25 28 49 29 3A 82 00  |1.12:. MO%(I):..|
000003F0: 05 0C 0E 01 81 49 B2 31  A4 37 3A 87 20 44 59 24  |.....I.1.7:. DY$|
00000400: 28 49 29 3A 82 00 25 0C  18 01 8D 31 33 38 30 3A  |(I):..%....1380:|
00000410: 8F 20 52 45 44 45 46 49  4E 45 20 43 48 41 52 41  |. REDEFINE CHARA|
00000420: 43 54 45 52 53 00 72 0C  22 01 83 31 32 38 2C 31  |CTERS.r."..128,1|
00000430: 32 38 2C 31 32 38 2C 31  32 38 2C 31 32 38 2C 31  |28,128,128,128,1|
00000440: 32 38 2C 31 32 38 2C 31  32 38 2C 31 32 38 2C 31  |28,128,128,128,1|
00000450: 39 34 2C 31 39 34 2C 31  38 38 2C 31 32 38 2C 31  |94,194,188,128,1|
00000460: 32 38 2C 31 32 38 2C 31  39 34 2C 32 35 34 2C 31  |28,128,194,254,1|
00000470: 38 38 00 BF 0C 2C 01 83  31 32 38 2C 31 32 38 2C  |88...,..128,128,|
00000480: 31 32 38 2C 32 35 34 2C  32 35 34 2C 31 38 38 2C  |128,254,254,188,|
00000490: 31 32 38 2C 31 32 38 2C  31 38 38 2C 32 35 34 2C  |128,128,188,254,|
000004A0: 32 35 34 2C 31 38 38 2C  31 32 38 2C 31 38 38 2C  |254,188,128,188,|
000004B0: 32 35 34 2C 32 35 34 2C  32 35 34 2C 31 38 38 00  |254,254,254,188.|
000004C0: 0C 0D 36 01 83 31 38 38  2C 32 35 34 2C 32 35 34  |..6..188,254,254|
000004D0: 2C 32 35 34 2C 32 35 34  2C 31 38 38 2C 31 38 38  |,254,254,188,188|
000004E0: 2C 32 35 34 2C 32 35 34  2C 32 35 34 2C 31 38 38  |,254,254,254,188|
000004F0: 2C 31 32 38 2C 31 38 38  2C 32 35 34 2C 32 35 34  |,128,188,254,254|
00000500: 2C 31 38 38 2C 31 32 38  2C 31 32 38 00 59 0D 40  |,188,128,128.Y.@|
00000510: 01 83 31 38 38 2C 32 35  34 2C 32 35 34 2C 31 32  |..188,254,254,12|
00000520: 38 2C 31 32 38 2C 31 32  38 2C 31 38 38 2C 32 35  |8,128,128,188,25|
00000530: 34 2C 31 39 34 2C 31 32  38 2C 31 32 38 2C 31 32  |4,194,128,128,12|
00000540: 38 2C 31 38 38 2C 31 39  34 2C 31 39 34 2C 31 32  |8,188,194,194,12|
00000550: 38 2C 31 32 38 2C 31 32  38 00 9A 0D 4A 01 83 22  |8,128,128...J.."|
00000560: 4A 41 4E 55 41 52 59 20  20 22 2C 22 46 45 42 52  |JANUARY  ","FEBR|
00000570: 55 41 52 59 20 22 2C 22  4D 41 52 43 48 20 20 20  |UARY ","MARCH   |
00000580: 20 22 2C 22 41 50 52 49  4C 20 20 20 20 22 2C 22  | ","APRIL    ","|
00000590: 4D 41 59 20 20 20 20 20  20 22 00 DB 0D 54 01 83  |MAY      "...T..|
000005A0: 22 4A 55 4E 45 20 20 20  20 20 22 2C 22 4A 55 4C  |"JUNE     ","JUL|
000005B0: 59 20 20 20 20 20 22 2C  22 41 55 47 55 53 54 20  |Y     ","AUGUST |
000005C0: 20 20 22 2C 22 53 45 50  54 45 4D 42 45 52 22 2C  |  ","SEPTEMBER",|
000005D0: 22 4F 43 54 4F 42 45 52  20 20 22 00 F8 0D 5E 01  |"OCTOBER  "...^.|
000005E0: 83 22 4E 4F 56 45 4D 42  45 52 20 22 2C 22 44 45  |."NOVEMBER ","DE|
000005F0: 43 45 4D 42 45 52 20 22  00 21 0E 68 01 83 33 31  |CEMBER ".!.h..31|
00000600: 2C 32 38 2C 33 31 2C 33  30 2C 33 31 2C 33 30 2C  |,28,31,30,31,30,|
00000610: 33 31 2C 33 31 2C 33 30  2C 33 31 2C 33 30 2C 33  |31,31,30,31,30,3|
00000620: 31 00 34 0E 72 01 83 53  2C 4D 2C 54 2C 57 2C 54  |1.4.r..S,M,T,W,T|
00000630: 2C 46 2C 53 00 5A 0E 7C  01 8F 20 49 46 58 50 24  |,F,S.Z.|.. IFXP$|
00000640: 3D 22 33 22 54 48 45 4E  47 4F 53 55 42 32 33 34  |="3"THENGOSUB234|
00000650: 30 3A 47 4F 54 4F 31 39  39 30 00 98 0E 86 01 4C  |0:GOTO1990.....L|
00000660: 59 25 B2 30 3A 8D 32 35  34 30 3A 97 32 31 34 2C  |Y%.0:.2540:.214,|
00000670: 31 36 3A 99 3A 99 22 12  98 1D 1D 1D 1D 1D 1D 1D  |16:.:.".........|
00000680: 49 4E 50 55 54 20 59 45  41 52 20 28 41 46 54 45  |INPUT YEAR (AFTE|
00000690: 52 20 31 35 38 33 29 22  00 B2 0E 90 01 8D 31 32  |R 1583)"......12|
000006A0: 39 30 3A 59 B2 56 3A 8B  59 B3 31 35 38 33 A7 33  |90:Y.V:.Y.1583.3|
000006B0: 39 30 00 E4 0E 9A 01 8D  32 35 34 30 3A 97 32 31  |90......2540:.21|
000006C0: 34 2C 31 36 3A 99 3A 99  A3 31 30 29 22 12 43 41  |4,16:.:..10)".CA|
000006D0: 4C 43 55 4C 41 54 49 4E  47 20 50 48 41 53 45 53  |LCULATING PHASES|
000006E0: 2E 2E 2E 22 00 24 0F A4  01 8B 59 AD 34 B2 B5 28  |...".$....Y.4..(|
000006F0: 59 AD 34 29 A7 4C 59 25  B2 31 3A 8B 28 59 AD 31  |Y.4).LY%.1:.(Y.1|
00000700: 30 30 B2 B5 28 59 AD 31  30 30 29 29 AF 28 59 AD  |00..(Y.100)).(Y.|
00000710: 34 30 30 B3 B1 B5 28 59  AD 34 30 30 29 29 A7 4C  |400...(Y.400)).L|
00000720: 59 25 B2 30 00 43 0F AE  01 4D 4F 25 28 32 29 B2  |Y%.0.C...MO%(2).|
00000730: 32 38 3A 8B 4C 59 25 B2  31 A7 4D 4F 25 28 32 29  |28:.LY%.1.MO%(2)|
00000740: B2 32 39 00 4F 0F B8 01  81 4D B2 31 A4 31 32 00  |.29.O....M.1.12.|
00000750: 88 0F C2 01 8B 4D B1 31  A7 97 32 31 34 2C 31 39  |.....M.1..214,19|
00000760: 3A 99 3A 99 A3 32 30 AB  C3 28 4D 24 28 4D AB 31  |:.:..20..(M$(M.1|
00000770: 29 29 AD 32 29 22 12 98  20 20 20 20 20 20 20 20  |)).2)"..        |
00000780: 20 20 20 20 20 20 20 22  00 B9 0F CC 01 97 32 31  |       "......21|
00000790: 34 2C 31 39 3A 99 3A 99  A3 32 30 AB C3 28 4D 24  |4,19:.:..20..(M$|
000007A0: 28 4D 29 29 AD 32 29 22  12 98 22 4D 24 28 4D 29  |(M)).2)".."M$(M)|
000007B0: 3A 8B 4D B2 32 A7 34 39  30 00 F5 0F D6 01 81 44  |:.M.2.490......D|
000007C0: B2 31 A4 4D 4F 25 28 4D  29 3A 8D 31 31 35 30 3A  |.1.MO%(M):.1150:|
000007D0: 59 25 28 4D 2C 44 2C 5A  25 29 B2 50 48 3A 8D 31  |Y%(M,D,Z%).PH:.1|
000007E0: 30 33 30 3A 59 25 28 4D  2C 44 2C 32 29 B2 44 59  |030:Y%(M,D,2).DY|
000007F0: 25 3A 82 3A 82 00 09 10  E0 01 89 35 30 30 3A 8F  |%:.:.......500:.|
00000800: 20 50 52 49 4E 54 4F 55  54 00 45 10 EA 01 81 44  | PRINTOUT.E....D|
00000810: B2 31 A4 32 38 AA 4C 59  25 3A 8D 31 31 35 30 3A  |.1.28.LY%:.1150:|
00000820: 59 25 28 4D 2C 44 2C 5A  25 29 B2 50 48 3A 8D 31  |Y%(M,D,Z%).PH:.1|
00000830: 30 33 30 3A 59 25 28 4D  2C 44 2C 32 29 B2 44 59  |030:Y%(M,D,2).DY|
00000840: 25 3A 82 3A 82 00 54 10  F4 01 8B 50 52 B2 33 A7  |%:.:..T....PR.3.|
00000850: 31 36 33 30 00 8A 10 FE  01 A0 34 3A 8D 32 35 34  |1630......4:.254|
00000860: 30 3A 97 32 31 34 2C 31  38 3A 99 3A 99 A3 39 29  |0:.214,18:.:..9)|
00000870: 22 12 98 53 45 54 20 55  50 20 50 52 49 4E 54 45  |"..SET UP PRINTE|
00000880: 52 2F 20 52 45 54 55 52  4E 22 00 A1 10 08 02 A1  |R/ RETURN"......|
00000890: 41 24 3A 8B 41 24 B3 B1  C7 28 31 33 29 A7 35 32  |A$:.A$...(13).52|
000008A0: 30 00 D4 10 12 02 4C 4E  24 B2 22 2D 2D 2D 2D 2D  |0.....LN$."-----|
000008B0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000008C0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000008D0: 2D 2D 2D 22 00 0A 11 1C  02 4C 4E 24 B2 4C 4E 24  |---".....LN$.LN$|
000008E0: AA 22 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |."--------------|
000008F0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000900: 2D 2D 2D 2D 2D 2D 2D 2D  2D 22 00 1A 11 26 02 91  |---------"...&..|
00000910: 50 52 89 35 36 30 2C 35  38 30 00 50 11 30 02 9F  |PR.560,580.P.0..|
00000920: 34 2C 34 3A 98 34 2C 4C  4E 24 3A 98 34 3A 98 34  |4,4:.4,LN$:.4:.4|
00000930: 2C A6 32 36 29 3B C7 28  31 34 29 22 4C 55 4E 41  |,.26);.(14)"LUNA|
00000940: 52 20 43 41 4C 45 4E 44  41 52 22 C7 28 31 35 29  |R CALENDAR".(15)|
00000950: 00 59 11 3A 02 89 35 39  30 00 8C 11 44 02 9F 34  |.Y.:..590...D..4|
00000960: 2C 34 2C 35 3A 98 34 2C  4C 4E 24 3A 98 34 3A 98  |,4,5:.4,LN$:.4:.|
00000970: 34 2C A6 32 36 29 3B C7  28 31 34 29 22 4C 55 4E  |4,.26);.(14)"LUN|
00000980: 41 52 20 43 41 4C 45 4E  44 41 52 22 00 AC 11 4E  |AR CALENDAR"...N|
00000990: 02 98 34 2C C7 28 31 30  29 3B A6 33 34 29 3B C7  |..4,.(10);.34);.|
000009A0: 28 31 34 29 3B 59 3B C7  28 31 30 29 00 C0 11 58  |(14);Y;.(10)...X|
000009B0: 02 8B 50 52 B2 31 A7 98  34 2C C7 28 31 35 29 3B  |..PR.1..4,.(15);|
000009C0: 00 E8 11 62 02 98 34 2C  A6 32 39 29 3B 3A 81 49  |...b..4,.29);:.I|
000009D0: B2 31 A4 31 31 3A 98 34  2C 50 24 28 49 29 3B 22  |.1.11:.4,P$(I);"|
000009E0: 20 22 3B 3A 82 3A 98 34  00 00 12 6C 02 98 34 3A  | ";:.:.4...l..4:|
000009F0: 98 34 2C 4C 4E 24 3A 8D  36 33 30 3A 89 36 37 30  |.4,LN$:.630:.670|
00000A00: 00 4D 12 76 02 98 34 2C  22 20 20 20 20 20 20 20  |.M.v..4,"       |
00000A10: 20 20 20 20 20 30 20 30  20 30 20 30 20 30 20 30  |     0 0 0 0 0 0|
00000A20: 20 30 20 30 20 30 20 31  20 31 20 31 20 31 20 31  | 0 0 0 1 1 1 1 1|
00000A30: 20 31 20 31 20 31 20 31  20 31 20 32 20 32 20 32  | 1 1 1 1 1 2 2 2|
00000A40: 20 32 20 32 20 32 20 32  20 32 20 22 3B 00 5E 12  | 2 2 2 2 2 ";.^.|
00000A50: 80 02 98 34 2C 22 32 20  32 20 33 20 33 22 00 AB  |...4,"2 2 3 3"..|
00000A60: 12 8A 02 98 34 2C 22 20  20 20 20 20 20 20 20 20  |....4,"         |
00000A70: 20 20 20 31 20 32 20 33  20 34 20 35 20 36 20 37  |   1 2 3 4 5 6 7|
00000A80: 20 38 20 39 20 30 20 31  20 32 20 33 20 34 20 35  | 8 9 0 1 2 3 4 5|
00000A90: 20 36 20 37 20 38 20 39  20 30 20 31 20 32 20 33  | 6 7 8 9 0 1 2 3|
00000AA0: 20 34 20 35 20 36 20 37  20 22 3B 00 BE 12 94 02  | 4 5 6 7 ";.....|
00000AB0: 98 34 2C 22 38 20 39 20  30 20 31 22 3A 8E 00 0B  |.4,"8 9 0 1":...|
00000AC0: 13 9E 02 4D 4C 24 28 31  29 B2 22 2B 2D 2B 2D 2B  |...ML$(1)."+-+-+|
00000AD0: 2D 2B 2D 2B 2D 2B 2D 2B  2D 2B 2D 2B 2D 2B 2D 2B  |-+-+-+-+-+-+-+-+|
00000AE0: 2D 2B 2D 2B 2D 2B 2D 2B  2D 2B 2D 2B 2D 2B 2D 2B  |-+-+-+-+-+-+-+-+|
00000AF0: 2D 2B 2D 2B 2D 2B 2D 2B  2D 2B 2D 2B 2D 2B 2D 2B  |-+-+-+-+-+-+-+-+|
00000B00: 2D 2B 2D 2B 2D 2B 2D 2B  2D 2B 22 00 58 13 A8 02  |-+-+-+-+-+".X...|
00000B10: 4D 4C 24 28 32 29 B2 22  2B 2D 2B 2D 2B 2D 2B 2D  |ML$(2)."+-+-+-+-|
00000B20: 2B 2D 2B 2D 2B 2D 2B 2D  2B 2D 2B 2D 2B 2D 2B 2D  |+-+-+-+-+-+-+-+-|
00000B30: 2B 2D 2B 2D 2B 2D 2B 2D  2B 2D 2B 2D 2B 2D 2B 2D  |+-+-+-+-+-+-+-+-|
00000B40: 2B 2D 2B 2D 2B 2D 2B 2D  2B 2D 2B 2D 2B 2D 2B 2D  |+-+-+-+-+-+-+-+-|
00000B50: 2B 2D 2B 2D 2B 2D 2B 22  00 A3 13 B2 02 4D 53 24  |+-+-+-+".....MS$|
00000B60: 28 31 29 B2 22 2B 2D 2B  2D 2B 2D 2B 2D 2B 2D 2B  |(1)."+-+-+-+-+-+|
00000B70: 2D 2B 2D 2B 2D 2B 2D 2B  2D 2B 2D 2B 2D 2B 2D 2B  |-+-+-+-+-+-+-+-+|
00000B80: 2D 2B 2D 2B 2D 2B 2D 2B  2D 2B 2D 2B 2D 2B 2D 2B  |-+-+-+-+-+-+-+-+|
00000B90: 2D 2B 2D 2B 2D 2B 2D 2B  2D 2B 2D 2B 2D 2B 2D 2B  |-+-+-+-+-+-+-+-+|
00000BA0: 2D 2B 22 00 EE 13 BC 02  4D 53 24 28 32 29 B2 22  |-+".....MS$(2)."|
00000BB0: 2B 2D 2B 2D 2B 2D 2B 2D  2B 2D 2B 2D 2B 2D 2B 2D  |+-+-+-+-+-+-+-+-|
00000BC0: 2B 2D 2B 2D 2B 2D 2B 2D  2B 2D 2B 2D 2B 2D 2B 2D  |+-+-+-+-+-+-+-+-|
00000BD0: 2B 2D 2B 2D 2B 2D 2B 2D  2B 2D 2B 2D 2B 2D 2B 2D  |+-+-+-+-+-+-+-+-|
00000BE0: 2B 2D 2B 2D 2B 2D 2B 2D  2B 2D 2B 2D 2B 22 00 37  |+-+-+-+-+-+-+".7|
00000BF0: 14 C6 02 46 4C 24 28 31  29 B2 22 2B 2D 2B 2D 2B  |...FL$(1)."+-+-+|
00000C00: 2D 2B 2D 2B 2D 2B 2D 2B  2D 2B 2D 2B 2D 2B 2D 2B  |-+-+-+-+-+-+-+-+|
00000C10: 2D 2B 2D 2B 2D 2B 2D 2B  2D 2B 2D 2B 2D 2B 2D 2B  |-+-+-+-+-+-+-+-+|
00000C20: 2D 2B 2D 2B 2D 2B 2D 2B  2D 2B 2D 2B 2D 2B 2D 2B  |-+-+-+-+-+-+-+-+|
00000C30: 2D 2B 2D 2B 2D 2B 22 00  80 14 D0 02 46 4C 24 28  |-+-+-+".....FL$(|
00000C40: 32 29 B2 22 2B 2D 2B 2D  2B 2D 2B 2D 2B 2D 2B 2D  |2)."+-+-+-+-+-+-|
00000C50: 2B 2D 2B 2D 2B 2D 2B 2D  2B 2D 2B 2D 2B 2D 2B 2D  |+-+-+-+-+-+-+-+-|
00000C60: 2B 2D 2B 2D 2B 2D 2B 2D  2B 2D 2B 2D 2B 2D 2B 2D  |+-+-+-+-+-+-+-+-|
00000C70: 2B 2D 2B 2D 2B 2D 2B 2D  2B 2D 2B 2D 2B 2D 2B 22  |+-+-+-+-+-+-+-+"|
00000C80: 00 C7 14 DA 02 46 53 24  28 31 29 B2 22 2B 5A 2B  |.....FS$(1)."+Z+|
00000C90: 2D 2B 2D 2B 2D 2B 2D 2B  2D 2B 2D 2B 2D 2B 2D 2B  |-+-+-+-+-+-+-+-+|
00000CA0: 2D 2B 2D 2B 2D 2B 2D 2B  2D 2B 2D 2B 2D 2B 2D 2B  |-+-+-+-+-+-+-+-+|
00000CB0: 2D 2B 2D 2B 2D 2B 2D 2B  2D 2B 2D 2B 2D 2B 2D 2B  |-+-+-+-+-+-+-+-+|
00000CC0: 2D 2B 2D 2B 2D 2B 22 00  0E 15 E4 02 46 53 24 28  |-+-+-+".....FS$(|
00000CD0: 32 29 B2 22 2B 2D 2B 2D  2B 2D 2B 2D 2B 2D 2B 2D  |2)."+-+-+-+-+-+-|
00000CE0: 2B 2D 2B 2D 2B 2D 2B 2D  2B 2D 2B 2D 2B 2D 2B 2D  |+-+-+-+-+-+-+-+-|
00000CF0: 2B 2D 2B 2D 2B 2D 2B 2D  2B 2D 2B 2D 2B 2D 2B 2D  |+-+-+-+-+-+-+-+-|
00000D00: 2B 2D 2B 2D 2B 2D 2B 2D  2B 2D 2B 2D 2B 22 00 23  |+-+-+-+-+-+-+".#|
00000D10: 15 EE 02 81 4D B2 31 A4  31 32 3A 8B 4D B2 32 A7  |....M.1.12:.M.2.|
00000D20: 38 39 30 00 3A 15 F8 02  91 4D 4F 25 28 4D 29 AB  |890.:....MO%(M).|
00000D30: 32 39 89 37 37 30 2C 38  33 30 00 56 15 02 03 98  |29.770,830.V....|
00000D40: 34 2C 22 20 20 20 20 20  20 20 20 20 20 20 22 3B  |4,"           ";|
00000D50: 4D 53 24 28 31 29 00 6E  15 0C 03 98 34 2C 22 20  |MS$(1).n....4," |
00000D60: 22 3B 4D 4F 24 28 4D 29  3B 22 20 21 22 3B 00 A9  |";MO$(M);" !";..|
00000D70: 15 16 03 81 44 B2 31 A4  33 30 3A 98 34 2C 44 59  |....D.1.30:.4,DY|
00000D80: 24 28 59 25 28 4D 2C 44  2C 32 29 29 3B 22 21 22  |$(Y%(M,D,2));"!"|
00000D90: 3B 3A 82 3A 98 34 3A 98  34 2C 22 20 20 20 20 20  |;:.:.4:.4,"     |
00000DA0: 20 20 20 20 20 20 21 22  3B 00 D1 15 20 03 81 44  |      !";... ..D|
00000DB0: B2 31 A4 33 30 3A 98 34  2C 50 24 28 59 25 28 4D  |.1.30:.4,P$(Y%(M|
00000DC0: 2C 44 2C 5A 25 29 29 3B  22 21 22 3B 3A 82 3A 98  |,D,Z%));"!";:.:.|
00000DD0: 34 00 ED 15 2A 03 98 34  2C 22 20 20 20 20 20 20  |4...*..4,"      |
00000DE0: 20 20 20 20 20 22 3B 4D  53 24 28 32 29 00 F6 15  |     ";MS$(2)...|
00000DF0: 34 03 89 38 38 30 00 12  16 3E 03 98 34 2C 22 20  |4..880...>..4," |
00000E00: 20 20 20 20 20 20 20 20  20 20 22 3B 4D 4C 24 28  |          ";ML$(|
00000E10: 31 29 00 2A 16 48 03 98  34 2C 22 20 22 3B 4D 4F  |1).*.H..4," ";MO|
00000E20: 24 28 4D 29 3B 22 20 21  22 3B 00 65 16 52 03 81  |$(M);" !";.e.R..|
00000E30: 44 B2 31 A4 33 31 3A 98  34 2C 44 59 24 28 59 25  |D.1.31:.4,DY$(Y%|
00000E40: 28 4D 2C 44 2C 32 29 29  3B 22 21 22 3B 3A 82 3A  |(M,D,2));"!";:.:|
00000E50: 98 34 3A 98 34 2C 22 20  20 20 20 20 20 20 20 20  |.4:.4,"         |
00000E60: 20 20 21 22 3B 00 8D 16  5C 03 81 44 B2 31 A4 33  |  !";...\..D.1.3|
00000E70: 31 3A 98 34 2C 50 24 28  59 25 28 4D 2C 44 2C 5A  |1:.4,P$(Y%(M,D,Z|
00000E80: 25 29 29 3B 22 21 22 3B  3A 82 3A 98 34 00 A9 16  |%));"!";:.:.4...|
00000E90: 66 03 98 34 2C 22 20 20  20 20 20 20 20 20 20 20  |f..4,"          |
00000EA0: 20 22 3B 4D 4C 24 28 32  29 00 CF 16 70 03 82 3A  | ";ML$(2)...p..:|
00000EB0: 8D 36 33 30 3A 98 34 2C  4C 4E 24 3A A0 34 3A 97  |.630:.4,LN$:.4:.|
00000EC0: 36 33 31 2C 33 32 3A 97  31 39 38 2C 31 3A 8A 00  |631,32:.198,1:..|
00000ED0: E2 16 7A 03 91 4C 59 25  AA 31 89 39 30 30 2C 39  |..z..LY%.1.900,9|
00000EE0: 36 30 00 FE 16 84 03 98  34 2C 22 20 20 20 20 20  |60......4,"     |
00000EF0: 20 20 20 20 20 20 22 3B  46 53 24 28 31 29 00 16  |      ";FS$(1)..|
00000F00: 17 8E 03 98 34 2C 22 20  22 3B 4D 4F 24 28 4D 29  |....4," ";MO$(M)|
00000F10: 3B 22 20 21 22 3B 00 51  17 98 03 81 44 B2 31 A4  |;" !";.Q....D.1.|
00000F20: 32 38 3A 98 34 2C 44 59  24 28 59 25 28 4D 2C 44  |28:.4,DY$(Y%(M,D|
00000F30: 2C 32 29 29 3B 22 21 22  3B 3A 82 3A 98 34 3A 98  |,2));"!";:.:.4:.|
00000F40: 34 2C 22 20 20 20 20 20  20 20 20 20 20 20 21 22  |4,"           !"|
00000F50: 3B 00 79 17 A2 03 81 44  B2 31 A4 32 38 3A 98 34  |;.y....D.1.28:.4|
00000F60: 2C 50 24 28 59 25 28 4D  2C 44 2C 5A 25 29 29 3B  |,P$(Y%(M,D,Z%));|
00000F70: 22 21 22 3B 3A 82 3A 98  34 00 95 17 AC 03 98 34  |"!";:.:.4......4|
00000F80: 2C 22 20 20 20 20 20 20  20 20 20 20 20 22 3B 46  |,"           ";F|
00000F90: 53 24 28 32 29 00 9E 17  B6 03 89 38 38 30 00 BA  |S$(2)......880..|
00000FA0: 17 C0 03 98 34 2C 22 20  20 20 20 20 20 20 20 20  |....4,"         |
00000FB0: 20 20 22 3B 46 4C 24 28  31 29 00 D2 17 CA 03 98  |  ";FL$(1)......|
00000FC0: 34 2C 22 20 22 3B 4D 4F  24 28 4D 29 3B 22 20 21  |4," ";MO$(M);" !|
00000FD0: 22 3B 00 0D 18 D4 03 81  44 B2 31 A4 32 39 3A 98  |";......D.1.29:.|
00000FE0: 34 2C 44 59 24 28 59 25  28 4D 2C 44 2C 32 29 29  |4,DY$(Y%(M,D,2))|
00000FF0: 3B 22 21 22 3B 3A 82 3A  98 34 3A 98 34 2C 22 20  |;"!";:.:.4:.4," |
00001000: 20 20 20 20 20 20 20 20  20 20 21 22 3B 00 35 18  |          !";.5.|
00001010: DE 03 81 44 B2 31 A4 32  39 3A 98 34 2C 50 24 28  |...D.1.29:.4,P$(|
00001020: 59 25 28 4D 2C 44 2C 5A  25 29 29 3B 22 21 22 3B  |Y%(M,D,Z%));"!";|
00001030: 3A 82 3A 98 34 00 51 18  E8 03 98 34 2C 22 20 20  |:.:.4.Q....4,"  |
00001040: 20 20 20 20 20 20 20 20  20 22 3B 46 4C 24 28 32  |         ";FL$(2|
00001050: 29 00 5A 18 F2 03 89 38  38 30 00 64 18 FC 03 89  |).Z....880.d....|
00001060: 31 36 33 30 00 8C 18 06  04 4D 44 B2 4D 3A 59 59  |1630.....MD.M:YY|
00001070: B2 59 3A 8B 4D 44 B2 31  A7 4D 44 B2 31 33 3A 59  |.Y:.MD.1.MD.13:Y|
00001080: 59 B2 59 59 AB 31 3A 89  31 30 35 30 00 A4 18 10  |Y.YY.1:.1050....|
00001090: 04 8B 4D 44 B2 32 A7 4D  44 B2 31 34 3A 59 59 B2  |..MD.2.MD.14:YY.|
000010A0: 59 59 AB 31 00 ED 18 1A  04 4D 30 B2 4D 44 AB 32  |YY.1.....M0.MD.2|
000010B0: 3A 44 59 25 B2 28 32 2E  36 AC 4D 30 AB 2E 32 29  |:DY%.(2.6.M0..2)|
000010C0: AA 44 AA 59 59 AB 31 39  30 30 AA B5 28 28 59 59  |.D.YY.1900..((YY|
000010D0: AB 31 39 30 30 29 AD 34  29 3A 44 59 25 B2 44 59  |.1900).4):DY%.DY|
000010E0: 25 AA B5 28 31 39 AD 34  29 AB 32 AC 31 00 06 19  |%..(19.4).2.1...|
000010F0: 24 04 44 59 25 B2 44 59  25 AB B5 28 44 59 25 AD  |$.DY%.DY%..(DY%.|
00001100: 37 29 AC 37 AA 31 00 1F  19 2E 04 8B 4D 44 B2 34  |7).7.1......MD.4|
00001110: B0 4D 44 B2 39 A7 44 59  25 B2 44 59 25 AA 31 00  |.MD.9.DY%.DY%.1.|
00001120: 3D 19 38 04 8B 4D 44 B2  31 33 A7 4D 44 B2 31 3A  |=.8..MD.13.MD.1:|
00001130: 59 59 B2 59 59 AA 31 3A  89 31 31 31 30 00 5F 19  |YY.YY.1:.1110._.|
00001140: 42 04 8B 4D 44 B2 31 34  A7 4D 44 B2 32 3A 59 59  |B..MD.14.MD.2:YY|
00001150: B2 59 59 AA 31 3A 44 59  25 B2 44 59 25 AA 31 00  |.YY.1:DY%.DY%.1.|
00001160: 70 19 4C 04 8B 44 59 25  B2 38 A7 44 59 25 B2 31  |p.L..DY%.8.DY%.1|
00001170: 00 A6 19 56 04 8B 28 59  59 B2 32 31 30 30 AF 4D  |...V..(YY.2100.M|
00001180: 44 B1 B2 33 29 B0 28 59  59 B1 32 31 30 30 29 A7  |D..3).(YY.2100).|
00001190: 44 59 25 B2 44 59 25 AB  31 3A 8B 44 59 25 B2 30  |DY%.DY%.1:.DY%.0|
000011A0: A7 44 59 25 B2 37 00 DC  19 60 04 8B 28 59 59 B2  |.DY%.7...`..(YY.|
000011B0: 32 32 30 30 AF 4D 44 B1  B2 33 29 B0 28 59 59 B1  |2200.MD..3).(YY.|
000011C0: 32 32 30 30 29 A7 44 59  25 B2 44 59 25 AB 31 3A  |2200).DY%.DY%.1:|
000011D0: 8B 44 59 25 B2 30 A7 44  59 25 B2 37 00 12 1A 6A  |.DY%.0.DY%.7...j|
000011E0: 04 8B 28 59 59 B2 32 33  30 30 AF 4D 44 B1 B2 33  |..(YY.2300.MD..3|
000011F0: 29 B0 28 59 59 B1 32 33  30 30 29 A7 44 59 25 B2  |).(YY.2300).DY%.|
00001200: 44 59 25 AB 31 3A 8B 44  59 25 B2 30 A7 44 59 25  |DY%.1:.DY%.0.DY%|
00001210: B2 37 00 18 1A 74 04 8E  00 26 1A 7E 04 51 B2 59  |.7...t...&.~.Q.Y|
00001220: AA 28 4D B3 33 29 00 60  1A 88 04 4A B2 B5 28 32  |.(M.3).`...J..(2|
00001230: 37 35 AC 4D AD 39 29 AB  B5 28 28 37 AC 51 AA 37  |75.M.9)..((7.Q.7|
00001240: 29 AD 34 29 AA 33 36 37  AC 59 AA 44 AB B5 28 28  |).4).367.Y.D..((|
00001250: B5 28 51 AD 31 30 30 29  AA 31 29 AC 33 AD 34 29  |.(Q.100).1).3.4)|
00001260: 00 6E 1A 92 04 50 B2 4A  AD 53 58 AA 2E 32 00 99  |.n...P.J.SX..2..|
00001270: 1A 9C 04 50 48 B2 50 AB  B5 28 50 29 3A 50 48 B2  |...PH.P..(P):PH.|
00001280: B5 28 28 50 48 AC 31 32  29 AA 2E 35 29 3A 8B 50  |.((PH.12)..5):.P|
00001290: 48 B1 31 31 A7 50 48 B2  30 00 9F 1A A6 04 8E 00  |H.11.PH.0.......|
000012A0: A9 1A B0 04 8D 31 31 35  30 00 C4 1A BA 04 8B 50  |.....1150......P|
000012B0: 48 B2 30 A7 50 48 24 B2  22 4E 45 57 20 4D 4F 4F  |H.0.PH$."NEW MOO|
000012C0: 4E 22 3A 8E 00 E6 1A C4  04 8B 50 48 B3 33 A7 50  |N":.......PH.3.P|
000012D0: 48 24 B2 22 57 41 58 49  4E 47 20 43 52 45 53 43  |H$."WAXING CRESC|
000012E0: 45 4E 54 22 3A 8E 00 06  1B CE 04 8B 50 48 B2 33  |ENT":.......PH.3|
000012F0: A7 50 48 24 B2 22 46 49  52 53 54 20 51 55 41 52  |.PH$."FIRST QUAR|
00001300: 54 45 52 22 3A 8E 00 27  1B D8 04 8B 50 48 B3 36  |TER":..'....PH.6|
00001310: A7 50 48 24 B2 22 57 41  58 49 4E 47 20 47 49 42  |.PH$."WAXING GIB|
00001320: 42 4F 55 53 22 3A 8E 00  43 1B E2 04 8B 50 48 B2  |BOUS":..C....PH.|
00001330: 36 A7 50 48 24 B2 22 46  55 4C 4C 20 4D 4F 4F 4E  |6.PH$."FULL MOON|
00001340: 22 3A 8E 00 64 1B EC 04  8B 50 48 B3 39 A7 50 48  |":..d....PH.9.PH|
00001350: 24 B2 22 57 41 4E 49 4E  47 20 47 49 42 42 4F 55  |$."WANING GIBBOU|
00001360: 53 22 3A 8E 00 83 1B F6  04 8B 50 48 B2 39 A7 50  |S":.......PH.9.P|
00001370: 48 24 B2 22 4C 41 53 54  20 51 55 41 52 54 45 52  |H$."LAST QUARTER|
00001380: 22 3A 8E 00 9F 1B 00 05  50 48 24 B2 22 57 41 4E  |":......PH$."WAN|
00001390: 49 4E 47 20 43 52 45 53  43 45 4E 54 22 3A 8E 00  |ING CRESCENT":..|
000013A0: CD 1B 0A 05 58 58 24 B2  22 9D 20 9D 3C 20 9D 9D  |....XX$.". .< ..|
000013B0: 22 3A 42 24 B2 22 22 3A  46 47 B2 30 3A 99 22 11  |":B$."":FG.0:.".|
000013C0: 98 12 1D 1D 1D 1D 1D 1D  1D 3E 9D 22 3B 00 E1 1B  |.........>.";...|
000013D0: 14 05 A1 41 24 3A 8B 41  24 B2 22 22 A7 31 33 30  |...A$:.A$."".130|
000013E0: 30 00 FF 1B 1E 05 8B 41  24 B2 C7 28 31 33 29 A7  |0......A$..(13).|
000013F0: 99 22 20 9D 22 3B 41 24  3B 3A 89 31 33 37 30 00  |." .";A$;:.1370.|
00001400: 36 1C 28 05 8B 41 24 B2  C7 28 32 30 29 AF 42 24  |6.(..A$..(20).B$|
00001410: B3 B1 22 22 A7 42 24 B2  C8 28 42 24 2C C3 28 42  |.."".B$..(B$,.(B|
00001420: 24 29 AB 31 29 3A 99 58  58 24 3B 3A 46 47 B2 30  |$).1):.XX$;:FG.0|
00001430: 3A 89 31 33 30 30 00 45  1C 32 05 8B 46 47 B2 31  |:.1300.E.2..FG.1|
00001440: A7 31 33 30 30 00 71 1C  3C 05 8B 41 24 B3 22 30  |.1300.q.<..A$."0|
00001450: 22 B0 41 24 B1 22 39 22  A7 31 33 30 30 3A 8F 20  |".A$."9".1300:. |
00001460: 4C 49 4D 49 54 20 54 4F  20 4E 55 4D 45 52 49 43  |LIMIT TO NUMERIC|
00001470: 53 00 95 1C 46 05 99 41  24 22 3E 9D 22 3B 3A 42  |S...F..A$">.";:B|
00001480: 24 B2 42 24 AA 41 24 3A  8B C3 28 42 24 29 B2 34  |$.B$.A$:..(B$).4|
00001490: A7 46 47 B2 31 00 A0 1C  50 05 89 20 31 33 30 30  |.FG.1...P.. 1300|
000014A0: 00 B6 1C 5A 05 56 B2 C5  28 42 24 29 3A 4C B2 C3  |...Z.V..(B$):L..|
000014B0: 28 42 24 29 3A 8E 00 D0  1C 64 05 81 49 B2 38 32  |(B$):....d..I.82|
000014C0: 38 A4 38 37 38 3A 87 41  3A 97 49 2C 41 3A 82 49  |8.878:.A:.I,A:.I|
000014D0: 00 E8 1C 6E 05 97 35 36  33 33 34 2C C2 28 35 36  |...n..56334,.(56|
000014E0: 33 33 34 29 AF 32 35 34  00 F8 1C 78 05 97 31 2C  |334).254...x..1,|
000014F0: C2 28 31 29 AF 32 35 31  00 2F 1D 82 05 97 32 34  |.(1).251./....24|
00001500: 39 2C 30 3A 97 32 35 30  2C 32 30 38 3A 97 32 35  |9,0:.250,208:.25|
00001510: 31 2C 30 3A 97 32 35 32  2C 31 39 32 3A 97 32 35  |1,0:.252,192:.25|
00001520: 33 2C 30 3A 97 32 35 34  2C 38 3A 9E 38 32 38 00  |3,0:.254,8:.828.|
00001530: 4F 1D 8C 05 97 31 2C C2  28 31 29 B0 34 3A 97 35  |O....1,.(1).4:.5|
00001540: 36 33 33 34 2C C2 28 35  36 33 33 34 29 B0 31 00  |6334,.(56334).1.|
00001550: 5E 1D 96 05 87 41 3A 8B  41 B2 AB 31 A7 8E 00 9A  |^....A:.A..1....|
00001560: 1D A0 05 4B B2 34 39 31  35 32 AA 28 38 AC 41 29  |...K.49152.(8.A)|
00001570: 3A 81 49 B2 30 A4 37 3A  87 42 3A 97 4B AA 49 2C  |:.I.0.7:.B:.K.I,|
00001580: 42 3A 97 4B AA 31 30 32  34 AA 49 2C 32 35 35 AB  |B:.K.1024.I,255.|
00001590: 42 3A 82 49 3A 89 31 34  33 30 00 BA 1D AA 05 97  |B:.I:.1430......|
000015A0: 35 36 35 37 36 2C 34 3A  97 35 33 32 37 32 2C 33  |56576,4:.53272,3|
000015B0: 32 3A 97 36 34 38 2C 32  30 30 00 C0 1D B4 05 8E  |2:.648,200......|
000015C0: 00 0B 1E BE 05 83 20 20  31 36 35 2C 32 35 34 2C  |......  165,254,|
000015D0: 32 30 31 2C 30 30 30 2C  32 34 30 2C 30 32 34 2C  |201,000,240,024,|
000015E0: 31 36 30 2C 30 30 30 2C  31 37 37 2C 32 34 39 2C  |160,000,177,249,|
000015F0: 31 34 35 2C 32 35 31 2C  32 30 30 2C 31 39 32 2C  |145,251,200,192,|
00001600: 32 35 35 2C 32 30 38 2C  32 34 37 00 56 1E C8 05  |255,208,247.V...|
00001610: 83 20 20 31 37 37 2C 32  34 39 2C 31 34 35 2C 32  |.  177,249,145,2|
00001620: 35 31 2C 32 33 30 2C 32  35 30 2C 32 33 30 2C 32  |51,230,250,230,2|
00001630: 35 32 2C 31 39 38 2C 32  35 34 2C 30 37 36 2C 30  |52,198,254,076,0|
00001640: 36 30 2C 30 30 33 2C 31  36 35 2C 32 35 33 2C 32  |60,003,165,253,2|
00001650: 30 31 2C 30 30 30 00 A1  1E D2 05 83 20 20 32 34  |01,000......  24|
00001660: 30 2C 30 31 33 2C 32 33  30 2C 32 35 33 2C 31 36  |0,013,230,253,16|
00001670: 30 2C 30 30 30 2C 31 37  37 2C 32 34 39 2C 31 34  |0,000,177,249,14|
00001680: 35 2C 32 35 31 2C 32 30  30 2C 31 39 36 2C 32 35  |5,251,200,196,25|
00001690: 33 2C 32 30 38 2C 32 34  37 2C 30 39 36 2C 30 30  |3,208,247,096,00|
000016A0: 30 00 CA 1E DC 05 83 30  39 36 2C 30 30 30 2C 30  |0......096,000,0|
000016B0: 30 30 2C 30 30 30 2C 30  30 30 2C 30 30 30 2C 30  |00,000,000,000,0|
000016C0: 30 30 2C 30 30 30 2C 30  30 30 00 F3 1E E6 05 83  |00,000,000......|
000016D0: 30 39 37 2C 30 30 30 2C  30 31 32 2C 30 30 32 2C  |097,000,012,002,|
000016E0: 30 30 32 2C 30 30 32 2C  30 30 32 2C 30 31 32 2C  |002,002,002,012,|
000016F0: 30 30 30 00 1C 1F F0 05  83 30 39 38 2C 30 30 30  |000......098,000|
00001700: 2C 30 31 32 2C 30 30 36  2C 30 30 36 2C 30 30 36  |,012,006,006,006|
00001710: 2C 30 30 36 2C 30 31 32  2C 30 30 30 00 45 1F FA  |,006,012,000.E..|
00001720: 05 83 30 39 39 2C 30 30  30 2C 30 31 32 2C 30 31  |..099,000,012,01|
00001730: 34 2C 30 31 34 2C 30 31  34 2C 30 31 34 2C 30 31  |4,014,014,014,01|
00001740: 32 2C 30 30 30 00 6E 1F  04 06 83 31 30 30 2C 30  |2,000.n....100,0|
00001750: 30 30 2C 30 31 32 2C 30  33 30 2C 30 33 30 2C 30  |00,012,030,030,0|
00001760: 33 30 2C 30 33 30 2C 30  31 32 2C 30 30 30 00 97  |30,030,012,000..|
00001770: 1F 0E 06 83 31 30 31 2C  30 30 30 2C 30 32 38 2C  |....101,000,028,|
00001780: 30 36 32 2C 30 36 32 2C  30 36 32 2C 30 36 32 2C  |062,062,062,062,|
00001790: 30 32 38 2C 30 30 30 00  C0 1F 18 06 83 31 30 32  |028,000......102|
000017A0: 2C 30 30 30 2C 30 36 30  2C 31 32 36 2C 31 32 36  |,000,060,126,126|
000017B0: 2C 31 32 36 2C 31 32 36  2C 30 36 30 2C 30 30 30  |,126,126,060,000|
000017C0: 00 E9 1F 22 06 83 31 30  33 2C 30 30 30 2C 30 35  |..."..103,000,05|
000017D0: 36 2C 31 32 34 2C 31 32  34 2C 31 32 34 2C 31 32  |6,124,124,124,12|
000017E0: 34 2C 30 35 36 2C 30 30  30 00 12 20 2C 06 83 31  |4,056,000.. ,..1|
000017F0: 30 34 2C 30 30 30 2C 30  34 38 2C 31 32 30 2C 31  |04,000,048,120,1|
00001800: 32 30 2C 31 32 30 2C 31  32 30 2C 30 34 38 2C 30  |20,120,120,048,0|
00001810: 30 30 00 3B 20 36 06 83  31 30 35 2C 30 30 30 2C  |00.; 6..105,000,|
00001820: 30 34 38 2C 31 31 32 2C  31 31 32 2C 31 31 32 2C  |048,112,112,112,|
00001830: 31 31 32 2C 30 34 38 2C  30 30 30 00 64 20 40 06  |112,048,000.d @.|
00001840: 83 31 30 36 2C 30 30 30  2C 30 34 38 2C 30 39 36  |.106,000,048,096|
00001850: 2C 30 39 36 2C 30 39 36  2C 30 39 36 2C 30 34 38  |,096,096,096,048|
00001860: 2C 30 30 30 00 8D 20 4A  06 83 31 30 37 2C 30 30  |,000.. J..107,00|
00001870: 30 2C 30 34 38 2C 30 36  34 2C 30 36 34 2C 30 36  |0,048,064,064,06|
00001880: 34 2C 30 36 34 2C 30 34  38 2C 30 30 30 00 95 20  |4,064,048,000.. |
00001890: 54 06 83 2D 31 00 BA 20  5E 06 97 35 33 32 34 38  |T..-1.. ^..53248|
000018A0: AA 32 31 2C 30 3A 20 8D  32 35 39 30 3A 8B 43 54  |.21,0: .2590:.CT|
000018B0: 24 B2 22 45 22 A7 32 31  39 30 00 C4 20 68 06 8D  |$."E".2190.. h..|
000018C0: 31 34 35 30 00 EF 20 72  06 45 4D 24 B2 22 22 3A  |1450.. r.EM$."":|
000018D0: 81 49 B2 31 36 30 A4 31  37 31 3A 45 4D 24 B2 45  |.I.160.171:EM$.E|
000018E0: 4D 24 AA C7 28 49 29 3A  82 3A 8D 33 33 33 30 00  |M$..(I):.:.3330.|
000018F0: 0F 21 7C 06 97 35 36 35  37 36 2C 31 39 35 3A 97  |.!|..56576,195:.|
00001900: 36 34 38 2C 34 3A 97 35  33 32 37 32 2C 32 31 00  |648,4:.53272,21.|
00001910: 2F 21 86 06 8D 32 30 34  30 3A 8D 31 39 34 30 3A  |/!...2040:.1940:|
00001920: 8D 32 35 34 30 3A 97 32  31 34 2C 31 36 3A 99 00  |.2540:.214,16:..|
00001930: 42 21 90 06 99 2C 22 98  12 4F 50 54 49 4F 4E 53  |B!...,"..OPTIONS|
00001940: 3A 22 00 63 21 9A 06 99  2C 22 12 46 31 20 54 52  |:".c!...,".F1 TR|
00001950: 41 4E 53 4C 41 54 45 20  54 4F 20 45 4E 47 4C 49  |ANSLATE TO ENGLI|
00001960: 53 48 22 00 81 21 A4 06  99 2C 22 12 46 33 20 56  |SH"..!...,".F3 V|
00001970: 49 45 57 20 41 4E 4F 54  48 45 52 20 59 45 41 52  |IEW ANOTHER YEAR|
00001980: 22 00 A0 21 AE 06 99 2C  22 12 46 35 20 52 45 54  |"..!...,".F5 RET|
00001990: 55 52 4E 20 54 4F 20 43  41 4C 45 4E 44 41 52 22  |URN TO CALENDAR"|
000019A0: 00 B9 21 B8 06 99 2C 22  12 46 37 20 45 58 49 54  |..!...,".F7 EXIT|
000019B0: 20 50 52 4F 47 52 41 4D  22 00 E7 21 C2 06 A1 41  | PROGRAM"..!...A|
000019C0: 24 3A 8B 41 24 B3 B1 22  85 22 AF 41 24 B3 B1 22  |$:.A$..".".A$.."|
000019D0: 86 22 AF 41 24 B3 B1 22  87 22 AF 41 24 B3 B1 22  |.".A$..".".A$.."|
000019E0: 88 22 A7 31 37 33 30 00  F8 21 CC 06 8B 41 24 B2  |.".1730..!...A$.|
000019F0: 22 85 22 A7 32 31 39 30  00 06 22 D6 06 8B 41 24  |".".2190.."...A$|
00001A00: B2 22 86 22 A7 8A 00 17  22 E0 06 8B 41 24 B2 22  |."."...."...A$."|
00001A10: 87 22 A7 31 36 33 30 00  28 22 EA 06 8B 41 24 B2  |.".1630.("...A$.|
00001A20: 22 88 22 A7 31 37 38 30  00 55 22 F4 06 8A 20 20  |".".1780.U"...  |
00001A30: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001A40: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001A50: 20 20 20 20 20 00 6D 22  FE 06 8F 20 4D 41 4A 4F  |     .m"... MAJO|
00001A60: 52 20 53 55 42 52 4F 55  54 49 4E 45 53 00 85 22  |R SUBROUTINES.."|
00001A70: 08 07 8D 20 31 31 35 30  3A 8F 20 50 48 41 53 45  |... 1150:. PHASE|
00001A80: 20 43 41 4C 43 00 A0 22  12 07 8D 20 31 32 30 30  | CALC.."... 1200|
00001A90: 3A 8F 20 4E 41 4D 45 20  4F 46 20 50 48 41 53 45  |:. NAME OF PHASE|
00001AA0: 00 BB 22 1C 07 8D 20 31  32 39 30 3A 8F 20 49 4E  |.."... 1290:. IN|
00001AB0: 50 55 54 20 52 4F 55 54  49 4E 45 00 DC 22 26 07  |PUT ROUTINE.."&.|
00001AC0: 8D 20 31 33 38 30 3A 8F  20 52 45 44 45 46 49 4E  |. 1380:. REDEFIN|
00001AD0: 45 20 43 48 41 52 41 43  54 45 52 53 00 F7 22 30  |E CHARACTERS.."0|
00001AE0: 07 8D 20 31 36 33 30 3A  8F 20 53 43 52 45 45 4E  |.. 1630:. SCREEN|
00001AF0: 20 4F 55 54 50 55 54 00  12 23 3A 07 8D 20 35 31  | OUTPUT..#:.. 51|
00001B00: 30 3A 8F 20 50 52 49 4E  54 45 52 20 4F 55 54 50  |0:. PRINTER OUTP|
00001B10: 55 54 00 2A 23 44 07 8D  20 32 31 39 30 3A 8F 20  |UT.*#D.. 2190:. |
00001B20: 4D 4F 4E 54 48 20 4D 45  4E 55 00 41 23 4E 07 8D  |MONTH MENU.A#N..|
00001B30: 20 32 35 34 30 3A 8F 20  43 4C 45 41 52 20 42 4F  | 2540:. CLEAR BO|
00001B40: 58 00 7A 23 58 07 9F 31  35 2C 38 2C 31 35 2C 22  |X.z#X..15,8,15,"|
00001B50: 52 30 3A 48 45 4C 4C 4F  20 43 4F 4E 4E 45 43 54  |R0:HELLO CONNECT|
00001B60: 3D 48 45 4C 4C 4F 20 43  4F 4E 4E 45 43 54 22 3A  |=HELLO CONNECT":|
00001B70: 84 31 35 2C 45 52 3A A0  31 35 00 99 23 62 07 97  |.15,ER:.15..#b..|
00001B80: 35 33 32 36 39 2C 30 3A  8B 20 45 52 B3 B1 36 33  |53269,0:. ER..63|
00001B90: 20 A7 20 99 22 93 22 3A  80 00 B9 23 6C 07 41 24  | . .".":...#l.A$|
00001BA0: B2 22 48 45 4C 4C 4F 20  43 4F 4E 4E 45 43 54 22  |."HELLO CONNECT"|
00001BB0: 3A 51 24 B2 C7 28 33 34  29 00 D4 23 76 07 99 22  |:Q$..(34)..#v.."|
00001BC0: 90 93 11 11 11 4C 4F 41  44 22 51 24 41 24 51 24  |.....LOAD"Q$A$Q$|
00001BD0: 22 2C 38 22 00 FD 23 80  07 99 22 11 11 11 11 52  |",8"..#..."....R|
00001BE0: 55 4E 13 22 3A 97 36 33  31 2C 31 33 3A 97 36 33  |UN.":.631,13:.63|
00001BF0: 32 2C 31 33 3A 97 31 39  38 2C 32 3A 80 00 07 24  |2,13:.198,2:...$|
00001C00: 8A 07 8D 32 30 34 30 00  42 24 94 07 97 32 31 34  |...2040.B$...214|
00001C10: 2C 31 34 3A 99 3A 99 22  20 20 9B 12 B8 B8 B8 B8  |,14:.:."  ......|
00001C20: B8 B8 B8 B8 B8 B8 B8 B8  B8 B8 B8 B8 B8 B8 B8 B8  |................|
00001C30: B8 B8 B8 B8 B8 B8 B8 B8  B8 B8 B8 B8 B8 B8 B8 B8  |................|
00001C40: 98 22 00 7A 24 9E 07 81  49 B2 31 A4 33 3A 99 22  |.".z$...I.1.3:."|
00001C50: 20 20 12 20 20 20 20 20  20 20 20 20 20 20 20 20  |  .             |
00001C60: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001C70: 20 20 20 20 20 20 20 22  3A 82 00 A9 24 A8 07 99  |       ":...$...|
00001C80: 22 20 20 12 20 20 20 20  20 20 50 55 42 4C 49 53  |"  .      PUBLIS|
00001C90: 48 45 44 20 4F 4E 20 4C  4F 41 44 53 54 41 52 20  |HED ON LOADSTAR |
00001CA0: 23 35 38 20 20 20 20 20  22 00 D8 24 B2 07 99 22  |#58     "..$..."|
00001CB0: 20 20 12 20 20 20 20 53  55 42 53 43 52 49 50 54  |  .    SUBSCRIPT|
00001CC0: 49 4F 4E 53 20 31 2D 38  30 30 2D 38 33 31 2D 32  |IONS 1-800-831-2|
00001CD0: 36 39 34 20 20 20 20 22  00 07 25 BC 07 99 22 20  |694    "..%..." |
00001CE0: 20 12 20 20 20 43 48 41  4E 47 49 4E 47 20 54 48  | .   CHANGING TH|
00001CF0: 49 53 20 4E 4F 54 49 43  45 20 49 53 20 49 4C 4C  |IS NOTICE IS ILL|
00001D00: 45 47 41 4C 20 20 22 00  36 25 C6 07 99 22 20 20  |EGAL  ".6%..."  |
00001D10: 12 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00001D20: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001D30: 20 20 20 20 20 22 00 67  25 D0 07 99 22 20 20 97  |     ".g%..."  .|
00001D40: 12 B9 B9 B9 B9 B9 B9 B9  B9 B9 B9 B9 B9 B9 B9 B9  |................|
00001D50: B9 B9 B9 B9 B9 B9 B9 B9  B9 B9 B9 B9 B9 B9 B9 B9  |................|
00001D60: B9 B9 B9 B9 B9 13 22 00  A0 25 DA 07 41 55 24 B2  |......"..%..AU$.|
00001D70: 22 4C 55 4E 41 52 20 43  41 4C 45 4E 44 41 52 22  |"LUNAR CALENDAR"|
00001D80: 3A 97 32 31 34 2C 31 36  3A 99 3A 99 A6 32 30 AB  |:.214,16:.:..20.|
00001D90: C3 28 41 55 24 29 AD 32  29 22 12 98 22 41 55 24  |.(AU$).2)".."AU$|
00001DA0: 00 D1 25 E4 07 41 55 24  B2 22 42 59 20 54 4F 4E  |..%..AU$."BY TON|
00001DB0: 59 20 48 45 52 52 49 4E  47 54 4F 4E 20 20 28 43  |Y HERRINGTON  (C|
00001DC0: 29 20 31 39 38 39 22 3A  97 32 31 34 2C 31 37 3A  |) 1989":.214,17:|
00001DD0: 99 00 F0 25 EE 07 99 A6  32 30 AB C3 28 41 55 24  |...%....20..(AU$|
00001DE0: 29 AD 32 29 22 12 98 22  41 55 24 22 13 22 3A 8E  |).2)".."AU$".":.|
00001DF0: 00 0C 26 F8 07 99 22 93  22 3A 97 35 33 32 38 31  |..&...".":.53281|
00001E00: 2C 30 3A 97 35 33 32 38  30 2C 31 31 00 38 26 02  |,0:.53280,11.8&.|
00001E10: 08 99 22 20 20 1C 2E 20  20 20 20 9A 4C 4F 41 44  |.."  ..    .LOAD|
00001E20: 53 54 41 52 20 9E 50 52  4F 55 44 4C 59 20 9A 50  |STAR .PROUDLY .P|
00001E30: 52 45 53 45 4E 54 53 22  00 6A 26 0C 08 99 22 20  |RESENTS".j&..." |
00001E40: 20 20 20 20 9E 2E 20 20  20 20 20 20 20 20 20 20  |    ..          |
00001E50: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001E60: 20 97 2E 20 20 20 20 9F  2E 22 00 99 26 16 08 99  | ..    .."..&...|
00001E70: 22 20 20 1F 2E 20 20 20  20 9E 60 60 AE 20 20 20  |"  ..    .``.   |
00001E80: B2 20 B2 20 B0 AE B2 20  B0 60 AE 20 B0 60 AE 20  |. . ... .`. .`. |
00001E90: 97 2E 20 20 20 20 20 2E  22 00 C4 26 20 08 99 22  |..     ."..& .."|
00001EA0: 20 20 20 20 2E 20 20 20  20 9E 7D A0 20 20 7D 20  |    .    .}.  } |
00001EB0: 7D 20 7D 7D 7D 20 AB 60  B3 20 7D B0 BD 20 20 20  |} }}} .`. }..   |
00001EC0: 20 1F 2E 22 00 ED 26 2A  08 99 22 20 20 20 20 20  | .."..&*.."     |
00001ED0: 20 20 20 20 9E AD 60 BD  20 AD 60 BD 20 B1 AD BD  |    ..`. .`. ...|
00001EE0: 20 B1 20 B1 1F 2E 9E B1  AD 60 60 60 22 00 1B 27  | . ......```"..'|
00001EF0: 34 08 99 22 20 20 20 B0  60 AE 20 B0 60 AE 20 AE  |4.."   .`. .`. .|
00001F00: 20 20 20 B0 60 AE 20 B0  AE B2 20 B0 60 69 20 B0  |   .`. ... .`i .|
00001F10: 60 AE 20 B0 60 AE 20 20  20 2E 22 00 47 27 3E 08  |`. .`.   .".G'>.|
00001F20: 99 22 20 20 1F 2E 9E 7D  20 20 20 AB 60 B3 20 7D  |."  ...}   .`. }|
00001F30: 20 20 20 AB B3 20 20 7D  7D 7D 20 7D 20 7D 20 AB  |   ..  }}} } } .|
00001F40: 60 B3 20 7D B0 BD 22 00  75 27 48 08 99 22 20 20  |`. }..".u'H.."  |
00001F50: 20 AD 60 BD 1C 2E 9E B1  20 B1 20 AD 60 BD 20 AD  | .`..... . .`. .|
00001F60: 60 BD 20 B1 AD BD 20 AD  60 6B 20 B1 20 B1 20 B1  |`. ... .`k . . .|
00001F70: AD 60 60 60 22 00 A6 27  52 08 99 22 20 20 20 20  |.```"..'R.."    |
00001F80: 20 20 20 20 20 20 20 20  20 20 20 20 1C 2E 20 20  |            ..  |
00001F90: 20 20 20 20 20 20 20 9E  2E 20 20 20 20 20 20 20  |       ..       |
00001FA0: 1F 2E 20 1C 2E 22 00 D0  27 5C 08 99 22 20 20 20  |.. .."..'\.."   |
00001FB0: 9E 2E 20 20 20 9F 28 43  29 20 31 39 38 39 20 20  |..   .(C) 1989  |
00001FC0: 54 4F 4E 59 20 48 45 52  52 49 4E 47 54 4F 4E 22  |TONY HERRINGTON"|
00001FD0: 00 03 28 66 08 99 22 20  20 20 20 20 20 20 20 20  |..(f.."         |
00001FE0: 20 20 20 20 1F 2E 20 97  2E 20 20 9E 2E 20 20 20  |    .. ..  ..   |
00001FF0: 20 20 1F 2E 20 20 1C 2E  20 20 1F 2E 20 20 20 20  |  ..  ..  ..    |
00002000: 9E 2E 22 00 36 28 70 08  99 22 20 20 20 9F 2E 20  |..".6(p.."   .. |
00002010: 1F 2E 20 20 20 9F 2E 20  20 20 20 20 20 20 20 20  |..   ..         |
00002020: 20 2E 20 20 20 20 20 20  20 20 20 20 20 20 1C 2E  | .            ..|
00002030: 20 20 20 9F 2E 22 00 68  28 7A 08 99 22 20 1F A4  |   ..".h(z.." ..|
00002040: A4 AF AF B9 B9 B9 A2 A2  A2 12 B8 B8 B8 B8 B8 B8  |................|
00002050: B8 B8 B8 B8 B8 B8 B8 B8  B8 B8 B8 B8 B8 92 A2 A2  |................|
00002060: A2 B9 B9 AF AF A4 A4 22  00 9C 28 84 08 99 22 20  |......."..(..." |
00002070: 12 20 A4 A4 A4 AF AF AF  AF A2 A2 A2 A2 A2 A2 92  |. ..............|
00002080: B8 B8 B8 B8 B8 B8 B8 B8  B8 12 A2 A2 A2 A2 A2 A2  |................|
00002090: A2 A2 AF AF AF AF A4 A4  20 22 3A 8E 00 B8 28 8E  |........ ":...(.|
000020A0: 08 99 22 13 22 3B 3A 56  49 B2 35 33 32 34 38 3A  |..".";:VI.53248:|
000020B0: 58 24 B2 C7 28 31 33 29  00 D0 28 98 08 81 49 B2  |X$..(13)..(...I.|
000020C0: 39 36 30 A4 39 38 33 3A  97 49 2C 32 35 35 3A 82  |960.983:.I,255:.|
000020D0: 00 E7 28 A2 08 81 49 B2  39 38 34 A4 31 30 32 32  |..(...I.984.1022|
000020E0: 3A 97 49 2C 30 3A 82 00  11 29 AC 08 81 49 B2 38  |:.I,0:...)...I.8|
000020F0: 39 36 A4 39 31 39 3A 97  49 2C 32 35 35 3A 82 3A  |96.919:.I,255:.:|
00002100: 81 49 B2 39 32 30 A4 39  35 39 3A 97 49 2C 30 3A  |.I.920.959:.I,0:|
00002110: 82 00 31 29 B6 08 97 35  36 35 37 36 2C 31 39 35  |..1)...56576,195|
00002120: 3A 97 36 34 38 2C 34 3A  97 35 33 32 37 32 2C 32  |:.648,4:.53272,2|
00002130: 31 00 64 29 C0 08 99 22  93 92 20 20 20 9B 12 A9  |1.d)..."..   ...|
00002140: 20 20 A3 A3 B7 B7 B8 B8  92 A2 A2 B9 B9 AF AF A4  |  ..............|
00002150: A4 A4 A4 AF AF B9 B9 A2  A2 12 B8 B8 B7 B7 A3 A3  |................|
00002160: 20 20 7F 22 00 94 29 CA  08 99 22 20 20 98 12 A9  |  ."..)..."  ...|
00002170: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002180: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002190: 20 20 7F 22 00 C4 29 D4  08 99 22 20 12 A9 20 4A  |  ."..)..." .. J|
000021A0: 41 4E 55 41 52 59 20 20  20 20 20 46 45 42 52 55  |ANUARY     FEBRU|
000021B0: 41 52 59 20 20 20 20 20  4D 41 52 43 48 20 20 20  |ARY     MARCH   |
000021C0: 20 20 7F 22 00 F4 29 DE  08 99 22 20 12 20 20 41  |  ."..)..." .  A|
000021D0: 50 52 49 4C 20 20 20 20  20 20 20 4D 41 59 20 20  |PRIL       MAY  |
000021E0: 20 20 20 20 20 20 20 20  4A 55 4E 45 20 20 20 20  |        JUNE    |
000021F0: 20 20 20 22 00 24 2A E8  08 99 22 20 12 20 20 4A  |   ".$*..." .  J|
00002200: 55 4C 59 20 20 20 20 20  20 20 20 41 55 47 55 53  |ULY        AUGUS|
00002210: 54 20 20 20 20 20 20 20  53 45 50 54 45 4D 42 45  |T       SEPTEMBE|
00002220: 52 20 20 22 00 55 2A F2  08 99 22 20 7F 12 20 4F  |R  ".U*..." .. O|
00002230: 43 54 4F 42 45 52 20 20  20 20 20 4E 4F 56 45 4D  |CTOBER     NOVEM|
00002240: 42 45 52 20 20 20 20 20  44 45 43 45 4D 42 45 52  |BER     DECEMBER|
00002250: 20 20 92 A9 22 00 85 2A  FC 08 99 22 20 20 7F 12  |  .."..*..."  ..|
00002260: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002270: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002280: 20 20 92 A9 22 00 B7 2A  06 09 99 22 20 20 20 97  |  .."..*..."   .|
00002290: 7F 12 20 20 A4 A4 AF AF  B9 B9 A2 A2 92 B8 B8 B7  |..  ............|
000022A0: B7 A3 A3 A3 A3 B7 B7 B8  B8 12 A2 A2 B9 B9 AF AF  |................|
000022B0: A4 A4 20 20 92 A9 22 00  E6 2A 10 09 99 22 20 20  |..  .."..*..."  |
000022C0: 9B AF AF AF AF AF AF AF  AF AF AF AF AF AF AF AF  |................|
000022D0: AF AF AF AF AF AF AF AF  AF AF AF AF AF AF AF AF  |................|
000022E0: AF AF AF AF AF 22 00 15  2B 1A 09 99 22 20 20 12  |....."..+..."  .|
000022F0: A9 20 20 20 20 20 20 20  20 50 20 52 20 4F 20 4D  |.        P R O M|
00002300: 20 50 20 54 20 20 20 42  20 41 20 52 20 20 20 20  | P T   B A R    |
00002310: 20 20 20 7F 22 00 47 2B  24 09 99 22 20 98 AA 12  |   .".G+$.." ...|
00002320: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002330: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002340: 20 20 20 20 92 A5 22 00  78 2B 2E 09 99 22 20 20  |    ..".x+..."  |
00002350: 97 7F 12 20 20 20 20 20  20 20 20 20 20 20 20 20  |...             |
00002360: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002370: 20 20 20 20 20 92 A9 22  00 A6 2B 38 09 99 22 20  |     .."..+8.." |
00002380: 20 B7 B7 B7 B7 B7 B7 B7  B7 B7 B7 B7 B7 B7 B7 B7  | ...............|
00002390: B7 B7 B7 B7 B7 B7 B7 B7  B7 B7 B7 B7 B7 B7 B7 B7  |................|
000023A0: B7 B7 B7 B7 B7 22 00 DC  2B 42 09 99 22 20 20 20  |....."..+B.."   |
000023B0: 20 1F 2E 20 20 20 9E 2E  20 20 20 9C 2E 20 20 20  | ..   ..   ..   |
000023C0: 97 2E 20 20 20 9F 2E 20  1F 2E 20 20 9E 2E 20 20  |..   .. ..  ..  |
000023D0: 20 9C 2E 20 98 2E 20 20  20 9C 2E 22 00 16 2C 4C  | .. ..   .."..,L|
000023E0: 09 99 22 20 20 2E 20 9F  2E 20 97 2E 20 9F 2E 20  |.."  . .. .. .. |
000023F0: 9E 2E 20 20 9F 2E 20 20  20 98 2E 20 9C 2E 97 2E  |..  ..   .. ....|
00002400: 20 20 20 2E 20 20 9F 2E  20 20 20 20 97 2E 9F 2E  |   .  ..    ....|
00002410: 20 20 20 1F 2E 22 00 4B  2C 56 09 99 22 20 20 20  |   ..".K,V.."   |
00002420: 20 20 20 20 20 20 20 2E  20 97 2E 20 20 9E 2E 20  |       . ..  .. |
00002430: 9F 2E 20 20 20 20 98 2E  20 20 1C 2E 1F 2E 20 20  |..    ..  ....  |
00002440: 97 2E 20 1F 2E 20 20 20  9C 2E 22 00 7E 2C 60 09  |.. ..   ..".~,`.|
00002450: 99 22 20 20 20 20 20 20  9F 2E 9C 2E 20 20 20 20  |."      ....    |
00002460: 20 20 1C 2E 20 97 2E 20  20 20 9E 2E 20 9F 2E 20  |  .. ..   .. .. |
00002470: 9C 2E 20 20 20 9E 2E 20  20 20 20 9F 2E 22 00 B6  |..   ..    .."..|
00002480: 2C 6A 09 99 22 20 20 2E  20 1F 2E 20 20 20 20 81  |,j.."  . ..    .|
00002490: 2E 20 9F 2E 20 9C 2E 20  9E 2E 20 20 9F 2E 20 20  |. .. .. ..  ..  |
000024A0: 1F 2E 20 20 20 9F 2E 20  20 20 2E 20 97 2E 20 20  |..   ..   . ..  |
000024B0: 9C 2E 20 1F 2E 22 00 E5  2C 74 09 99 22 20 20 9E  |.. .."..,t.."  .|
000024C0: A4 A4 A4 A4 A4 A4 A4 A4  A4 A4 A4 A4 A4 A4 A4 A4  |................|
000024D0: A4 A4 A4 A4 A4 A4 A4 A4  A4 A4 A4 A4 A4 A4 A4 A4  |................|
000024E0: A4 A4 A4 A4 22 00 16 2D  7E 09 99 22 20 9B 12 A9  |...."..-~.." ...|
000024F0: 20 20 20 20 20 20 20 20  20 4F 20 55 20 54 20 50  |         O U T P|
00002500: 20 55 20 54 20 20 20 42  20 41 20 52 20 20 20 20  | U T   B A R    |
00002510: 20 20 20 20 7F 22 00 47  2D 88 09 99 22 20 98 12  |    .".G-..." ..|
00002520: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002530: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002540: 20 20 20 20 20 20 22 00  79 2D 92 09 99 22 20 97  |      ".y-..." .|
00002550: DF 12 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |..              |
00002560: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002570: 20 20 20 20 20 20 92 A9  22 00 A8 2D 9C 09 99 22  |      .."..-..."|
00002580: 20 20 9E A3 A3 A3 A3 A3  A3 A3 A3 A3 A3 A3 A3 A3  |  ..............|
00002590: A3 A3 A3 A3 A3 A3 A3 A3  A3 A3 A3 A3 A3 A3 A3 A3  |................|
000025A0: A3 A3 A3 A3 A3 A3 A3 22  00 E3 2D A6 09 99 22 20  |......."..-..." |
000025B0: 20 20 20 2E 20 1C 2E 20  9F 2E 9E 2E 20 20 1C 2E  |   . .. ....  ..|
000025C0: 20 20 20 9E 2E 20 98 2E  20 20 1C 2E 20 9E 2E 20  |   .. ..  .. .. |
000025D0: 1C 2E 20 20 9E 2E 20 1C  2E 20 98 2E 20 9E 2E 20  |..  .. .. .. .. |
000025E0: 1C 2E 22 00 1B 2E B0 09  99 22 20 20 2E 20 20 20  |.."......"  .   |
000025F0: 20 20 9E 2E 1C 2E 20 98  2E 20 20 20 2E 20 20 20  |  .... ..   .   |
00002600: 20 20 9E 2E 20 9F 2E 20  20 1C 2E 20 20 20 9F 2E  |  .. ..  ..   ..|
00002610: 20 20 2E 20 20 20 1C 2E  9B 22 3B 00 2B 2E BA 09  |  .   ...";.+...|
00002620: 99 22 13 22 3B 3A 89 32  37 31 30 00 4F 2E C4 09  |.".";:.2710.O...|
00002630: 97 36 34 36 2C C2 28 36  34 36 29 AA 31 3A 8B C2  |.646,.(646).1:..|
00002640: 28 36 34 36 29 B1 31 35  A7 97 36 34 36 2C 32 00  |(646).15..646,2.|
00002650: 75 2E CE 09 97 32 31 34  2C 32 33 3A 99 3A 99 A3  |u....214,23:.:..|
00002660: 31 32 29 22 50 52 45 53  53 20 53 50 41 43 45 20  |12)"PRESS SPACE |
00002670: 42 41 52 91 22 00 8B 2E  D8 09 A1 41 24 3A 8B 41  |BAR."......A$:.A|
00002680: 24 B3 B1 22 20 22 A7 32  35 30 30 00 B8 2E E2 09  |$.." ".2500.....|
00002690: 97 36 34 36 2C 30 3A 97  32 31 34 2C 32 33 3A 99  |.646,0:.214,23:.|
000026A0: 3A 99 A3 31 32 29 22 50  52 45 53 53 20 53 50 41  |:..12)"PRESS SPA|
000026B0: 43 45 20 42 41 52 91 22  00 D0 2E EC 09 97 32 31  |CE BAR."......21|
000026C0: 34 2C 31 35 3A 99 22 98  22 3A 81 49 B2 31 A4 37  |4,15:.".":.I.1.7|
000026D0: 00 04 2F F6 09 99 22 1D  1D 12 20 20 20 20 20 20  |../..."...      |
000026E0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000026F0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 1D 1D  |              ..|
00002700: 22 3B 3A 82 00 3B 2F 00  0A 99 22 13 92 11 11 11  |";:..;/...".....|
00002710: 11 11 11 11 11 11 11 1D  1D 1D 1D 1D 20 20 20 20  |............    |
00002720: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002730: 20 20 20 20 20 20 20 20  22 3A 8E 00 5F 2F 0A 0A  |        ":.._/..|
00002740: 97 36 34 36 2C C2 28 36  34 36 29 AA 31 3A 8B C2  |.646,.(646).1:..|
00002750: 28 36 34 36 29 B1 31 35  A7 97 36 34 36 2C 32 00  |(646).15..646,2.|
00002760: 8C 2F 14 0A 97 32 31 34  2C 32 33 3A 99 3A 99 A3  |./...214,23:.:..|
00002770: 31 30 29 22 50 4C 45 41  53 45 20 53 45 4C 45 43  |10)"PLEASE SELEC|
00002780: 54 20 4F 55 54 50 55 54  91 22 3A 8E 00 AC 2F 1E  |T OUTPUT.":.../.|
00002790: 0A 97 35 36 35 37 36 2C  31 39 35 3A 97 36 34 38  |..56576,195:.648|
000027A0: 2C 34 3A 97 35 33 32 37  32 2C 32 31 00 E9 2F 28  |,4:.53272,21../(|
000027B0: 0A 8D 32 35 34 30 3A 97  32 31 34 2C 31 38 3A 99  |..2540:.214,18:.|
000027C0: 3A 99 A3 33 29 22 98 12  44 49 53 50 4C 41 59 20  |:..3)"..DISPLAY |
000027D0: 47 52 41 50 48 49 43 20  4F 52 20 45 4E 47 4C 49  |GRAPHIC OR ENGLI|
000027E0: 53 48 3F 20 28 47 2F 45  29 00 10 30 32 0A A1 43  |SH? (G/E)..02..C|
000027F0: 54 24 3A 8D 32 36 33 30  3A 8B 43 54 24 B3 B1 22  |T$:.2630:.CT$.."|
00002800: 47 22 AF 43 54 24 B3 B1  22 45 22 A7 32 36 31 30  |G".CT$.."E".2610|
00002810: 00 29 30 3C 0A 8D 32 35  34 30 3A 97 36 34 36 2C  |.)0<..2540:.646,|
00002820: 30 3A 8D 32 36 34 30 3A  8E 00 4D 30 46 0A 97 36  |0:.2640:..M0F..6|
00002830: 34 36 2C C2 28 36 34 36  29 AA 31 3A 8B C2 28 36  |46,.(646).1:..(6|
00002840: 34 36 29 B1 31 35 A7 97  36 34 36 2C 32 00 89 30  |46).15..646,2..0|
00002850: 50 0A 97 32 31 34 2C 32  33 3A 99 3A 99 A3 32 29  |P..214,23:.:..2)|
00002860: 22 50 4C 45 41 53 45 20  53 45 4C 45 43 54 20 54  |"PLEASE SELECT T|
00002870: 59 50 45 20 4F 46 20 53  43 52 45 45 4E 20 44 49  |YPE OF SCREEN DI|
00002880: 53 50 4C 41 59 91 22 3A  8E 00 AA 30 5A 0A 8F 2A  |SPLAY.":...0Z..*|
00002890: 2A 2A 2A 2A 2A 2A 2A 20  50 52 4F 4D 50 54 20 42  |******* PROMPT B|
000028A0: 41 52 2A 2A 2A 2A 2A 2A  2A 2A 00 E5 30 64 0A 97  |AR********..0d..|
000028B0: 32 31 34 2C 39 3A 99 3A  99 22 98 1D 1D 12 20 20  |214,9:.:."....  |
000028C0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000028D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000028E0: 20 20 1D 1D 22 00 17 31  6E 0A 97 32 31 34 2C 39  |  .."..1n..214,9|
000028F0: 3A 99 3A 97 31 39 39 2C  31 3A 99 22 98 22 A3 32  |:.:.199,1:.".".2|
00002900: 30 AB C3 28 50 4D 24 29  AD 32 29 50 4D 24 3A 50  |0..(PM$).2)PM$:P|
00002910: 4D 24 B2 22 22 3A 8E 00  38 31 78 0A 8F 2A 2A 2A  |M$."":..81x..***|
00002920: 2A 2A 2A 2A 2A 20 4F 55  54 50 55 54 20 42 41 52  |***** OUTPUT BAR|
00002930: 2A 2A 2A 2A 2A 2A 2A 2A  00 74 31 82 0A 97 32 31  |********.t1...21|
00002940: 34 2C 31 39 3A 99 3A 99  22 98 1D 1D 12 20 20 20  |4,19:.:."....   |
00002950: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002960: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002970: 20 1D 1D 22 00 A7 31 8C  0A 97 32 31 34 2C 31 39  | .."..1...214,19|
00002980: 3A 99 3A 97 31 39 39 2C  31 3A 99 22 98 22 A3 32  |:.:.199,1:.".".2|
00002990: 30 AB C3 28 4F 50 24 29  AD 32 29 4F 50 24 3A 4F  |0..(OP$).2)OP$:O|
000029A0: 50 24 B2 22 22 3A 8E 00  BE 31 96 0A 8F 20 4D 45  |P$."":...1... ME|
000029B0: 4E 55 20 47 45 54 20 52  4F 55 54 49 4E 45 00 F9  |NU GET ROUTINE..|
000029C0: 31 A0 0A 97 56 49 AA 32  31 2C 33 3A 97 56 49 AA  |1...VI.21,3:.VI.|
000029D0: 31 2C 36 36 3A 97 56 49  AA 33 2C 36 36 3A 97 35  |1,66:.VI.3,66:.5|
000029E0: 33 32 37 37 2C 33 3A 97  56 49 2C 32 33 AA 32 34  |3277,3:.VI,23.24|
000029F0: 3A 97 56 49 AA 32 2C 39  35 00 35 32 AA 0A 97 56  |:.VI.2,95.52...V|
00002A00: 49 AA 34 30 2C 37 3A 97  56 49 AA 33 39 2C 37 3A  |I.40,7:.VI.39,7:|
00002A10: 8D 32 38 35 30 3A 50 4D  24 B2 22 51 20 4F 52 20  |.2850:PM$."Q OR |
00002A20: 5E 20 54 4F 20 45 58 49  54 22 3A 8D 32 36 35 30  |^ TO EXIT":.2650|
00002A30: 3A 4D 55 B2 31 00 5E 32  B4 0A A1 41 24 3A 8D 32  |:MU.1.^2...A$:.2|
00002A40: 39 38 30 3A 8D 32 39 38  30 3A 8D 33 32 35 30 3A  |980:.2980:.3250:|
00002A50: 8B 41 24 B2 22 5E 22 A7  41 24 B2 22 51 22 00 97  |.A$."^".A$."Q"..|
00002A60: 32 BE 0A 8B 41 24 B3 B1  22 1D 22 AF 41 24 B3 B1  |2...A$..".".A$..|
00002A70: 22 9D 22 AF 41 24 B3 B1  22 51 22 AF 41 24 B3 B1  |".".A$.."Q".A$..|
00002A80: 58 24 AF 41 24 B3 B1 22  91 22 AF 41 24 B3 B1 22  |X$.A$..".".A$.."|
00002A90: 11 22 A7 32 37 34 30 00  B7 32 C8 0A 8B 41 24 B2  |.".2740..2...A$.|
00002AA0: 22 1D 22 A7 4D 55 B2 4D  55 AA 31 3A 8B 4D 55 B2  |".".MU.MU.1:.MU.|
00002AB0: 31 33 A7 4D 55 B2 31 00  DD 32 D2 0A 8B 41 24 B2  |13.MU.1..2...A$.|
00002AC0: 22 9D 22 A7 4D 55 B2 4D  55 AB 31 3A 8D 32 39 38  |".".MU.MU.1:.298|
00002AD0: 30 3A 8B 4D 55 B3 31 A7  4D 55 B2 31 32 00 03 33  |0:.MU.1.MU.12..3|
00002AE0: DC 0A 8B 41 24 B2 22 91  22 A7 4D 55 B2 4D 55 AB  |...A$.".".MU.MU.|
00002AF0: 33 3A 8D 32 39 38 30 3A  8B 4D 55 B3 31 A7 4D 55  |3:.2980:.MU.1.MU|
00002B00: B2 31 32 00 29 33 E6 0A  8B 41 24 B2 22 11 22 A7  |.12.)3...A$.".".|
00002B10: 4D 55 B2 4D 55 AA 33 3A  8D 32 39 38 30 3A 8B 4D  |MU.MU.3:.2980:.M|
00002B20: 55 B1 31 32 A7 4D 55 B2  31 00 5E 33 F0 0A 8B 41  |U.12.MU.1.^3...A|
00002B30: 24 B2 58 24 A7 97 35 33  32 38 37 2C 37 3A 97 35  |$.X$..53287,7:.5|
00002B40: 33 32 38 38 2C 37 3A 8D  33 30 30 30 3A 8D 32 36  |3288,7:.3000:.26|
00002B50: 35 30 3A 8D 32 36 38 30  3A 89 32 37 34 30 00 92  |50:.2680:.2740..|
00002B60: 33 FA 0A 8B 41 24 B2 22  51 22 A7 50 4D 24 B2 22  |3...A$."Q".PM$."|
00002B70: 51 55 49 54 20 54 48 49  53 20 4D 45 4E 55 3F 20  |QUIT THIS MENU? |
00002B80: 28 59 2F 4E 29 22 3A 8D  32 36 35 30 3A 8D 33 30  |(Y/N)":.2650:.30|
00002B90: 39 30 00 9F 33 04 0B 97  56 49 AA 32 31 2C 30 00  |90..3...VI.21,0.|
00002BA0: E3 33 0E 0B 91 4D 55 8D  32 38 35 30 2C 32 38 36  |.3...MU.2850,286|
00002BB0: 30 2C 32 38 37 30 2C 32  38 38 30 2C 32 38 39 30  |0,2870,2880,2890|
00002BC0: 2C 32 39 30 30 2C 32 39  31 30 2C 32 39 32 30 2C  |,2900,2910,2920,|
00002BD0: 32 39 33 30 2C 32 39 34  30 2C 32 39 35 30 2C 32  |2930,2940,2950,2|
00002BE0: 39 36 30 00 F6 33 18 0B  97 56 49 AA 32 31 2C 33  |960..3...VI.21,3|
00002BF0: 3A 89 32 37 34 30 00 27  34 22 0B 97 56 49 AA 31  |:.2740.'4"..VI.1|
00002C00: 36 2C 30 3A 97 56 49 2C  34 37 3A 97 56 49 AA 32  |6,0:.VI,47:.VI.2|
00002C10: 2C 39 35 3A 97 56 49 AA  31 2C 36 36 3A 97 56 49  |,95:.VI.1,66:.VI|
00002C20: AA 33 2C 36 36 3A 8E 00  5A 34 2C 0B 97 56 49 2C  |.3,66:..Z4,..VI,|
00002C30: 31 33 36 3A 97 56 49 AA  32 2C 31 38 34 3A 97 56  |136:.VI.2,184:.V|
00002C40: 49 AA 31 36 2C 30 3A 97  56 49 AA 31 2C 36 36 3A  |I.16,0:.VI.1,66:|
00002C50: 97 56 49 AA 33 2C 36 36  3A 8E 00 8C 34 36 0B 97  |.VI.3,66:...46..|
00002C60: 56 49 2C 32 34 30 3A 97  56 49 AA 32 2C 32 34 3A  |VI,240:.VI.2,24:|
00002C70: 97 56 49 AA 31 36 2C 32  3A 97 56 49 AA 31 2C 36  |.VI.16,2:.VI.1,6|
00002C80: 36 3A 97 56 49 AA 33 2C  36 36 3A 8E 00 BD 34 40  |6:.VI.3,66:...4@|
00002C90: 0B 97 56 49 AA 31 36 2C  30 3A 97 56 49 2C 34 37  |..VI.16,0:.VI,47|
00002CA0: 3A 97 56 49 AA 32 2C 39  35 3A 97 56 49 AA 31 2C  |:.VI.2,95:.VI.1,|
00002CB0: 37 34 3A 97 56 49 AA 33  2C 37 34 3A 8E 00 F0 34  |74:.VI.3,74:...4|
00002CC0: 4A 0B 97 56 49 2C 31 33  36 3A 97 56 49 AA 32 2C  |J..VI,136:.VI.2,|
00002CD0: 31 38 34 3A 97 56 49 AA  31 36 2C 30 3A 97 56 49  |184:.VI.16,0:.VI|
00002CE0: AA 31 2C 37 34 3A 97 56  49 AA 33 2C 37 34 3A 8E  |.1,74:.VI.3,74:.|
00002CF0: 00 22 35 54 0B 97 56 49  2C 32 34 30 3A 97 56 49  |."5T..VI,240:.VI|
00002D00: AA 32 2C 32 34 3A 97 56  49 AA 31 36 2C 32 3A 97  |.2,24:.VI.16,2:.|
00002D10: 56 49 AA 31 2C 37 34 3A  97 56 49 AA 33 2C 37 34  |VI.1,74:.VI.3,74|
00002D20: 3A 8E 00 53 35 5E 0B 97  56 49 AA 31 36 2C 30 3A  |:..S5^..VI.16,0:|
00002D30: 97 56 49 2C 34 37 3A 97  56 49 AA 32 2C 39 35 3A  |.VI,47:.VI.2,95:|
00002D40: 97 56 49 AA 31 2C 38 32  3A 97 56 49 AA 33 2C 38  |.VI.1,82:.VI.3,8|
00002D50: 32 3A 8E 00 86 35 68 0B  97 56 49 2C 31 33 36 3A  |2:...5h..VI,136:|
00002D60: 97 56 49 AA 32 2C 31 38  34 3A 97 56 49 AA 31 36  |.VI.2,184:.VI.16|
00002D70: 2C 30 3A 97 56 49 AA 31  2C 38 32 3A 97 56 49 AA  |,0:.VI.1,82:.VI.|
00002D80: 33 2C 38 32 3A 8E 00 B8  35 72 0B 97 56 49 2C 32  |3,82:...5r..VI,2|
00002D90: 34 30 3A 97 56 49 AA 32  2C 32 34 3A 97 56 49 AA  |40:.VI.2,24:.VI.|
00002DA0: 31 36 2C 32 3A 97 56 49  AA 31 2C 38 32 3A 97 56  |16,2:.VI.1,82:.V|
00002DB0: 49 AA 33 2C 38 32 3A 8E  00 E9 35 7C 0B 97 56 49  |I.3,82:...5|..VI|
00002DC0: AA 31 36 2C 30 3A 97 56  49 2C 34 37 3A 97 56 49  |.16,0:.VI,47:.VI|
00002DD0: AA 32 2C 39 35 3A 97 56  49 AA 31 2C 39 30 3A 97  |.2,95:.VI.1,90:.|
00002DE0: 56 49 AA 33 2C 39 30 3A  8E 00 1C 36 86 0B 97 56  |VI.3,90:...6...V|
00002DF0: 49 2C 31 33 36 3A 97 56  49 AA 32 2C 31 38 34 3A  |I,136:.VI.2,184:|
00002E00: 97 56 49 AA 31 36 2C 30  3A 97 56 49 AA 31 2C 39  |.VI.16,0:.VI.1,9|
00002E10: 30 3A 97 56 49 AA 33 2C  39 30 3A 8E 00 4E 36 90  |0:.VI.3,90:..N6.|
00002E20: 0B 97 56 49 2C 32 34 30  3A 97 56 49 AA 32 2C 32  |..VI,240:.VI.2,2|
00002E30: 34 3A 97 56 49 AA 31 36  2C 32 3A 97 56 49 AA 31  |4:.VI.16,2:.VI.1|
00002E40: 2C 39 30 3A 97 56 49 AA  33 2C 39 30 3A 8E 00 69  |,90:.VI.3,90:..i|
00002E50: 36 9A 0B 8F 2A 2A 2A 2A  2A 2A 2A 53 50 41 52 4B  |6...*******SPARK|
00002E60: 4C 45 2A 2A 2A 2A 2A 2A  2A 00 89 36 A4 0B 97 BB  |LE*******..6....|
00002E70: 28 54 49 29 AC 31 39 39  AA 35 35 38 31 36 2C BB  |(TI).199.55816,.|
00002E80: 28 54 49 29 AC 31 33 AA  32 00 AA 36 AE 0B 97 BB  |(TI).13.2..6....|
00002E90: 28 54 49 29 AC 34 30 AA  35 36 32 31 36 2C BB 28  |(TI).40.56216,.(|
00002EA0: 54 49 29 AC 31 33 AA 32  3A 8E 00 C6 36 B8 0B 8F  |TI).13.2:...6...|
00002EB0: 2A 2A 2A 2A 4D 4F 4E 54  48 20 53 45 4C 45 43 54  |****MONTH SELECT|
00002EC0: 45 44 2A 2A 2A 2A 00 0D  37 C2 0B 50 4D 24 B2 22  |ED****..7..PM$."|
00002ED0: 43 55 52 53 4F 52 20 4B  45 59 53 20 54 4F 20 53  |CURSOR KEYS TO S|
00002EE0: 43 41 4E 20 4D 4F 4E 54  48 2F 5E 20 54 4F 20 45  |CAN MONTH/^ TO E|
00002EF0: 58 49 54 22 3A 8D 32 36  35 30 3A 4D B2 4D 55 3A  |XIT":.2650:M.MU:|
00002F00: 44 B2 31 20 20 20 20 20  20 20 20 20 20 00 3E 37  |D.1          .>7|
00002F10: CC 0B 8D 31 32 30 30 3A  4F 50 24 B2 4D 24 28 4D  |...1200:OP$.M$(M|
00002F20: 29 AA C4 28 44 29 AA 22  2C 22 AA C4 28 59 29 AA  |)..(D).","..(Y).|
00002F30: 22 3A 20 22 AA 50 48 24  3A 8D 32 36 38 30 00 52  |": ".PH$:.2680.R|
00002F40: 37 D6 0B A1 41 24 3A 8D  32 39 38 30 3A 8D 32 39  |7...A$:.2980:.29|
00002F50: 38 30 00 8B 37 E0 0B 8B  41 24 B3 B1 22 1D 22 AF  |80..7...A$..".".|
00002F60: 41 24 B3 B1 22 9D 22 AF  41 24 B3 B1 22 5E 22 AF  |A$..".".A$.."^".|
00002F70: 41 24 B3 B1 58 24 AF 41  24 B3 B1 22 91 22 AF 41  |A$..X$.A$..".".A|
00002F80: 24 B3 B1 22 11 22 A7 33  30 33 30 00 B2 37 EA 0B  |$..".".3030..7..|
00002F90: 8B 41 24 B2 22 1D 22 B0  41 24 B2 22 91 22 A7 44  |.A$.".".A$.".".D|
00002FA0: B2 44 AA 31 3A 8B 44 B1  4D 4F 25 28 4D 29 A7 44  |.D.1:.D.MO%(M).D|
00002FB0: B2 31 00 D9 37 F4 0B 8B  41 24 B2 22 9D 22 B0 41  |.1..7...A$.".".A|
00002FC0: 24 B2 22 11 22 A7 44 B2  44 AB 31 3A 8B 44 B3 31  |$.".".D.D.1:.D.1|
00002FD0: A7 44 B2 4D 4F 25 28 4D  29 00 E7 37 FE 0B 8B 41  |.D.MO%(M)..7...A|
00002FE0: 24 B2 22 5E 22 A7 8E 00  1E 38 08 0C 8D 31 32 30  |$."^"....8...120|
00002FF0: 30 3A 4F 50 24 B2 4D 24  28 4D 29 AA C4 28 44 29  |0:OP$.M$(M)..(D)|
00003000: AA 22 2C 22 AA C4 28 59  29 AA 22 3A 20 22 AA 50  |.","..(Y).": ".P|
00003010: 48 24 3A 8D 32 36 38 30  3A 89 33 30 33 30 00 3E  |H$:.2680:.3030.>|
00003020: 38 12 0C 8F 2A 2A 2A 2A  2A 2A 2A 20 53 45 4C 45  |8...******* SELE|
00003030: 43 54 20 59 45 41 52 2A  2A 2A 2A 2A 2A 2A 00 5C  |CT YEAR*******.\|
00003040: 38 1C 0C A1 41 24 3A 8B  41 24 B3 B1 22 59 22 AF  |8...A$:.A$.."Y".|
00003050: 41 24 B3 B1 22 4E 22 A7  33 31 30 30 00 78 38 26  |A$.."N".3100.x8&|
00003060: 0C 50 4D 24 B2 22 20 22  3A 8D 32 36 35 30 3A 8B  |.PM$." ":.2650:.|
00003070: 41 24 B2 22 4E 22 A7 8E  00 AD 38 30 0C 50 4D 24  |A$."N"....80.PM$|
00003080: B2 22 51 55 49 54 20 4F  52 20 47 4F 20 54 4F 20  |."QUIT OR GO TO |
00003090: 47 52 41 50 48 49 43 20  43 41 4C 45 4E 44 41 52  |GRAPHIC CALENDAR|
000030A0: 20 28 51 2F 43 29 22 3A  8D 32 36 35 30 00 D3 38  | (Q/C)":.2650..8|
000030B0: 3A 0C A1 41 24 3A 8B 41  24 B3 B1 22 51 22 AF 41  |:..A$:.A$.."Q".A|
000030C0: 24 B3 B1 22 47 22 AF 41  24 B3 B1 22 43 22 A7 33  |$.."G".A$.."C".3|
000030D0: 31 33 30 00 EB 38 44 0C  8B 41 24 B2 22 43 22 B0  |130..8D..A$."C".|
000030E0: 41 24 B2 22 47 22 A7 31  36 34 30 00 F5 38 4E 0C  |A$."G".1640..8N.|
000030F0: 89 31 38 38 30 00 2C 39  58 0C 8D 32 35 34 30 3A  |.1880.,9X..2540:|
00003100: 97 32 31 34 2C 31 38 3A  99 3A 99 A3 37 29 22 12  |.214,18:.:..7)".|
00003110: 98 51 55 49 54 3F 20 20  41 52 45 20 59 4F 55 20  |.QUIT?  ARE YOU |
00003120: 53 55 52 45 3F 20 28 59  2F 4E 29 22 00 4A 39 62  |SURE? (Y/N)".J9b|
00003130: 0C A1 41 24 3A 8B 41 24  B3 B1 22 59 22 AF 41 24  |..A$:.A$.."Y".A$|
00003140: B3 B1 22 4E 22 A7 33 31  37 30 00 58 39 6C 0C 8B  |.."N".3170.X9l..|
00003150: 41 24 B2 22 4E 22 A7 8E  00 62 39 76 0C 89 31 38  |A$."N"...b9v..18|
00003160: 38 30 00 7A 39 80 0C 8F  2A 2A 2A 2A 46 49 58 20  |80.z9...****FIX |
00003170: 4D 4F 4E 54 48 53 2A 2A  2A 2A 00 86 39 8A 0C 81  |MONTHS****..9...|
00003180: 49 B2 31 A4 31 32 00 A3  39 94 0C 4D 24 28 49 29  |I.1.12..9..M$(I)|
00003190: B2 22 22 3A 81 49 49 B2  31 A4 C3 28 4D 4F 24 28  |."":.II.1..(MO$(|
000031A0: 49 29 29 00 D2 39 9E 0C  41 24 B2 CA 28 4D 4F 24  |I))..9..A$..(MO$|
000031B0: 28 49 29 2C 49 49 2C 5A  25 29 3A 8B 41 24 B3 B1  |(I),II,Z%):.A$..|
000031C0: 22 20 22 A7 4D 24 28 49  29 B2 4D 24 28 49 29 AA  |" ".M$(I).M$(I).|
000031D0: 41 24 00 DC 39 A8 0C 82  3A 82 3A 8E 00 F3 39 B2  |A$..9...:.:...9.|
000031E0: 0C 43 43 25 B2 43 43 25  AA 31 3A 8B 43 43 25 B3  |.CC%.CC%.1:.CC%.|
000031F0: 32 A7 8E 00 FD 39 BC 0C  43 43 25 B2 30 00 27 3A  |2....9..CC%.0.':|
00003200: C6 0C 43 53 25 B2 43 53  25 AA 31 3A 8B 43 53 25  |..CS%.CS%.1:.CS%|
00003210: B1 34 A7 43 53 25 B2 31  3A 8F 20 53 50 52 49 54  |.4.CS%.1:. SPRIT|
00003220: 45 20 43 4F 4C 4F 52 00  41 3A D0 0C 91 43 53 25  |E COLOR.A:...CS%|
00003230: 8D 33 32 39 30 2C 33 33  30 30 2C 33 33 32 30 3A  |.3290,3300,3320:|
00003240: 8E 00 59 3A DA 0C 97 35  33 32 38 37 2C 30 3A 97  |..Y:...53287,0:.|
00003250: 35 33 32 38 38 2C 30 3A  8E 00 73 3A E4 0C 97 35  |53288,0:..s:...5|
00003260: 33 32 38 37 2C 31 31 3A  97 35 33 32 38 38 2C 31  |3287,11:.53288,1|
00003270: 31 3A 8E 00 8D 3A EE 0C  97 35 33 32 38 37 2C 31  |1:...:...53287,1|
00003280: 32 3A 97 35 33 32 38 38  2C 31 31 3A 8E 00 A7 3A  |2:.53288,11:...:|
00003290: F8 0C 97 35 33 32 38 37  2C 31 35 3A 97 35 33 32  |...53287,15:.532|
000032A0: 38 38 2C 31 35 3A 8E 00  ED 3A 02 0D 97 35 33 32  |88,15:...:...532|
000032B0: 38 30 2C 31 32 3A 97 35  33 32 38 31 2C 31 35 3A  |80,12:.53281,15:|
000032C0: 99 22 93 92 20 97 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |.".. ...........|
000032D0: C0 C0 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |..              |
000032E0: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 C0 C0 22 00 29 3B  |............".);|
000032F0: 0C 0D 99 22 20 C0 C0 C0  C0 C0 C0 C0 C0 20 20 20  |..." ........   |
00003300: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003310: 20 20 C0 C0 C0 C0 C0 C0  C0 C0 C0 22 3A 8B 56 49  |  .........":.VI|
00003320: A7 97 56 49 AA 32 31 2C  30 00 58 3B 16 0D 99 22  |..VI.21,0.X;..."|
00003330: 20 60 60 60 60 60 60 60  60 60 60 60 60 20 20 20  | ````````````   |
00003340: 20 20 20 20 20 20 20 20  20 20 20 60 60 60 60 60  |           `````|
00003350: 60 60 60 60 60 60 60 22  00 88 3B 20 0D 99 22 20  |```````"..; .." |
00003360: 12 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00003370: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003380: 20 20 20 20 20 20 20 22  00 BA 3B 2A 0D 99 22 20  |       "..;*.." |
00003390: 12 20 98 B8 B8 B8 B8 B8  B8 B8 B8 B8 B8 B8 B8 B8  |. ..............|
000033A0: B8 B8 B8 B8 B8 B8 B8 B8  B8 B8 B8 B8 B8 B8 B8 B8  |................|
000033B0: B8 B8 B8 B8 B8 B8 B8 97  20 22 00 EC 3B 34 0D 99  |........ "..;4..|
000033C0: 22 20 12 20 98 20 20 20  20 20 20 20 20 20 20 20  |" . .           |
000033D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000033E0: 20 20 20 20 20 20 20 20  20 97 20 22 00 1E 3C 3E  |         . "..<>|
000033F0: 0D 99 22 20 12 20 98 20  20 20 20 20 20 20 20 20  |.." . .         |
00003400: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003410: 20 20 20 20 20 20 20 20  20 20 20 97 20 22 00 50  |           . ".P|
00003420: 3C 48 0D 99 22 20 12 20  92 60 60 60 60 B2 60 60  |<H.." . .````.``|
00003430: 60 B2 60 60 60 B2 60 60  60 B2 60 60 60 B2 60 60  |`.```.```.```.``|
00003440: 60 B2 60 60 60 B2 60 60  60 B2 60 60 60 12 20 22  |`.```.```.```. "|
00003450: 00 94 3C 52 0D 99 22 20  12 20 90 92 31 20 20 20  |..<R.." . ..1   |
00003460: 97 7D 90 32 20 20 97 7D  90 33 20 20 97 7D 90 34  |.}.2  .}.3  .}.4|
00003470: 20 20 97 7D 90 35 20 20  97 7D 90 36 20 20 97 7D  |  .}.5  .}.6  .}|
00003480: 90 37 20 20 97 7D 90 38  20 20 97 7D 90 39 20 20  |.7  .}.8  .}.9  |
00003490: 97 12 20 22 00 C6 3C 5C  0D 99 22 20 12 20 92 20  |.. "..<\.." . . |
000034A0: 20 20 20 7D 20 20 20 7D  20 20 20 7D 20 20 20 7D  |   }   }   }   }|
000034B0: 20 20 20 7D 20 20 20 7D  20 20 20 7D 20 20 20 7D  |   }   }   }   }|
000034C0: 20 20 20 12 20 22 00 F8  3C 66 0D 99 22 20 12 20  |   . "..<f.." . |
000034D0: 92 20 20 20 20 7D 20 20  20 7D 20 20 20 7D 20 20  |.    }   }   }  |
000034E0: 20 7D 20 20 20 7D 20 20  20 7D 20 20 20 7D 20 20  | }   }   }   }  |
000034F0: 20 7D 20 20 20 12 20 22  00 2A 3D 70 0D 99 22 20  | }   . ".*=p.." |
00003500: 12 20 92 60 60 60 60 7B  60 60 60 7B 60 60 60 7B  |. .````{```{```{|
00003510: 60 60 60 7B 60 60 60 7B  60 60 60 7B 60 60 60 7B  |```{```{```{```{|
00003520: 60 60 60 7B 60 60 60 12  20 22 00 6E 3D 7A 0D 99  |```{```. ".n=z..|
00003530: 22 20 12 20 90 92 31 30  20 20 97 7D 90 31 31 20  |" . ..10  .}.11 |
00003540: 97 7D 90 31 32 20 97 7D  90 31 33 20 97 7D 90 31  |.}.12 .}.13 .}.1|
00003550: 34 20 97 7D 90 31 35 20  97 7D 90 31 36 20 97 7D  |4 .}.15 .}.16 .}|
00003560: 90 31 37 20 97 7D 90 31  38 20 97 12 20 22 00 A0  |.17 .}.18 .. "..|
00003570: 3D 84 0D 99 22 20 12 20  92 20 20 20 20 7D 20 20  |=..." . .    }  |
00003580: 20 7D 20 20 20 7D 20 20  20 7D 20 20 20 7D 20 20  | }   }   }   }  |
00003590: 20 7D 20 20 20 7D 20 20  20 7D A0 A0 20 12 20 22  | }   }   }.. . "|
000035A0: 00 D2 3D 8E 0D 99 22 20  12 20 92 20 20 20 20 7D  |..=..." . .    }|
000035B0: 20 20 20 7D 20 20 20 7D  20 20 20 7D 20 20 20 7D  |   }   }   }   }|
000035C0: 20 20 20 7D 20 20 20 7D  20 20 20 7D 20 20 20 12  |   }   }   }   .|
000035D0: 20 22 00 04 3E 98 0D 99  22 20 12 20 92 60 60 60  | "..>..." . .```|
000035E0: 60 7B 60 60 60 7B 60 60  60 7B 60 60 60 7B 60 60  |`{```{```{```{``|
000035F0: 60 7B 60 60 60 7B 60 60  60 7B 60 60 60 7B 60 60  |`{```{```{```{``|
00003600: 60 12 20 22 00 48 3E A2  0D 99 22 20 12 20 90 92  |`. ".H>..." . ..|
00003610: 31 39 20 20 97 7D 90 32  30 20 97 7D 90 32 31 20  |19  .}.20 .}.21 |
00003620: 97 7D 90 32 32 20 97 7D  90 32 33 20 97 7D 90 32  |.}.22 .}.23 .}.2|
00003630: 34 20 97 7D 90 32 35 20  97 7D 90 32 36 20 97 7D  |4 .}.25 .}.26 .}|
00003640: 90 32 37 20 97 12 20 22  00 7A 3E AC 0D 99 22 20  |.27 .. ".z>..." |
00003650: 12 20 92 20 20 20 20 7D  20 20 20 7D 20 20 20 7D  |. .    }   }   }|
00003660: 20 20 20 7D 20 20 20 7D  20 20 20 7D 20 20 20 7D  |   }   }   }   }|
00003670: 20 20 20 7D 20 20 20 12  20 22 00 AC 3E B6 0D 99  |   }   . "..>...|
00003680: 22 20 12 20 92 20 20 20  20 7D 20 20 20 7D 20 20  |" . .    }   }  |
00003690: 20 7D 20 20 20 7D 20 20  20 7D 20 20 20 7D 20 20  | }   }   }   }  |
000036A0: 20 7D 20 20 20 7D 20 20  20 12 20 22 00 DE 3E C0  | }   }   . "..>.|
000036B0: 0D 99 22 20 12 20 92 60  60 60 60 7B 60 60 60 7B  |.." . .````{```{|
000036C0: 60 60 60 7B 60 60 60 7B  60 60 60 B1 60 60 60 B1  |```{```{```.```.|
000036D0: 60 60 60 B1 60 60 60 B1  60 60 60 12 20 22 00 1A  |```.```.```. "..|
000036E0: 3F CA 0D 99 22 20 12 20  90 92 32 38 20 20 97 DD  |?..." . ..28  ..|
000036F0: 90 32 39 20 97 DD 90 33  30 20 97 DD 90 33 31 20  |.29 ...30 ...31 |
00003700: 97 DD 12 20 20 43 55 52  53 4F 52 20 54 4F 20 50  |...  CURSOR TO P|
00003710: 41 47 45 20 20 92 20 12  20 22 00 4E 3F D4 0D 99  |AGE  . . ".N?...|
00003720: 22 20 12 20 92 20 20 20  20 DD 20 20 20 DD 20 20  |" . .    .   .  |
00003730: 20 DD 20 20 20 DD 12 20  20 52 45 54 55 52 4E 20  | .   ..  RETURN |
00003740: 54 4F 20 45 58 49 54 20  20 92 20 12 20 22 00 82  |TO EXIT  . . "..|
00003750: 3F DE 0D 99 22 20 12 20  92 20 20 20 20 7D 20 20  |?..." . .    }  |
00003760: 20 7D 20 20 20 7D 20 20  20 7D 12 B9 B9 B9 B9 B9  | }   }   }......|
00003770: B9 B9 B9 B9 B9 B9 B9 B9  B9 B9 B9 B9 B9 92 20 12  |.............. .|
00003780: 20 22 00 BB 3F E8 0D 99  22 20 B8 B8 B8 B8 B8 B8  | "..?..." ......|
00003790: B8 B8 B8 B8 B8 B8 B8 B8  B8 B8 B8 B8 B8 B8 B8 B8  |................|
000037A0: B8 B8 B8 B8 B8 B8 B8 B8  B8 B8 B8 B8 B8 B8 B8 B8  |................|
000037B0: 22 3A 4D B2 31 3A 8D 33  37 34 30 00 CE 3F F2 0D  |":M.1:.3740..?..|
000037C0: 99 22 13 11 90 22 A3 31  37 29 59 22 05 22 00 E7  |."...".17)Y"."..|
000037D0: 3F FC 0D 99 22 13 11 11  11 11 11 11 11 11 11 11  |?..."...........|
000037E0: 05 22 3B 3A 44 B2 30 00  23 40 06 0E 81 44 B2 31  |.";:D.0.#@...D.1|
000037F0: A4 39 3A 99 22 05 1D 1D  1D 1D 22 CA 28 45 4D 24  |.9:.".....".(EM$|
00003800: 2C 59 25 28 4D 2C 44 2C  5A 25 29 AA 31 2C 5A 25  |,Y%(M,D,Z%).1,Z%|
00003810: 29 22 9D 22 3B 3A 82 3A  99 22 1D 1D 1D 1D 11 11  |)".";:.:."......|
00003820: 11 22 3B 00 60 40 10 0E  81 44 B2 31 30 A4 31 38  |.";.`@...D.10.18|
00003830: 3A 99 22 1D 1D 1D 1D 22  CA 28 45 4D 24 2C 59 25  |:."....".(EM$,Y%|
00003840: 28 4D 2C 44 2C 5A 25 29  AA 31 2C 5A 25 29 22 9D  |(M,D,Z%).1,Z%)".|
00003850: 22 3B 3A 82 3A 99 22 1D  1D 1D 1D 11 11 11 22 3B  |";:.:.".......";|
00003860: 00 9D 40 1A 0E 81 44 B2  31 39 A4 32 37 3A 99 22  |..@...D.19.27:."|
00003870: 1D 1D 1D 1D 22 CA 28 45  4D 24 2C 59 25 28 4D 2C  |....".(EM$,Y%(M,|
00003880: 44 2C 5A 25 29 AA 31 2C  5A 25 29 22 9D 22 3B 3A  |D,Z%).1,Z%)".";:|
00003890: 82 3A 99 22 1D 1D 1D 1D  11 11 11 22 3B 00 CE 40  |.:.".......";..@|
000038A0: 24 0E 81 44 B2 32 38 A4  33 31 3A 99 22 1D 1D 1D  |$..D.28.31:."...|
000038B0: 1D 22 CA 28 45 4D 24 2C  59 25 28 4D 2C 44 2C 5A  |.".(EM$,Y%(M,D,Z|
000038C0: 25 29 AA 31 2C 5A 25 29  22 9D 22 3B 3A 82 00 D8  |%).1,Z%)".";:...|
000038D0: 40 2E 0E 8D 33 37 34 30  00 FC 40 38 0E 99 22 13  |@...3740..@8..".|
000038E0: 11 11 11 11 11 12 98 22  A3 32 30 AB C3 28 4D 24  |.......".20..(M$|
000038F0: 28 4D 29 29 AD 32 29 4D  24 28 4D 29 00 10 41 42  |(M)).2)M$(M)..AB|
00003900: 0E 99 22 13 11 11 11 11  11 11 11 11 11 11 22 3B  |.."...........";|
00003910: 00 30 41 4C 0E A1 41 24  3A 8B 41 24 B2 22 5E 22  |.0AL..A$:.A$."^"|
00003920: B0 41 24 B2 22 51 22 A7  41 24 B2 C7 28 31 33 29  |.A$."Q".A$..(13)|
00003930: 00 64 41 56 0E 8B 41 24  B3 B1 22 1D 22 AF 41 24  |.dAV..A$..".".A$|
00003940: B3 B1 22 91 22 AF 41 24  B3 B1 22 11 22 AF 41 24  |..".".A$..".".A$|
00003950: B3 B1 22 9D 22 AF 41 24  B3 B1 C7 28 31 33 29 A7  |..".".A$...(13).|
00003960: 33 36 36 30 00 74 41 60  0E 8B 41 24 B2 C7 28 31  |3660.tA`..A$..(1|
00003970: 33 29 A7 8E 00 97 41 6A  0E 8B 41 24 B2 22 1D 22  |3)....Aj..A$."."|
00003980: B0 41 24 B2 22 91 22 A7  4D B2 4D AA 31 3A 8B 4D  |.A$.".".M.M.1:.M|
00003990: B1 31 32 A7 4D B2 31 00  BA 41 74 0E 8B 41 24 B2  |.12.M.1..At..A$.|
000039A0: 22 9D 22 B0 41 24 B2 22  11 22 A7 4D B2 4D AB 31  |".".A$.".".M.M.1|
000039B0: 3A 8B 4D B3 31 A7 4D B2  31 32 00 E8 41 7E 0E 99  |:.M.1.M.12..A~..|
000039C0: 22 13 11 11 11 11 11 98  1D 1D 12 1D 1D 20 20 20  |"............   |
000039D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000039E0: 20 20 20 20 20 20 20 22  00 0B 42 88 0E 99 22 13  |       "..B...".|
000039F0: 11 11 11 11 11 12 22 A3  32 30 AB C3 28 4D 24 28  |......".20..(M$(|
00003A00: 4D 29 29 AD 32 29 4D 24  28 4D 29 00 2C 42 92 0E  |M)).2)M$(M).,B..|
00003A10: 97 31 39 38 2C 30 3A 99  22 13 11 11 11 11 11 11  |.198,0:.".......|
00003A20: 11 11 11 11 22 3B 3A 89  33 35 39 30 00 50 42 9C  |....";:.3590.PB.|
00003A30: 0E 97 32 31 34 2C 31 39  3A 99 3A 99 22 90 1D 1D  |..214,19:.:."...|
00003A40: 1D 1D 1D 1D 1D 32 39 1D  1D 33 30 1D 1D 33 31 22  |.....29..30..31"|
00003A50: 00 7F 42 A6 0E 8B 4D 4F  25 28 4D 29 B2 32 38 A7  |..B...MO%(M).28.|
00003A60: 97 32 31 34 2C 31 39 3A  99 3A 99 22 1D 1D 1D 1D  |.214,19:.:."....|
00003A70: 1D 1D 1D 9B 32 39 1D 1D  33 30 1D 1D 33 31 22 00  |....29..30..31".|
00003A80: AE 42 B0 0E 8B 4D 4F 25  28 4D 29 B2 32 39 A7 97  |.B...MO%(M).29..|
00003A90: 32 31 34 2C 31 39 3A 99  3A 99 22 1D 1D 1D 1D 1D  |214,19:.:.".....|
00003AA0: 1D 1D 1D 1D 1D 1D 9B 33  30 1D 1D 33 31 22 00 DD  |.......30..31"..|
00003AB0: 42 BA 0E 8B 4D 4F 25 28  4D 29 B2 33 30 A7 97 32  |B...MO%(M).30..2|
00003AC0: 31 34 2C 31 39 3A 99 3A  99 22 1D 1D 1D 1D 1D 1D  |14,19:.:."......|
00003AD0: 1D 1D 1D 1D 1D 1D 1D 1D  1D 9B 33 31 22 00 EA 42  |..........31"..B|
00003AE0: C4 0E 97 36 34 36 2C 31  3A 8E 00 F6 42 CE 0E 8F  |...646,1:...B...|
00003AF0: 20 45 52 52 4F 52 00 2A  43 D8 0E 8D 32 35 34 30  | ERROR.*C...2540|
00003B00: 3A 97 32 31 34 2C 31 38  3A 99 3A 99 A3 39 29 22  |:.214,18:.:..9)"|
00003B10: 12 98 45 52 52 4F 52 21  20 54 52 59 20 41 47 41  |..ERROR! TRY AGA|
00003B20: 49 4E 3F 20 28 59 2F 4E  29 22 00 48 43 E2 0E A1  |IN? (Y/N)".HC...|
00003B30: 41 24 3A 8B 41 24 B3 B1  22 59 22 AF 41 24 B3 B1  |A$:.A$.."Y".A$..|
00003B40: 22 4E 22 A7 33 38 31 30  00 58 43 EC 0E 8B 41 24  |"N".3810.XC...A$|
00003B50: B2 22 59 22 A7 35 31 30  00 5E 43 F6 0E 8A 00 00  |."Y".510.^C.....|
00003B60: 00                                                |.               |
....... @ S 1024.N....Y%(12,31,2),P$(11)
,MO$(12),M$(12),MO%(12),DY$(7),W%(7,1).I
...SX.29.530588:.@ E 3800.~.(..53248.21,
0:Z%.1...2.. LUNAR PHASE CALENDAR NORM 5
6576 195,196.L.<..56576,195:.648,4:.5327
2,21...F.. FOR 1525/801/803 AND EPSON FX
-80 PRINTERS AND COMPATIBLES.D.P.VIC.532
48:.2040,15:.G(142)"..":.1930:.2500:.204
1,14.Y.Z..53287,3:.VI.29,3:.53275,255:.I
.960.983:.I,255:....D..I.984.1022:.I,0:.
:X$.G(13).L.N..I.896.919:.I,255:.:.I.920
.959:.I,0:.:.53288,1...X..214,16:.:..7)"
.PLEASE SELECT TYPE OF OUTPUT:.".!.....7
)".1. 1525 OR COMPATIBLE".I.....7)".2. E
PSON FX-80 OR COMPATIBLE".M.....7)".3. S
CREEN":..7)".Q. QUIT"... ..A$:.2570:.(A$
."1".A$."3").A$.."Q".160.H....A$."Q"..64
6,0:.2580:.2540:.3160:.2540:.120......64
6,0:.2580:.2540:.214,18:.:.,"..    SETTI
NG UP........PR.E(A$)...H..PR.210,230.F.
R..I.0.11:P$(I).G(8):.J.1.6:.P:P$(I).P$(
I).G(P):.J:P$(I).P$(I).G(15):..O....250.
.....I.0.11:P$(I).G(27)."K".G(6).G(0)...
...J.1.6:.P:P$(I).P$(I).G(P.128):.:..X..
..I.1.12:.MO$(I):.:.3200......I.1.12:. M
O%(I):.......I.1.7:. DY$(I):..%....1380:
. REDEFINE CHARACTERS.R."..128,128,128,1
28,128,128,128,128,128,194,194,188,128,1
28,128,194,254,188...,..128,128,128,254,
254,188,128,128,188,254,254,188,128,188,
254,254,254,188...6..188,254,254,254,254
,188,188,254,254,254,188,128,188,254,254
,188,128,128.Y.@..188,254,254,128,128,12
8,188,254,194,128,128,128,188,194,194,12
8,128,128...J.."JANUARY  ","FEBRUARY ","
MARCH    ","APRIL    ","MAY      "...T..
"JUNE     ","JULY     ","AUGUST   ","SEP
TEMBER","OCTOBER  "...^.."NOVEMBER ","DE
CEMBER ".!.H..31,28,31,30,31,30,31,31,30
,31,30,31.4.R..S,M,T,W,T,F,S.Z.|.. IFXP$
="3"THENGOSUB2340:GOTO1990.....LY%.0:.25
40:.214,16:.:.".........INPUT YEAR (AFTE
R 1583)"......1290:Y.V:.Y.1583.390......
2540:.214,16:.:..10)".CALCULATING PHASES
...".$....Y.4..(Y.4).LY%.1:.(Y.100..(Y.1
00)).(Y.400...(Y.400)).LY%.0.C...MO%(2).
28:.LY%.1.MO%(2).29.O....M.1.12...B..M.1
..214,19:.:..20.C(M$(M.1)).2)"..        
       "...L..214,19:.:..20.C(M$(M)).2)"
.."M$(M):.M.2.490...V..D.1.MO%(M):.1150:
Y%(M,D,Z%).PH:.1030:Y%(M,D,2).DY%:.:....
...500:. PRINTOUT.E....D.1.28.LY%:.1150:
Y%(M,D,Z%).PH:.1030:Y%(M,D,2).DY%:.:..T.
...PR.3.1630..... 4:.2540:.214,18:.:..9)
"..SET UP PRINTER/ RETURN"......A$:.A$..
G(13).520.T...LN$."---------------------
-------------------".....LN$.LN$."------
---------------------------------"...&..
PR.560,580.P.0..4,4:.4,LN$:.4:.4,.26);G(
14)"LUNAR CALENDAR"G(15).Y.:..590...D..4
,4,5:.4,LN$:.4:.4,.26);G(14)"LUNAR CALEN
DAR"...N..4,G(10);.34);G(14);Y;G(10)...X
..PR.1..4,G(15);...B..4,.29);:.I.1.11:.4
,P$(I);" ";:.:.4...L..4:.4,LN$:.630:.670
.M.V..4,"            0 0 0 0 0 0 0 0 0 1
 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 ";.^.
...4,"2 2 3 3"......4,"            1 2 3
 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 0 1 2 3
 4 5 6 7 ";......4,"8 9 0 1":......ML$(1
)."+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
-+-+-+-+-+-+-+-+-+-+-+-+-+".X...ML$(2)."
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
+-+-+-+-+-+-+-+-+-+-+-+".....MS$(1)."+-+
-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
-+-+-+-+-+-+-+-+-+".....MS$(2)."+-+-+-+-
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
+-+-+-+-+-+-+".7.F.FL$(1)."+-+-+-+-+-+-+
-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
-+-+-+"...P.FL$(2)."+-+-+-+-+-+-+-+-+-+-
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+"
.G.Z.FS$(1)."+Z+-+-+-+-+-+-+-+-+-+-+-+-+
-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+".....FS$(
2)."+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
+-+-+-+-+-+-+-+-+-+-+".#....M.1.12:.M.2.
890.:....MO%(M).29.770,830.V....4,"     
      ";MS$(1).N....4," ";MO$(M);" !";..
....D.1.30:.4,DY$(Y%(M,D,2));"!";:.:.4:.
4,"           !";.Q. ..D.1.30:.4,P$(Y%(M
,D,Z%));"!";:.:.4...*..4,"           ";M
S$(2)...4..880...>..4,"           ";ML$(
1).*.H..4," ";MO$(M);" !";.E.R..D.1.31:.
4,DY$(Y%(M,D,2));"!";:.:.4:.4,"         
  !";...\..D.1.31:.4,P$(Y%(M,D,Z%));"!";
:.:.4...F..4,"           ";ML$(2).O.P..:
.630:.4,LN$: 4:.631,32:.198,1:....Z..LY%
.1.900,960......4,"           ";FS$(1)..
....4," ";MO$(M);" !";.Q....D.1.28:.4,DY
$(Y%(M,D,2));"!";:.:.4:.4,"           !"
;.Y....D.1.28:.4,P$(Y%(M,D,Z%));"!";:.:.
4......4,"           ";FS$(2)......880..
....4,"           ";FL$(1).R.J..4," ";MO
$(M);" !";...T..D.1.29:.4,DY$(Y%(M,D,2))
;"!";:.:.4:.4,"           !";.5....D.1.2
9:.4,P$(Y%(M,D,Z%));"!";:.:.4.Q....4,"  
         ";FL$(2).Z....880.D....1630....
.MD.M:YY.Y:.MD.1.MD.13:YY.YY.1:.1050....
..MD.2.MD.14:YY.YY.1.....M0.MD.2:DY%.(2.
6.M0..2).D.YY.1900..((YY.1900).4):DY%.DY
%..(19.4).2.1...$.DY%.DY%..(DY%.7).7.1..
....MD.4.MD.9.DY%.DY%.1.=.8..MD.13.MD.1:
YY.YY.1:.1110._.B..MD.14.MD.2:YY.YY.1:DY
%.DY%.1.P.L..DY%.8.DY%.1...V..(YY.2100.M
D..3).(YY.2100).DY%.DY%.1:.DY%.0.DY%.7..
.`..(YY.2200.MD..3).(YY.2200).DY%.DY%.1:
.DY%.0.DY%.7...J..(YY.2300.MD..3).(YY.23
00).DY%.DY%.1:.DY%.0.DY%.7...T...&.~.Q.Y
.(M.3).`...J..(275.M.9)..((7.Q.7).4).367
.Y.D..((.(Q.100).1).3.4).N...P.J.SX..2..
...PH.P..(P):PH..((PH.12)..5):.PH.11.PH.
0............1150.D....PH.0.PH$."NEW MOO
N":....D..PH.3.PH$."WAXING CRESCENT":...
.N..PH.3.PH$."FIRST QUARTER":..'.X..PH.6
.PH$."WAXING GIBBOUS":..C....PH.6.PH$."F
ULL MOON":..D....PH.9.PH$."WANING GIBBOU
S":.......PH.9.PH$."LAST QUARTER":......
PH$."WANING CRESCENT":..M...XX$.". .< ..
":B$."":FG.0:."..........>.";......A$:.A
$."".1300......A$.G(13).." .";A$;:.1370.
6.(..A$.G(20).B$.."".B$.H(B$,C(B$).1):.X
X$;:FG.0:.1300.E.2..FG.1.1300.Q.<..A$."0
".A$."9".1300:. LIMIT TO NUMERICS...F..A
$">.";:B$.B$.A$:.C(B$).4.FG.1. .P.. 1300
...Z.V.E(B$):L.C(B$):..P.D..I.828.878:.A
:.I,A:.I...N..56334,B(56334).254...X..1,
B(1).251./....249,0:.250,208:.251,0:.252
,192:.253,0:.254,8:.828.O....1,B(1).4:.5
6334,B(56334).1.^....A:.A..1..... .K.491
52.(8.A):.I.0.7:.B:.K.I,B:.K.1024.I,255.
B:.I:.1430......56576,4:.53272,32:.648,2
00............  165,254,201,000,240,024,
160,000,177,249,145,251,200,192,255,208,
247.V.H..  177,249,145,251,230,250,230,2
52,198,254,076,060,003,165,253,201,000..
.R..  240,013,230,253,160,000,177,249,14
5,251,200,196,253,208,247,096,000.J....0
96,000,000,000,000,000,000,000,000......
097,000,012,002,002,002,002,012,000.....
.098,000,012,006,006,006,006,012,000.E..
..099,000,012,014,014,014,014,012,000.N.
...100,000,012,030,030,030,030,012,000..
....101,000,028,062,062,062,062,028,000.
.....102,000,060,126,126,126,126,060,000
..."..103,000,056,124,124,124,124,056,00
0.. ,..104,000,048,120,120,120,120,048,0
00.; 6..105,000,048,112,112,112,112,048,
000.D @..106,000,048,096,096,096,096,048
,000.. J..107,000,048,064,064,064,064,04
8,000.. T..-1.. ^..53248.21,0: .2590:.CT
$."E".2190.D H..1450.. R.EM$."":.I.160.1
71:EM$.EM$.G(I):.:.3330..!|..56576,195:.
648,4:.53272,21./!...2040:.1940:.2540:.2
14,16:..B!...,"..OPTIONS:".C!...,".F1 TR
ANSLATE TO ENGLISH"..!...,".F3 VIEW ANOT
HER YEAR". !...,".F5 RETURN TO CALENDAR"
..!...,".F7 EXIT PROGRAM"..!B..A$:.A$.."
.".A$..".".A$..".".A$..".".1730..!L..A$.
".".2190.."V..A$."."...."...A$.".".1630.
("...A$.".".1780.U"...                  
                     .M"... MAJOR SUBROU
TINES.."... 1150:. PHASE CALC. "... 1200
:. NAME OF PHASE.."... 1290:. INPUT ROUT
INE.."&.. 1380:. REDEFINE CHARACTERS.."0
.. 1630:. SCREEN OUTPUT..#:.. 510:. PRIN
TER OUTPUT.*#D.. 2190:. MONTH MENU.A#N..
 2540:. CLEAR BOX.Z#X..15,8,15,"R0:HELLO
 CONNECT=HELLO CONNECT":.15,ER: 15..#B..
53269,0:. ER..63 . .".":...#L.A$."HELLO 
CONNECT":Q$.G(34).T#V..".....LOAD"Q$A$Q$
",8"..#..."....RUN.":.631,13:.632,13:.19
8,2:...$...2040.B$...214,14:.:."  ......
.................................".Z$...
I.1.3:."  .                             
       ":...$..."  .      PUBLISHED ON L
OADSTAR #58     ".X$..."  .    SUBSCRIPT
IONS 1-800-831-2694    "..%..."  .   CHA
NGING THIS NOTICE IS ILLEGAL  ".6%F.."  
.                                    ".G
%P.."  .................................
......". %Z.AU$."LUNAR CALENDAR":.214,16
:.:..20.C(AU$).2)".."AU$.Q%..AU$."BY TON
Y HERRINGTON  (C) 1989":.214,17:...%....
20.C(AU$).2)".."AU$".":...&...".":.53281
,0:.53280,11.8&..."  ..    .LOADSTAR .PR
OUDLY .PRESENTS".J&..."     ..          
                 ..    .."..&..."  ..   
 .``.   . . ... .`. .`. ..     .".D& .."
    .    .}   } } }}} .`. }..    .."..&*
.."         ..`. .`. ... . ......```"..'
4.."   .`. .`. .   .`. ... .`I .`. .`.  
 .".G'>.."  ...}   .`. }   ..  }}} } } .
`. }..".U'H.."   .`..... . .`. .`. ... .
`K . . ..```"..'R.."                ..  
       ..       .. ..".P'\.."   ..   .(C
) 1989  TONY HERRINGTON"..(F.."         
    .. ..  ..     ..  ..  ..    ..".6(P.
."   .. ..   ..          .            ..
   ..".H(Z.." ..........................
..............."..(..." . ..............
........................ ":...(...".";:V
I.53248:X$.G(13).P(...I.960.983:.I,255:.
..(...I.984.1022:.I,0:...)...I.896.919:.
I,255:.:.I.920.959:.I,0:..1)...56576,195
:.648,4:.53272,21.D)..."..   ...  ......
........................  "..)J.."  ...
                                  ".D)T
.." .. JANUARY     FEBRUARY     MARCH   
  "..)..." .  APRIL       MAY          
JUNE       ".$*..." .  JULY        AUGUS
T       SEPTEMBER  ".U*..." . OCTOBER  
   NOVEMBER     DECEMBER  .."..*..."  .
                                  .."..*
..."   ..  ............................
..  .."..*..."  ........................
............."..+..."  ..        P R O M
 P T   B A R       ".G+$.." ...        
                            ..".X+..."  
..                                  .."
..+8.."  ...............................
....."..+B.."    ..   ..   ..   ..   .. 
..  ..   .. ..   .."..,L.."  . .. .. .. 
..  ..   .. ....   .  ..    ....   ..".K
,V.."          . ..  .. ..    ..  ....  
.. ..   ..".~,`.."      ....      .. .. 
  .. .. ..   ..    .."..,J.."  . ..    .
. .. .. ..  ..  ..   ..   . ..  .. .."..
,T.."  .................................
...."..-~.." ...         O U T P U T   B
 A R        ".G-..." ..                
                      ".Y-..." ...      
                              .."..-..."
  ....................................."
..-..."    . .. ....  ..   .. ..  .. .. 
..  .. .. .. .. .."......"  .     .... .
.   .     .. ..  ..   ..  .   ...";.+...
.".";:.2710.O.D..646,B(646).1:.B(646).15
..646,2.U.N..214,23:.:..12)"PRESS SPACE 
BAR."...X..A$:.A$.." ".2500......646,0:.
214,23:.:..12)"PRESS SPACE BAR.".P....21
4,15:.".":.I.1.7../..."...              
                      ..";:..;/...".....
............                            
":.._/...646,B(646).1:.B(646).15..646,2.
./...214,23:.:..10)"PLEASE SELECT OUTPUT
.":.../...56576,195:.648,4:.53272,21../(
..2540:.214,18:.:..3)"..DISPLAY GRAPHIC 
OR ENGLISH? (G/E)..02..CT$:.2630:.CT$.."
G".CT$.."E".2610.)0<..2540:.646,0:.2640:
..M0F..646,B(646).1:.B(646).15..646,2..0
P..214,23:.:..2)"PLEASE SELECT TYPE OF S
CREEN DISPLAY.":...0Z..******** PROMPT B
AR********..0D..214,9:.:."....          
                          .."..1N..214,9
:.:.199,1:.".".20.C(PM$).2)PM$:PM$."":..
81X..******** OUTPUT BAR********.T1...21
4,19:.:."....                           
         .."..1...214,19:.:.199,1:.".".2
0.C(OP$).2)OP$:OP$."":...1... MENU GET R
OUTINE..1 ..VI.21,3:.VI.1,66:.VI.3,66:.5
3277,3:.VI,23.24:.VI.2,95.52...VI.40,7:.
VI.39,7:.2850:PM$."Q OR ^ TO EXIT":.2650
:MU.1.^2...A$:.2980:.2980:.3250:.A$."^".
A$."Q"..2...A$..".".A$..".".A$.."Q".A$..
X$.A$..".".A$..".".2740..2H..A$.".".MU.M
U.1:.MU.13.MU.1..2R..A$.".".MU.MU.1:.298
0:.MU.1.MU.12..3...A$.".".MU.MU.3:.2980:
.MU.1.MU.12.)3...A$.".".MU.MU.3:.2980:.M
U.12.MU.1.^3...A$.X$..53287,7:.53288,7:.
3000:.2650:.2680:.2740..3...A$."Q".PM$."
QUIT THIS MENU? (Y/N)":.2650:.3090..3...
VI.21,0..3...MU.2850,2860,2870,2880,2890
,2900,2910,2920,2930,2940,2950,2960..3..
.VI.21,3:.2740.'4"..VI.16,0:.VI,47:.VI.2
,95:.VI.1,66:.VI.3,66:..Z4,..VI,136:.VI.
2,184:.VI.16,0:.VI.1,66:.VI.3,66:...46..
VI,240:.VI.2,24:.VI.16,2:.VI.1,66:.VI.3,
66:...4@..VI.16,0:.VI,47:.VI.2,95:.VI.1,
74:.VI.3,74:...4J..VI,136:.VI.2,184:.VI.
16,0:.VI.1,74:.VI.3,74:.."5T..VI,240:.VI
.2,24:.VI.16,2:.VI.1,74:.VI.3,74:..S5^..
VI.16,0:.VI,47:.VI.2,95:.VI.1,82:.VI.3,8
2:...5H..VI,136:.VI.2,184:.VI.16,0:.VI.1
,82:.VI.3,82:...5R..VI,240:.VI.2,24:.VI.
16,2:.VI.1,82:.VI.3,82:...5|..VI.16,0:.V
I,47:.VI.2,95:.VI.1,90:.VI.3,90:...6...V
I,136:.VI.2,184:.VI.16,0:.VI.1,90:.VI.3,
90:..N6...VI,240:.VI.2,24:.VI.16,2:.VI.1
,90:.VI.3,90:..I6...*******SPARKLE******
*..6....(TI).199.55816,.(TI).13.2..6....
(TI).40.56216,.(TI).13.2:..F6...****MONT
H SELECTED****..7B.PM$."CURSOR KEYS TO S
CAN MONTH/^ TO EXIT":.2650:M.MU:D.1     
     .>7L..1200:OP$.M$(M).D(D).",".D(Y).
": ".PH$:.2680.R7V..A$:.2980:.2980..7...
A$..".".A$..".".A$.."^".A$..X$.A$..".".A
$..".".3030..7...A$.".".A$.".".D.D.1:.D.
MO%(M).D.1.Y7...A$.".".A$.".".D.D.1:.D.1
.D.MO%(M)..7...A$."^"....8...1200:OP$.M$
(M).D(D).",".D(Y).": ".PH$:.2680:.3030.>
8...******* SELECT YEAR*******.\8...A$:.
A$.."Y".A$.."N".3100.X8&.PM$." ":.2650:.
A$."N"....80.PM$."QUIT OR GO TO GRAPHIC 
CALENDAR (Q/C)":.2650.S8:..A$:.A$.."Q".A
$.."G".A$.."C".3130..8D..A$."C".A$."G".1
640..8N..1880.,9X..2540:.214,18:.:..7)".
.QUIT?  ARE YOU SURE? (Y/N)".J9B..A$:.A$
.."Y".A$.."N".3170.X9L..A$."N"...B9V..18
80.Z9...****FIX MONTHS****..9...I.1.12..
9..M$(I)."":.II.1.C(MO$(I)).R9..A$.J(MO$
(I),II,Z%):.A$.." ".M$(I).M$(I).A$..9...
:.:...9..CC%.CC%.1:.CC%.2....9..CC%.0.':
F.CS%.CS%.1:.CS%.4.CS%.1:. SPRITE COLOR.
A:P..CS%.3290,3300,3320:..Y:Z..53287,0:.
53288,0:..S:...53287,11:.53288,11:...:..
.53287,12:.53288,11:...:...53287,15:.532
88,15:...:...53280,12:.53281,15:.".. ...
..........              ............".);
..." ........                     ......
...":.VI..VI.21,0.X;..." ````````````   
           ````````````"..; .." .       
                               "..;*.." 
. ......................................
 "..;4.." . .                           
         . "..<>.." . .                 
                   . ".P<H.." . .````.``
`.```.```.```.```.```.```.```. "..<R.." 
. ..1   .}.2  .}.3  .}.4  .}.5  .}.6  .}
.7  .}.8  .}.9  .. ".F<\.." . .    }   }
   }   }   }   }   }   }   . "..<F.." . 
.    }   }   }   }   }   }   }   }   . "
.*=P.." . .````{```{```{```{```{```{```{
```{```. ".N=Z.." . ..10  .}.11 .}.12 .}
.13 .}.14 .}.15 .}.16 .}.17 .}.18 .. ". 
=..." . .    }   }   }   }   }   }   }  
 }   . ".R=..." . .    }   }   }   }   }
   }   }   }   . "..>..." . .````{```{``
`{```{```{```{```{```{```. ".H>..." . ..
19  .}.20 .}.21 .}.22 .}.23 .}.24 .}.25 
.}.26 .}.27 .. ".Z>..." . .    }   }   }
   }   }   }   }   }   . "..>..." . .   
 }   }   }   }   }   }   }   }   . "..>.
.." . .````{```{```{```{```.```.```.```.
```. "..?J.." . ..28  ...29 ...30 ...31 
...  CURSOR TO PAGE  . . ".N?T.." . .   
 .   .   .   ..  RETURN TO EXIT  . . "..
?..." . .    }   }   }   }..............
...... . "..?..." ......................
................":M.1:.3740.N?..."...".1
7)Y"."..?..."............";:D.0.#@...D.1
.9:."....."J(EM$,Y%(M,D,Z%).1,Z%)".";:.:
.".......";.`@...D.10.18:."...."J(EM$,Y%
(M,D,Z%).1,Z%)".";:.:.".......";..@...D.
19.27:."...."J(EM$,Y%(M,D,Z%).1,Z%)".";:
.:.".......";.N@$..D.28.31:."...."J(EM$,
Y%(M,D,Z%).1,Z%)".";:..X@...3740..@8..".
.......".20.C(M$(M)).2)M$(M)..AB..".....
......";.0AL..A$:.A$."^".A$."Q".A$.G(13)
.DAV..A$..".".A$..".".A$..".".A$..".".A$
..G(13).3660.TA`..A$.G(13)....AJ..A$."."
.A$.".".M.M.1:.M.12.M.1..AT..A$.".".A$."
.".M.M.1:.M.1.M.12..A~.."............   
                       "..B...".......".
20.C(M$(M)).2)M$(M).,B...198,0:.".......
....";:.3590.PB...214,19:.:."........29.
.30..31".B...MO%(M).28..214,19:.:."....
....29..30..31"..B...MO%(M).29..214,19:.
:."............30..31"..B...MO%(M).30..2
14,19:.:."................31"..BD..646,1
:...BN.. ERROR.*CX..2540:.214,18:.:..9)"
..ERROR! TRY AGAIN? (Y/N)".HC...A$:.A$..
"Y".A$.."N".3810.XC...A$."Y".510.^C.....
.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL