KALENDER
FILE INFORMATION
FILENAME(S): KALENDER
FILE TYPE(S): PRG
FILE SIZE: 9.4K
FIRST SEEN: 2025-11-02 16:57:14
APPEARS ON: 7 disk(s)
FILE HASH
68e9a24bb4251e5588a36cdfaa9bbf4df9b6ad71886e71e0ecb7201161e0b3a1
FOUND ON DISKS (7 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ANWENDUNG | KALENDER | PRG | Treasure Chest - Romfreak | 12 | 0 | DOWNLOAD FILE |
| SUSANNE | KALENDER | PRG | Treasure Chest - ToGuMi | 13 | 4 | DOWNLOAD FILE |
| COMMODORE 64 | KALENDER | PRG | BrainSkull, Leopold Zyka | 8 | 0 | DOWNLOAD FILE |
| SPIELE 9 | KALENDER | PRG | DuncanTwain | 8 | 0 | DOWNLOAD FILE |
| A2A | KALENDER | PRG | DuncanTwain | 11 | 16 | DOWNLOAD FILE |
| C64 HULP 38 2 | KALENDER | PRG | DuncanTwain | 11 | 1 | DOWNLOAD FILE |
| HELMUT WERNER | KALENDER | PRG | DuncanTwain | 21 | 18 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 2A 08 02 00 8F |.......910.*....|
00000010: 20 2A 2A 20 4D 4C 20 53 54 4F 50 20 4B 45 59 20 | ** ML STOP KEY |
00000020: 44 49 53 41 42 4C 45 20 2A 2A 00 55 08 03 00 99 |DISABLE **.U....|
00000030: 22 78 A9 3D 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....|
00000050: 8D 15 03 58 60 00 74 08 04 00 99 22 78 68 68 68 |...X`.t...."xhhh|
00000060: AA 68 A8 68 68 68 68 68 68 68 98 48 8A 48 58 60 |.h.hhhhhhh.H.HX`|
00000070: 31 31 31 22 00 85 08 05 00 99 22 68 68 68 68 68 |111"......"hhhhh|
00000080: 68 68 60 31 22 00 A7 08 06 00 8F 20 2A 2A 20 34 |hh`1"...... ** 4|
00000090: 20 2D 20 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 | - POP ML SUBROU|
000000A0: 54 49 4E 45 20 2A 2A 00 C8 08 0A 00 8F 20 2A 2A |TINE **...... **|
000000B0: 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 20 52 4F |GENERAL INPUT RO|
000000C0: 55 54 49 4E 45 20 2A 2A 00 CE 08 0F 00 3A 00 D4 |UTINE **.....:..|
000000D0: 08 1E 00 3A 00 F0 08 23 00 8F 20 2B 2B 2B 20 49 |...:...#.. +++ I|
000000E0: 4E 50 55 54 20 53 45 43 54 49 4F 4E 20 2B 2B 2B |NPUT SECTION +++|
000000F0: 00 08 09 28 00 97 55 30 2C 30 3A 55 52 24 B2 22 |...(..U0,0:UR$."|
00000100: 22 3A 55 49 24 B2 22 22 00 18 09 2A 00 8B 55 4C |":UI$.""...*..UL|
00000110: B2 30 A7 55 4C B2 38 30 00 22 09 2D 00 97 55 43 |.0.UL.80.".-..UC|
00000120: 2C 30 00 36 09 32 00 A1 55 49 24 3A 8B 55 49 24 |,0.6.2..UI$:.UI$|
00000130: B2 22 22 A7 35 30 00 60 09 37 00 8B 55 49 24 B2 |."".50.`.7..UI$.|
00000140: C7 28 31 33 29 AF C3 28 55 52 24 29 B1 B2 31 A7 |.(13)..(UR$)..1.|
00000150: 97 55 43 2C 31 3A 99 22 20 9D 22 3B 3A 89 38 35 |.UC,1:." .";:.85|
00000160: 00 73 09 3C 00 8B 55 49 24 B2 C7 28 32 30 29 A7 |.s.<..UI$..(20).|
00000170: 31 30 35 00 87 09 3E 00 8B 20 C3 28 55 52 24 29 |105...>.. .(UR$)|
00000180: B2 B1 55 4C A7 35 30 00 AC 09 41 00 8D 31 32 30 |..UL.50...A..120|
00000190: 3A 8F 20 43 48 45 43 4B 20 46 4F 52 20 56 41 4C |:. CHECK FOR VAL|
000001A0: 49 44 20 43 48 41 52 41 43 54 45 52 00 BC 09 46 |ID CHARACTER...F|
000001B0: 00 55 52 24 B2 55 52 24 AA 55 49 24 00 C6 09 4B |.UR$.UR$.UI$...K|
000001C0: 00 99 55 49 24 3B 00 CE 09 50 00 89 35 30 00 F3 |..UI$;...P..50..|
000001D0: 09 55 00 8F 20 2B 2B 2B 20 43 48 45 43 4B 20 46 |.U.. +++ CHECK F|
000001E0: 4F 52 20 48 45 4C 50 20 52 45 51 55 45 53 54 20 |OR HELP REQUEST |
000001F0: 2B 2B 2B 00 1B 0A 5A 00 8B 55 52 24 B2 55 58 24 |+++...Z..UR$.UX$|
00000200: A7 31 39 35 3A 8F 20 45 58 49 54 20 54 4F 20 48 |.195:. EXIT TO H|
00000210: 45 4C 50 20 52 4F 55 54 49 4E 45 00 2A 0A 5F 00 |ELP ROUTINE.*._.|
00000220: 8B 55 46 B2 31 A7 8D 32 34 30 00 37 0A 64 00 55 |.UF.1..240.7.d.U|
00000230: 46 B2 30 3A 99 3A 8E 00 50 0A 66 00 8F 20 2B 2B |F.0:.:..P.f.. ++|
00000240: 20 43 48 45 43 4B 20 44 45 4C 45 54 45 20 2B 2B | CHECK DELETE ++|
00000250: 00 61 0A 69 00 8B C3 28 55 52 24 29 B3 31 A7 35 |.a.i...(UR$).1.5|
00000260: 30 00 79 0A 6E 00 55 52 24 B2 C8 28 55 52 24 2C |0.y.n.UR$..(UR$,|
00000270: C3 28 55 52 24 29 AB 31 29 00 8B 0A 73 00 99 22 |.(UR$).1)...s.."|
00000280: 9D 20 20 9D 9D 22 3B 3A 89 35 30 00 B2 0A 78 00 |. ..";:.50...x.|
00000290: 8F 20 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 56 |. ++ CHECK FOR V|
000002A0: 41 4C 49 44 20 43 48 41 52 41 43 54 45 52 53 20 |ALID CHARACTERS |
000002B0: 2B 2B 00 C4 0A 7D 00 8B C3 28 55 53 24 29 B2 30 |++...}...(US$).0|
000002C0: A7 31 35 30 00 D5 0A 82 00 81 55 53 B2 31 A4 C3 |.150......US.1..|
000002D0: 28 55 53 24 29 00 EC 0A 87 00 8B 55 49 24 B2 CA |(US$)......UI$..|
000002E0: 28 55 53 24 2C 55 53 2C 31 29 A7 8E 00 F2 0A 8C |(US$,US,1)......|
000002F0: 00 82 00 FF 0A 91 00 55 49 24 B2 22 22 3A 8E 00 |.......UI$."":..|
00000300: 1A 0B 96 00 8F 20 2A 2A 20 53 54 41 4E 44 41 52 |..... ** STANDAR|
00000310: 44 20 49 4E 50 55 54 20 2A 2A 00 2B 0B 98 00 8B |D INPUT **.+....|
00000320: C6 28 55 49 24 29 B2 34 36 A7 8E 00 3C 0B 9B 00 |.(UI$).46...<...|
00000330: 8B 55 49 24 B2 C7 28 33 32 29 A7 8E 00 59 0B A0 |.UI$..(32)...Y..|
00000340: 00 8B C6 28 55 49 24 29 B3 34 38 B0 C6 28 55 49 |...(UI$).48..(UI|
00000350: 24 29 B1 35 37 A7 31 37 30 00 5F 0B A5 00 8E 00 |$).57.170._.....|
00000360: 7C 0B AA 00 8B C6 28 55 49 24 29 B3 36 35 B0 C6 ||.....(UI$).65..|
00000370: 28 55 49 24 29 B1 39 30 A7 31 38 30 00 82 0B AF |(UI$).90.180....|
00000380: 00 8E 00 A6 0B B4 00 8B C6 28 55 49 24 29 B3 31 |.........(UI$).1|
00000390: 39 33 B0 C6 28 55 49 24 29 B1 32 31 38 A7 55 49 |93..(UI$).218.UI|
000003A0: 24 B2 22 22 3A 8E 00 C9 0B B9 00 8B C2 28 55 54 |$."":........(UT|
000003B0: 29 B2 55 55 25 A7 55 49 24 B2 C7 28 C6 28 55 49 |).UU%.UI$..(.(UI|
000003C0: 24 29 AB 31 32 38 29 3A 8E 00 CF 0B BB 00 8E 00 |$).128):........|
000003D0: DC 0B BE 00 55 49 24 B2 22 22 3A 8E 00 01 0C C3 |....UI$."":.....|
000003E0: 00 55 46 B2 31 3A 8F 20 2B 2B 2B 20 48 45 4C 50 |.UF.1:. +++ HELP|
000003F0: 20 52 4F 55 54 49 4E 45 20 45 58 49 54 20 2B 2B | ROUTINE EXIT ++|
00000400: 2B 00 0A 0C C5 00 8D 32 35 30 00 13 0C C8 00 8D |+......250......|
00000410: 32 34 35 00 32 0C CD 00 81 55 51 B2 55 42 A4 28 |245.2....UQ.UB.(|
00000420: 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 AB |U2%.256.U1%.U3%.|
00000430: 32 29 00 4E 0C D2 00 55 51 25 28 55 51 AB 55 42 |2).N...UQ%(UQ.UB|
00000440: 29 B2 C2 28 55 51 29 3A 82 3A 99 22 93 22 00 61 |)..(UQ):.:.".".a|
00000450: 0C D7 00 55 5A B2 31 3A 55 56 25 B2 C2 28 55 54 |...UZ.1:UV%..(UT|
00000460: 29 00 6A 0C D8 00 89 33 30 30 00 AE 0C D9 00 55 |).j....300.....U|
00000470: 5A B2 30 3A 55 53 24 B2 55 4A 24 3A 55 47 24 B2 |Z.0:US$.UJ$:UG$.|
00000480: 55 4B 24 3A 55 50 B2 55 4A 3A 55 4C B2 55 4B 3A |UK$:UP.UJ:UL.UK:|
00000490: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532|
000004A0: 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 E3 |81,6:.53280,14..|
000004B0: 0C DC 00 55 54 24 B2 55 4C 24 3A 99 22 93 22 3B |...UT$.UL$:.".";|
000004C0: 3A 97 55 54 2C 55 56 25 3A 81 55 51 B2 55 42 A4 |:.UT,UV%:.UQ.UB.|
000004D0: 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 |(U2%.256.U1%.U3%|
000004E0: AB 33 29 00 F8 0C E1 00 97 55 51 2C 55 51 25 28 |.3)......UQ,UQ%(|
000004F0: 55 51 AB 55 42 29 3A 82 00 04 0D E6 00 97 55 31 |UQ.UB):.......U1|
00000500: 2C 55 31 25 00 10 0D E8 00 97 55 32 2C 55 32 25 |,U1%......U2,U2%|
00000510: 00 1C 0D E9 00 97 55 34 2C 55 34 25 00 2A 0D EA |......U4,U4%.*..|
00000520: 00 97 55 33 2C 55 33 25 AB 31 00 32 0D EB 00 89 |..U3,U3%.1.2....|
00000530: 33 35 00 64 0D F0 00 55 44 25 B2 28 28 55 32 25 |35.d...UD%.((U2%|
00000540: AC 32 35 36 AA 55 31 25 AA 55 33 25 29 AB 55 42 |.256.U1%.U3%).UB|
00000550: 29 AD 34 30 3A 99 C8 28 55 44 24 2C 55 44 25 AA |).40:..(UD$,UD%.|
00000560: 31 29 3A 8E 00 9F 0D F5 00 99 C8 28 55 44 24 2C |1):........(UD$,|
00000570: 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 |24);" |
00000580: 20 20 20 20 20 20 20 20 20 20 20 12 20 48 45 4C | . HEL|
00000590: 50 20 43 4F 4D 49 4E 47 20 92 20 20 22 3A 8E 00 |P COMING . ":..|
000005A0: CB 0D FA 00 55 31 25 B2 C2 28 55 31 29 3A 55 32 |....U1%..(U1):U2|
000005B0: 25 B2 C2 28 55 32 29 3A 55 33 25 B2 C2 28 55 33 |%..(U2):U3%..(U3|
000005C0: 29 3A 55 34 25 B2 C2 28 55 34 29 00 F3 0D FB 00 |):U4%..(U4).....|
000005D0: 55 4A 24 B2 55 53 24 3A 55 4B 24 B2 55 47 24 3A |UJ$.US$:UK$.UG$:|
000005E0: 55 4C 24 B2 55 54 24 3A 55 4A B2 55 50 3A 55 4B |UL$.UT$:UJ.UP:UK|
000005F0: B2 55 4C 00 F9 0D FF 00 8E 00 0A 0E 2C 01 8F 20 |.UL.........,.. |
00000600: 2A 2A 20 4D 45 4E 55 20 2A 2A 00 10 0E 2D 01 3A |** MENU **...-.:|
00000610: 00 3F 0E 2E 01 99 22 93 22 3A 97 55 54 2C 55 55 |.?....".":.UT,UU|
00000620: 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 |%:..(50003).0..5|
00000630: 33 32 38 31 2C 39 3A 97 35 33 32 38 30 2C 38 00 |3281,9:.53280,8.|
00000640: 45 0E 2F 01 3A 00 62 0E 31 01 99 22 13 20 20 20 |E./.:.b.1..". |
00000650: 20 20 20 20 20 20 20 20 20 20 20 20 20 4D 45 4E | MEN|
00000660: 55 22 00 91 0E 36 01 99 22 20 2D 2D 2D 2D 2D 2D |U"...6.." ------|
00000670: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000690: 22 00 B9 0E 3B 01 99 22 11 11 20 20 20 20 20 20 |"...;..".. |
000006A0: 20 31 2E 20 20 20 42 45 47 49 4E 20 43 41 4C 45 | 1. BEGIN CALE|
000006B0: 4E 44 41 52 20 20 20 20 22 00 E0 0E 40 01 99 22 |NDAR "...@.."|
000006C0: 11 11 20 20 20 20 20 20 20 32 2E 20 20 20 55 53 |.. 2. US|
000006D0: 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 |ER INSTRUCTIONS"|
000006E0: 00 FC 0E 4F 01 99 22 11 11 20 20 20 20 20 20 20 |...O..".. |
000006F0: 33 2E 20 20 20 51 55 49 54 11 11 22 00 2B 0F 54 |3. QUIT..".+.T|
00000700: 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.." ------------|
00000710: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000720: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 56 0F 59 01 |----------".V.Y.|
00000730: 99 22 11 11 20 20 20 20 20 20 20 50 52 45 53 53 |.".. PRESS|
00000740: 20 41 20 4E 55 4D 42 45 52 20 4B 45 59 20 28 31 | A NUMBER KEY (1|
00000750: 2D 33 29 20 22 3B 00 7D 0F 5E 01 55 4C B2 31 3A |-3) ";.}.^.UL.1:|
00000760: 55 53 24 B2 22 31 32 33 22 3A 8D 33 35 3A 8F 20 |US$."123":.35:. |
00000770: 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 00 88 0F |INPUT ROUTINE...|
00000780: 60 01 55 53 24 B2 22 22 00 A1 0F 63 01 91 C5 28 |`.US$.""...c...(|
00000790: 55 52 24 29 8D 31 30 30 30 2C 34 30 30 2C 33 39 |UR$).1000,400,39|
000007A0: 36 00 AA 0F 68 01 89 33 30 30 00 D1 0F 8B 01 8F |6...h..300......|
000007B0: 20 2A 2A 20 52 45 2D 45 4E 41 42 4C 45 20 53 54 | ** RE-ENABLE ST|
000007C0: 4F 50 20 4B 45 59 20 41 4E 44 20 45 4E 44 20 2A |OP KEY AND END *|
000007D0: 2A 00 00 10 8C 01 8B C2 28 35 30 30 30 33 29 B3 |*.......(50003).|
000007E0: B1 31 AF C2 28 35 30 30 30 33 29 B3 B1 31 36 30 |.1..(50003)..160|
000007F0: AF C2 28 35 30 30 30 33 29 B3 B1 30 A7 33 39 39 |..(50003)..0.399|
00000800: 00 2A 10 8D 01 9E 55 55 AA 37 31 3A 8B C2 28 35 |.*....UU.71:..(5|
00000810: 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 |0003).0..53281,6|
00000820: 3A 97 35 33 32 38 30 2C 31 34 00 36 10 8E 01 99 |:.53280,14.6....|
00000830: 22 9A 93 22 3A 80 00 41 10 8F 01 8D 38 37 35 3A |"..":..A....875:|
00000840: 8E 00 62 10 90 01 8F 20 2A 2A 20 53 54 55 44 45 |..b.... ** STUDE|
00000850: 4E 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 |NT INSTRUCTIONS |
00000860: 2A 2A 00 73 10 95 01 99 22 93 22 3A 97 55 54 2C |**.s....".":.UT,|
00000870: 55 4C 25 00 93 10 9A 01 55 47 24 B2 22 D5 53 45 |UL%.....UG$.".SE|
00000880: 52 20 C9 4E 53 54 52 2E 22 3A 55 50 B2 30 3A 8D |R .NSTR.":UP.0:.|
00000890: 38 35 30 00 C2 10 B1 01 99 22 11 20 D4 48 49 53 |850......". .HIS|
000008A0: 20 49 53 20 41 A0 C3 41 4C 45 4E 44 41 52 A0 50 | IS A..ALENDAR.P|
000008B0: 52 4F 47 52 41 4D 20 57 49 54 48 A0 57 48 49 43 |ROGRAM WITH.WHIC|
000008C0: 48 22 00 F0 10 B3 01 99 22 11 20 59 4F 55 A0 43 |H"......". YOU.C|
000008D0: 41 4E A0 53 45 45 A0 41 4E 59 A0 59 45 41 52 27 |AN.SEE.ANY.YEAR'|
000008E0: 53 A0 26 20 41 4E 59 A0 4D 4F 4E 54 48 27 53 22 |S.& ANY.MONTH'S"|
000008F0: 00 1D 11 B5 01 99 22 11 20 C3 41 4C 45 4E 44 41 |......". .ALENDA|
00000900: 52 2E 20 D7 48 45 4E A0 41 53 4B 45 44 A0 A0 46 |R. .HEN.ASKED..F|
00000910: 4F 52 A0 54 48 45 A0 59 45 41 52 2C 22 00 47 11 |OR.THE.YEAR,".G.|
00000920: B7 01 99 22 11 20 45 4E 54 45 52 A0 49 54 A0 41 |...". ENTER.IT.A|
00000930: 53 A0 41 A0 46 4F 55 52 A0 44 49 47 49 54 A0 4E |S.A.FOUR.DIGIT.N|
00000940: 55 4D 42 45 52 2E 22 00 5C 11 B8 01 99 22 11 20 |UMBER.".\....". |
00000950: C5 2E C7 2E 20 12 31 39 38 32 92 22 00 88 11 B9 |.... .1982."....|
00000960: 01 99 22 11 20 D7 48 45 4E A0 41 53 4B 45 44 A0 |..". .HEN.ASKED.|
00000970: 46 4F 52 A0 54 48 45 A0 4D 4F 4E 54 48 2C 20 45 |FOR.THE.MONTH, E|
00000980: 4E 54 45 52 A0 49 54 22 00 B5 11 BA 01 99 22 11 |NTER.IT"......".|
00000990: 20 45 49 54 48 45 52 20 49 4E A0 57 4F 52 44 53 | EITHER IN.WORDS|
000009A0: A0 4F 52 A0 49 4E A0 4E 55 4D 42 45 52 53 20 C9 |.OR.IN.NUMBERS .|
000009B0: 2E C5 2E 3A 22 00 E5 11 BB 01 99 22 11 20 D4 48 |...:"......". .H|
000009C0: 49 53 A0 50 52 4F 47 52 41 4D 20 57 49 4C 4C 20 |IS.PROGRAM WILL |
000009D0: 4F 4E 4C 59 20 57 4F 52 4B 20 41 43 43 55 52 41 |ONLY WORK ACCURA|
000009E0: 54 45 4C 59 22 00 04 12 BC 01 99 22 11 20 46 4F |TELY"......". FO|
000009F0: 52 20 59 45 41 52 53 20 41 46 54 45 52 20 31 37 |R YEARS AFTER 17|
00000A00: 35 32 2E 22 00 12 12 BD 01 8D 38 33 35 3A 8D 38 |52."......835:.8|
00000A10: 35 30 00 33 12 C3 01 99 22 11 20 2A 20 CA C1 CE |50.3....". * ...|
00000A20: D5 C1 D2 D9 20 20 CF D2 20 20 20 31 22 3B 22 20 |.... .. 1";" |
00000A30: 20 22 3B 00 50 12 C5 01 99 22 2A 20 CA D5 CC D9 | ";.P...."* ....|
00000A40: 20 20 20 20 20 20 20 CF D2 20 20 20 20 37 22 3B | .. 7";|
00000A50: 00 71 12 C7 01 99 22 11 20 2A 20 C6 C5 C2 D2 D5 |.q....". * .....|
00000A60: C1 D2 D9 20 CF D2 20 20 20 32 22 3B 22 20 20 22 |... .. 2";" "|
00000A70: 3B 00 8E 12 C9 01 99 22 2A 20 C1 D5 C7 D5 D3 D4 |;......"* ......|
00000A80: 20 20 20 20 20 CF D2 20 20 20 20 38 22 3B 00 AF | .. 8";..|
00000A90: 12 CB 01 99 22 11 20 2A 20 CD C1 D2 C3 C8 20 20 |....". * ..... |
00000AA0: 20 20 CF D2 20 20 20 33 22 3B 22 20 20 22 3B 00 | .. 3";" ";.|
00000AB0: CC 12 CD 01 99 22 2A 20 D3 C5 D0 D4 C5 CD C2 C5 |....."* ........|
00000AC0: D2 20 20 CF D2 20 20 20 20 39 22 3B 00 ED 12 CF |. .. 9";....|
00000AD0: 01 99 22 11 20 2A 20 C1 D0 D2 C9 CC 20 20 20 20 |..". * ..... |
00000AE0: CF D2 20 20 20 34 22 3B 22 20 20 22 3B 00 0A 13 |.. 4";" ";...|
00000AF0: D1 01 99 22 2A 20 CF C3 D4 CF C2 C5 D2 20 20 20 |..."* ....... |
00000B00: 20 CF D2 20 20 20 31 30 22 3B 00 2B 13 D3 01 99 | .. 10";.+....|
00000B10: 22 11 20 2A 20 CD C1 D9 20 20 20 20 20 20 CF D2 |". * ... ..|
00000B20: 20 20 20 35 22 3B 22 20 20 22 3B 00 48 13 D5 01 | 5";" ";.H...|
00000B30: 99 22 2A 20 CE CF D6 C5 CD C2 C5 D2 20 20 20 CF |."* ........ .|
00000B40: D2 20 20 20 31 31 22 3B 00 69 13 D7 01 99 22 11 |. 11";.i....".|
00000B50: 20 2A 20 CA D5 CE C5 20 20 20 20 20 CF D2 20 20 | * .... .. |
00000B60: 20 36 22 3B 22 20 20 22 3B 00 86 13 D9 01 99 22 | 6";" ";......"|
00000B70: 2A 20 C4 C5 C3 C5 CD C2 C5 D2 20 20 20 CF D2 20 |* ........ .. |
00000B80: 20 20 31 32 22 3B 00 B5 13 DD 01 99 22 11 20 C9 | 12";......". .|
00000B90: 46 A0 59 4F 55 A0 57 41 4E 54 A0 54 48 45 A0 57 |F.YOU.WANT.THE.W|
00000BA0: 48 4F 4C 45 A0 59 45 41 52 27 53 A0 43 41 4C 45 |HOLE.YEAR'S.CALE|
00000BB0: 4E 44 41 52 22 00 DE 13 DF 01 99 22 11 20 54 48 |NDAR"......". TH|
00000BC0: 45 4E A0 45 4E 54 45 52 A0 46 4F 52 A0 54 48 45 |EN.ENTER.FOR.THE|
00000BD0: A0 4D 4F 4E 54 48 20 12 C1 CC CC 92 2E 22 00 0D |.MONTH ......"..|
00000BE0: 14 E1 01 99 22 11 20 C5 4E 54 45 52 A0 59 4F 55 |....". .NTER.YOU|
00000BF0: 52 A0 4D 4F 4E 54 48 A0 49 4E A0 46 55 4C 4C A0 |R.MONTH.IN.FULL.|
00000C00: 49 46 A0 59 4F 55 A0 45 4E 54 45 52 22 00 24 14 |IF.YOU.ENTER".$.|
00000C10: E2 01 99 22 11 20 49 54 20 41 53 A0 41 A0 57 4F |...". IT AS.A.WO|
00000C20: 52 44 2E 22 00 32 14 E5 01 8D 38 33 35 3A 8D 38 |RD.".2....835:.8|
00000C30: 35 30 00 5F 14 F4 01 99 22 11 11 CE CF D4 C5 3A |50._...."......:|
00000C40: 20 C1 4C 57 41 59 53 A0 50 52 45 53 53 A0 54 48 | .LWAYS.PRESS.TH|
00000C50: 45 A0 3C D2 C5 D4 D5 D2 CE 3E 20 4B 45 59 22 00 |E.<......> KEY".|
00000C60: 82 14 F6 01 99 22 11 20 41 46 54 45 52 A0 45 4E |.....". AFTER.EN|
00000C70: 54 45 52 49 4E 47 A0 41 4E A0 41 4E 53 57 45 52 |TERING.AN.ANSWER|
00000C80: 2E 22 00 B0 14 F7 01 99 22 11 11 20 C9 46 A0 41 |."......".. .F.A|
00000C90: 54 A0 41 4E 59 A0 54 49 4D 45 A0 59 4F 55 A0 57 |T.ANY.TIME.YOU.W|
00000CA0: 4F 55 4C 44 A0 4C 49 4B 45 A0 54 4F A0 47 4F 22 |OULD.LIKE.TO.GO"|
00000CB0: 00 DC 14 F9 01 99 22 11 20 42 41 43 4B A0 54 4F |......". BACK.TO|
00000CC0: A0 54 48 45 A0 CD C5 CE D5 2C 45 4E 54 45 52 20 |.THE.....,ENTER |
00000CD0: C8 20 3C D2 C5 D4 D5 D2 CE 3E 2E 22 00 EA 14 FE |. <......>."....|
00000CE0: 01 8D 38 33 35 3A 8D 38 35 30 00 18 15 12 02 99 |..835:.850......|
00000CF0: 22 11 11 20 20 20 20 20 20 D4 4F 20 54 48 45 20 |".. .O THE |
00000D00: 42 45 53 54 20 4F 46 20 4F 55 52 20 4B 4E 4F 57 |BEST OF OUR KNOW|
00000D10: 4C 45 44 47 45 2C 11 22 00 41 15 14 02 99 22 20 |LEDGE,.".A...." |
00000D20: 20 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 49 | THIS PROGRAM I|
00000D30: 53 20 49 4E 20 54 48 45 20 50 55 42 4C 49 43 11 |S IN THE PUBLIC.|
00000D40: 22 00 6D 15 16 02 99 22 20 20 20 44 4F 4D 41 49 |".m...." DOMAI|
00000D50: 4E 2E 20 20 C9 46 20 54 48 49 53 20 49 53 20 4E |N. .F THIS IS N|
00000D60: 4F 54 20 54 48 45 20 43 41 53 45 11 22 00 8A 15 |OT THE CASE."...|
00000D70: 18 02 99 22 20 20 20 50 4C 45 41 53 45 20 43 4F |..." PLEASE CO|
00000D80: 4E 54 41 43 54 3A 11 11 11 22 00 B4 15 1A 02 99 |NTACT:..."......|
00000D90: 22 20 20 20 20 20 20 C3 4F 4D 4D 4F 44 4F 52 45 |" .OMMODORE|
00000DA0: 20 C2 55 53 49 4E 45 53 53 20 CD 41 43 48 49 4E | .USINESS .ACHIN|
00000DB0: 45 53 11 22 00 D7 15 1C 02 99 22 20 20 20 20 20 |ES."......" |
00000DC0: 20 20 20 20 20 33 33 37 30 20 D0 48 41 52 4D 41 | 3370 .HARMA|
00000DD0: 43 59 20 C1 56 45 2E 00 FB 15 1E 02 99 22 20 20 |CY .VE......." |
00000DE0: 20 20 20 20 20 20 20 20 C1 47 49 4E 43 4F 55 52 | .GINCOUR|
00000DF0: 54 2C 20 CF 4E 54 41 52 49 4F 22 00 1D 16 20 02 |T, .NTARIO"... .|
00000E00: 99 22 20 20 20 20 20 20 20 20 20 20 C3 41 4E 41 |." .ANA|
00000E10: 44 41 20 20 20 CD 31 D7 20 32 CB 34 22 00 3D 16 |DA .1. 2.4".=.|
00000E20: 22 02 99 22 20 20 20 20 20 20 20 20 20 20 28 34 |".." (4|
00000E30: 31 36 29 20 34 39 39 2D 34 32 39 32 22 00 4D 16 |16) 499-4292".M.|
00000E40: 24 02 8D 20 38 33 35 3A 8D 20 38 35 30 00 77 16 |$.. 835:. 850.w.|
00000E50: 26 02 99 22 20 20 20 20 20 11 11 D0 52 4F 47 52 |&.." ...ROGR|
00000E60: 41 4D 20 CE 41 4D 45 3A 20 C3 41 4C 45 4E 44 41 |AM .AME: .ALENDA|
00000E70: 52 20 20 20 20 20 11 00 A0 16 28 02 99 22 20 20 |R ....(.." |
00000E80: 20 20 20 D7 52 49 54 54 45 4E 20 C2 59 20 20 3A | .RITTEN .Y :|
00000E90: 20 CF 2E 20 CE 2E 20 CE 41 4D 45 4B 49 20 20 11 | .. .. .AMEKI .|
00000EA0: 00 C4 16 2A 02 99 22 20 20 20 20 20 D5 50 47 52 |...*.." .PGR|
00000EB0: 41 44 45 44 20 C2 59 20 3A 20 20 20 20 20 20 20 |ADED .Y : |
00000EC0: 20 20 20 11 00 EF 16 2C 02 99 22 20 20 20 20 20 | ....,.." |
00000ED0: 11 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 |..HIS PROGRAM WI|
00000EE0: 4C 4C 20 52 55 4E 20 4F 4E 20 41 4E 59 11 11 00 |LL RUN ON ANY...|
00000EF0: 16 17 2E 02 99 22 20 20 20 20 20 20 20 20 20 C2 |....." .|
00000F00: C1 D3 C9 C3 A0 32 2E 30 20 D0 C5 D4 20 C3 CF CD |.....2.0 ... ...|
00000F10: D0 D5 D4 C5 D2 11 00 3D 17 30 02 99 22 20 20 20 |.......=.0.." |
00000F20: 20 20 20 20 20 20 C2 C1 D3 C9 C3 20 34 2E 30 20 | ..... 4.0 |
00000F30: D0 C5 D4 A0 C3 CF CD D0 D5 D4 C5 D2 11 00 5F 17 |.............._.|
00000F40: 32 02 99 22 20 20 20 20 20 20 20 20 20 38 30 33 |2.." 803|
00000F50: 32 20 C3 C2 CD 20 C3 CF CD D0 D5 D4 C5 D2 11 00 |2 ... ..........|
00000F60: 84 17 34 02 99 22 20 20 20 20 20 20 20 20 20 C3 |..4.." .|
00000F70: CF CD CD CF C4 CF D2 C5 20 36 34 20 C3 CF CD D0 |........ 64 ....|
00000F80: D5 D4 C5 D2 00 8D 17 36 02 8D 38 33 35 00 A2 17 |.......6..835...|
00000F90: 4E 02 8B 55 5A B2 31 A7 9E 31 31 31 35 3A 89 32 |N..UZ.1..1115:.2|
00000FA0: 31 37 00 A8 17 57 02 8E 00 CD 17 BC 02 8F 20 2A |17...W........ *|
00000FB0: 2A 20 54 4F 20 55 53 45 20 38 30 33 32 20 4C 4F |* TO USE 8032 LO|
00000FC0: 41 44 20 43 42 4D 34 30 33 32 20 2A 2A 00 03 18 |AD CBM4032 **...|
00000FD0: C6 02 99 22 93 11 11 11 05 42 45 46 4F 52 45 20 |...".....BEFORE |
00000FE0: 52 55 4E 4E 49 4E 47 20 54 48 49 53 20 50 52 4F |RUNNING THIS PRO|
00000FF0: 47 52 41 4D 20 4F 4E 20 41 4E 20 38 30 33 32 20 |GRAM ON AN 8032 |
00001000: 20 11 11 00 39 18 D0 02 99 22 20 20 20 20 20 20 | ...9...." |
00001010: 4C 4F 41 44 20 54 48 45 20 27 43 42 4D 20 34 30 |LOAD THE 'CBM 40|
00001020: 33 32 27 20 50 52 4F 47 52 41 4D 11 11 11 11 11 |32' PROGRAM.....|
00001030: 11 11 11 11 11 11 11 11 22 00 44 18 DA 02 9E 55 |........".D....U|
00001040: 55 AA 37 31 00 4A 18 E4 02 80 00 6A 18 20 03 8F |U.71.J.....j. ..|
00001050: 20 2A 2A 20 54 20 49 20 54 20 4C 20 45 20 20 20 | ** T I T L E |
00001060: 50 20 41 20 47 20 45 20 2A 2A 00 9E 18 22 03 99 |P A G E **..."..|
00001070: 22 93 11 1D 05 22 3B 3A 97 55 54 2C 55 55 25 3A |"....";:.UT,UU%:|
00001080: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532|
00001090: 38 30 2C 31 34 3A 97 35 33 32 38 31 2C 36 00 B4 |80,14:.53281,6..|
000010A0: 18 24 03 81 49 B2 31 A4 33 38 3A 99 22 12 A6 92 |.$..I.1.38:."...|
000010B0: 22 3B 3A 82 00 CC 18 26 03 81 49 B2 31 A4 32 32 |";:....&..I.1.22|
000010C0: 3A 99 22 11 9D 12 A6 92 22 3B 3A 82 00 E4 18 28 |:.".....";:....(|
000010D0: 03 81 49 B2 31 A4 33 37 3A 99 22 9D 9D 12 A6 92 |..I.1.37:.".....|
000010E0: 22 3B 3A 82 00 FC 18 2A 03 81 49 B2 31 A4 32 32 |";:....*..I.1.22|
000010F0: 3A 99 22 91 9D 12 A6 92 22 3B 3A 82 00 21 19 2C |:.".....";:..!.,|
00001100: 03 99 22 13 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D |..".............|
00001110: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 |.............. |
00001120: 92 00 43 19 2E 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D |..C...."........|
00001130: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 |........... . .|
00001140: 20 92 A9 00 64 19 30 03 99 22 1D 1D 1D 1D 1D 1D | ...d.0.."......|
00001150: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 |............. . |
00001160: 20 12 A3 DF 00 82 19 32 03 99 22 1D 1D 1D 1D 1D | ......2..".....|
00001170: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 |............... |
00001180: 20 92 00 AA 19 34 03 99 22 11 11 1D 1D 1D 1D 1D | ....4..".......|
00001190: 1D 1D 1D 1D 1D 1D 1D 43 20 4F 20 4D 20 4D 20 4F |.......C O M M O|
000011A0: 20 44 20 4F 20 52 20 45 11 11 00 CD 19 36 03 99 | D O R E.....6..|
000011B0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
000011C0: 45 44 55 43 41 54 49 4F 4E 41 4C 11 11 00 EC 19 |EDUCATIONAL.....|
000011D0: 38 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |8.."............|
000011E0: 1D 1D 1D 1D 53 4F 46 54 57 41 52 45 00 07 1A 3A |....SOFTWARE...:|
000011F0: 03 8F 20 2A 2A 20 43 4F 4D 4D 4F 44 4F 52 45 20 |.. ** COMMODORE |
00001200: 4C 4F 47 4F 20 2A 2A 00 3F 1A 3B 03 99 C8 28 55 |LOGO **.?.;...(U|
00001210: 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D |D$,24);"........|
00001220: 1D 12 50 52 45 53 53 20 53 50 41 43 45 20 42 41 |..PRESS SPACE BA|
00001230: 52 20 4F 52 20 57 41 49 54 92 22 3A 49 B2 30 00 |R OR WAIT.":I.0.|
00001240: 61 1A 3C 03 A1 41 24 3A 8B 41 24 B3 B1 22 20 22 |a.<..A$:.A$.." "|
00001250: A7 49 B2 49 AA 31 3A 8B 49 B3 32 35 30 A7 38 32 |.I.I.1:.I.250.82|
00001260: 38 00 85 1A 3E 03 54 31 24 B2 22 22 3A 54 32 24 |8...>.T1$."":T2$|
00001270: B2 22 22 3A 54 33 24 B2 22 22 3A 54 34 24 B2 22 |."":T3$."":T4$."|
00001280: 22 3A 49 B2 30 00 8E 1A 40 03 89 33 30 30 00 AA |":I.0...@..300..|
00001290: 1A 43 03 8F 20 2A 2A 20 53 50 41 43 45 20 42 41 |.C.. ** SPACE BA|
000012A0: 52 20 50 52 45 53 53 20 2A 2A 00 E5 1A 48 03 97 |R PRESS **...H..|
000012B0: 55 4F 2C 30 3A 99 C8 28 55 44 24 2C 32 34 29 3B |UO,0:..(UD$,24);|
000012C0: 22 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 |".......PRESS SP|
000012D0: 41 43 45 20 42 41 52 20 54 4F 20 43 4F 4E 54 49 |ACE BAR TO CONTI|
000012E0: 4E 55 45 92 22 00 FC 1A 4C 03 A1 55 49 24 3A 8B |NUE."...L..UI$:.|
000012F0: 55 49 24 B3 B1 22 20 22 A7 38 34 34 00 02 1B 4E |UI$.." ".844...N|
00001300: 03 8E 00 22 1B 52 03 8F 20 2A 2A 20 50 41 47 45 |...".R.. ** PAGE|
00001310: 20 44 45 53 49 47 4E 20 52 4F 55 54 49 4E 45 20 | DESIGN ROUTINE |
00001320: 2A 2A 00 2E 1B 54 03 55 50 B2 55 50 AA 31 00 52 |**...T.UP.UP.1.R|
00001330: 1B 57 03 99 22 93 22 C8 28 55 54 24 AA 55 50 24 |.W..".".(UT$.UP$|
00001340: 2C 32 31 29 3B C9 28 55 50 24 AA 55 47 24 2C 31 |,21);.(UP$.UG$,1|
00001350: 38 29 00 81 1B 5C 03 99 22 20 2D 2D 2D 2D 2D 2D |8)...\.." ------|
00001360: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001370: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001380: 22 00 90 1B 60 03 8B 55 48 B3 B1 30 A7 38 37 30 |"...`..UH..0.870|
00001390: 00 C4 1B 61 03 99 C8 28 55 44 24 2C 32 34 29 3B |...a...(UD$,24);|
000013A0: C8 28 55 50 24 2C 37 29 3B 22 48 45 4C 50 20 2D |.(UP$,7);"HELP -|
000013B0: 20 50 52 45 53 53 20 20 20 48 20 3C 52 45 54 55 | PRESS H <RETU|
000013C0: 52 4E 3E 22 00 D5 1B 66 03 55 48 B2 30 3A 99 22 |RN>"...f.UH.0:."|
000013D0: 13 11 22 3A 8E 00 F4 1B 6B 03 8F 20 2A 2A 20 50 |..":....k.. ** P|
000013E0: 4C 45 41 53 45 20 57 41 49 54 20 52 45 4D 41 52 |LEASE WAIT REMAR|
000013F0: 4B 20 2A 2A 00 2A 1C 70 03 99 C8 28 55 44 24 2C |K **.*.p...(UD$,|
00001400: 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 |24);" |
00001410: 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 53 |ONE MOMENT PLEAS|
00001420: 45 2E 2E 2E 20 20 20 20 20 22 00 30 1C 75 03 8E |E... ".0.u..|
00001430: 00 4D 1C 84 03 8F 20 2A 2A 20 53 45 54 20 55 50 |.M.... ** SET UP|
00001440: 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 98 1C | VARIABLES **...|
00001450: 85 03 55 58 24 B2 22 48 22 3A 86 55 51 25 28 31 |..UX$."H":.UQ%(1|
00001460: 30 30 30 29 3A 55 42 B2 33 32 37 36 38 3A 55 31 |000):UB.32768:U1|
00001470: B2 31 39 36 3A 55 32 B2 31 39 37 3A 55 33 B2 31 |.196:U2.197:U3.1|
00001480: 39 38 3A 55 34 B2 32 31 36 3A 55 43 B2 31 36 37 |98:U4.216:UC.167|
00001490: 3A 55 55 B2 31 30 32 34 00 D6 1C 86 03 55 54 B2 |:UU.1024.....UT.|
000014A0: 35 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 4C 25 |59468:UU%.12:UL%|
000014B0: B2 31 34 3A 55 50 25 B2 31 31 34 36 3A 55 4D B2 |.14:UP%.1146:UM.|
000014C0: 33 32 37 36 38 3A 55 4F B2 31 35 38 3A 97 20 35 |32768:UO.158:. 5|
000014D0: 30 30 30 33 2C 30 00 19 1D 87 03 8B C2 28 35 30 |0003,0.......(50|
000014E0: 30 30 33 29 B2 30 A7 55 42 B2 31 30 32 34 3A 55 |003).0.UB.1024:U|
000014F0: 31 B2 32 30 39 3A 55 32 B2 32 31 30 3A 55 33 B2 |1.209:U2.210:U3.|
00001500: 32 31 31 3A 55 34 B2 32 31 34 3A 55 43 B2 32 30 |211:U4.214:UC.20|
00001510: 34 3A 55 55 B2 32 30 34 38 00 58 1D 88 03 8B C2 |4:UU.2048.X.....|
00001520: 28 35 30 30 30 33 29 B2 30 A7 55 54 B2 35 33 32 |(50003).0.UT.532|
00001530: 37 32 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 32 33 |72:UU%.21:UL%.23|
00001540: 3A 55 50 25 B2 32 31 33 39 3A 55 4D B2 31 30 32 |:UP%.2139:UM.102|
00001550: 34 3A 55 4F B2 31 39 38 00 7C 1D 89 03 55 44 24 |4:UO.198.|...UD$|
00001560: B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00001570: 11 11 11 11 11 11 11 11 11 11 11 22 00 AE 1D 8A |..........."....|
00001580: 03 55 50 24 B2 22 20 20 20 20 20 20 20 20 20 20 |.UP$." |
00001590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000015A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 FC | "..|
000015B0: 1D 8B 03 55 54 24 B2 22 20 C3 C1 CC C5 CE C4 C1 |...UT$." .......|
000015C0: D2 20 20 20 20 20 A0 A0 A0 A0 A0 22 3A 8F 20 50 |. .....":. P|
000015D0: 4C 41 43 45 20 50 52 4F 47 52 41 4D 20 54 49 54 |LACE PROGRAM TIT|
000015E0: 4C 45 20 48 45 52 45 20 21 21 21 21 21 21 21 21 |LE HERE !!!!!!!!|
000015F0: 21 21 21 21 21 21 21 21 21 2A 2A 2A 00 02 1E 8C |!!!!!!!!!***....|
00001600: 03 8E 00 1C 1E 8E 03 8F 20 2A 2A 20 53 45 54 20 |........ ** SET |
00001610: 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 25 1E 93 |VARIABLES **.%..|
00001620: 03 8D 39 30 30 00 40 1E 98 03 8F 20 2A 2A 20 43 |..900.@.... ** C|
00001630: 48 45 43 4B 20 46 4F 52 20 38 30 33 32 20 2A 2A |HECK FOR 8032 **|
00001640: 00 5E 1E 9D 03 99 22 93 22 3A 99 22 A0 22 3A 8F |.^....".":.".":.|
00001650: 20 53 48 49 46 54 45 44 20 53 50 41 43 45 00 75 | SHIFTED SPACE.u|
00001660: 1E A2 03 8B C2 28 55 42 AA 34 30 29 B3 B1 39 36 |.....(UB.40)..96|
00001670: A7 8D 37 30 30 00 8E 1E A3 03 8F 20 2A 2A 20 4D |..700...... ** M|
00001680: 45 4D 4F 52 59 20 43 48 45 43 4B 20 2A 2A 00 A2 |EMORY CHECK **..|
00001690: 1E A4 03 8B 20 B8 28 30 29 B1 32 30 30 30 A7 39 |.... .(0).2000.9|
000016A0: 33 37 00 D0 1E A5 03 99 22 93 11 11 05 54 48 49 |37......"....THI|
000016B0: 53 20 4D 41 43 48 49 4E 45 20 44 4F 45 53 20 4E |S MACHINE DOES N|
000016C0: 4F 54 20 48 41 56 45 20 45 4E 4F 55 47 48 11 22 |OT HAVE ENOUGH."|
000016D0: 00 F4 1E A6 03 99 22 4D 45 4D 4F 52 59 20 54 4F |......"MEMORY TO|
000016E0: 20 52 55 4E 20 54 48 49 53 20 50 52 4F 47 52 41 | RUN THIS PROGRA|
000016F0: 4D 20 21 22 00 FF 1E A7 03 9E 55 55 AA 37 31 00 |M !"......UU.71.|
00001700: 05 1F A8 03 80 00 1F 1F A9 03 99 22 93 05 22 3A |..........."..":|
00001710: 8B C2 28 35 30 30 30 33 29 B2 30 A7 39 36 32 00 |..(50003).0.962.|
00001720: 4E 1F AC 03 8F 20 2A 2A 20 42 41 53 49 43 20 32 |N.... ** BASIC 2|
00001730: 2E 30 20 20 4F 52 20 20 34 2E 30 20 20 4F 52 20 |.0 OR 4.0 OR |
00001740: 20 43 2D 36 34 20 53 45 54 55 50 20 2A 2A 00 8C | C-64 SETUP **..|
00001750: 1F AD 03 97 31 30 37 35 2C 31 33 33 3A 97 31 30 |....1075,133:.10|
00001760: 37 36 2C 31 34 34 3A 97 31 30 37 37 2C 32 33 34 |76,144:.1077,234|
00001770: 3A 97 31 30 37 39 2C 34 3A 97 31 30 38 30 2C 31 |:.1079,4:.1080,1|
00001780: 33 33 3A 97 31 30 38 31 2C 31 34 35 00 C2 1F AE |33:.1081,145....|
00001790: 03 97 31 30 39 31 2C 31 35 35 3A 97 31 30 39 38 |..1091,155:.1098|
000017A0: 2C 31 33 33 3A 97 31 30 39 39 2C 31 34 34 3A 97 |,133:.1099,144:.|
000017B0: 31 31 30 30 2C 32 33 34 3A 97 31 31 30 33 2C 31 |1100,234:.1103,1|
000017C0: 33 33 00 E4 1F AF 03 97 31 31 30 34 2C 31 34 35 |33......1104,145|
000017D0: 3A 97 31 31 30 35 2C 32 33 34 3A 97 31 30 38 32 |:.1105,234:.1082|
000017E0: 2C 32 33 34 00 FB 1F B1 03 8B C2 28 35 30 30 30 |,234.......(5000|
000017F0: 33 29 B3 B1 31 36 30 A7 39 35 35 00 2A 20 B6 03 |3)..160.955.* ..|
00001800: 97 31 30 39 33 2C 38 38 3A 97 31 30 39 34 2C 32 |.1093,88:.1094,2|
00001810: 32 38 3A 97 31 30 39 37 2C 38 35 3A 97 31 31 30 |28:.1097,85:.110|
00001820: 32 2C 32 32 38 3A 89 39 36 35 00 3F 20 BB 03 8B |2,228:.965.? ...|
00001830: C2 28 35 30 30 30 33 29 B3 B1 31 A7 39 39 30 00 |.(50003)..1.990.|
00001840: 6E 20 C0 03 97 31 30 39 33 2C 34 39 3A 97 31 30 |n ...1093,49:.10|
00001850: 39 34 2C 32 33 30 3A 97 31 30 39 37 2C 34 36 3A |94,230:.1097,46:|
00001860: 97 31 31 30 32 2C 32 33 30 3A 89 39 36 35 00 A8 |.1102,230:.965..|
00001870: 20 C2 03 97 32 30 39 39 2C 31 34 31 3A 97 32 31 | ...2099,141:.21|
00001880: 30 30 2C 32 30 3A 97 32 31 30 31 2C 33 3A 97 32 |00,20:.2101,3:.2|
00001890: 31 30 33 2C 38 3A 97 32 31 30 34 2C 31 34 31 3A |103,8:.2104,141:|
000018A0: 97 32 31 30 35 2C 32 31 00 E4 20 C3 03 97 32 31 |.2105,21.. ...21|
000018B0: 30 36 2C 33 3A 97 32 31 31 35 2C 31 34 35 3A 97 |06,3:.2115,145:.|
000018C0: 32 31 31 37 2C 35 32 3A 97 32 31 31 38 2C 32 33 |2117,52:.2118,23|
000018D0: 34 3A 97 32 31 32 31 2C 34 39 3A 97 32 31 32 32 |4:.2121,49:.2122|
000018E0: 2C 31 34 31 00 1E 21 C4 03 97 32 31 32 33 2C 32 |,141..!...2123,2|
000018F0: 30 3A 97 32 31 32 34 2C 33 3A 97 32 31 32 36 2C |0:.2124,3:.2126,|
00001900: 32 33 34 3A 97 32 31 32 37 2C 31 34 31 3A 97 32 |234:.2127,141:.2|
00001910: 31 32 38 2C 32 31 3A 97 32 31 32 39 2C 33 00 3C |128,21:.2129,3.<|
00001920: 21 C5 03 9E 55 55 AA 34 38 3A 8F 20 44 49 53 41 |!...UU.48:. DISA|
00001930: 42 4C 45 20 53 54 4F 50 20 4B 45 59 00 4D 21 CA |BLE STOP KEY.M!.|
00001940: 03 8D 38 30 30 3A 8F 20 54 49 54 4C 45 00 5D 21 |..800:. TITLE.]!|
00001950: D4 03 89 33 30 30 3A 8F 20 4D 45 4E 55 00 8E 21 |...300:. MENU..!|
00001960: DE 03 99 22 93 54 48 45 20 50 47 4D 20 57 49 4C |...".THE PGM WIL|
00001970: 4C 20 4E 4F 54 20 57 4F 52 4B 20 4F 4E 20 54 48 |L NOT WORK ON TH|
00001980: 49 53 20 4D 41 43 48 49 4E 45 21 22 3A 80 00 C3 |IS MACHINE!":...|
00001990: 21 E8 03 8B 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 |!...UZ.1..UP%:.U|
000019A0: 50 25 3A 55 5A B2 30 3A 8F 20 2A 2A 20 50 52 4F |P%:UZ.0:. ** PRO|
000019B0: 47 52 41 4D 20 53 54 41 52 54 53 20 48 45 52 45 |GRAM STARTS HERE|
000019C0: 20 2A 2A 00 EF 21 E9 03 99 22 93 05 22 3B 3A 8C | **..!..."..";:.|
000019D0: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53|
000019E0: 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 |281,6:.53280,14.|
000019F0: 14 22 FC 03 8F 20 43 4F 50 59 52 49 47 48 54 20 |."... COPYRIGHT |
00001A00: 4F 53 43 41 52 20 4E 41 4F 59 55 4B 49 20 4E 41 |OSCAR NAOYUKI NA|
00001A10: 4D 45 4B 49 00 23 22 06 04 8F 20 43 41 4C 45 4E |MEKI.#"... CALEN|
00001A20: 44 41 52 00 3A 22 10 04 8F 20 43 4F 4C 55 4D 42 |DAR.:"... COLUMB|
00001A30: 49 41 20 43 4F 4C 4C 45 47 45 00 5A 22 1A 04 8F |IA COLLEGE.Z"...|
00001A40: 20 31 36 31 39 20 57 31 30 20 41 56 45 20 56 41 | 1619 W10 AVE VA|
00001A50: 4E 43 4F 55 56 45 52 20 42 43 00 8F 22 24 04 97 |NCOUVER BC.."$..|
00001A60: 55 54 2C 55 4C 25 3A 57 B2 31 3A 55 47 24 B2 22 |UT,UL%:W.1:UG$."|
00001A70: 22 3A 55 50 B2 31 3A 8D 38 35 30 3A 99 22 13 11 |":UP.1:.850:."..|
00001A80: 11 11 11 11 11 11 11 11 22 3A 8D 32 30 33 30 00 |........":.2030.|
00001A90: A4 22 2E 04 99 22 91 91 1D 1D 1D 1D 1D 1D 1D 1D |."..."..........|
00001AA0: 1D 1D 22 3B 00 C6 22 38 04 99 20 22 C1 20 D0 C5 |..";.."8.. ". ..|
00001AB0: D2 D0 C5 D4 D5 C1 CC 20 C3 C1 CC C5 CE C4 C1 D2 |....... ........|
00001AC0: 22 3A 8D 38 33 35 00 DC 22 4C 04 55 48 B2 31 3A |":.835.."L.UH.1:|
00001AD0: 55 50 B2 55 50 AA 31 3A 8D 38 35 30 00 14 23 60 |UP.UP.1:.850..#`|
00001AE0: 04 99 22 13 11 11 11 20 D7 48 41 54 A0 59 45 41 |..".... .HAT.YEA|
00001AF0: 52 27 53 A0 43 41 4C 45 4E 44 41 52 A0 44 4F A0 |R'S.CALENDAR.DO.|
00001B00: 59 4F 55 A0 57 41 4E 54 3F 20 20 20 20 20 9D 9D |YOU.WANT? ..|
00001B10: 9D 9D 22 3B 00 3C 23 65 04 55 53 24 B2 22 2D 30 |..";.<#e.US$."-0|
00001B20: 31 32 33 34 35 36 37 38 39 22 3A 55 4C B2 34 3A |123456789":UL.4:|
00001B30: 8D 33 35 3A 41 B2 C5 28 55 52 24 29 00 50 23 66 |.35:A..(UR$).P#f|
00001B40: 04 8B 20 41 B3 31 37 35 32 20 A7 20 31 31 32 30 |.. A.1752 . 1120|
00001B50: 00 6F 23 6A 04 42 B2 28 41 AD 31 30 30 29 3A 43 |.o#j.B.(A.100):C|
00001B60: B2 B5 28 41 AD 31 30 30 29 3A 44 B2 42 AB 43 00 |..(A.100):D.B.C.|
00001B70: 8F 23 74 04 8F 2D 2D 43 41 4C 43 55 4C 41 54 49 |.#t..--CALCULATI|
00001B80: 4F 4E 20 4F 46 20 4C 45 41 50 20 59 45 41 52 00 |ON OF LEAP YEAR.|
00001B90: A0 23 7E 04 8B 20 44 B2 30 20 A7 20 31 31 39 30 |.#~.. D.0 . 1190|
00001BA0: 00 BB 23 88 04 42 B2 28 41 AD 34 29 3A 43 B2 B5 |..#..B.(A.4):C..|
00001BB0: 28 41 AD 34 29 3A 44 B2 42 AB 43 00 CC 23 92 04 |(A.4):D.B.C..#..|
00001BC0: 8B 20 44 B2 30 20 A7 20 31 32 33 30 00 D7 23 9C |. D.0 . 1230..#.|
00001BD0: 04 89 20 31 32 35 30 00 F6 23 A6 04 42 B2 28 41 |.. 1250..#..B.(A|
00001BE0: AD 34 30 30 29 3A 43 B2 B5 28 41 AD 34 30 30 29 |.400):C..(A.400)|
00001BF0: 3A 44 B2 42 AB 43 00 07 24 B0 04 8B 20 44 B2 30 |:D.B.C..$... D.0|
00001C00: 20 A7 20 31 32 33 30 00 12 24 BA 04 89 20 31 32 | . 1230..$... 12|
00001C10: 35 30 00 34 24 CE 04 99 22 11 20 CF 48 21 20 D4 |50.4$...". .H! .|
00001C20: 48 49 53 A0 49 53 A0 41 A0 4C 45 41 50 A0 59 45 |HIS.IS.A.LEAP.YE|
00001C30: 41 52 2E 22 00 43 24 D8 04 58 B2 31 3A 89 20 31 |AR.".C$..X.1:. 1|
00001C40: 32 36 30 00 4B 24 E2 04 58 B2 30 00 6E 24 EC 04 |260.K$..X.0.n$..|
00001C50: 46 B2 B5 28 41 AD 34 29 3A 47 B2 B5 28 41 AD 34 |F..(A.4):G..(A.4|
00001C60: 30 30 29 3A 48 B2 B5 28 41 AD 31 30 30 29 00 7A |00):H..(A.100).z|
00001C70: 24 F6 04 4A B2 46 AA 47 AB 48 00 AC 24 00 05 4C |$..J.F.G.H..$..L|
00001C80: B2 28 41 AA 4A 29 AD 37 3A 4D B2 B5 28 28 41 AA |.(A.J).7:M..((A.|
00001C90: 4A 29 AD 37 29 3A 51 B2 28 4C AB 4D 29 AC 37 3A |J).7):Q.(L.M).7:|
00001CA0: 4F B2 B5 28 51 29 3A 52 B2 51 AB 4F 00 C0 24 0A |O..(Q):R.Q.O..$.|
00001CB0: 05 8B 20 52 B1 30 2E 39 20 A7 20 4F B2 4F AA 31 |.. R.0.9 . O.O.1|
00001CC0: 00 CA 24 14 05 4F B2 4F AB 58 00 DC 24 1E 05 8B |..$..O.O.X..$...|
00001CD0: 20 4F B3 30 20 A7 20 4F B2 4F AA 37 00 FA 24 32 | O.0 . O.O.7..$2|
00001CE0: 05 99 22 11 20 D7 48 41 54 A0 49 53 A0 54 48 45 |..". .HAT.IS.THE|
00001CF0: A0 4D 4F 4E 54 48 3F 20 22 3B 00 39 25 37 05 55 |.MONTH? ";.9%7.U|
00001D00: 53 24 B2 22 30 31 32 33 34 35 36 37 38 39 41 42 |S$."0123456789AB|
00001D10: 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F 50 51 52 |CDEFGHIJKLMNOPQR|
00001D20: 53 54 55 56 57 58 59 5A 22 3A 55 4C B2 38 3A 8D |STUVWXYZ":UL.8:.|
00001D30: 33 35 3A 42 24 B2 55 52 24 00 43 25 46 05 8D 32 |35:B$.UR$.C%F..2|
00001D40: 35 32 30 00 4F 25 50 05 99 C7 28 31 34 37 29 00 |520.O%P...(147).|
00001D50: 69 25 5A 05 8B 20 42 24 B2 22 41 4C 4C 22 20 A7 |i%Z.. B$."ALL" .|
00001D60: 20 41 24 B2 22 41 4C 4C 22 00 99 25 64 05 8B 20 | A$."ALL"..%d.. |
00001D70: 42 24 B2 22 4A 41 4E 55 41 52 59 22 20 B0 20 42 |B$."JANUARY" . B|
00001D80: 24 B2 22 31 22 20 B0 20 41 24 B2 22 41 4C 4C 22 |$."1" . A$."ALL"|
00001D90: 20 A7 20 8D 20 31 39 30 30 00 C9 25 6E 05 8B 20 | . . 1900..%n.. |
00001DA0: 42 24 B2 22 46 45 42 52 55 41 52 59 22 B0 20 42 |B$."FEBRUARY". B|
00001DB0: 24 B2 22 32 22 20 B0 20 41 24 B2 22 41 4C 4C 22 |$."2" . A$."ALL"|
00001DC0: 20 A7 20 8D 20 31 39 31 30 00 FC 25 78 05 8B 20 | . . 1910..%x.. |
00001DD0: 42 24 B2 22 4D 41 52 43 48 22 20 20 20 B0 20 42 |B$."MARCH" . B|
00001DE0: 24 B2 22 33 22 20 B0 20 41 24 B2 22 41 4C 4C 22 |$."3" . A$."ALL"|
00001DF0: 20 20 20 20 A7 20 8D 20 31 39 32 30 00 2D 26 82 | . . 1920.-&.|
00001E00: 05 8B 20 42 24 B2 22 41 50 52 49 4C 22 20 20 20 |.. B$."APRIL" |
00001E10: B0 20 42 24 B2 22 34 22 20 B0 20 41 24 B2 22 41 |. B$."4" . A$."A|
00001E20: 4C 4C 22 20 20 A7 20 8D 20 31 39 33 30 00 5D 26 |LL" . . 1930.]&|
00001E30: 8C 05 8B 20 42 24 B2 22 4D 41 59 22 20 20 20 20 |... B$."MAY" |
00001E40: 20 B0 20 42 24 B2 22 35 22 20 B0 20 41 24 B2 22 | . B$."5" . A$."|
00001E50: 41 4C 4C 22 20 A7 20 8D 20 31 39 34 30 00 90 26 |ALL" . . 1940..&|
00001E60: 96 05 8B 20 42 24 B2 22 4A 55 4E 45 22 20 20 20 |... B$."JUNE" |
00001E70: 20 B0 20 42 24 B2 22 36 22 20 B0 20 41 24 B2 22 | . B$."6" . A$."|
00001E80: 41 4C 4C 22 20 20 20 A7 20 20 8D 20 31 39 35 30 |ALL" . . 1950|
00001E90: 00 C4 26 A0 05 8B 20 42 24 B2 22 4A 55 4C 59 22 |..&... B$."JULY"|
00001EA0: 20 20 20 20 B0 20 42 24 B2 22 37 22 20 B0 20 41 | . B$."7" . A|
00001EB0: 24 B2 22 41 4C 4C 22 20 20 20 20 A7 20 20 8D 20 |$."ALL" . . |
00001EC0: 31 39 36 30 00 F6 26 AA 05 8B 20 42 24 B2 22 41 |1960..&... B$."A|
00001ED0: 55 47 55 53 54 22 20 20 B0 20 42 24 B2 22 38 22 |UGUST" . B$."8"|
00001EE0: 20 B0 20 41 24 B2 22 41 4C 4C 22 20 20 A7 20 20 | . A$."ALL" . |
00001EF0: 8D 20 31 39 37 30 00 27 27 B4 05 8B 20 42 24 B2 |. 1970.''... B$.|
00001F00: 22 53 45 50 54 45 4D 42 45 52 22 B0 20 42 24 B2 |"SEPTEMBER". B$.|
00001F10: 22 39 22 20 B0 20 41 24 B2 22 41 4C 4C 22 20 A7 |"9" . A$."ALL" .|
00001F20: 20 8D 20 31 39 38 30 00 59 27 BE 05 8B 20 42 24 | . 1980.Y'... B$|
00001F30: B2 22 4F 43 54 4F 42 45 52 22 20 B0 20 42 24 B2 |."OCTOBER" . B$.|
00001F40: 22 31 30 22 20 B0 20 41 24 B2 22 41 4C 4C 22 20 |"10" . A$."ALL" |
00001F50: 20 A7 20 8D 20 31 39 39 30 00 8B 27 C8 05 8B 20 | . . 1990..'... |
00001F60: 42 24 B2 22 4E 4F 56 45 4D 42 45 52 22 20 B0 20 |B$."NOVEMBER" . |
00001F70: 42 24 B2 22 31 31 22 20 B0 20 41 24 B2 22 41 4C |B$."11" . A$."AL|
00001F80: 4C 22 20 A7 20 8D 20 32 30 30 30 00 BD 27 D2 05 |L" . . 2000..'..|
00001F90: 8B 20 42 24 B2 22 44 45 43 45 4D 42 45 52 22 20 |. B$."DECEMBER" |
00001FA0: B0 20 42 24 B2 22 31 32 22 20 B0 20 41 24 B2 22 |. B$."12" . A$."|
00001FB0: 41 4C 4C 22 20 A7 20 8D 20 32 30 31 30 00 DA 27 |ALL" . . 2010..'|
00001FC0: DC 05 55 48 B2 31 3A 55 47 24 B2 22 22 3A 55 50 |..UH.1:UG$."":UP|
00001FD0: B2 55 50 AA 31 3A 8D 38 35 30 00 F8 27 E6 05 99 |.UP.1:.850..'...|
00001FE0: 22 11 11 20 C1 4E 4F 54 48 45 52 20 43 41 4C 45 |".. .NOTHER CALE|
00001FF0: 4E 44 41 52 3F 20 22 3B 00 15 28 F0 05 55 53 24 |NDAR? ";..(..US$|
00002000: B2 22 59 4E 22 3A 55 4C B2 31 3A 8D 33 35 3A 43 |."YN":UL.1:.35:C|
00002010: 24 B2 55 52 24 00 2E 28 04 06 8B 20 43 24 B2 22 |$.UR$..(... C$."|
00002020: 59 22 A7 20 55 50 B2 30 3A 89 31 31 30 30 00 3E |Y". UP.0:.1100.>|
00002030: 28 0E 06 9C 3A 8D 39 30 30 3A 8D 33 30 30 00 44 |(...:.900:.300.D|
00002040: 28 18 06 80 00 56 28 22 06 8B 20 5A B1 36 20 A7 |(....V(".. Z.6 .|
00002050: 20 5A B2 5A AB 37 00 68 28 2C 06 8B 20 5A B3 30 | Z.Z.7.h(,.. Z.0|
00002060: 20 A7 20 5A B2 5A AA 37 00 7F 28 54 06 8F 20 57 | . Z.Z.7..(T.. W|
00002070: 52 49 54 49 4E 47 20 43 41 4C 45 4E 44 41 52 00 |RITING CALENDAR.|
00002080: 8E 28 5E 06 57 B2 32 30 3A 8D 32 30 32 30 00 9F |.(^.W.20:.2020..|
00002090: 28 68 06 99 22 13 22 3B 22 11 11 11 11 22 3B 00 |(h..".";"....";.|
000020A0: AA 28 72 06 41 B2 B5 28 41 29 00 BE 28 7C 06 99 |.(r.A..(A)..(|..|
000020B0: 20 A3 33 29 3B 42 24 2C A3 32 30 29 3B 41 00 F0 | .3);B$,.20);A..|
000020C0: 28 86 06 99 22 11 11 22 3B A3 33 29 3B 22 D3 D5 |(..."..";.3);"..|
000020D0: CE A0 A0 CD CF CE A0 A0 D4 D5 C5 A0 A0 D7 C5 C4 |................|
000020E0: A0 A0 D4 C8 D5 A0 A0 C6 D2 C9 A0 A0 D3 C1 D4 22 |..............."|
000020F0: 00 FB 28 90 06 99 22 11 11 22 3B 00 09 29 9A 06 |..(..."..";..)..|
00002100: 81 20 4B B2 30 20 A4 20 35 00 1D 29 A4 06 4C B2 |. K.0 . 5..)..L.|
00002110: 28 4B AC 37 29 AA 31 3A 4D B2 4C AA 36 00 2B 29 |(K.7).1:M.L.6.+)|
00002120: AE 06 81 20 4E B2 4C 20 A4 20 4D 00 35 29 B8 06 |... N.L . M.5)..|
00002130: 50 B2 4E AB 5A 00 47 29 C2 06 8B 20 50 B3 B2 30 |P.N.Z.G)... P..0|
00002140: 20 A7 20 31 38 32 30 00 65 29 CC 06 8B 20 4E B1 | . 1820.e)... N.|
00002150: 37 20 A7 20 5A 31 B2 4E AB 28 37 AC 4B 29 3A 89 |7 . Z1.N.(7.K):.|
00002160: 20 31 37 36 30 00 6E 29 D6 06 5A 31 B2 4E 00 7F | 1760.n)..Z1.N..|
00002170: 29 E0 06 8B 20 50 B1 39 20 A7 20 31 37 38 30 00 |)... P.9 . 1780.|
00002180: 95 29 EA 06 49 B2 28 35 AC 5A 31 29 AB 32 3A 89 |.)..I.(5.Z1).2:.|
00002190: 20 31 37 39 30 00 A4 29 F4 06 49 B2 28 35 AC 5A | 1790..)..I.(5.Z|
000021A0: 31 29 AB 33 00 B5 29 FE 06 8B 20 50 B1 59 20 A7 |1).3..)... P.Y .|
000021B0: 20 31 38 36 30 00 DE 29 08 07 8B 20 50 B2 51 20 | 1860..)... P.Q |
000021C0: A7 20 99 20 A3 49 29 3B 22 12 22 3B 50 3A 99 3A |. . .I);".";P:.:|
000021D0: 99 20 22 91 91 91 22 3A 89 20 31 38 32 30 00 EB |. "...":. 1820..|
000021E0: 29 12 07 99 20 A3 49 29 3B 50 3B 00 F3 29 1C 07 |)... .I);P;..)..|
000021F0: 82 20 4E 00 F9 29 26 07 99 00 FF 29 30 07 99 00 |. N..)&....)0...|
00002200: 07 2A 3A 07 82 20 4B 00 0D 2A 44 07 99 00 18 2A |.*:.. K..*D....*|
00002210: 4E 07 8D 38 33 35 3A 8E 00 47 2A 6C 07 5A B2 4F |N..835:..G*l.Z.O|
00002220: 20 20 20 20 20 3A 59 B2 33 31 20 20 20 20 3A 42 | :Y.31 :B|
00002230: 24 B2 22 CA C1 CE D5 C1 D2 D9 22 20 20 20 3A 8D |$."......." :.|
00002240: 20 31 35 37 30 3A 8E 00 76 2A 76 07 5A B2 4F AA | 1570:..v*v.Z.O.|
00002250: 33 20 20 20 3A 59 B2 32 38 AA 58 20 20 3A 42 24 |3 :Y.28.X :B$|
00002260: B2 22 C6 C5 C2 D2 D5 C1 D2 D9 22 20 20 3A 8D 20 |."........" :. |
00002270: 31 35 37 30 3A 8E 00 A5 2A 80 07 5A B2 4F AA 33 |1570:...*..Z.O.3|
00002280: AA 58 20 3A 59 B2 33 31 20 20 20 20 3A 42 24 B2 |.X :Y.31 :B$.|
00002290: 22 CD C1 D2 C3 C8 22 20 20 20 20 20 3A 8D 20 31 |"....." :. 1|
000022A0: 35 37 30 3A 8E 00 D4 2A 8A 07 5A B2 4F AB 31 AA |570:...*..Z.O.1.|
000022B0: 58 20 3A 59 B2 33 30 20 20 20 20 3A 42 24 B2 22 |X :Y.30 :B$."|
000022C0: C1 D0 D2 C9 CC 22 20 20 20 20 20 3A 8D 20 31 35 |....." :. 15|
000022D0: 37 30 3A 8E 00 03 2B 94 07 5A B2 4F AA 31 AA 58 |70:...+..Z.O.1.X|
000022E0: 20 3A 59 B2 33 31 20 20 20 20 3A 42 24 B2 22 CD | :Y.31 :B$.".|
000022F0: C1 D9 22 20 20 20 20 20 20 20 3A 8D 20 31 35 37 |.." :. 157|
00002300: 30 3A 8E 00 32 2B 9E 07 5A B2 4F AA 34 AA 58 20 |0:..2+..Z.O.4.X |
00002310: 3A 59 B2 33 30 20 20 20 20 3A 42 24 B2 22 CA D5 |:Y.30 :B$."..|
00002320: CE C5 22 20 20 20 20 20 20 3A 8D 20 31 35 37 30 |.." :. 1570|
00002330: 3A 8E 00 61 2B A8 07 5A B2 4F AB 31 AA 58 20 3A |:..a+..Z.O.1.X :|
00002340: 59 B2 33 31 20 20 20 20 3A 42 24 B2 22 CA D5 CC |Y.31 :B$."...|
00002350: D9 22 20 20 20 20 20 20 3A 8D 20 31 35 37 30 3A |." :. 1570:|
00002360: 8E 00 90 2B B2 07 5A B2 4F AA 32 AA 58 20 3A 59 |...+..Z.O.2.X :Y|
00002370: B2 33 31 20 20 20 20 3A 42 24 B2 22 C1 D5 C7 D5 |.31 :B$."....|
00002380: D3 D4 22 20 20 20 20 3A 8D 20 31 35 37 30 3A 8E |.." :. 1570:.|
00002390: 00 BF 2B BC 07 5A B2 4F AA 35 AA 58 20 3A 59 B2 |..+..Z.O.5.X :Y.|
000023A0: 33 30 20 20 20 20 3A 42 24 B2 22 D3 C5 D0 D4 C5 |30 :B$.".....|
000023B0: CD C2 C5 D2 22 20 3A 8D 20 31 35 37 30 3A 8E 00 |...." :. 1570:..|
000023C0: EE 2B C6 07 5A B2 4F AA 58 20 20 20 3A 59 B2 33 |.+..Z.O.X :Y.3|
000023D0: 31 20 20 20 20 3A 42 24 B2 22 CF C3 D4 CF C2 C5 |1 :B$."......|
000023E0: D2 22 20 20 20 3A 8D 20 31 35 37 30 3A 8E 00 1D |." :. 1570:...|
000023F0: 2C D0 07 5A B2 4F AA 33 AA 58 20 3A 59 B2 33 30 |,..Z.O.3.X :Y.30|
00002400: 20 20 20 20 3A 42 24 B2 22 CE CF D6 C5 CD C2 C5 | :B$.".......|
00002410: D2 22 20 20 3A 8D 20 31 35 37 30 3A 8E 00 4C 2C |." :. 1570:..L,|
00002420: DA 07 5A B2 4F AA 35 AA 58 20 3A 59 B2 33 31 20 |..Z.O.5.X :Y.31 |
00002430: 20 20 20 3A 42 24 B2 22 C4 C5 C3 C5 CD C2 C5 D2 | :B$."........|
00002440: 22 20 20 3A 8D 20 31 35 37 30 3A 8E 00 55 2C E4 |" :. 1570:..U,.|
00002450: 07 99 22 93 22 00 60 2C EE 07 99 22 A7 A3 22 3B |..".".`,..."..";|
00002460: 00 6F 2C F8 07 81 20 43 B2 31 20 A4 20 33 35 00 |.o,... C.1 . 35.|
00002470: 7A 2C 02 08 99 20 22 A3 22 3B 00 82 2C 0C 08 82 |z,... ".";..,...|
00002480: 20 43 00 8C 2C 16 08 99 22 A3 A5 22 00 9A 2C 20 | C..,..."..".., |
00002490: 08 81 20 43 B2 31 20 A4 20 57 00 B1 2C 2A 08 99 |.. C.1 . W..,*..|
000024A0: 20 A3 30 29 3B 22 A7 22 3B A3 33 38 29 3B 22 A5 | .0);".";.38);".|
000024B0: 22 00 B9 2C 34 08 82 20 43 00 C5 2C 3E 08 99 20 |"..,4.. C..,>.. |
000024C0: 22 A7 A4 22 3B 00 D4 2C 48 08 81 20 43 B2 31 20 |"..";..,H.. C.1 |
000024D0: A4 20 33 35 00 DF 2C 52 08 99 20 22 A4 22 3B 00 |. 35..,R.. ".";.|
000024E0: E7 2C 5C 08 82 20 43 00 F2 2C 66 08 99 20 22 A4 |.,\.. C..,f.. ".|
000024F0: A5 22 00 F8 2C 70 08 8E 00 23 2D D8 09 99 22 11 |."..,p...#-...".|
00002500: 20 C4 4F 20 59 4F 55 20 57 41 4E 54 20 41 20 4D | .O YOU WANT A M|
00002510: 41 52 4B 45 52 20 4F 4E 20 41 20 44 41 54 45 3F |ARKER ON A DATE?|
00002520: 20 22 3B 00 40 2D E2 09 55 53 24 B2 22 59 4E 22 | ";.@-..US$."YN"|
00002530: 3A 55 4C B2 31 3A 8D 33 35 3A 56 24 B2 55 52 24 |:UL.1:.35:V$.UR$|
00002540: 00 54 2D F6 09 8B 56 24 B2 22 4E 22 20 A7 20 89 |.T-...V$."N" . .|
00002550: 32 36 32 30 00 79 2D 00 0A 99 22 11 20 CF 4E 20 |2620.y-...". .N |
00002560: 57 48 41 54 20 44 41 59 20 4F 46 20 54 48 45 20 |WHAT DAY OF THE |
00002570: 4D 4F 4E 54 48 3F 20 22 3B 00 A0 2D 0A 0A 55 53 |MONTH? ";..-..US|
00002580: 24 B2 22 30 31 32 33 34 35 36 37 38 39 22 3A 55 |$."0123456789":U|
00002590: 4C B2 32 3A 8D 33 35 3A 51 B2 C5 28 55 52 24 29 |L.2:.35:Q..(UR$)|
000025A0: 00 A6 2D 3C 0A 8E 00 00 00 |..-<..... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......L4.X.1.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.H.... **GENERAL INPUT ROUTINE **
.N...:.T...:...#.. +++ INPUT SECTION +++
...(..U0,0:UR$."":UI$.""...*..UL.0.UL.80
.".-..UC,0.6.2..UI$:.UI$."".50.`.7..UI$.
G(13).C(UR$)..1..UC,1:." .";:.85.S.<..UI
$.G(20).105...>.. C(UR$)..UL.50...A..120
:. CHECK FOR VALID CHARACTER...F.UR$.UR$
.UI$.F.K..UI$;.N.P..50...U.. +++ CHECK F
OR HELP REQUEST +++...Z..UR$.UX$.195:. E
XIT TO HELP ROUTINE.*._..UF.1..240.7.D.U
F.0:.:..P.F.. ++ CHECK DELETE ++.A.I..C(
UR$).1.50.Y.N.UR$.H(UR$,C(UR$).1)...S.."
. ..";:.50...X.. ++ CHECK FOR VALID CHA
RACTERS ++.D.}..C(US$).0.150.U....US.1.C
(US$)......UI$.J(US$,US,1).............U
I$."":....... ** STANDARD INPUT **.+....
F(UI$).46...<....UI$.G(32)...Y. ..F(UI$)
.48.F(UI$).57.170._.....|....F(UI$).65.F
(UI$).90.180............F(UI$).193.F(UI$
).218.UI$."":..I....B(UT).UU%.UI$.G(F(UI
$).128):..O.........UI$."":....C.UF.1:.
+++ HELP ROUTINE EXIT +++...E..250...H..
245.2.M..UQ.UB.(U2%.256.U1%.U3%.2).N.R.U
Q%(UQ.UB).B(UQ):.:.".".A.W.UZ.1:UV%.B(UT
).J.X..300...Y.UZ.0:US$.UJ$:UG$.UK$:UP.U
J:UL.UK:.B(50003).0..53281,6:.53280,14..
...UT$.UL$:.".";:.UT,UV%:.UQ.UB.(U2%.256
.U1%.U3%.3)......UQ,UQ%(UQ.UB):.......U1
,U1%......U2,U2%......U4,U4%.*....U3,U3%
.1.2....35.D...UD%.((U2%.256.U1%.U3%).UB
).40:.H(UD$,UD%.1):.......H(UD$,24);"
. HELP COMING . ":..
K...U1%.B(U1):U2%.B(U2):U3%.B(U3):U4%.B(
U4).....UJ$.US$:UK$.UG$:UL$.UT$:UJ.UP:UK
.UL.........,.. ** MENU **...-.:.?....".
":.UT,UU%:.B(50003).0..53281,9:.53280,8.
E./.:.B.1..". MENU"...6..
" --------------------------------------
"...;..".. 1. BEGIN CALENDAR
"...@..".. 2. USER INSTRUCTIONS"
...O..".. 3. QUIT..".+.T.." ----
----------------------------------".V.Y.
.".. PRESS A NUMBER KEY (1-3) ";.}
.^.UL.1:US$."123":.35:. INPUT ROUTINE...
`.US$.""...C..E(UR$).1000,400,396...H..3
00.Q.... ** RE-ENABLE STOP KEY AND END *
*......B(50003)..1.B(50003)..160.B(50003
)..0.399.*....UU.71:.B(50003).0..53281,6
:.53280,14.6...."..":..A....875:..B....
** STUDENT INSTRUCTIONS **.S....".":.UT,
UL%.....UG$."USER INSTR.":UP.0:.850.B...
.". THIS IS A CALENDAR PROGRAM WITH WHIC
H"......". YOU CAN SEE ANY YEAR'S & ANY
MONTH'S"......". CALENDAR. WHEN ASKED F
OR THE YEAR,".G....". ENTER IT AS A FOUR
DIGIT NUMBER.".\....". E.G. .1982."....
..". WHEN ASKED FOR THE MONTH, ENTER IT"
......". EITHER IN WORDS OR IN NUMBERS I
.E.:"......". THIS PROGRAM WILL ONLY WOR
K ACCURATELY"......". FOR YEARS AFTER 17
52."......835:.850.3.C..". * JANUARY OR
1";" ";.P.E.."* JULY OR 7";
.Q.G..". * FEBRUARY OR 2";" ";...I.."
* AUGUST OR 8";...K..". * MARCH
OR 3";" ";.L.M.."* SEPTEMBER OR
9";...O..". * APRIL OR 4";" ";...
Q.."* OCTOBER OR 10";.+.S..". * MAY
OR 5";" ";.H.U.."* NOVEMBER O
R 11";.I.W..". * JUNE OR 6";" "
;...Y.."* DECEMBER OR 12";......". I
F YOU WANT THE WHOLE YEAR'S CALENDAR"...
...". THEN ENTER FOR THE MONTH .ALL.."..
....". ENTER YOUR MONTH IN FULL IF YOU E
NTER".$....". IT AS A WORD.".2....835:.8
50._...."..NOTE: ALWAYS PRESS THE <RETUR
N> KEY"......". AFTER ENTERING AN ANSWER
."......".. IF AT ANY TIME YOU WOULD LIK
E TO GO"......". BACK TO THE MENU,ENTER
H <RETURN>."......835:.850......"..
TO THE BEST OF OUR KNOWLEDGE,.".A...."
THIS PROGRAM IS IN THE PUBLIC.".M...."
DOMAIN. IF THIS IS NOT THE CASE."...
..." PLEASE CONTACT:..."......" C
OMMODORE BUSINESS MACHINES.".W...."
3370 PHARMACY AVE......."
AGINCOURT, ONTARIO"... .." CANA
DA M1W 2K4".=.".." (416) 499-
4292".M.$.. 835:. 850.W.&.." ..PROGR
AM NAME: CALENDAR .. .(.." WRITT
EN BY : O. N. NAMEKI ..D.*.." UPGR
ADED BY : ....,.." .THIS PR
OGRAM WILL RUN ON ANY........" B
ASIC 2.0 PET COMPUTER..=.0.." BA
SIC 4.0 PET COMPUTER.._.2.." 803
2 CBM COMPUTER....4.." COMMODORE
64 COMPUTER...6..835...N..UZ.1..1115:.2
17...W...M.... ** TO USE 8032 LOAD CBM40
32 **...F..".....BEFORE RUNNING THIS PRO
GRAM ON AN 8032 ...9.P.." LOAD THE
'CBM 4032' PROGRAM.............".D.Z..U
U.71.J.....J. .. ** T I T L E P A G E
**...".."....";:.UT,UU%:.B(50003).0..532
80,14:.53281,6...$..I.1.38:."...";:..L.&
..I.1.22:.".....";:....(..I.1.37:.".....
";:....*..I.1.22:.".....";:..!.,..".....
...................... ..C...."........
........... . . ...D.0.."..............
..... . ......2.."....................
....4.."..............C O M M O D O R E
...M.6.."...............EDUCATIONAL.....
8.."................SOFTWARE...:.. ** CO
MMODORE LOGO **.?.;..H(UD$,24);"........
..PRESS SPACE BAR OR WAIT.":I.0.A.<..A$:
.A$.." ".I.I.1:.I.250.828...>.T1$."":T2$
."":T3$."":T4$."":I.0...@..300...C.. **
SPACE BAR PRESS **...H..UO,0:.H(UD$,24);
".......PRESS SPACE BAR TO CONTINUE."...
L..UI$:.UI$.." ".844...N...".R.. ** PAGE
DESIGN ROUTINE **...T.UP.UP.1.R.W.."."H
(UT$.UP$,21);I(UP$.UG$,18)...\.." ------
--------------------------------"...`..U
H..0.870.D.A..H(UD$,24);H(UP$,7);"HELP -
PRESS H <RETURN>".U.F.UH.0:."..":....
K.. ** PLEASE WAIT REMARK **.*.P..H(UD$,
24);" ONE MOMENT PLEASE...
".0.U...M.... ** SET UP VARIABLES **...
..UX$."H":.UQ%(1000):UB.32768:U1.196:U2.
197:U3.198:U4.216:UC.167:UU.1024.V...UT.
59468:UU%.12:UL%.14:UP%.1146:UM.32768:UO
.158:. 50003,0......B(50003).0.UB.1024:U
1.209:U2.210:U3.211:U4.214:UC.204:UU.204
8.X....B(50003).0.UT.53272:UU%.21:UL%.23
:UP%.2139:UM.1024:UO.198.|...UD$."......
...................".....UP$."
".....UT$."
CALENDAR ":. PLACE PROGRAM TIT
LE HERE !!!!!!!!!!!!!!!!!***............
** SET VARIABLES **.%....900.@.... ** C
HECK FOR 8032 **.^....".":." ":. SHIFTED
SPACE.U....B(UB.40)..96..700...... ** M
EMORY CHECK **...... .(0).2000.937.P....
"....THIS MACHINE DOES NOT HAVE ENOUGH."
......"MEMORY TO RUN THIS PROGRAM !"....
..UU.71............"..":.B(50003).0.962.
N.... ** BASIC 2.0 OR 4.0 OR C-64 SE
TUP **......1075,133:.1076,144:.1077,234
:.1079,4:.1080,133:.1081,145.B....1091,1
55:.1098,133:.1099,144:.1100,234:.1103,1
33......1104,145:.1105,234:.1082,234....
..B(50003)..160.955.* ...1093,88:.1094,2
28:.1097,85:.1102,228:.965.? ...B(50003)
..1.990.N ...1093,49:.1094,230:.1097,46:
.1102,230:.965.. B..2099,141:.2100,20:.2
101,3:.2103,8:.2104,141:.2105,21.. C..21
06,3:.2115,145:.2117,52:.2118,234:.2121,
49:.2122,141..!D..2123,20:.2124,3:.2126,
234:.2127,141:.2128,21:.2129,3.<!E..UU.4
8:. DISABLE STOP KEY.M!J..800:. TITLE.]!
T..300:. MENU..!...".THE PGM WILL NOT WO
RK ON THIS MACHINE!":..C!...UZ.1..UP%:.U
P%:UZ.0:. ** PROGRAM STARTS HERE **..!..
."..";:.:.B(50003).0..53281,6:.53280,14.
."... COPYRIGHT OSCAR NAOYUKI NAMEKI.#".
.. CALENDAR.:"... COLUMBIA COLLEGE.Z"...
1619 W10 AVE VANCOUVER BC.."$..UT,UL%:W
.1:UG$."":UP.1:.850:."..........":.2030.
."..."............";.F"8.. "A PERPETUAL
CALENDAR":.835.."L.UH.1:UP.UP.1:.850..#`
..".... WHAT YEAR'S CALENDAR DO YOU WANT
? ....";.<#E.US$."-0123456789":UL.4:
.35:A.E(UR$).P#F.. A.1752 . 1120.O#J.B.(
A.100):C..(A.100):D.B.C..#T..--CALCULATI
ON OF LEAP YEAR. #~.. D.0 . 1190..#..B.(
A.4):C..(A.4):D.B.C.L#... D.0 . 1230.W#.
.. 1250..#..B.(A.400):C..(A.400):D.B.C..
$... D.0 . 1230..$... 1250.4$N..". OH! T
HIS IS A LEAP YEAR.".C$X.X.1:. 1260.K$..
X.0.N$..F..(A.4):G..(A.400):H..(A.100).Z
$..J.F.G.H..$..L.(A.J).7:M..((A.J).7):Q.
(L.M).7:O..(Q):R.Q.O..$... R.0.9 . O.O.1
.J$..O.O.X..$... O.0 . O.O.7..$2..". WHA
T IS THE MONTH? ";.9%7.US$."0123456789AB
CDEFGHIJKLMNOPQRSTUVWXYZ":UL.8:.35:B$.UR
$.C%F..2520.O%P..G(147).I%Z.. B$."ALL" .
A$."ALL"..%D.. B$."JANUARY" . B$."1" .
A$."ALL" . . 1900.I%N.. B$."FEBRUARY". B
$."2" . A$."ALL" . . 1910..%X.. B$."MARC
H" . B$."3" . A$."ALL" . . 1920.-&.
.. B$."APRIL" . B$."4" . A$."ALL" . .
1930.]&... B$."MAY" . B$."5" . A$."
ALL" . . 1940..&... B$."JUNE" . B$."6
" . A$."ALL" . . 1950.D& .. B$."JULY"
. B$."7" . A$."ALL" . . 1960..&.
.. B$."AUGUST" . B$."8" . A$."ALL" .
. 1970.''... B$."SEPTEMBER". B$."9" . A$
."ALL" . . 1980.Y'... B$."OCTOBER" . B$.
"10" . A$."ALL" . . 1990..'H.. B$."NOVE
MBER" . B$."11" . A$."ALL" . . 2000..'R.
. B$."DECEMBER" . B$."12" . A$."ALL" . .
2010.Z'..UH.1:UG$."":UP.UP.1:.850..'...
".. ANOTHER CALENDAR? ";..(..US$."YN":UL
.1:.35:C$.UR$..(... C$."Y". UP.0:.1100.>
(...:.900:.300.D(....V(".. Z.6 . Z.Z.7.H
(,.. Z.0 . Z.Z.7.(T.. WRITING CALENDAR.
.(^.W.20:.2020..(H..".";"....";..(R.A..(
A)..(|.. .3);B$,.20);A..(..."..";.3);"SU
N MON TUE WED THU FRI SAT"..(...".
.";..)... K.0 . 5..)..L.(K.7).1:M.L.6.+)
... N.L . M.5)..P.N.Z.G)B.. P..0 . 1820.
E)L.. N.7 . Z1.N.(7.K):. 1760.N)V.Z1.N.
)... P.9 . 1780..)..I.(5.Z1).2:. 1790..)
..I.(5.Z1).3..)... P.Y . 1860..)... P.Q
. . .I);".";P:.:. "...":. 1820..)... .I)
;P;..)... N..)&....)0....*:.. K..*D....*
N..835:..G*L.Z.O :Y.31 :B$."JANUA
RY" :. 1570:..V*V.Z.O.3 :Y.28.X :B$
."FEBRUARY" :. 1570:...*..Z.O.3.X :Y.31
:B$."MARCH" :. 1570:..T*..Z.O.1.
X :Y.30 :B$."APRIL" :. 1570:...+.
.Z.O.1.X :Y.31 :B$."MAY" :. 157
0:..2+..Z.O.4.X :Y.30 :B$."JUNE"
:. 1570:..A+..Z.O.1.X :Y.31 :B$."JUL
Y" :. 1570:...+..Z.O.2.X :Y.31 :
B$."AUGUST" :. 1570:...+..Z.O.5.X :Y.
30 :B$."SEPTEMBER" :. 1570:...+F.Z.O.
X :Y.31 :B$."OCTOBER" :. 1570:...
,P.Z.O.3.X :Y.30 :B$."NOVEMBER" :. 1
570:..L,Z.Z.O.5.X :Y.31 :B$."DECEMBER
" :. 1570:..U,...".".`,..."..";.O,... C
.1 . 35.Z,... ".";..,... C..,...".."..,
.. C.1 . W..,*.. .0);".";.38);"."..,4..
C.E,>.. "..";.T,H.. C.1 . 35..,R.. ".";.
.,\.. C..,F.. ".."..,P...#-X..". DO YOU
WANT A MARKER ON A DATE? ";.@-..US$."YN"
:UL.1:.35:V$.UR$.T-...V$."N" . .2620.Y-.
..". ON WHAT DAY OF THE MONTH? ";. -..US
$."0123456789":UL.2:.35:Q.E(UR$)..-<....
.
> CLICK IMAGE PREVIEW FOR FULL MODAL