MONTHLY CALENDAR
FILE INFORMATION
FILENAME(S): MONTHLY CALENDAR
FILE TYPE(S): PRG
FILE SIZE: 8.1K
FIRST SEEN: 2025-11-30 18:12:57
APPEARS ON: 2 disk(s)
FILE HASH
451c13305b04c1ef94f533e9d86ae6084fd7a433cbfde8646aba9526b0c3e3c2
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MARCH GAZETTE | MONTHLY CALENDAR | PRG | Sailor, Ganheden | 14 | 7 | DOWNLOAD FILE |
| MARCH GAZETTE | MONTHLY CALENDAR | PRG | Sailor, Ganheden | 14 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 48 08 64 00 8F 20 43 4F 50 59 52 49 47 48 |..H.d.. COPYRIGH| 00000010: 54 20 31 39 38 38 20 43 4F 4D 50 55 54 45 21 20 |T 1988 COMPUTE! | 00000020: 50 55 42 4C 49 43 41 54 49 4F 4E 53 2C 20 49 4E |PUBLICATIONS, IN| 00000030: 43 2E 20 2D 20 41 4C 4C 20 52 49 47 48 54 53 20 |C. - ALL RIGHTS | 00000040: 52 45 53 45 52 56 45 44 00 6E 08 6E 00 4C 43 24 |RESERVED.n.n.LC$| 00000050: B2 C7 28 31 34 29 3A 52 45 24 B2 C7 28 31 35 29 |..(14):RE$..(15)| 00000060: 3A 47 4D 24 B2 C7 28 38 29 3A 4E 52 B2 37 00 7C |:GM$..(8):NR.7.|| 00000070: 08 78 00 86 20 43 4D 28 32 35 35 29 00 C5 08 82 |.x.. CM(255)....| 00000080: 00 86 4D 4F 24 28 31 32 29 2C 4C 44 28 31 32 29 |..MO$(12),LD(12)| 00000090: 2C 44 41 24 28 36 30 29 2C 4D 53 24 28 35 30 2C |,DA$(60),MS$(50,| 000000A0: 4E 52 AA 31 29 2C 44 44 24 28 32 2C 36 30 29 2C |NR.1),DD$(2,60),| 000000B0: 4C 24 28 32 30 29 2C 4D 4C 24 28 31 38 29 2C 43 |L$(20),ML$(18),C| 000000C0: 28 32 35 35 29 00 02 09 8C 00 53 50 24 B2 22 20 |(255).....SP$." | 000000D0: 22 3A 81 49 B2 30 A4 35 3A 53 50 24 B2 53 50 24 |":.I.0.5:SP$.SP$| 000000E0: AA 53 50 24 3A 82 3A 53 50 24 B2 C8 28 53 50 24 |.SP$:.:SP$..(SP$| 000000F0: 2C 33 31 29 3A 53 53 24 B2 C8 28 53 50 24 2C 31 |,31):SS$..(SP$,1| 00000100: 30 29 00 1A 09 96 00 97 35 33 32 38 30 2C 31 35 |0)......53280,15| 00000110: 3A 97 35 33 32 38 31 2C 31 31 00 24 09 A0 00 99 |:.53281,11.$....| 00000120: 22 9B 93 22 00 41 09 AA 00 99 A3 31 31 29 22 4D |"..".A.....11)"M| 00000130: 4F 4E 54 48 4C 59 20 43 41 4C 45 4E 44 41 52 20 |ONTHLY CALENDAR | 00000140: 22 00 5E 09 BE 00 99 A3 31 31 29 22 11 20 43 4F |".^.....11)". CO| 00000150: 50 59 52 49 47 48 54 20 31 39 38 39 20 22 00 84 |PYRIGHT 1989 "..| 00000160: 09 C8 00 99 A3 37 29 22 43 4F 4D 50 55 54 45 21 |.....7)"COMPUTE!| 00000170: 20 50 55 42 4C 49 43 41 54 49 4F 4E 53 2C 20 49 | PUBLICATIONS, I| 00000180: 4E 43 2E 22 00 A3 09 D2 00 99 A3 31 30 29 22 41 |NC.".......10)"A| 00000190: 4C 4C 20 52 49 47 48 54 53 20 52 45 53 45 52 56 |LL RIGHTS RESERV| 000001A0: 45 44 22 00 C9 09 DC 00 81 49 B2 32 37 20 A4 20 |ED"......I.27 . | 000001B0: 31 32 37 3A 43 4D 28 49 29 B2 31 3A 43 4D 28 49 |127:CM(I).1:CM(I| 000001C0: AA 31 32 38 29 B2 31 3A 82 00 D1 09 E6 00 49 B2 |.128).1:......I.| 000001D0: 32 00 E5 09 F0 00 87 20 41 3A 8B 20 41 B2 AB 31 |2...... A:. A..1| 000001E0: 20 A7 32 37 30 00 FC 09 FA 00 43 4D 28 41 29 B2 | .270.....CM(A).| 000001F0: 49 3A 49 B2 49 AA 31 3A 89 32 34 30 00 27 0A 04 |I:I.I.1:.240.'..| 00000200: 01 83 20 31 37 2C 31 34 35 2C 32 39 2C 31 35 37 |.. 17,145,29,157| 00000210: 2C 31 34 37 2C 31 33 2C 31 39 2C 32 30 2C 31 34 |,147,13,19,20,14| 00000220: 38 2C 39 35 2C 2D 31 00 2F 0A 0E 01 49 B2 30 00 |8,95,-1./...I.0.| 00000230: 38 0A 18 01 87 20 41 24 00 52 0A 22 01 54 B2 C6 |8.... A$.R.".T..| 00000240: 28 C8 28 41 24 2C 31 29 29 3A 43 28 54 29 B2 49 |(.(A$,1)):C(T).I| 00000250: AA 31 00 80 0A 2C 01 41 24 28 49 29 B2 C7 28 34 |.1...,.A$(I)..(4| 00000260: 39 AA 49 29 AA 22 20 12 22 AA C7 28 54 29 AA 22 |9.I)." ."..(T)."| 00000270: 92 22 AA C9 28 41 24 2C C3 28 41 24 29 AB 31 29 |."..(A$,.(A$).1)| 00000280: 00 9C 0A 36 01 49 B2 49 AA 31 3A 8B 20 41 24 B3 |...6.I.I.1:. A$.| 00000290: B1 22 51 55 49 54 22 20 A7 32 38 30 00 E7 0A 40 |."QUIT" .280...@| 000002A0: 01 83 20 22 4E 45 57 20 43 41 4C 45 4E 44 41 52 |.. "NEW CALENDAR| 000002B0: 22 2C 22 59 45 41 52 20 41 4E 44 20 4D 4F 4E 54 |","YEAR AND MONT| 000002C0: 48 22 2C 4D 45 4D 4F 2C 22 45 4E 48 41 4E 43 45 |H",MEMO,"ENHANCE| 000002D0: 20 44 41 54 45 53 22 2C 50 52 49 4E 54 2C 53 41 | DATES",PRINT,SA| 000002E0: 56 45 2C 4C 4F 41 44 00 F2 0A 4A 01 83 20 51 55 |VE,LOAD...J.. QU| 000002F0: 49 54 00 0F 0B 54 01 81 48 B2 31 A4 31 32 3A 87 |IT...T..H.1.12:.| 00000300: 4D 4F 24 28 48 29 2C 4C 44 28 48 29 3A 82 48 00 |MO$(H),LD(H):.H.| 00000310: 1A 0B 5E 01 4E 34 B2 49 AB 31 00 38 0B 68 01 81 |..^.N4.I.1.8.h..| 00000320: 49 B2 30 20 A4 20 4E 34 3A 99 3A 99 A6 31 32 29 |I.0 . N4:.:..12)| 00000330: 20 41 24 28 49 29 3A 82 00 4D 0B 72 01 A1 41 24 | A$(I):..M.r..A$| 00000340: 3A 8B 20 41 24 B2 22 22 20 A7 33 37 30 00 72 0B |:. A$."" .370.r.| 00000350: 7C 01 41 32 B2 C6 28 41 24 29 3A 8B 20 43 28 41 ||.A2..(A$):. C(A| 00000360: 32 29 20 A7 20 41 32 B2 43 28 41 32 29 3A 89 34 |2) . A2.C(A2):.4| 00000370: 31 30 00 97 0B 86 01 56 B2 C5 28 41 24 29 3A 8B |10.....V..(A$):.| 00000380: 20 56 B1 30 20 AF 20 56 B3 B2 49 20 A7 20 41 32 | V.0 . V..I . A2| 00000390: B2 56 3A 89 34 31 30 00 A0 0B 90 01 89 33 37 30 |.V:.410......370| 000003A0: 00 D0 0B 9A 01 91 20 41 32 20 8D 33 30 37 30 2C |...... A2 .3070,| 000003B0: 34 35 30 2C 32 31 37 30 2C 31 34 33 30 2C 39 32 |450,2170,1430,92| 000003C0: 30 2C 32 33 31 30 2C 32 35 30 30 2C 32 30 37 30 |0,2310,2500,2070| 000003D0: 00 E0 0B A4 01 99 22 93 11 11 22 3A 89 33 36 30 |......"...":.360| 000003E0: 00 1D 0C AE 01 99 22 93 22 3A 8B 20 59 52 24 B2 |......".":. YR$.| 000003F0: 22 22 20 A7 20 99 22 43 48 4F 4F 53 45 20 59 45 |"" . ."CHOOSE YE| 00000400: 41 52 20 41 4E 44 20 4D 4F 4E 54 48 20 46 49 52 |AR AND MONTH FIR| 00000410: 53 54 22 3A 8D 34 36 30 3A 89 34 33 30 00 23 0C |ST":.460:.430.#.| 00000420: B8 01 8E 00 2C 0C C2 01 99 22 93 22 00 4D 0C CC |....,....".".M..| 00000430: 01 99 22 13 11 11 45 4E 54 45 52 20 43 41 4C 45 |.."...ENTER CALE| 00000440: 4E 44 41 52 20 59 45 41 52 3A 20 22 3B 00 56 0C |NDAR YEAR: ";.V.| 00000450: D6 01 85 20 54 24 00 66 0C E0 01 8B 20 54 24 B2 |... T$.f.... T$.| 00000460: 22 22 20 A7 20 8E 00 89 0C EA 01 8B 20 C5 28 54 |"" . ....... .(T| 00000470: 24 29 B3 31 30 30 20 B0 20 C5 28 54 24 29 B1 39 |$).100 . .(T$).9| 00000480: 39 39 39 A7 20 89 34 35 30 00 9D 0C F4 01 59 52 |999. .450.....YR| 00000490: 24 B2 54 24 3A 59 B2 C5 28 59 52 24 29 00 A6 0C |$.T$:Y..(YR$)...| 000004A0: FE 01 99 22 93 22 00 C5 0C 08 02 99 22 13 53 45 |..."."......".SE| 000004B0: 4C 45 43 54 20 4D 4F 4E 54 48 28 31 2D 31 32 29 |LECT MONTH(1-12)| 000004C0: 11 11 11 11 22 00 E5 0C 12 02 81 49 B2 31 A4 39 |...."......I.1.9| 000004D0: 3A 99 A3 31 30 29 22 90 22 49 22 9B 22 4D 4F 24 |:..10)"."I"."MO$| 000004E0: 28 49 29 3A 82 00 06 0D 1C 02 81 49 B2 31 30 A4 |(I):.......I.10.| 000004F0: 31 32 3A 99 A3 39 29 22 90 22 49 22 9B 22 4D 4F |12:..9)"."I"."MO| 00000500: 24 28 49 29 3A 82 00 20 0D 26 02 85 22 11 11 11 |$(I):.. .&.."...| 00000510: 45 4E 54 45 52 20 4D 4F 4E 54 48 22 3B 4E 55 24 |ENTER MONTH";NU$| 00000520: 00 46 0D 30 02 4E 55 B2 C5 28 4E 55 24 29 3A 8B |.F.0.NU..(NU$):.| 00000530: 4E 55 B1 B2 31 AF 4E 55 B3 B2 31 32 A7 48 48 B2 |NU..1.NU..12.HH.| 00000540: 30 3A 89 36 31 30 00 52 0D 3A 02 81 49 B2 31 A4 |0:.610.R.:..I.1.| 00000550: 31 32 00 71 0D 44 02 8B 4E 55 24 B2 4D 4F 24 28 |12.q.D..NU$.MO$(| 00000560: 49 29 A7 4E 55 B2 49 3A 48 48 B2 30 3A 89 36 31 |I).NU.I:HH.0:.61| 00000570: 30 00 78 0D 4E 02 82 49 00 81 0D 58 02 89 35 32 |0.x.N..I...X..52| 00000580: 30 00 94 0D 62 02 8F 20 43 41 4C 43 55 4C 41 54 |0...b.. CALCULAT| 00000590: 49 4F 4E 53 00 A7 0D 6C 02 4C 44 28 32 29 B2 32 |IONS...l.LD(2).2| 000005A0: 38 3A 8D 32 30 38 30 00 C6 0D 76 02 41 B2 28 59 |8:.2080...v.A.(Y| 000005B0: AD 31 30 30 29 3A 42 B2 B5 28 59 AD 31 30 30 29 |.100):B..(Y.100)| 000005C0: 3A 43 B2 41 AB 42 00 D3 0D 80 02 8B 43 B2 30 A7 |:C.A.B......C.0.| 000005D0: 36 38 30 00 EE 0D 8A 02 41 B2 28 59 AD 34 29 3A |680.....A.(Y.4):| 000005E0: 42 B2 B5 28 59 AD 34 29 3A 43 B2 41 AB 42 00 01 |B..(Y.4):C.A.B..| 000005F0: 0E 94 02 8B 43 B2 30 A7 41 44 B2 31 3A 89 37 31 |....C.0.AD.1:.71| 00000600: 30 00 0F 0E 9E 02 41 44 B2 30 3A 89 37 31 30 00 |0.....AD.0:.710.| 00000610: 2E 0E A8 02 41 B2 28 59 AD 34 30 30 29 3A 42 B2 |....A.(Y.400):B.| 00000620: B5 28 59 AD 34 30 30 29 3A 43 B2 41 AB 42 00 41 |.(Y.400):C.A.B.A| 00000630: 0E B2 02 8B 43 B2 30 A7 41 44 B2 31 3A 89 37 31 |....C.0.AD.1:.71| 00000640: 30 00 4F 0E BC 02 41 44 B2 30 3A 89 37 31 30 00 |0.O...AD.0:.710.| 00000650: 7A 0E C6 02 41 B2 B5 28 59 AD 34 29 3A 42 B2 B5 |z...A..(Y.4):B..| 00000660: 28 59 AD 34 30 30 29 3A 43 B2 B5 28 59 AD 31 30 |(Y.400):C..(Y.10| 00000670: 30 29 3A 44 B2 41 AA 42 AB 43 00 AE 0E D0 02 45 |0):D.A.B.C.....E| 00000680: B2 28 59 AA 44 29 AD 37 3A 46 B2 B5 28 28 59 AA |.(Y.D).7:F..((Y.| 00000690: 44 29 AD 37 29 3A 47 B2 28 45 AB 46 29 AC 37 3A |D).7):G.(E.F).7:| 000006A0: 53 44 B2 B5 28 47 29 3A 48 B2 47 AB 53 44 00 C0 |SD..(G):H.G.SD..| 000006B0: 0E DA 02 8B 48 B1 2E 39 A7 53 44 B2 53 44 AA 31 |....H..9.SD.SD.1| 000006C0: 00 CD 0E E4 02 53 44 B2 53 44 AB 41 44 00 DF 0E |.....SD.SD.AD...| 000006D0: EE 02 8B 53 44 B3 30 A7 53 44 B2 53 44 AA 37 00 |...SD.0.SD.SD.7.| 000006E0: 23 0F F8 02 91 4E 55 8D 31 33 31 30 2C 31 33 32 |#....NU.1310,132| 000006F0: 30 2C 31 33 33 30 2C 31 33 34 30 2C 31 33 35 30 |0,1330,1340,1350| 00000700: 2C 31 33 36 30 2C 31 33 37 30 2C 31 33 38 30 2C |,1360,1370,1380,| 00000710: 31 33 39 30 2C 31 34 30 30 2C 31 34 31 30 2C 31 |1390,1400,1410,1| 00000720: 34 32 30 00 35 0F 02 03 8B 44 53 B1 36 A7 44 53 |420.5....DS.6.DS| 00000730: B2 44 53 AB 37 00 47 0F 0C 03 8B 44 53 B3 30 A7 |.DS.7.G....DS.0.| 00000740: 44 53 B2 44 53 AA 37 00 63 0F 16 03 44 B2 30 3A |DS.DS.7.c...D.0:| 00000750: 8B 46 4C 41 47 B2 31 A7 46 4C 41 47 B2 30 3A 89 |.FLAG.1.FLAG.0:.| 00000760: 38 31 30 00 70 0F 20 03 8B 48 48 B3 B1 30 A7 8E |810.p. ..HH..0..| 00000770: 00 7C 0F 2A 03 81 49 B2 31 A4 35 30 00 98 0F 34 |.|.*..I.1.50...4| 00000780: 03 8B 49 AB 44 53 B3 B2 30 A7 44 41 24 28 49 29 |..I.DS..0.DA$(I)| 00000790: B2 22 22 3A 89 38 35 30 00 B8 0F 3E 03 8B 49 AB |."":.850...>..I.| 000007A0: 44 53 B1 4C 44 28 4E 55 29 A7 44 41 24 28 49 29 |DS.LD(NU).DA$(I)| 000007B0: B2 22 22 3A 89 38 35 30 00 E8 0F 48 03 44 41 24 |."":.850...H.DA$| 000007C0: 28 49 29 B2 C4 28 49 AB 44 53 29 3A 44 41 24 28 |(I)..(I.DS):DA$(| 000007D0: 49 29 B2 C9 28 44 41 24 28 49 29 2C C3 28 44 41 |I)..(DA$(I),.(DA| 000007E0: 24 28 49 29 29 AB 31 29 00 EF 0F 52 03 82 49 00 |$(I)).1)...R..I.| 000007F0: 0C 10 5C 03 8B 44 53 B2 30 AF 4C 44 28 4E 55 29 |..\..DS.0.LD(NU)| 00000800: B2 32 38 A7 52 B2 34 3A 89 38 39 30 00 25 10 66 |.28.R.4:.890.%.f| 00000810: 03 8B 44 41 24 28 33 36 29 B2 22 22 A7 52 B2 35 |..DA$(36)."".R.5| 00000820: 3A 89 38 39 30 00 2D 10 70 03 52 B2 36 00 4A 10 |:.890.-.p.R.6.J.| 00000830: 7A 03 48 44 24 B2 4D 4F 24 28 4E 55 29 AA 22 20 |z.HD$.MO$(NU)." | 00000840: 20 20 20 20 20 22 AA 59 52 24 00 62 10 84 03 43 | ".YR$.b...C| 00000850: 53 B2 B5 28 28 34 30 AB C3 28 48 44 24 29 29 AD |S..((40..(HD$)).| 00000860: 32 29 00 68 10 8E 03 8E 00 7E 10 98 03 8D 34 33 |2).h.....~....43| 00000870: 30 3A 8B 20 41 32 B3 B1 35 20 A7 39 35 30 00 AB |0:. A2..5 .950..| 00000880: 10 A2 03 54 24 B2 22 49 4E 43 4C 55 44 45 20 4D |...T$."INCLUDE M| 00000890: 45 4D 4F 20 42 41 52 20 49 4E 20 50 52 49 4E 54 |EMO BAR IN PRINT| 000008A0: 20 4F 55 54 22 3A 8D 33 30 33 30 00 C5 10 AC 03 | OUT":.3030.....| 000008B0: 4D 42 24 B2 22 4E 22 3A 8B 20 51 20 A7 20 4D 42 |MB$."N":. Q . MB| 000008C0: 24 B2 22 59 22 00 EB 10 B6 03 99 22 93 4D 41 4B |$."Y"......".MAK| 000008D0: 45 20 53 55 52 45 20 50 52 49 4E 54 45 52 20 49 |E SURE PRINTER I| 000008E0: 53 20 4F 4E 2E 2E 2E 11 11 11 22 00 15 11 C0 03 |S ON......".....| 000008F0: 99 22 5F 20 46 4F 52 20 4D 45 4E 55 2C 20 41 4E |."_ FOR MENU, AN| 00000900: 59 20 4F 54 48 45 52 20 4B 45 59 20 54 4F 20 50 |Y OTHER KEY TO P| 00000910: 52 49 4E 54 22 00 2A 11 CA 03 A1 43 48 24 3A 8B |RINT".*....CH$:.| 00000920: 43 48 24 B2 22 22 A7 39 37 30 00 3C 11 D4 03 8B |CH$."".970.<....| 00000930: 20 43 48 24 B2 22 5F 22 20 A7 20 8E 00 69 11 DE | CH$."_" . ..i..| 00000940: 03 8D 32 31 30 30 3A A0 35 3A 9F 35 2C 34 2C 36 |..2100:.5:.5,4,6| 00000950: 3A 9F 34 2C 34 3A 98 34 2C 4C 43 24 3B A3 43 53 |:.4,4:.4,LC$;.CS| 00000960: 29 48 44 24 3B 52 45 24 3B 00 79 11 E8 03 98 34 |)HD$;RE$;.y....4| 00000970: 3A 98 35 2C C7 28 32 30 29 00 C2 11 F2 03 98 34 |:.5,.(20)......4| 00000980: 2C 22 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 B2 C0 C0 |,"..............| 00000990: C0 C0 C0 C0 C0 C0 C0 C0 B2 C0 C0 C0 C0 C0 C0 C0 |................| 000009A0: C0 C0 C0 B2 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 B2 C0 |................| 000009B0: C0 C0 C0 C0 C0 C0 C0 C0 C0 B2 C0 C0 C0 C0 C0 C0 |................| 000009C0: 22 3B 00 E0 11 FC 03 98 34 2C 22 C0 C0 C0 C0 B2 |";......4,".....| 000009D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 3B 47 4D 24 |...........";GM$| 000009E0: 00 26 12 06 04 98 34 2C 52 45 24 3B 22 DD 53 55 |.&....4,RE$;".SU| 000009F0: 4E 44 41 59 20 20 20 20 DD 4D 4F 4E 44 41 59 20 |NDAY .MONDAY | 00000A00: 20 20 20 DD 54 55 45 53 44 41 59 20 20 20 DD 57 | .TUESDAY .W| 00000A10: 45 44 4E 45 53 44 41 59 20 DD 54 48 55 52 53 44 |EDNESDAY .THURSD| 00000A20: 41 59 20 20 22 3B 00 4B 12 10 04 98 34 2C 22 DD |AY ";.K....4,".| 00000A30: 46 52 49 44 41 59 20 20 20 20 DD 53 41 54 55 52 |FRIDAY .SATUR| 00000A40: 44 41 59 20 20 DD 22 3B 47 4D 24 00 55 12 1A 04 |DAY .";GM$.U...| 00000A50: 8D 31 32 38 30 00 60 12 24 04 81 49 B2 31 A4 52 |.1280.`.$..I.1.R| 00000A60: 00 6A 12 2E 04 8D 31 32 38 30 00 76 12 38 04 98 |.j....1280.v.8..| 00000A70: 34 2C 52 45 24 3B 00 A2 12 42 04 81 5A B2 31 A4 |4,RE$;...B..Z.1.| 00000A80: 37 3A 54 42 B2 28 5A 29 AC 31 31 3A 54 42 24 B2 |7:TB.(Z).11:TB$.| 00000A90: C4 28 54 42 29 3A 54 42 24 B2 C9 28 54 42 24 2C |.(TB):TB$..(TB$,| 00000AA0: 32 29 00 C9 12 4C 04 98 34 2C 22 DD 22 3B 4C 43 |2)...L..4,".";LC| 00000AB0: 24 3B 44 41 24 28 44 AA 5A 29 3B 52 45 24 3B C7 |$;DA$(D.Z);RE$;.| 00000AC0: 28 31 36 29 AA 54 42 24 3B 00 D1 12 56 04 82 20 |(16).TB$;...V.. | 00000AD0: 5A 00 EB 12 60 04 98 34 2C C7 28 31 36 29 AA 22 |Z...`..4,.(16)."| 00000AE0: 37 37 22 3B 22 DD 22 3B 47 4D 24 00 FF 12 6A 04 |77";".";GM$...j.| 00000AF0: 98 34 2C 52 45 24 3B 3A 44 37 B2 44 AB 44 53 00 |.4,RE$;:D7.D.DS.| 00000B00: 0C 13 74 04 81 54 54 B2 31 A4 4E 52 00 38 13 7E |..t..TT.1.NR.8.~| 00000B10: 04 81 54 B2 31 A4 37 3A 54 42 B2 28 54 29 AC 31 |..T.1.7:TB.(T).1| 00000B20: 31 3A 54 42 24 B2 C4 28 54 42 29 3A 54 42 24 B2 |1:TB$..(TB):TB$.| 00000B30: C9 28 54 42 24 2C 32 29 00 62 13 88 04 44 38 B2 |.(TB$,2).b...D8.| 00000B40: 44 37 AA 54 3A 8B 20 44 38 B3 30 20 B0 20 44 38 |D7.T:. D8.0 . D8| 00000B50: B1 33 31 20 A7 20 54 24 B2 53 53 24 3A 89 31 31 |.31 . T$.SS$:.11| 00000B60: 38 30 00 78 13 92 04 54 24 B2 4D 53 24 28 44 37 |80.x...T$.MS$(D7| 00000B70: AA 54 2C 54 54 AB 31 29 00 91 13 9C 04 98 34 2C |.T,TT.1)......4,| 00000B80: 22 DD 22 3B 54 24 3B C7 28 31 36 29 AA 54 42 24 |".";T$;.(16).TB$| 00000B90: 3B 00 99 13 A6 04 82 20 54 00 B3 13 B0 04 98 34 |;...... T......4| 00000BA0: 2C C7 28 31 36 29 AA 22 37 37 22 3B 22 DD 22 3B |,.(16)."77";".";| 00000BB0: 47 4D 24 00 BF 13 BA 04 98 34 2C 52 45 24 3B 00 |GM$......4,RE$;.| 00000BC0: C8 13 C4 04 82 20 54 54 00 D5 13 CE 04 44 B2 44 |..... TT.....D.D| 00000BD0: AA 37 3A 82 49 00 E7 13 D8 04 8B 4D 42 24 B2 22 |.7:.I......MB$."| 00000BE0: 4E 22 A7 32 31 32 30 00 33 14 E2 04 98 34 2C 52 |N".2120.3....4,R| 00000BF0: 45 24 3B 22 AB C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 B1 |E$;"............| 00000C00: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 DB C0 C0 C0 C0 C0 |................| 00000C10: C0 C0 C0 C0 C0 B1 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000C20: B1 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 DB C0 C0 C0 C0 |................| 00000C30: C0 22 3B 00 51 14 EC 04 98 34 2C 22 C0 C0 C0 C0 |.";.Q....4,"....| 00000C40: C0 B1 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 B3 22 47 4D |............."GM| 00000C50: 24 00 60 14 F6 04 A0 34 2C 34 3A 89 31 37 30 30 |$.`....4,4:.1700| 00000C60: 00 AB 14 00 05 98 34 2C 52 45 24 3B 22 AB C0 C0 |......4,RE$;"...| 00000C70: C0 C0 C0 C0 C0 C0 C0 C0 DB C0 C0 C0 C0 C0 C0 C0 |................| 00000C80: C0 C0 C0 DB C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 DB C0 |................| 00000C90: C0 C0 C0 C0 C0 C0 C0 C0 C0 DB C0 C0 C0 C0 C0 C0 |................| 00000CA0: C0 C0 C0 C0 DB C0 C0 C0 C0 22 3B 00 CB 14 0A 05 |.........";.....| 00000CB0: 98 34 2C 22 C0 C0 C0 C0 C0 C0 DB C0 C0 C0 C0 C0 |.4,"............| 00000CC0: C0 C0 C0 C0 C0 B3 22 3B 47 4D 24 00 D1 14 14 05 |......";GM$.....| 00000CD0: 8E 00 DD 14 1E 05 44 53 B2 53 44 3A 8E 00 FC 14 |......DS.SD:....| 00000CE0: 28 05 44 53 B2 53 44 AA 33 3A 4C 44 28 4E 55 29 |(.DS.SD.3:LD(NU)| 00000CF0: B2 4C 44 28 4E 55 29 AA 41 44 3A 8E 00 0D 15 32 |.LD(NU).AD:....2| 00000D00: 05 44 53 B2 53 44 AA 33 AA 41 44 3A 8E 00 1E 15 |.DS.SD.3.AD:....| 00000D10: 3C 05 44 53 B2 53 44 AB 31 AA 41 44 3A 8E 00 2F |<.DS.SD.1.AD:../| 00000D20: 15 46 05 44 53 B2 53 44 AA 31 AA 41 44 3A 8E 00 |.F.DS.SD.1.AD:..| 00000D30: 40 15 50 05 44 53 B2 53 44 AA 34 AA 41 44 3A 8E |@.P.DS.SD.4.AD:.| 00000D40: 00 51 15 5A 05 44 53 B2 53 44 AB 31 AA 41 44 3A |.Q.Z.DS.SD.1.AD:| 00000D50: 8E 00 62 15 64 05 44 53 B2 53 44 AA 32 AA 41 44 |..b.d.DS.SD.2.AD| 00000D60: 3A 8E 00 73 15 6E 05 44 53 B2 53 44 AA 35 AA 41 |:..s.n.DS.SD.5.A| 00000D70: 44 3A 8E 00 82 15 78 05 44 53 B2 53 44 AA 41 44 |D:....x.DS.SD.AD| 00000D80: 3A 8E 00 93 15 82 05 44 53 B2 53 44 AA 33 AA 41 |:......DS.SD.3.A| 00000D90: 44 3A 8E 00 A4 15 8C 05 44 53 B2 53 44 AA 35 AA |D:......DS.SD.5.| 00000DA0: 41 44 3A 8E 00 B8 15 96 05 8F 20 45 4E 48 41 4E |AD:....... ENHAN| 00000DB0: 43 45 20 44 41 54 45 53 00 F0 15 A0 05 99 22 93 |CE DATES......".| 00000DC0: 22 3A 8B 20 59 52 24 B2 22 22 20 A7 20 99 22 43 |":. YR$."" . ."C| 00000DD0: 48 4F 4F 53 45 20 59 45 41 52 20 41 4E 44 20 4D |HOOSE YEAR AND M| 00000DE0: 4F 4E 54 48 20 46 49 52 53 54 22 3A 8D 34 36 30 |ONTH FIRST":.460| 00000DF0: 00 00 16 AA 05 44 55 B2 30 3A 99 22 93 9B 22 3B |.....DU.0:."..";| 00000E00: 00 09 16 B4 05 99 48 44 24 00 34 16 BE 05 99 22 |......HD$.4...."| 00000E10: 11 53 55 4E 20 20 4D 4F 4E 20 20 54 55 45 20 20 |.SUN MON TUE | 00000E20: 57 45 44 20 20 54 48 55 20 20 46 52 49 20 20 53 |WED THU FRI S| 00000E30: 41 54 11 22 00 3F 16 C8 05 81 55 B2 30 A4 35 00 |AT.".?....U.0.5.| 00000E40: 4B 16 D2 05 81 55 55 B2 31 A4 37 00 6C 16 DC 05 |K....UU.1.7.l...| 00000E50: 44 4F B2 28 55 55 AB 31 29 AC 35 3A 99 A3 44 4F |DO.(UU.1).5:..DO| 00000E60: 29 44 41 24 28 55 55 AA 44 55 29 3B 00 79 16 E6 |)DA$(UU.DU);.y..| 00000E70: 05 54 B2 55 AC 37 AA 55 55 00 81 16 F0 05 82 55 |.T.U.7.UU......U| 00000E80: 55 00 92 16 FA 05 99 22 11 22 3A 44 55 B2 44 55 |U......".":DU.DU| 00000E90: AA 37 00 99 16 04 06 82 55 00 DC 16 0E 06 99 22 |.7......U......"| 00000EA0: 20 49 4E 50 55 54 20 27 51 27 20 57 48 45 4E 20 | INPUT 'Q' WHEN | 00000EB0: 46 49 4E 49 53 48 45 44 20 45 4E 48 41 4E 43 49 |FINISHED ENHANCI| 00000EC0: 4E 47 20 44 41 54 45 53 22 3A 85 20 22 45 4E 54 |NG DATES":. "ENT| 00000ED0: 45 52 20 44 41 54 45 22 3B 4D 44 24 00 F8 16 18 |ER DATE";MD$....| 00000EE0: 06 8B 20 4D 44 24 B2 22 51 22 20 B0 20 4D 44 24 |.. MD$."Q" . MD$| 00000EF0: B2 22 D1 22 20 A7 20 8E 00 06 17 22 06 4D 44 B2 |."." . ....".MD.| 00000F00: C5 28 4D 44 24 29 00 2A 17 2C 06 8B 4D 44 B3 31 |.(MD$).*.,..MD.1| 00000F10: 20 B0 20 4D 44 B1 4C 44 28 4E 55 29 A7 99 22 91 | . MD.LD(NU)..".| 00000F20: 91 91 91 22 3A 89 31 35 35 30 00 60 17 36 06 50 |...":.1550.`.6.P| 00000F30: 52 24 B2 22 93 45 4E 54 45 52 20 4D 45 53 53 41 |R$.".ENTER MESSA| 00000F40: 47 45 20 46 4F 52 90 20 22 AA 4D 4F 24 28 4E 55 |GE FOR. ".MO$(NU| 00000F50: 29 AA 20 22 20 22 AA C4 28 4D 44 29 AA 22 9B 22 |). " "..(MD)."."| 00000F60: 00 74 17 40 06 42 24 B2 22 22 3A 48 B2 4E 52 3A |.t.@.B$."":H.NR:| 00000F70: 57 B2 31 30 00 83 17 4A 06 81 20 49 B2 30 20 A4 |W.10...J.. I.0 .| 00000F80: 20 4E 52 00 A8 17 54 06 54 24 B2 4D 53 24 28 4D | NR...T.T$.MS$(M| 00000F90: 44 2C 49 29 3A 8B 20 C3 28 54 24 29 B3 B1 57 20 |D,I):. .(T$)..W | 00000FA0: A7 20 54 24 B2 53 53 24 00 B5 17 5E 06 42 24 B2 |. T$.SS$...^.B$.| 00000FB0: 42 24 AA 54 24 00 BB 17 68 06 82 00 C9 17 72 06 |B$.T$...h.....r.| 00000FC0: 8D 32 36 33 30 3A 4A B2 30 00 E0 17 7C 06 81 20 |.2630:J.0...|.. | 00000FD0: 49 B2 31 20 A4 20 48 AC 57 AA 31 20 A9 20 20 57 |I.1 . H.W.1 . W| 00000FE0: 00 FE 17 86 06 4D 53 24 28 4D 44 2C 4A 29 B2 CA |.....MS$(MD,J)..| 00000FF0: 28 42 24 2C 49 2C 57 29 3A 4A B2 4A AA 31 00 04 |(B$,I,W):J.J.1..| 00001000: 18 90 06 82 00 0E 18 9A 06 89 31 34 35 30 00 39 |..........1450.9| 00001010: 18 A4 06 8B 4E 55 B2 31 A7 4E 31 B2 31 32 3A 4E |....NU.1.N1.12:N| 00001020: 32 B2 32 3A 59 28 31 29 B2 59 AB 31 3A 59 28 32 |2.2:Y(1).Y.1:Y(2| 00001030: 29 B2 59 3A 89 31 37 33 30 00 65 18 AE 06 8B 4E |).Y:.1730.e....N| 00001040: 55 B2 31 32 A7 4E 31 B2 31 31 3A 4E 32 B2 31 3A |U.12.N1.11:N2.1:| 00001050: 59 28 31 29 B2 59 3A 59 28 32 29 B2 59 AA 31 3A |Y(1).Y:Y(2).Y.1:| 00001060: 89 31 37 33 30 00 87 18 B8 06 4E 31 B2 4E 55 AB |.1730.....N1.NU.| 00001070: 31 3A 4E 32 B2 4E 55 AA 31 3A 59 28 31 29 B2 59 |1:N2.NU.1:Y(1).Y| 00001080: 3A 59 28 32 29 B2 59 00 A6 18 C2 06 4E 55 B2 4E |:Y(2).Y.....NU.N| 00001090: 31 3A 59 B2 59 28 31 29 3A 48 48 B2 31 3A 43 48 |1:Y.Y(1):HH.1:CH| 000010A0: B2 31 3A 44 B2 30 00 AF 18 CC 06 8D 36 32 30 00 |.1:D.0......620.| 000010B0: B7 18 D6 06 44 B2 30 00 C3 18 E0 06 81 49 B2 31 |....D.0......I.1| 000010C0: A4 35 30 00 E6 18 EA 06 8B 49 AB 44 53 B3 B2 30 |.50......I.DS..0| 000010D0: A7 44 44 24 28 48 48 2C 49 29 B2 22 20 20 20 22 |.DD$(HH,I)." "| 000010E0: 3A 89 31 38 31 30 00 0D 19 F4 06 8B 49 AB 44 53 |:.1810......I.DS| 000010F0: B1 4C 44 28 4E 55 29 A7 44 44 24 28 48 48 2C 49 |.LD(NU).DD$(HH,I| 00001100: 29 B2 22 20 20 20 22 3A 89 31 38 31 30 00 36 19 |)." ":.1810.6.| 00001110: FE 06 8B 49 AB 44 53 B3 31 30 A7 44 44 24 28 48 |...I.DS.10.DD$(H| 00001120: 48 2C 49 29 B2 22 20 22 AA C4 28 49 AB 44 53 29 |H,I)." "..(I.DS)| 00001130: 3A 89 31 38 31 30 00 4C 19 08 07 44 44 24 28 48 |:.1810.L...DD$(H| 00001140: 48 2C 49 29 B2 C4 28 49 AB 44 53 29 00 8E 19 12 |H,I)..(I.DS)....| 00001150: 07 82 49 3A 48 44 24 28 48 48 29 B2 4D 4F 24 28 |..I:HD$(HH).MO$(| 00001160: 4E 55 29 AA 22 20 20 20 22 AA C4 28 59 28 48 48 |NU)." "..(Y(HH| 00001170: 29 29 3A 43 53 28 48 48 29 B2 B5 28 28 32 32 AB |)):CS(HH)..((22.| 00001180: C3 28 48 44 24 28 48 48 29 29 29 AD 32 29 00 A9 |.(HD$(HH))).2)..| 00001190: 19 1C 07 8B 48 48 B2 32 A7 43 53 28 48 48 29 B2 |....HH.2.CS(HH).| 000011A0: 43 53 28 48 48 29 AA 35 36 00 D4 19 26 07 43 53 |CS(HH).56...&.CS| 000011B0: 24 28 48 48 29 B2 C4 28 43 53 28 48 48 29 29 3A |$(HH)..(CS(HH)):| 000011C0: 43 53 24 28 48 48 29 B2 C9 28 43 53 24 28 48 48 |CS$(HH)..(CS$(HH| 000011D0: 29 2C 32 29 00 FB 19 30 07 8B 48 48 B2 31 A7 48 |),2)...0..HH.1.H| 000011E0: 48 B2 32 3A 4E 55 B2 4E 32 3A 59 B2 59 28 32 29 |H.2:NU.N2:Y.Y(2)| 000011F0: 3A 8D 36 32 30 3A 89 31 37 35 30 00 2D 1A 3A 07 |:.620:.1750.-.:.| 00001200: 4C 24 28 31 29 B2 22 DD 22 AA C7 28 31 36 29 AA |L$(1)."."..(16).| 00001210: 22 32 32 DD 22 AA C7 28 31 36 29 AA 22 35 35 DD |"22."..(16)."55.| 00001220: 22 AA C7 28 31 36 29 AA 22 37 37 DD 22 00 70 1A |"..(16)."77.".p.| 00001230: 44 07 4C 24 28 32 29 B2 22 DD 22 AA C7 28 31 36 |D.L$(2)."."..(16| 00001240: 29 AA 43 53 24 28 31 29 AA 48 44 24 28 31 29 AA |).CS$(1).HD$(1).| 00001250: C7 28 31 36 29 AA 22 32 32 DD 22 AA 4C 43 24 AA |.(16)."22.".LC$.| 00001260: 22 20 20 20 20 20 4D 45 4D 4F 53 22 AA 52 45 24 |" MEMOS".RE$| 00001270: 00 AC 1A 4E 07 4C 24 28 32 29 B2 4C 24 28 32 29 |...N.L$(2).L$(2)| 00001280: AA C7 28 31 36 29 AA 22 35 35 DD 22 AA C7 28 31 |..(16)."55."..(1| 00001290: 36 29 AA 43 53 24 28 32 29 AA 48 44 24 28 32 29 |6).CS$(2).HD$(2)| 000012A0: AA C7 28 31 36 29 AA 22 37 37 DD 22 00 BC 1A 58 |..(16)."77."...X| 000012B0: 07 4C 24 28 33 29 B2 4C 24 28 31 29 00 E0 1A 62 |.L$(3).L$(1)...b| 000012C0: 07 4C 24 28 34 29 B2 22 DD 20 53 55 20 4D 4F 20 |.L$(4).". SU MO | 000012D0: 54 55 20 57 45 20 54 48 20 46 52 20 53 41 DD 22 |TU WE TH FR SA."| 000012E0: 00 12 1B 6C 07 4C 24 28 34 29 B2 4C 24 28 34 29 |...l.L$(4).L$(4)| 000012F0: AA C7 28 31 36 29 AA 22 35 35 DD 20 53 55 20 4D |..(16)."55. SU M| 00001300: 4F 20 54 55 20 57 45 20 54 48 20 46 52 20 53 41 |O TU WE TH FR SA| 00001310: DD 22 00 26 1B 76 07 4C 24 28 35 29 B2 4C 24 28 |.".&.v.L$(5).L$(| 00001320: 31 29 3A 4A B2 36 00 34 1B 80 07 81 49 B2 36 A4 |1):J.6.4....I.6.| 00001330: 31 38 A9 32 00 42 1B 8A 07 4C 24 28 49 29 B2 22 |18.2.B...L$(I)."| 00001340: DD 22 00 4E 1B 94 07 81 49 49 B2 31 A4 37 00 6A |.".N....II.1.7.j| 00001350: 1B 9E 07 4C 24 28 49 29 B2 4C 24 28 49 29 AA 44 |...L$(I).L$(I).D| 00001360: 44 24 28 31 2C 49 49 AA 44 29 00 72 1B A8 07 82 |D$(1,II.D).r....| 00001370: 49 49 00 9F 1B B2 07 54 24 B2 4D 4C 24 28 4A 29 |II.....T$.ML$(J)| 00001380: 3A 8B 20 C3 28 54 24 29 B3 33 31 20 A7 20 54 24 |:. .(T$).31 . T$| 00001390: B2 53 50 24 3A 4D 4C 24 28 4A 29 B2 53 50 24 00 |.SP$:ML$(J).SP$.| 000013A0: C9 1B BC 07 4C 24 28 49 29 B2 4C 24 28 49 29 AA |....L$(I).L$(I).| 000013B0: C7 28 31 36 29 AA 22 32 32 DD 20 22 AA 54 24 AA |.(16)."22. ".T$.| 000013C0: 22 DD 22 3A 4A B2 4A AA 31 00 F1 1B C6 07 81 49 |".":J.J.1......I| 000013D0: 49 B2 31 A4 37 3A 4C 24 28 49 29 B2 4C 24 28 49 |I.1.7:L$(I).L$(I| 000013E0: 29 AA 44 44 24 28 32 2C 44 AA 49 49 29 3A 82 49 |).DD$(2,D.II):.I| 000013F0: 49 00 0D 1C D0 07 4C 24 28 49 29 B2 4C 24 28 49 |I.....L$(I).L$(I| 00001400: 29 AA C7 28 31 36 29 AA 22 37 37 DD 22 00 1F 1C |)..(16)."77."...| 00001410: DA 07 4C 24 28 49 AA 31 29 B2 4C 24 28 31 29 00 |..L$(I.1).L$(1).| 00001420: 2C 1C E4 07 44 B2 44 AA 37 3A 82 49 00 6C 1C EE |,...D.D.7:.I.l..| 00001430: 07 4C 24 28 31 38 29 B2 22 AD C0 C0 C0 C0 C0 C0 |.L$(18).".......| 00001440: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 B1 |................| 00001450: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00001460: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 9D 1C F8 |..........."....| 00001470: 07 4C 24 28 31 38 29 B2 4C 24 28 31 38 29 AA 22 |.L$(18).L$(18)."| 00001480: C0 C0 C0 C0 C0 B1 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00001490: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 22 00 C8 1C |............"...| 000014A0: 02 08 8D 32 31 30 30 3A 9F 34 2C 34 3A 81 49 B2 |...2100:.4,4:.I.| 000014B0: 31 A4 31 38 3A 98 34 2C 52 45 24 3B 4C 24 28 49 |1.18:.4,RE$;L$(I| 000014C0: 29 3B 47 4D 24 3A 82 49 00 EB 1C 0C 08 A0 34 2C |);GM$:.I......4,| 000014D0: 34 3A 59 B2 C5 28 59 52 24 29 3A 4E 55 B2 C5 28 |4:Y..(YR$):NU..(| 000014E0: 4E 55 24 29 3A 8D 36 32 30 3A 8E 00 0E 1D 16 08 |NU$):.620:......| 000014F0: 97 20 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 |. 53280,14:.5328| 00001500: 31 2C 36 3A 99 22 93 9A 22 3B 3A 9C 3A 80 00 27 |1,6:."..";:.:..'| 00001510: 1D 20 08 99 22 93 90 43 41 4C 43 55 4C 41 54 49 |. .."..CALCULATI| 00001520: 4E 47 2E 2E 2E 9B 22 00 2D 1D 2A 08 8E 00 5E 1D |NG....".-.*...^.| 00001530: 34 08 99 22 93 05 12 50 52 49 4E 54 49 4E 47 92 |4.."...PRINTING.| 00001540: 2E 2E 2E 28 50 52 45 53 53 20 52 55 4E 2F 53 54 |...(PRESS RUN/ST| 00001550: 4F 50 20 54 4F 20 41 42 4F 52 54 29 9B 22 00 64 |OP TO ABORT).".d| 00001560: 1D 3E 08 8E 00 AE 1D 48 08 98 34 2C 52 45 24 3B |.>.....H..4,RE$;| 00001570: 22 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 B1 C0 C0 C0 |"...............| 00001580: C0 C0 C0 C0 C0 C0 C0 B1 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00001590: C0 C0 B1 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 B1 C0 C0 |................| 000015A0: C0 C0 C0 C0 C0 C0 C0 C0 B1 C0 C0 C0 22 3B 00 CF |............";..| 000015B0: 1D 52 08 98 34 2C 22 C0 C0 C0 C0 C0 C0 C0 B1 C0 |.R..4,".........| 000015C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 22 3B 47 4D 24 00 |..........";GM$.| 000015D0: D9 1D 5C 08 89 32 30 36 30 00 1F 1E 66 08 83 20 |..\..2060...f.. | 000015E0: 4A 41 4E 55 41 52 59 2C 33 31 2C 46 45 42 52 55 |JANUARY,31,FEBRU| 000015F0: 41 52 59 2C 32 38 2C 4D 41 52 43 48 2C 33 31 2C |ARY,28,MARCH,31,| 00001600: 41 50 52 49 4C 2C 33 30 2C 4D 41 59 2C 33 31 2C |APRIL,30,MAY,31,| 00001610: 4A 55 4E 45 2C 33 30 2C 4A 55 4C 59 2C 33 31 00 |JUNE,30,JULY,31.| 00001620: 5F 1E 70 08 83 20 41 55 47 55 53 54 2C 33 31 2C |_.p.. AUGUST,31,| 00001630: 53 45 50 54 45 4D 42 45 52 2C 33 30 2C 4F 43 54 |SEPTEMBER,30,OCT| 00001640: 4F 42 45 52 2C 33 31 2C 4E 4F 56 45 4D 42 45 52 |OBER,31,NOVEMBER| 00001650: 2C 33 30 2C 44 45 43 45 4D 42 45 52 2C 33 31 00 |,30,DECEMBER,31.| 00001660: 75 1E 7A 08 50 52 24 B2 22 45 4E 54 45 52 20 4D |u.z.PR$."ENTER M| 00001670: 45 4D 4F 53 22 00 88 1E 84 08 42 24 B2 22 22 3A |EMOS".....B$."":| 00001680: 57 B2 33 31 3A 48 B2 36 00 94 1E 8E 08 81 58 B2 |W.31:H.6......X.| 00001690: 36 A4 31 32 00 C0 1E 98 08 54 24 B2 4D 4C 24 28 |6.12.....T$.ML$(| 000016A0: 58 29 3A 54 24 B2 54 24 AA C8 28 53 50 24 2C 57 |X):T$.T$..(SP$,W| 000016B0: AB C3 28 54 24 29 29 3A 42 24 B2 42 24 AA 54 24 |..(T$)):B$.B$.T$| 000016C0: 00 C6 1E A2 08 82 00 D0 1E AC 08 8D 32 36 33 30 |............2630| 000016D0: 00 DF 1E B6 08 81 20 58 B2 36 20 A4 20 31 32 00 |...... X.6 . 12.| 000016E0: 0D 1F C0 08 4D 4C 24 28 58 29 B2 4D 4C 24 28 58 |....ML$(X).ML$(X| 000016F0: 29 AA C8 28 53 50 24 2C 28 33 31 AB C3 28 4D 4C |)..(SP$,(31..(ML| 00001700: 24 28 58 29 29 29 29 3A 82 3A 58 B2 36 00 24 1F |$(X)))):.:X.6.$.| 00001710: CA 08 81 20 49 B2 31 20 A4 20 48 AC 57 AA 31 20 |... I.1 . H.W.1 | 00001720: A9 20 20 57 00 47 1F D4 08 54 24 B2 CA 28 42 24 |. W.G...T$..(B$| 00001730: 2C 49 2C 57 29 3A 8B 20 54 24 B2 53 32 24 20 A7 |,I,W):. T$.S2$ .| 00001740: 20 54 24 B2 22 20 22 00 5B 1F DE 08 4D 4C 24 28 | T$." ".[...ML$(| 00001750: 58 29 B2 54 24 3A 58 B2 58 AA 31 00 61 1F E8 08 |X).T$:X.X.1.a...| 00001760: 82 00 71 1F F2 08 4D 4C 24 28 31 33 29 B2 53 50 |..q...ML$(13).SP| 00001770: 24 00 77 1F FC 08 8E 00 A1 1F 06 09 8D 34 33 30 |$.w..........430| 00001780: 3A 4E 4D 24 B2 22 22 3A 85 22 93 46 49 4C 45 4E |:NM$."":.".FILEN| 00001790: 41 4D 45 20 46 4F 52 20 53 41 56 45 22 3B 4E 4D |AME FOR SAVE";NM| 000017A0: 24 00 B1 1F 10 09 8B 20 4E 4D 24 B2 22 22 20 A7 |$...... NM$."" .| 000017B0: 8E 00 E6 1F 1A 09 9F 31 35 2C 38 2C 31 35 2C 22 |.......15,8,15,"| 000017C0: 49 30 22 3A 9F 32 2C 38 2C 32 2C 4E 4D 24 AA 22 |I0":.2,8,2,NM$."| 000017D0: 2C 57 2C 53 22 3A 84 31 35 2C 45 4E 2C 45 4D 24 |,W,S":.15,EN,EM$| 000017E0: 2C 45 54 2C 45 53 00 17 20 24 09 8B 45 4E B1 31 |,ET,ES.. $..EN.1| 000017F0: A7 99 45 4E 3B 45 4D 24 3B 45 54 3B 45 53 3A 81 |..EN;EM$;ET;ES:.| 00001800: 49 B2 31 A4 33 30 30 3A 82 49 3A A0 32 3A A0 31 |I.1.300:.I:.2:.1| 00001810: 35 3A 89 32 33 31 30 00 45 20 2E 09 99 22 93 11 |5:.2310.E ..."..| 00001820: 11 11 11 11 11 11 11 11 11 22 3B A3 31 30 29 22 |.........";.10)"| 00001830: 53 41 56 49 4E 47 20 43 41 4C 45 4E 44 41 52 20 |SAVING CALENDAR | 00001840: 2E 2E 2E 2E 22 00 51 20 38 09 81 50 B2 31 A4 33 |....".Q 8..P.1.3| 00001850: 31 00 5D 20 42 09 81 51 B2 30 A4 4E 52 00 6D 20 |1.] B..Q.0.NR.m | 00001860: 4C 09 54 24 B2 4D 53 24 28 50 2C 51 29 00 81 20 |L.T$.MS$(P,Q).. | 00001870: 56 09 8B 20 54 24 B2 22 22 20 A7 54 24 B2 53 53 |V.. T$."" .T$.SS| 00001880: 24 00 91 20 60 09 98 32 2C 22 58 22 54 24 22 58 |$.. `..2,"X"T$"X| 00001890: 22 00 9B 20 6A 09 82 51 3A 82 50 00 B1 20 74 09 |".. j..Q:.P.. t.| 000018A0: 81 50 B2 36 A4 31 32 3A 54 24 B2 4D 4C 24 28 50 |.P.6.12:T$.ML$(P| 000018B0: 29 00 D9 20 7E 09 8B 20 C3 28 54 24 29 B3 B1 33 |).. ~.. .(T$)..3| 000018C0: 31 20 A7 20 54 24 B2 54 24 AA C8 28 53 50 24 2C |1 . T$.T$..(SP$,| 000018D0: 33 31 AB C3 28 54 24 29 29 00 EC 20 88 09 98 32 |31..(T$)).. ...2| 000018E0: 2C 22 58 22 54 24 22 58 22 3A 82 50 00 03 21 92 |,"X"T$"X":.P..!.| 000018F0: 09 8B 20 4D 42 24 B2 22 22 20 A7 20 4D 42 24 B2 |.. MB$."" . MB$.| 00001900: 22 4E 22 00 1A 21 9C 09 8B 20 48 44 24 B2 22 22 |"N"..!... HD$.""| 00001910: 20 A7 20 48 44 24 B2 22 20 22 00 34 21 A6 09 8B | . HD$." ".4!...| 00001920: 20 59 52 24 B2 22 22 20 A7 20 59 52 24 B2 22 31 | YR$."" . YR$."1| 00001930: 39 38 39 22 00 54 21 B0 09 98 32 2C 4D 42 24 3A |989".T!...2,MB$:| 00001940: 98 32 2C 48 44 24 3A 98 32 2C 59 52 24 3A 98 32 |.2,HD$:.2,YR$:.2| 00001950: 2C 4E 55 24 00 68 21 BA 09 A0 32 3A A0 31 35 3A |,NU$.h!...2:.15:| 00001960: 58 B2 B8 28 30 29 3A 8E 00 8C 21 C4 09 4E 4D 24 |X..(0):...!..NM$| 00001970: B2 22 22 3A 85 22 93 46 49 4C 45 4E 41 4D 45 20 |."":.".FILENAME | 00001980: 54 4F 20 4C 4F 41 44 22 3B 4E 4D 24 00 9C 21 CE |TO LOAD";NM$..!.| 00001990: 09 8B 20 4E 4D 24 B2 22 22 20 A7 8E 00 D1 21 D8 |.. NM$."" ....!.| 000019A0: 09 9F 31 35 2C 38 2C 31 35 2C 22 49 30 22 3A 9F |..15,8,15,"I0":.| 000019B0: 32 2C 38 2C 32 2C 4E 4D 24 AA 22 2C 53 2C 52 22 |2,8,2,NM$.",S,R"| 000019C0: 3A 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 |:.15,EN,EM$,ET,E| 000019D0: 53 00 02 22 E2 09 8B 45 4E B1 31 A7 99 45 4E 3B |S.."...EN.1..EN;| 000019E0: 45 4D 24 3B 45 54 3B 45 53 3A 81 49 B2 31 A4 33 |EM$;ET;ES:.I.1.3| 000019F0: 30 30 3A 82 49 3A A0 32 3A A0 31 35 3A 89 32 35 |00:.I:.2:.15:.25| 00001A00: 30 30 00 31 22 EC 09 99 22 93 11 11 11 11 11 11 |00.1"...".......| 00001A10: 11 11 11 11 22 3B A3 31 30 29 22 4C 4F 41 44 49 |....";.10)"LOADI| 00001A20: 4E 47 20 43 41 4C 45 4E 44 41 52 20 2E 2E 2E 2E |NG CALENDAR ....| 00001A30: 22 00 45 22 F6 09 81 50 B2 31 A4 33 31 3A 81 51 |".E"...P.1.31:.Q| 00001A40: B2 30 A4 4E 52 00 63 22 00 0A 84 32 2C 54 24 3A |.0.NR.c"...2,T$:| 00001A50: 4D 53 24 28 50 2C 51 29 B2 CA 28 54 24 2C 32 2C |MS$(P,Q)..(T$,2,| 00001A60: 31 30 29 00 6D 22 0A 0A 82 51 3A 82 50 00 79 22 |10).m"...Q:.P.y"| 00001A70: 14 0A 81 50 B2 36 A4 31 32 00 95 22 1E 0A 84 32 |...P.6.12.."...2| 00001A80: 2C 54 24 3A 4D 4C 24 28 50 29 B2 CA 28 54 24 2C |,T$:ML$(P)..(T$,| 00001A90: 32 2C 33 31 29 00 9C 22 28 0A 82 50 00 C6 22 32 |2,31).."(..P.."2| 00001AA0: 0A 84 32 2C 4D 42 24 2C 48 44 24 2C 59 52 24 2C |..2,MB$,HD$,YR$,| 00001AB0: 4E 55 24 3A 59 B2 C5 28 59 52 24 29 3A 4E 55 B2 |NU$:Y..(YR$):NU.| 00001AC0: C5 28 4E 55 24 29 00 DF 22 3C 0A A0 32 3A A0 31 |.(NU$).."<..2:.1| 00001AD0: 35 3A 8D 36 32 30 3A 58 B2 B8 28 30 29 3A 8E 00 |5:.620:X..(0):..| 00001AE0: E8 22 46 0A 50 59 B2 59 00 1B 23 50 0A 58 B2 30 |."F.PY.Y..#P.X.0| 00001AF0: 3A 59 B2 30 3A 4D 54 B2 48 AC 57 AA 31 3A 99 22 |:Y.0:MT.H.W.1:."| 00001B00: 93 22 3B 50 52 24 3A 99 22 50 52 45 53 53 20 5F |.";PR$:."PRESS _| 00001B10: 20 57 48 45 4E 20 44 4F 4E 45 22 00 42 23 5A 0A | WHEN DONE".B#Z.| 00001B20: 99 22 13 11 22 3A 99 A3 57 29 22 CC 22 3A 81 49 |."..":..W)".":.I| 00001B30: B2 31 20 A4 20 48 3A 99 3A 82 3A 99 A3 57 29 22 |.1 . H:.:.:..W)"| 00001B40: CF 22 00 5F 23 64 0A 99 22 13 11 11 22 3A 81 20 |."._#d.."...":. | 00001B50: 49 B2 31 20 A4 20 48 AC 57 AA 31 20 A9 20 57 00 |I.1 . H.W.1 . W.| 00001B60: 70 23 6E 0A 99 CA 28 42 24 2C 49 2C 57 29 3A 82 |p#n...(B$,I,W):.| 00001B70: 00 93 23 78 0A 54 B2 58 AA 59 AC 34 30 AA 31 31 |..#x.T.X.Y.40.11| 00001B80: 34 34 3A 8B 20 58 B2 57 20 A7 20 54 B2 54 AB 58 |44:. X.W . T.T.X| 00001B90: AA 34 30 00 A6 23 82 0A 97 20 54 2C C2 28 54 29 |.40..#... T,.(T)| 00001BA0: 20 B0 20 31 32 38 00 BC 23 8C 0A A1 41 24 3A 8B | . 128..#...A$:.| 00001BB0: 20 41 24 B2 22 22 20 A7 32 37 30 30 00 C8 23 96 | A$."" .2700..#.| 00001BC0: 0A 41 B2 C6 28 41 24 29 00 0C 24 A0 0A 91 20 43 |.A..(A$)..$... C| 00001BD0: 4D 28 41 29 20 89 32 39 35 30 2C 32 37 34 30 2C |M(A) .2950,2740,| 00001BE0: 32 37 36 30 2C 32 37 38 30 2C 32 38 31 30 2C 32 |2760,2780,2810,2| 00001BF0: 38 34 30 2C 32 38 35 30 2C 32 38 39 30 2C 32 39 |840,2850,2890,29| 00001C00: 30 30 2C 33 30 30 30 2C 33 30 32 30 00 16 24 AA |00,3000,3020..$.| 00001C10: 0A 89 32 37 30 30 00 30 24 B4 0A 8B 20 59 B3 48 |..2700.0$... Y.H| 00001C20: AB 31 20 A7 20 59 B2 59 AA 31 3A 89 32 36 36 30 |.1 . Y.Y.1:.2660| 00001C30: 00 3A 24 BE 0A 89 32 37 30 30 00 52 24 C8 0A 8B |.:$...2700.R$...| 00001C40: 20 59 B1 30 20 A7 20 59 B2 59 AB 31 3A 89 32 36 | Y.0 . Y.Y.1:.26| 00001C50: 36 30 00 5C 24 D2 0A 89 32 37 30 30 00 72 24 DC |60.\$...2700.r$.| 00001C60: 0A 58 B2 58 AA 31 3A 8B 20 58 B3 57 20 A7 32 36 |.X.X.1:. X.W .26| 00001C70: 36 30 00 8C 24 E6 0A 8B 20 59 B2 48 AB 31 20 A7 |60..$... Y.H.1 .| 00001C80: 20 58 B2 58 AB 31 3A 89 32 36 36 30 00 A0 24 F0 | X.X.1:.2660..$.| 00001C90: 0A 59 B2 59 AA 31 3A 58 B2 30 3A 89 32 36 36 30 |.Y.Y.1:X.0:.2660| 00001CA0: 00 B7 24 FA 0A 58 B2 58 AB 31 3A 8B 20 58 B2 B1 |..$..X.X.1:. X..| 00001CB0: 30 20 A7 32 36 36 30 00 D5 24 04 0B 8B 20 59 B1 |0 .2660..$... Y.| 00001CC0: 30 20 A7 20 58 B2 57 AB 31 3A 59 B2 59 AB 31 3A |0 . X.W.1:Y.Y.1:| 00001CD0: 89 32 36 36 30 00 E3 24 0E 0B 58 B2 30 3A 89 32 |.2660..$..X.0:.2| 00001CE0: 36 36 30 00 0C 25 18 0B 42 24 B2 22 22 3A 81 49 |660..%..B$."":.I| 00001CF0: B2 31 20 A4 20 48 AC 57 AA 31 3A 42 24 B2 42 24 |.1 . H.W.1:B$.B$| 00001D00: AA 22 20 22 3A 82 3A 89 32 36 34 30 00 1E 25 22 |." ":.:.2640..%"| 00001D10: 0B 8B 20 59 B2 48 AB 31 20 A7 33 30 32 30 00 36 |.. Y.H.1 .3020.6| 00001D20: 25 2C 0B 8B 20 58 B2 57 20 AF 20 59 B2 48 AB 32 |%,.. X.W . Y.H.2| 00001D30: 20 A7 33 30 32 30 00 4E 25 36 0B 8B 20 58 B2 57 | .3020.N%6.. X.W| 00001D40: 20 A7 20 59 B2 59 AA 32 3A 89 32 36 36 30 00 62 | . Y.Y.2:.2660.b| 00001D50: 25 40 0B 58 B2 30 3A 59 B2 59 AA 31 3A 89 32 36 |%@.X.0:Y.Y.1:.26| 00001D60: 36 30 00 74 25 4A 0B 58 B2 30 3A 59 B2 30 3A 89 |60.t%J.X.0:Y.0:.| 00001D70: 32 36 36 30 00 91 25 54 0B 41 24 B2 22 22 3A 58 |2660..%T.A$."":X| 00001D80: B2 58 AB 31 3A 8B 20 58 B2 B1 30 20 A7 32 39 33 |.X.1:. X..0 .293| 00001D90: 30 00 AF 25 5E 0B 8B 20 59 B1 30 20 A7 20 58 B2 |0..%^.. Y.0 . X.| 00001DA0: 57 AB 31 3A 59 B2 59 AB 31 3A 89 32 39 33 30 00 |W.1:Y.Y.1:.2930.| 00001DB0: BD 25 68 0B 58 B2 30 3A 89 32 37 30 30 00 C9 25 |.%h.X.0:.2700..%| 00001DC0: 72 0B 54 B2 58 AA 59 AC 57 00 F6 25 7C 0B 4C B2 |r.T.X.Y.W..%|.L.| 00001DD0: C3 28 42 24 29 3A 42 24 B2 C8 28 42 24 2C 54 29 |.(B$):B$..(B$,T)| 00001DE0: AA C9 28 42 24 2C 4C AB 54 AB 31 29 AA 22 20 22 |..(B$,L.T.1)." "| 00001DF0: 3A 89 32 36 36 30 00 10 26 86 0B 54 B2 58 AA 59 |:.2660..&..T.X.Y| 00001E00: AC 57 3A 8B 20 54 B2 B1 4D 54 20 A7 32 37 30 30 |.W:. T..MT .2700| 00001E10: 00 36 26 90 0B 4C B2 C3 28 42 24 29 3A 42 24 B2 |.6&..L..(B$):B$.| 00001E20: C8 28 42 24 2C 54 29 AA 41 24 AA C9 28 42 24 2C |.(B$,T).A$..(B$,| 00001E30: 4C AB 54 AB 31 29 00 4C 26 9A 0B 58 B2 58 AA 31 |L.T.1).L&..X.X.1| 00001E40: 3A 8B 20 58 B3 57 20 A7 32 36 36 30 00 66 26 A4 |:. X.W .2660.f&.| 00001E50: 0B 8B 20 59 B2 48 AB 31 20 A7 20 58 B2 58 AB 31 |.. Y.H.1 . X.X.1| 00001E60: 3A 89 32 36 36 30 00 7A 26 AE 0B 59 B2 59 AA 31 |:.2660.z&..Y.Y.1| 00001E70: 3A 58 B2 30 3A 89 32 36 36 30 00 B4 26 B8 0B 54 |:X.0:.2660..&..T| 00001E80: B2 58 AA 59 AC 57 3A 4C B2 C3 28 42 24 29 3A 42 |.X.Y.W:L..(B$):B| 00001E90: 24 B2 C8 28 42 24 2C 54 29 AA 22 20 22 AA C9 28 |$..(B$,T)." "..(| 00001EA0: 42 24 2C 4C AB 54 29 3A 42 24 B2 C8 28 42 24 2C |B$,L.T):B$..(B$,| 00001EB0: 48 AC 57 29 00 BE 26 C2 0B 89 32 36 36 30 00 C9 |H.W)..&...2660..| 00001EC0: 26 CC 0B 59 B2 50 59 3A 8E 00 ED 26 D6 0B 99 22 |&..Y.PY:...&..."| 00001ED0: 93 11 22 54 24 3B 22 20 28 59 2F 4E 29 20 20 22 |.."T$;" (Y/N) "| 00001EE0: 3B 22 4E 9D 9D 9D 22 3B 3A 85 20 52 24 00 02 27 |;"N...";:. R$..'| 00001EF0: E0 0B 8B 20 52 24 B2 22 4E 22 20 A7 20 51 B2 30 |... R$."N" . Q.0| 00001F00: 3A 8E 00 17 27 EA 0B 8B 20 52 24 B2 22 59 22 20 |:...'... R$."Y" | 00001F10: A7 20 51 B2 31 3A 8E 00 21 27 F4 0B 89 33 30 33 |. Q.1:..!'...303| 00001F20: 30 00 34 27 FE 0B 8B 20 59 52 24 B2 22 22 20 A7 |0.4'... YR$."" .| 00001F30: 33 31 33 30 00 5E 27 08 0C 54 24 B2 22 43 4C 45 |3130.^'..T$."CLE| 00001F40: 41 52 20 4F 55 54 20 22 AA 4D 4F 24 28 4E 55 29 |AR OUT ".MO$(NU)| 00001F50: AA 22 20 22 AA 59 52 24 3A 8D 33 30 33 30 00 6C |." ".YR$:.3030.l| 00001F60: 27 12 0C 8B 20 51 B2 30 20 A7 20 8E 00 76 27 1C |'... Q.0 . ..v'.| 00001F70: 0C 8D 32 30 38 30 00 9B 27 26 0C 81 50 B2 31 A4 |..2080..'&..P.1.| 00001F80: 33 31 3A 81 51 B2 30 A4 4E 52 3A 4D 53 24 28 50 |31:.Q.0.NR:MS$(P| 00001F90: 2C 51 29 B2 53 53 24 3A 82 3A 82 00 B4 27 30 0C |,Q).SS$:.:...'0.| 00001FA0: 81 58 B2 36 A4 31 32 3A 4D 4C 24 28 58 29 B2 53 |.X.6.12:ML$(X).S| 00001FB0: 50 24 3A 82 00 BD 27 3A 0C 8D 34 35 30 00 E5 27 |P$:...':..450..'| 00001FC0: 44 0C 4D 42 24 B2 22 4E 22 3A 54 24 B2 22 49 4E |D.MB$."N":T$."IN| 00001FD0: 43 4C 55 44 45 20 4D 45 4D 4F 20 42 41 52 22 3A |CLUDE MEMO BAR":| 00001FE0: 8D 33 30 33 30 00 FD 27 4E 0C 8B 20 51 20 A7 20 |.3030..'N.. Q . | 00001FF0: 4D 42 24 B2 22 59 22 3A 8D 32 31 37 30 00 1A 28 |MB$."Y":.2170..(| 00002000: 58 0C 54 24 B2 22 45 4E 48 41 4E 43 45 20 44 41 |X.T$."ENHANCE DA| 00002010: 54 45 53 22 3A 8D 33 30 33 30 00 2A 28 62 0C 8B |TES":.3030.*(b..| 00002020: 20 51 20 A7 20 8D 31 34 33 30 00 46 28 6C 0C 54 | Q . .1430.F(l.T| 00002030: 24 B2 22 50 52 49 4E 54 20 49 54 20 4E 4F 57 22 |$."PRINT IT NOW"| 00002040: 3A 8D 33 30 33 30 00 55 28 76 0C 8B 20 51 20 A7 |:.3030.U(v.. Q .| 00002050: 20 8D 39 32 30 00 7A 28 80 0C 54 24 B2 22 53 41 | .920.z(..T$."SA| 00002060: 56 45 20 43 41 4C 45 4E 44 41 52 20 54 4F 20 44 |VE CALENDAR TO D| 00002070: 49 53 4B 22 3A 8D 33 30 33 30 00 8A 28 8A 0C 8B |ISK":.3030..(...| 00002080: 20 51 20 A7 20 8D 32 33 31 30 00 90 28 94 0C 8E | Q . .2310..(...| 00002090: 00 00 00 |... |
..H.D.. COPYRIGHT 1988 COMPUTE! PUBLICAT IONS, INC. - ALL RIGHTS RESERVED.N.N.LC$ .G(14):RE$.G(15):GM$.G(8):NR.7.|.X.. CM( 255).E....MO$(12),LD(12),DA$(60),MS$(50, NR.1),DD$(2,60),L$(20),ML$(18),C(255)... ..SP$." ":.I.0.5:SP$.SP$.SP$:.:SP$.H(SP$ ,31):SS$.H(SP$,10)......53280,15:.53281, 11.$. .."..".A.....11)"MONTHLY CALENDAR ".^.....11)". COPYRIGHT 1989 "...H...7)" COMPUTE! PUBLICATIONS, INC."...R...10)"A LL RIGHTS RESERVED".I....I.27 . 127:CM(I ).1:CM(I.128).1:..Q...I.2...... A:. A..1 .270.....CM(A).I:I.I.1:.240.'.... 17,14 5,29,157,147,13,19,20,148,95,-1./...I.0. 8.... A$.R.".T.F(H(A$,1)):C(T).I.1...,.A $(I).G(49.I)." .".G(T).".".I(A$,C(A$).1) ...6.I.I.1:. A$.."QUIT" .280...@.. "NEW CALENDAR","YEAR AND MONTH",MEMO,"ENHANCE DATES",PRINT,SAVE,LOAD...J.. QUIT...T.. H.1.12:.MO$(H),LD(H):.H...^.N4.I.1.8.H.. I.0 . N4:.:..12) A$(I):..M.R..A$:. A$."" .370.R.|.A2.F(A$):. C(A2) . A2.C(A2):.4 10.....V.E(A$):. V.0 . V..I . A2.V:.410. ....370.P.... A2 .3070,450,2170,1430,92 0,2310,2500,2070......"...":.360......". ":. YR$."" . ."CHOOSE YEAR AND MONTH FIR ST":.460:.430.#.....,.B..".".M.L.."...EN TER CALENDAR YEAR: ";.V.V.. T$.F.... T$. "" . ....... E(T$).100 . E(T$).9999. .45 0.....YR$.T$:Y.E(YR$)......".".E....".SE LECT MONTH(1-12)...."......I.1.9:..10)". "I"."MO$(I):.......I.10.12:..9)"."I"."MO $(I):.. .&.."...ENTER MONTH";NU$.F.0.NU. E(NU$):.NU..1.NU..12.HH.0:.610.R.:..I.1. 12.Q.D..NU$.MO$(I).NU.I:HH.0:.610.X.N..I ...X..520...B.. CALCULATIONS...L.LD(2).2 8:.2080.F.V.A.(Y.100):B..(Y.100):C.A.B.S ....C.0.680.....A.(Y.4):B..(Y.4):C.A.B.. ....C.0.AD.1:.710.....AD.0:.710.....A.(Y .400):B..(Y.400):C.A.B.A....C.0.AD.1:.71 0.O...AD.0:.710.Z.F.A..(Y.4):B..(Y.400): C..(Y.100):D.A.B.C...P.E.(Y.D).7:F..((Y. D).7):G.(E.F).7:SD..(G):H.G.SD...Z..H..9 .SD.SD.1.M...SD.SD.AD......SD.0.SD.SD.7. #....NU.1310,1320,1330,1340,1350,1360,13 70,1380,1390,1400,1410,1420.5....DS.6.DS .DS.7.G....DS.0.DS.DS.7.C...D.0:.FLAG.1. FLAG.0:.810.P. ..HH..0...|.*..I.1.50...4 ..I.DS..0.DA$(I)."":.850...>..I.DS.LD(NU ).DA$(I)."":.850...H.DA$(I).D(I.DS):DA$( I).I(DA$(I),C(DA$(I)).1)...R..I...\..DS. 0.LD(NU).28.R.4:.890.%.F..DA$(36)."".R.5 :.890.-.P.R.6.J.Z.HD$.MO$(NU)." ".Y R$.B...CS..((40.C(HD$)).2).H.....~....43 0:. A2..5 .950.....T$."INCLUDE MEMO BAR IN PRINT OUT":.3030.E...MB$."N":. Q . MB $."Y"......".MAKE SURE PRINTER IS ON.... .."......"_ FOR MENU, ANY OTHER KEY TO P RINT".*.J..CH$:.CH$."".970.<.T.. CH$."_" . ..I....2100: 5:.5,4,6:.4,4:.4,LC$;.CS )HD$;RE$;.Y....4:.5,G(20).B....4,"...... ........................................ ................";......4,"............. ...";GM$.&....4,RE$;".SUNDAY .MONDAY .TUESDAY .WEDNESDAY .THURSDAY ";.K ....4,".FRIDAY .SATURDAY .";GM$.U... .1280.`.$..I.1.R.J....1280.V.8..4,RE$;.. .B..Z.1.7:TB.(Z).11:TB$.D(TB):TB$.I(TB$, 2).I.L..4,".";LC$;DA$(D.Z);RE$;G(16).TB$ ;.Q.V.. Z...`..4,G(16)."77";".";GM$...J. .4,RE$;:D7.D.DS...T..TT.1.NR.8.~..T.1.7: TB.(T).11:TB$.D(TB):TB$.I(TB$,2).B...D8. D7.T:. D8.0 . D8.31 . T$.SS$:.1180.X...T $.MS$(D7.T,TT.1)......4,".";T$;G(16).TB$ ;...... T......4,G(16)."77";".";GM$..... .4,RE$;.H.D.. TT.U.N.D.D.7:.I...X..MB$." N".2120.3....4,RE$;".................... ........................................ .";.Q....4,"................."GM$.`... 4 ,4:.1700......4,RE$;"................... ........................................ .";.K....4,"..................";GM$.Q... ......DS.SD:....(.DS.SD.3:LD(NU).LD(NU). AD:....2.DS.SD.3.AD:....<.DS.SD.1.AD:../ .F.DS.SD.1.AD:..@.P.DS.SD.4.AD:..Q.Z.DS. SD.1.AD:..B.D.DS.SD.2.AD:..S.N.DS.SD.5.A D:....X.DS.SD.AD:......DS.SD.3.AD:...... DS.SD.5.AD:....... ENHANCE DATES... ..". ":. YR$."" . ."CHOOSE YEAR AND MONTH FIR ST":.460.....DU.0:."..";......HD$.4...." .SUN MON TUE WED THU FRI SAT.".?.H ..U.0.5.K.R..UU.1.7.L...DO.(UU.1).5:..DO )DA$(UU.DU);.Y...T.U.7.UU......UU......" .":DU.DU.7......U......" INPUT 'Q' WHEN FINISHED ENHANCING DATES":. "ENTER DATE" ;MD$...... MD$."Q" . MD$."Q" . ....".MD. E(MD$).*.,..MD.1 . MD.LD(NU).."....":.15 50.`.6.PR$.".ENTER MESSAGE FOR. ".MO$(NU ). " ".D(MD).".".T.@.B$."":H.NR:W.10...J .. I.0 . NR...T.T$.MS$(MD,I):. C(T$)..W . T$.SS$...^.B$.B$.T$...H...I.R..2630:J. 0...|.. I.1 . H.W.1 . W.....MS$(MD,J).J (B$,I,W):J.J.1............1450.9....NU.1 .N1.12:N2.2:Y(1).Y.1:Y(2).Y:.1730.E....N U.12.N1.11:N2.1:Y(1).Y:Y(2).Y.1:.1730... ..N1.NU.1:N2.NU.1:Y(1).Y:Y(2).Y...B.NU.N 1:Y.Y(1):HH.1:CH.1:D.0...L..620...V.D.0. C....I.1.50......I.DS..0.DD$(HH,I)." " :.1810......I.DS.LD(NU).DD$(HH,I)." ": .1810.6....I.DS.10.DD$(HH,I)." ".D(I.DS) :.1810.L...DD$(HH,I).D(I.DS)......I:HD$( HH).MO$(NU)." ".D(Y(HH)):CS(HH)..((22. C(HD$(HH))).2)......HH.2.CS(HH).CS(HH).5 6.T.&.CS$(HH).D(CS(HH)):CS$(HH).I(CS$(HH ),2)...0..HH.1.HH.2:NU.N2:Y.Y(2):.620:.1 750.-.:.L$(1).".".G(16)."22.".G(16)."55. ".G(16)."77.".P.D.L$(2).".".G(16).CS$(1) .HD$(1).G(16)."22.".LC$." MEMOS".RE$ ...N.L$(2).L$(2).G(16)."55.".G(16).CS$(2 ).HD$(2).G(16)."77."...X.L$(3).L$(1)...B .L$(4).". SU MO TU WE TH FR SA."...L.L$( 4).L$(4).G(16)."55. SU MO TU WE TH FR SA .".&.V.L$(5).L$(1):J.6.4....I.6.18.2.B.. .L$(I).".".N....II.1.7.J...L$(I).L$(I).D D$(1,II.D).R....II.....T$.ML$(J):. C(T$) .31 . T$.SP$:ML$(J).SP$.I...L$(I).L$(I). G(16)."22. ".T$.".":J.J.1...F..II.1.7:L$ (I).L$(I).DD$(2,D.II):.II...P.L$(I).L$(I ).G(16)."77."...Z.L$(I.1).L$(1).,...D.D. 7:.I.L...L$(18)."....................... ...........................".....L$(18). L$(18)."............................".H. ...2100:.4,4:.I.1.18:.4,RE$;L$(I);GM$:.I ..... 4,4:Y.E(YR$):NU.E(NU$):.620:...... . 53280,14:.53281,6:."..";:.:..'. .."..C ALCULATING....".-.*...^.4.."...PRINTING. ...(PRESS RUN/STOP TO ABORT).".D.>.....H ..4,RE$;"............................... ............................";.O.R..4,". ..................";GM$.Y.\..2060...F.. JANUARY,31,FEBRUARY,28,MARCH,31,APRIL,30 ,MAY,31,JUNE,30,JULY,31._.P.. AUGUST,31, SEPTEMBER,30,OCTOBER,31,NOVEMBER,30,DECE MBER,31.U.Z.PR$."ENTER MEMOS".....B$."": W.31:H.6......X.6.12.....T$.ML$(X):T$.T$ .H(SP$,W.C(T$)):B$.B$.T$.F.....P....2630 ...... X.6 . 12.....ML$(X).ML$(X).H(SP$, (31.C(ML$(X)))):.:X.6.$.J.. I.1 . H.W.1 . W.G.T.T$.J(B$,I,W):. T$.S2$ . T$." ". [...ML$(X).T$:X.X.1.A.....Q...ML$(13).SP $.W..........430:NM$."":.".FILENAME FOR SAVE";NM$...... NM$."" ........15,8,15," I0":.2,8,2,NM$.",W,S":.15,EN,EM$,ET,ES.. $..EN.1..EN;EM$;ET;ES:.I.1.300:.I: 2: 1 5:.2310.E ..."...........";.10)"SAVING C ALENDAR ....".Q 8..P.1.31.] B..Q.0.NR.M L.T$.MS$(P,Q).. V.. T$."" .T$.SS$.. `..2 ,"X"T$"X".. J..Q:.P.. T..P.6.12:T$.ML$(P ).Y ~.. C(T$)..31 . T$.T$.H(SP$,31.C(T$) ).. ...2,"X"T$"X":.P..!... MB$."" . MB$. "N"..!... HD$."" . HD$." ".4!... YR$."" . YR$."1989".T!...2,MB$:.2,HD$:.2,YR$:.2 ,NU$.H!.. 2: 15:X..(0):...!D.NM$."":.".F ILENAME TO LOAD";NM$..!N.. NM$."" ...Q!X ..15,8,15,"I0":.2,8,2,NM$.",S,R":.15,EN, EM$,ET,ES.."...EN.1..EN;EM$;ET;ES:.I.1.3 00:.I: 2: 15:.2500.1"..."...........";.1 0)"LOADING CALENDAR ....".E"...P.1.31:.Q .0.NR.C"...2,T$:MS$(P,Q).J(T$,2,10).M".. .Q:.P.Y"...P.6.12.."...2,T$:ML$(P).J(T$, 2,31).."(..P.F"2..2,MB$,HD$,YR$,NU$:Y.E( YR$):NU.E(NU$).."<. 2: 15:.620:X..(0):.. ."F.PY.Y..#P.X.0:Y.0:MT.H.W.1:.".";PR$:. "PRESS _ WHEN DONE".B#Z.."..":..W)"L":.I .1 . H:.:.:..W)"O"._#D.."...":. I.1 . H. W.1 . W.P#N..J(B$,I,W):...#X.T.X.Y.40.11 44:. X.W . T.T.X.40..#... T,B(T) . 128.. #...A$:. A$."" .2700.H#..A.F(A$)..$ .. C M(A) .2950,2740,2760,2780,2810,2840,2850 ,2890,2900,3000,3020..$...2700.0$... Y.H .1 . Y.Y.1:.2660.:$...2700.R$H.. Y.0 . Y .Y.1:.2660.\$R..2700.R$..X.X.1:. X.W .26 60..$... Y.H.1 . X.X.1:.2660. $..Y.Y.1:X .0:.2660..$..X.X.1:. X..0 .2660.U$... Y. 0 . X.W.1:Y.Y.1:.2660..$..X.0:.2660..%.. B$."":.I.1 . H.W.1:B$.B$." ":.:.2640..%" .. Y.H.1 .3020.6%,.. X.W . Y.H.2 .3020.N %6.. X.W . Y.Y.2:.2660.B%@.X.0:Y.Y.1:.26 60.T%J.X.0:Y.0:.2660..%T.A$."":X.X.1:. X ..0 .2930..%^.. Y.0 . X.W.1:Y.Y.1:.2930. .%H.X.0:.2700.I%R.T.X.Y.W..%|.L.C(B$):B$ .H(B$,T).I(B$,L.T.1)." ":.2660..&..T.X.Y .W:. T..MT .2700.6&..L.C(B$):B$.H(B$,T). A$.I(B$,L.T.1).L&..X.X.1:. X.W .2660.F&. .. Y.H.1 . X.X.1:.2660.Z&..Y.Y.1:X.0:.26 60..&..T.X.Y.W:L.C(B$):B$.H(B$,T)." ".I( B$,L.T):B$.H(B$,H.W)..&B..2660.I&L.Y.PY: ...&V..".."T$;" (Y/N) ";"N...";:. R$..' ... R$."N" . Q.0:...'... R$."Y" . Q.1:.. !'...3030.4'... YR$."" .3130.^'..T$."CLE AR OUT ".MO$(NU)." ".YR$:.3030.L'... Q.0 . ..V'...2080..'&..P.1.31:.Q.0.NR:MS$(P ,Q).SS$:.:...'0..X.6.12:ML$(X).SP$:...': ..450..'D.MB$."N":T$."INCLUDE MEMO BAR": .3030..'N.. Q . MB$."Y":.2170..(X.T$."EN HANCE DATES":.3030.*(B.. Q . .1430.F(L.T $."PRINT IT NOW":.3030.U(V.. Q . .920.Z( ..T$."SAVE CALENDAR TO DISK":.3030..(... Q . .2310..(......
> CLICK IMAGE PREVIEW FOR FULL MODAL