CALENDAR
FILE INFORMATION
FILENAME(S): CALENDAR
FILE TYPE(S): PRG
FILE SIZE: 9.4K
FIRST SEEN: 2025-12-02 00:17:26
APPEARS ON: 1 disk(s)
FILE HASH
25f639137084a07d693ef312b80a5ddb6eb59c88594076b27a995d9fe2dcdb32
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PUB DOMAIN | CALENDAR | PRG | Maestro | 14 | 9 | 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 D2 |81,6:.53280,14..|
000004B0: 0C DC 00 55 54 24 B2 55 4C 24 3A 97 35 33 32 38 |...UT$.UL$:.5328|
000004C0: 31 2C 31 3A 99 22 93 22 3B 3A 97 35 33 32 38 31 |1,1:.".";:.53281|
000004D0: 2C 36 00 F9 0C DD 00 97 55 54 2C 55 56 25 3A 81 |,6......UT,UV%:.|
000004E0: 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 |UQ.UB.(U2%.256.U|
000004F0: 31 25 AA 55 33 25 AB 33 29 00 0E 0D E1 00 97 55 |1%.U3%.3)......U|
00000500: 51 2C 55 51 25 28 55 51 AB 55 42 29 3A 82 00 1A |Q,UQ%(UQ.UB):...|
00000510: 0D E6 00 97 55 31 2C 55 31 25 00 26 0D E8 00 97 |....U1,U1%.&....|
00000520: 55 32 2C 55 32 25 00 32 0D E9 00 97 55 34 2C 55 |U2,U2%.2....U4,U|
00000530: 34 25 00 40 0D EA 00 97 55 33 2C 55 33 25 AB 31 |4%.@....U3,U3%.1|
00000540: 00 48 0D EB 00 89 33 35 00 7A 0D F0 00 55 44 25 |.H....35.z...UD%|
00000550: B2 28 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 |.((U2%.256.U1%.U|
00000560: 33 25 29 AB 55 42 29 AD 34 30 3A 99 C8 28 55 44 |3%).UB).40:..(UD|
00000570: 24 2C 55 44 25 AA 31 29 3A 8E 00 B5 0D F5 00 99 |$,UD%.1):.......|
00000580: C8 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 |.(UD$,24);" |
00000590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005A0: 20 12 20 48 45 4C 50 20 43 4F 4D 49 4E 47 20 92 | . HELP COMING .|
000005B0: 20 20 22 3A 8E 00 E1 0D FA 00 55 31 25 B2 C2 28 | ":......U1%..(|
000005C0: 55 31 29 3A 55 32 25 B2 C2 28 55 32 29 3A 55 33 |U1):U2%..(U2):U3|
000005D0: 25 B2 C2 28 55 33 29 3A 55 34 25 B2 C2 28 55 34 |%..(U3):U4%..(U4|
000005E0: 29 00 09 0E FB 00 55 4A 24 B2 55 53 24 3A 55 4B |).....UJ$.US$:UK|
000005F0: 24 B2 55 47 24 3A 55 4C 24 B2 55 54 24 3A 55 4A |$.UG$:UL$.UT$:UJ|
00000600: B2 55 50 3A 55 4B B2 55 4C 00 0F 0E FF 00 8E 00 |.UP:UK.UL.......|
00000610: 20 0E 2C 01 8F 20 2A 2A 20 4D 45 4E 55 20 2A 2A | .,.. ** MENU **|
00000620: 00 26 0E 2D 01 3A 00 55 0E 2E 01 99 22 93 22 3A |.&.-.:.U....".":|
00000630: 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 |.UT,UU%:..(50003|
00000640: 29 B2 30 A7 97 35 33 32 38 31 2C 39 3A 97 35 33 |).0..53281,9:.53|
00000650: 32 38 30 2C 38 00 5B 0E 2F 01 3A 00 78 0E 31 01 |280,8.[./.:.x.1.|
00000660: 99 22 13 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
00000670: 20 20 20 4D 45 4E 55 22 00 A7 0E 36 01 99 22 20 | MENU"...6.." |
00000680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006A0: 2D 2D 2D 2D 2D 2D 22 00 CF 0E 3B 01 99 22 11 11 |------"...;.."..|
000006B0: 20 20 20 20 20 20 20 31 2E 20 20 20 42 45 47 49 | 1. BEGI|
000006C0: 4E 20 43 41 4C 45 4E 44 41 52 20 20 20 20 22 00 |N CALENDAR ".|
000006D0: F6 0E 40 01 99 22 11 11 20 20 20 20 20 20 20 32 |..@..".. 2|
000006E0: 2E 20 20 20 55 53 45 52 20 49 4E 53 54 52 55 43 |. USER INSTRUC|
000006F0: 54 49 4F 4E 53 22 00 12 0F 4F 01 99 22 11 11 20 |TIONS"...O..".. |
00000700: 20 20 20 20 20 20 33 2E 20 20 20 51 55 49 54 11 | 3. QUIT.|
00000710: 11 22 00 41 0F 54 01 99 22 20 2D 2D 2D 2D 2D 2D |.".A.T.." ------|
00000720: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000730: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000740: 22 00 6C 0F 59 01 99 22 11 11 20 20 20 20 20 20 |".l.Y..".. |
00000750: 20 50 52 45 53 53 20 41 20 4E 55 4D 42 45 52 20 | PRESS A NUMBER |
00000760: 4B 45 59 20 28 31 2D 33 29 20 22 3B 00 93 0F 5E |KEY (1-3) ";...^|
00000770: 01 55 4C B2 31 3A 55 53 24 B2 22 31 32 33 22 3A |.UL.1:US$."123":|
00000780: 8D 33 35 3A 8F 20 49 4E 50 55 54 20 52 4F 55 54 |.35:. INPUT ROUT|
00000790: 49 4E 45 00 9E 0F 60 01 55 53 24 B2 22 22 00 B7 |INE...`.US$.""..|
000007A0: 0F 63 01 91 C5 28 55 52 24 29 8D 31 30 30 30 2C |.c...(UR$).1000,|
000007B0: 34 30 30 2C 33 39 36 00 C0 0F 68 01 89 33 30 30 |400,396...h..300|
000007C0: 00 E7 0F 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E 41 |...... ** RE-ENA|
000007D0: 42 4C 45 20 53 54 4F 50 20 4B 45 59 20 41 4E 44 |BLE STOP KEY AND|
000007E0: 20 45 4E 44 20 2A 2A 00 16 10 8C 01 8B C2 28 35 | END **.......(5|
000007F0: 30 30 30 33 29 B3 B1 31 AF C2 28 35 30 30 30 33 |0003)..1..(50003|
00000800: 29 B3 B1 31 36 30 AF C2 28 35 30 30 30 33 29 B3 |)..160..(50003).|
00000810: B1 30 A7 33 39 39 00 40 10 8D 01 9E 55 55 AA 37 |.0.399.@....UU.7|
00000820: 31 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 |1:..(50003).0..5|
00000830: 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 |3281,6:.53280,14|
00000840: 00 4C 10 8E 01 99 22 9A 93 22 3A 80 00 57 10 8F |.L...."..":..W..|
00000850: 01 8D 38 37 35 3A 8E 00 78 10 90 01 8F 20 2A 2A |..875:..x.... **|
00000860: 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 | STUDENT INSTRUC|
00000870: 54 49 4F 4E 53 20 2A 2A 00 89 10 95 01 99 22 93 |TIONS **......".|
00000880: 22 3A 97 55 54 2C 55 4C 25 00 A9 10 9A 01 55 47 |":.UT,UL%.....UG|
00000890: 24 B2 22 D5 53 45 52 20 C9 4E 53 54 52 2E 22 3A |$.".SER .NSTR.":|
000008A0: 55 50 B2 30 3A 8D 38 35 30 00 D8 10 B1 01 99 22 |UP.0:.850......"|
000008B0: 11 20 D4 48 49 53 20 49 53 20 41 A0 C3 41 4C 45 |. .HIS IS A..ALE|
000008C0: 4E 44 41 52 A0 50 52 4F 47 52 41 4D 20 57 49 54 |NDAR.PROGRAM WIT|
000008D0: 48 A0 57 48 49 43 48 22 00 06 11 B3 01 99 22 11 |H.WHICH"......".|
000008E0: 20 59 4F 55 A0 43 41 4E A0 53 45 45 A0 41 4E 59 | YOU.CAN.SEE.ANY|
000008F0: A0 59 45 41 52 27 53 A0 26 20 41 4E 59 A0 4D 4F |.YEAR'S.& ANY.MO|
00000900: 4E 54 48 27 53 22 00 33 11 B5 01 99 22 11 20 C3 |NTH'S".3....". .|
00000910: 41 4C 45 4E 44 41 52 2E 20 D7 48 45 4E A0 41 53 |ALENDAR. .HEN.AS|
00000920: 4B 45 44 A0 A0 46 4F 52 A0 54 48 45 A0 59 45 41 |KED..FOR.THE.YEA|
00000930: 52 2C 22 00 5D 11 B7 01 99 22 11 20 45 4E 54 45 |R,".]....". ENTE|
00000940: 52 A0 49 54 A0 41 53 A0 41 A0 46 4F 55 52 A0 44 |R.IT.AS.A.FOUR.D|
00000950: 49 47 49 54 A0 4E 55 4D 42 45 52 2E 22 00 72 11 |IGIT.NUMBER.".r.|
00000960: B8 01 99 22 11 20 C5 2E C7 2E 20 12 31 39 38 32 |...". .... .1982|
00000970: 92 22 00 9E 11 B9 01 99 22 11 20 D7 48 45 4E A0 |."......". .HEN.|
00000980: 41 53 4B 45 44 A0 46 4F 52 A0 54 48 45 A0 4D 4F |ASKED.FOR.THE.MO|
00000990: 4E 54 48 2C 20 45 4E 54 45 52 A0 49 54 22 00 BE |NTH, ENTER.IT"..|
000009A0: 11 BA 01 99 22 11 20 41 53 20 41 20 4E 55 4D 42 |....". AS A NUMB|
000009B0: 45 52 20 C9 2E C5 2E 3A 20 12 31 30 92 22 00 EE |ER ....: .10."..|
000009C0: 11 BB 01 99 22 11 20 D4 48 49 53 A0 50 52 4F 47 |....". .HIS.PROG|
000009D0: 52 41 4D 20 57 49 4C 4C 20 4F 4E 4C 59 20 57 4F |RAM WILL ONLY WO|
000009E0: 52 4B 20 41 43 43 55 52 41 54 45 4C 59 22 00 0D |RK ACCURATELY"..|
000009F0: 12 BC 01 99 22 11 20 46 4F 52 20 59 45 41 52 53 |....". FOR YEARS|
00000A00: 20 41 46 54 45 52 20 31 37 35 32 2E 22 00 1B 12 | AFTER 1752."...|
00000A10: BD 01 8D 38 33 35 3A 8D 38 35 30 00 3C 12 C3 01 |...835:.850.<...|
00000A20: 99 22 11 20 2A 20 CA C1 CE D5 C1 D2 D9 20 20 CF |.". * ....... .|
00000A30: D2 20 20 20 31 22 3B 22 20 20 22 3B 00 59 12 C5 |. 1";" ";.Y..|
00000A40: 01 99 22 2A 20 CA D5 CC D9 20 20 20 20 20 20 20 |.."* .... |
00000A50: CF D2 20 20 20 20 37 22 3B 00 7A 12 C7 01 99 22 |.. 7";.z...."|
00000A60: 11 20 2A 20 C6 C5 C2 D2 D5 C1 D2 D9 20 CF D2 20 |. * ........ .. |
00000A70: 20 20 32 22 3B 22 20 20 22 3B 00 97 12 C9 01 99 | 2";" ";......|
00000A80: 22 2A 20 C1 D5 C7 D5 D3 D4 20 20 20 20 20 CF D2 |"* ...... ..|
00000A90: 20 20 20 20 38 22 3B 00 B8 12 CB 01 99 22 11 20 | 8";......". |
00000AA0: 2A 20 CD C1 D2 C3 C8 20 20 20 20 CF D2 20 20 20 |* ..... .. |
00000AB0: 33 22 3B 22 20 20 22 3B 00 D5 12 CD 01 99 22 2A |3";" ";......"*|
00000AC0: 20 D3 C5 D0 D4 C5 CD C2 C5 D2 20 20 CF D2 20 20 | ......... .. |
00000AD0: 20 20 39 22 3B 00 F6 12 CF 01 99 22 11 20 2A 20 | 9";......". * |
00000AE0: C1 D0 D2 C9 CC 20 20 20 20 CF D2 20 20 20 34 22 |..... .. 4"|
00000AF0: 3B 22 20 20 22 3B 00 13 13 D1 01 99 22 2A 20 CF |;" ";......"* .|
00000B00: C3 D4 CF C2 C5 D2 20 20 20 20 CF D2 20 20 20 31 |...... .. 1|
00000B10: 30 22 3B 00 34 13 D3 01 99 22 11 20 2A 20 CD C1 |0";.4....". * ..|
00000B20: D9 20 20 20 20 20 20 CF D2 20 20 20 35 22 3B 22 |. .. 5";"|
00000B30: 20 20 22 3B 00 51 13 D5 01 99 22 2A 20 CE CF D6 | ";.Q...."* ...|
00000B40: C5 CD C2 C5 D2 20 20 20 CF D2 20 20 20 31 31 22 |..... .. 11"|
00000B50: 3B 00 72 13 D7 01 99 22 11 20 2A 20 CA D5 CE C5 |;.r....". * ....|
00000B60: 20 20 20 20 20 CF D2 20 20 20 36 22 3B 22 20 20 | .. 6";" |
00000B70: 22 3B 00 8F 13 D9 01 99 22 2A 20 C4 C5 C3 C5 CD |";......"* .....|
00000B80: C2 C5 D2 20 20 20 CF D2 20 20 20 31 32 22 3B 00 |... .. 12";.|
00000B90: BE 13 DD 01 99 22 11 20 C9 46 A0 59 4F 55 A0 57 |.....". .F.YOU.W|
00000BA0: 41 4E 54 A0 54 48 45 A0 57 48 4F 4C 45 A0 59 45 |ANT.THE.WHOLE.YE|
00000BB0: 41 52 27 53 A0 43 41 4C 45 4E 44 41 52 22 00 E7 |AR'S.CALENDAR"..|
00000BC0: 13 DF 01 99 22 11 20 54 48 45 4E A0 45 4E 54 45 |....". THEN.ENTE|
00000BD0: 52 A0 46 4F 52 A0 54 48 45 A0 4D 4F 4E 54 48 20 |R.FOR.THE.MONTH |
00000BE0: 12 C1 CC CC 92 2E 22 00 16 14 E1 01 99 22 11 20 |......"......". |
00000BF0: C5 4E 54 45 52 A0 59 4F 55 52 A0 4D 4F 4E 54 48 |.NTER.YOUR.MONTH|
00000C00: A0 49 4E A0 46 55 4C 4C A0 49 46 A0 59 4F 55 A0 |.IN.FULL.IF.YOU.|
00000C10: 45 4E 54 45 52 22 00 2D 14 E2 01 99 22 11 20 49 |ENTER".-....". I|
00000C20: 54 20 41 53 A0 41 A0 57 4F 52 44 2E 22 00 3B 14 |T AS.A.WORD.".;.|
00000C30: E5 01 8D 38 33 35 3A 8D 38 35 30 00 68 14 F4 01 |...835:.850.h...|
00000C40: 99 22 11 11 CE CF D4 C5 3A 20 C1 4C 57 41 59 53 |."......: .LWAYS|
00000C50: A0 50 52 45 53 53 A0 54 48 45 A0 3C D2 C5 D4 D5 |.PRESS.THE.<....|
00000C60: D2 CE 3E 20 4B 45 59 22 00 8B 14 F6 01 99 22 11 |..> KEY"......".|
00000C70: 20 41 46 54 45 52 A0 45 4E 54 45 52 49 4E 47 A0 | AFTER.ENTERING.|
00000C80: 41 4E A0 41 4E 53 57 45 52 2E 22 00 B9 14 F7 01 |AN.ANSWER.".....|
00000C90: 99 22 11 11 20 C9 46 A0 41 54 A0 41 4E 59 A0 54 |.".. .F.AT.ANY.T|
00000CA0: 49 4D 45 A0 59 4F 55 A0 57 4F 55 4C 44 A0 4C 49 |IME.YOU.WOULD.LI|
00000CB0: 4B 45 A0 54 4F A0 47 4F 22 00 E5 14 F9 01 99 22 |KE.TO.GO"......"|
00000CC0: 11 20 42 41 43 4B A0 54 4F A0 54 48 45 A0 CD C5 |. BACK.TO.THE...|
00000CD0: CE D5 2C 45 4E 54 45 52 20 C8 20 3C D2 C5 D4 D5 |..,ENTER . <....|
00000CE0: D2 CE 3E 2E 22 00 F3 14 FE 01 8D 38 33 35 3A 8D |..>."......835:.|
00000CF0: 38 35 30 00 21 15 12 02 99 22 11 11 20 20 20 20 |850.!....".. |
00000D00: 20 20 D4 4F 20 54 48 45 20 42 45 53 54 20 4F 46 | .O THE BEST OF|
00000D10: 20 4F 55 52 20 4B 4E 4F 57 4C 45 44 47 45 2C 11 | OUR KNOWLEDGE,.|
00000D20: 22 00 4A 15 14 02 99 22 20 20 20 54 48 49 53 20 |".J...." THIS |
00000D30: 50 52 4F 47 52 41 4D 20 49 53 20 49 4E 20 54 48 |PROGRAM IS IN TH|
00000D40: 45 20 50 55 42 4C 49 43 11 22 00 76 15 16 02 99 |E PUBLIC.".v....|
00000D50: 22 20 20 20 44 4F 4D 41 49 4E 2E 20 20 C9 46 20 |" DOMAIN. .F |
00000D60: 54 48 49 53 20 49 53 20 4E 4F 54 20 54 48 45 20 |THIS IS NOT THE |
00000D70: 43 41 53 45 11 22 00 93 15 18 02 99 22 20 20 20 |CASE."......" |
00000D80: 50 4C 45 41 53 45 20 43 4F 4E 54 41 43 54 3A 11 |PLEASE CONTACT:.|
00000D90: 11 11 22 00 BD 15 1A 02 99 22 20 20 20 20 20 20 |.."......" |
00000DA0: C3 4F 4D 4D 4F 44 4F 52 45 20 C2 55 53 49 4E 45 |.OMMODORE .USINE|
00000DB0: 53 53 20 CD 41 43 48 49 4E 45 53 11 22 00 E0 15 |SS .ACHINES."...|
00000DC0: 1C 02 99 22 20 20 20 20 20 20 20 20 20 20 33 33 |..." 33|
00000DD0: 37 30 20 D0 48 41 52 4D 41 43 59 20 C1 56 45 2E |70 .HARMACY .VE.|
00000DE0: 00 04 16 1E 02 99 22 20 20 20 20 20 20 20 20 20 |......" |
00000DF0: 20 C1 47 49 4E 43 4F 55 52 54 2C 20 CF 4E 54 41 | .GINCOURT, .NTA|
00000E00: 52 49 4F 22 00 26 16 20 02 99 22 20 20 20 20 20 |RIO".&. .." |
00000E10: 20 20 20 20 20 C3 41 4E 41 44 41 20 20 20 CD 31 | .ANADA .1|
00000E20: D7 20 32 CB 34 22 00 46 16 22 02 99 22 20 20 20 |. 2.4".F.".." |
00000E30: 20 20 20 20 20 20 20 28 34 31 36 29 20 34 39 39 | (416) 499|
00000E40: 2D 34 32 39 32 22 00 56 16 24 02 8D 20 38 33 35 |-4292".V.$.. 835|
00000E50: 3A 8D 20 38 35 30 00 80 16 26 02 99 22 20 20 20 |:. 850...&.." |
00000E60: 20 20 11 11 D0 52 4F 47 52 41 4D 20 CE 41 4D 45 | ...ROGRAM .AME|
00000E70: 3A 20 C3 41 4C 45 4E 44 41 52 20 20 20 20 20 11 |: .ALENDAR .|
00000E80: 00 A9 16 28 02 99 22 20 20 20 20 20 D7 52 49 54 |...(.." .RIT|
00000E90: 54 45 4E 20 C2 59 20 20 3A 20 CF 2E 20 CE 2E 20 |TEN .Y : .. .. |
00000EA0: CE 41 4D 45 4B 49 20 20 11 00 CD 16 2A 02 99 22 |.AMEKI ....*.."|
00000EB0: 20 20 20 20 20 D5 50 47 52 41 44 45 44 20 C2 59 | .PGRADED .Y|
00000EC0: 20 3A 20 20 20 20 20 20 20 20 20 20 11 00 F8 16 | : ....|
00000ED0: 2C 02 99 22 20 20 20 20 20 11 D4 48 49 53 20 50 |,.." ..HIS P|
00000EE0: 52 4F 47 52 41 4D 20 57 49 4C 4C 20 52 55 4E 20 |ROGRAM WILL RUN |
00000EF0: 4F 4E 20 41 4E 59 11 11 00 1F 17 2E 02 99 22 20 |ON ANY........" |
00000F00: 20 20 20 20 20 20 20 20 C2 C1 D3 C9 C3 A0 32 2E | ......2.|
00000F10: 30 20 D0 C5 D4 20 C3 CF CD D0 D5 D4 C5 D2 11 00 |0 ... ..........|
00000F20: 46 17 30 02 99 22 20 20 20 20 20 20 20 20 20 C2 |F.0.." .|
00000F30: C1 D3 C9 C3 20 34 2E 30 20 D0 C5 D4 A0 C3 CF CD |.... 4.0 .......|
00000F40: D0 D5 D4 C5 D2 11 00 68 17 32 02 99 22 20 20 20 |.......h.2.." |
00000F50: 20 20 20 20 20 20 38 30 33 32 20 C3 C2 CD 20 C3 | 8032 ... .|
00000F60: CF CD D0 D5 D4 C5 D2 11 00 8D 17 34 02 99 22 20 |...........4.." |
00000F70: 20 20 20 20 20 20 20 20 C3 CF CD CD CF C4 CF D2 | ........|
00000F80: C5 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 96 17 |. 64 ...........|
00000F90: 36 02 8D 38 33 35 00 AA 17 4E 02 8B 55 5A B2 31 |6..835...N..UZ.1|
00000FA0: A7 9E 55 50 25 3A 89 32 31 37 00 B0 17 57 02 8E |..UP%:.217...W..|
00000FB0: 00 D5 17 BC 02 8F 20 2A 2A 20 54 4F 20 55 53 45 |...... ** TO USE|
00000FC0: 20 38 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 30 | 8032 LOAD CBM40|
00000FD0: 33 32 20 2A 2A 00 0B 18 C6 02 99 22 93 11 11 11 |32 **......"....|
00000FE0: 05 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E 47 20 |.BEFORE RUNNING |
00000FF0: 54 48 49 53 20 50 52 4F 47 52 41 4D 20 4F 4E 20 |THIS PROGRAM ON |
00001000: 41 4E 20 38 30 33 32 20 20 11 11 00 41 18 D0 02 |AN 8032 ...A...|
00001010: 99 22 20 20 20 20 20 20 4C 4F 41 44 20 54 48 45 |." LOAD THE|
00001020: 20 27 43 42 4D 20 34 30 33 32 27 20 50 52 4F 47 | 'CBM 4032' PROG|
00001030: 52 41 4D 11 11 11 11 11 11 11 11 11 11 11 11 11 |RAM.............|
00001040: 22 00 4C 18 DA 02 9E 55 55 AA 37 31 00 52 18 E4 |".L....UU.71.R..|
00001050: 02 80 00 72 18 20 03 8F 20 2A 2A 20 54 20 49 20 |...r. .. ** T I |
00001060: 54 20 4C 20 45 20 20 20 50 20 41 20 47 20 45 20 |T L E P A G E |
00001070: 2A 2A 00 A6 18 22 03 99 22 93 11 1D 05 22 3B 3A |**...".."....";:|
00001080: 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 |.UT,UU%:..(50003|
00001090: 29 B2 30 A7 97 35 33 32 38 30 2C 31 34 3A 97 35 |).0..53280,14:.5|
000010A0: 33 32 38 31 2C 36 00 BC 18 24 03 81 49 B2 31 A4 |3281,6...$..I.1.|
000010B0: 33 38 3A 99 22 12 A6 92 22 3B 3A 82 00 D4 18 26 |38:."...";:....&|
000010C0: 03 81 49 B2 31 A4 32 32 3A 99 22 11 9D 12 A6 92 |..I.1.22:.".....|
000010D0: 22 3B 3A 82 00 EC 18 28 03 81 49 B2 31 A4 33 37 |";:....(..I.1.37|
000010E0: 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 04 19 2A |:.".....";:....*|
000010F0: 03 81 49 B2 31 A4 32 32 3A 99 22 91 9D 12 A6 92 |..I.1.22:.".....|
00001100: 22 3B 3A 82 00 29 19 2C 03 99 22 13 11 11 11 11 |";:..).,..".....|
00001110: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001120: 1D 1D 1D 1D 12 A9 20 20 92 00 4B 19 2E 03 99 22 |...... ..K...."|
00001130: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001140: 1D 1D 12 20 92 20 20 12 20 92 A9 00 6C 19 30 03 |... . . ...l.0.|
00001150: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00001160: 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 8A 19 32 |..... . ......2|
00001170: 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00001180: 1D 1D 1D 1D 1D DF 12 20 20 92 00 B2 19 34 03 99 |....... ....4..|
00001190: 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 |"..............C|
000011A0: 20 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 52 20 45 | O M M O D O R E|
000011B0: 11 11 00 D5 19 36 03 99 22 1D 1D 1D 1D 1D 1D 1D |.....6..".......|
000011C0: 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 54 49 4F |........EDUCATIO|
000011D0: 4E 41 4C 11 11 00 F4 19 38 03 99 22 1D 1D 1D 1D |NAL.....8.."....|
000011E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F 46 54 |............SOFT|
000011F0: 57 41 52 45 00 0F 1A 3A 03 8F 20 2A 2A 20 43 4F |WARE...:.. ** CO|
00001200: 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 2A 2A 00 |MMODORE LOGO **.|
00001210: 47 1A 3B 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 |G.;...(UD$,24);"|
00001220: 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 |..........PRESS |
00001230: 53 50 41 43 45 20 42 41 52 20 4F 52 20 57 41 49 |SPACE BAR OR WAI|
00001240: 54 92 22 3A 49 B2 30 00 69 1A 3C 03 A1 41 24 3A |T.":I.0.i.<..A$:|
00001250: 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 AA 31 3A 8B |.A$.." ".I.I.1:.|
00001260: 49 B3 32 35 30 A7 38 32 38 00 8D 1A 3E 03 54 31 |I.250.828...>.T1|
00001270: 24 B2 22 22 3A 54 32 24 B2 22 22 3A 54 33 24 B2 |$."":T2$."":T3$.|
00001280: 22 22 3A 54 34 24 B2 22 22 3A 49 B2 30 00 96 1A |"":T4$."":I.0...|
00001290: 40 03 89 33 30 30 00 B2 1A 43 03 8F 20 2A 2A 20 |@..300...C.. ** |
000012A0: 53 50 41 43 45 20 42 41 52 20 50 52 45 53 53 20 |SPACE BAR PRESS |
000012B0: 2A 2A 00 ED 1A 48 03 97 55 4F 2C 30 3A 99 C8 28 |**...H..UO,0:..(|
000012C0: 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 |UD$,24);".......|
000012D0: 50 52 45 53 53 20 53 50 41 43 45 20 42 41 52 20 |PRESS SPACE BAR |
000012E0: 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 00 04 1B |TO CONTINUE."...|
000012F0: 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 22 20 22 |L..UI$:.UI$.." "|
00001300: A7 38 34 34 00 0A 1B 4E 03 8E 00 2A 1B 52 03 8F |.844...N...*.R..|
00001310: 20 2A 2A 20 50 41 47 45 20 44 45 53 49 47 4E 20 | ** PAGE DESIGN |
00001320: 52 4F 55 54 49 4E 45 20 2A 2A 00 36 1B 54 03 55 |ROUTINE **.6.T.U|
00001330: 50 B2 55 50 AA 31 00 5A 1B 57 03 99 22 93 22 C8 |P.UP.1.Z.W..".".|
00001340: 28 55 54 24 AA 55 50 24 2C 32 31 29 3B C9 28 55 |(UT$.UP$,21);.(U|
00001350: 50 24 AA 55 47 24 2C 31 38 29 00 89 1B 5C 03 99 |P$.UG$,18)...\..|
00001360: 22 20 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: 2D 2D 2D 2D 2D 2D 2D 2D 22 00 98 1B 60 03 8B 55 |--------"...`..U|
00001390: 48 B3 B1 30 A7 38 37 30 00 CC 1B 61 03 99 C8 28 |H..0.870...a...(|
000013A0: 55 44 24 2C 32 34 29 3B C8 28 55 50 24 2C 37 29 |UD$,24);.(UP$,7)|
000013B0: 3B 22 48 45 4C 50 20 2D 20 50 52 45 53 53 20 20 |;"HELP - PRESS |
000013C0: 20 48 20 3C 52 45 54 55 52 4E 3E 22 00 DD 1B 66 | H <RETURN>"...f|
000013D0: 03 55 48 B2 30 3A 99 22 13 11 22 3A 8E 00 FC 1B |.UH.0:."..":....|
000013E0: 6B 03 8F 20 2A 2A 20 50 4C 45 41 53 45 20 57 41 |k.. ** PLEASE WA|
000013F0: 49 54 20 52 45 4D 41 52 4B 20 2A 2A 00 32 1C 70 |IT REMARK **.2.p|
00001400: 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 20 20 20 |...(UD$,24);" |
00001410: 20 20 20 20 20 20 20 20 4F 4E 45 20 4D 4F 4D 45 | ONE MOME|
00001420: 4E 54 20 50 4C 45 41 53 45 2E 2E 2E 20 20 20 20 |NT PLEASE... |
00001430: 20 22 00 38 1C 75 03 8E 00 55 1C 84 03 8F 20 2A | ".8.u...U.... *|
00001440: 2A 20 53 45 54 20 55 50 20 56 41 52 49 41 42 4C |* SET UP VARIABL|
00001450: 45 53 20 2A 2A 00 A0 1C 85 03 55 58 24 B2 22 48 |ES **.....UX$."H|
00001460: 22 3A 86 55 51 25 28 31 30 30 30 29 3A 55 42 B2 |":.UQ%(1000):UB.|
00001470: 33 32 37 36 38 3A 55 31 B2 31 39 36 3A 55 32 B2 |32768:U1.196:U2.|
00001480: 31 39 37 3A 55 33 B2 31 39 38 3A 55 34 B2 32 31 |197:U3.198:U4.21|
00001490: 36 3A 55 43 B2 31 36 37 3A 55 55 B2 31 30 32 34 |6:UC.167:UU.1024|
000014A0: 00 DE 1C 86 03 55 54 B2 35 39 34 36 38 3A 55 55 |.....UT.59468:UU|
000014B0: 25 B2 31 32 3A 55 4C 25 B2 31 34 3A 55 50 25 B2 |%.12:UL%.14:UP%.|
000014C0: 31 31 34 36 3A 55 4D B2 33 32 37 36 38 3A 55 4F |1146:UM.32768:UO|
000014D0: B2 31 35 38 3A 97 20 35 30 30 30 33 2C 30 00 21 |.158:. 50003,0.!|
000014E0: 1D 87 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 |.....(50003).0.U|
000014F0: 42 B2 31 30 32 34 3A 55 31 B2 32 30 39 3A 55 32 |B.1024:U1.209:U2|
00001500: B2 32 31 30 3A 55 33 B2 32 31 31 3A 55 34 B2 32 |.210:U3.211:U4.2|
00001510: 31 34 3A 55 43 B2 32 30 34 3A 55 55 B2 32 30 34 |14:UC.204:UU.204|
00001520: 38 00 60 1D 88 03 8B C2 28 35 30 30 30 33 29 B2 |8.`.....(50003).|
00001530: 30 A7 55 54 B2 35 33 32 37 32 3A 55 55 25 B2 32 |0.UT.53272:UU%.2|
00001540: 31 3A 55 4C 25 B2 32 33 3A 55 50 25 B2 32 31 33 |1:UL%.23:UP%.213|
00001550: 39 3A 55 4D B2 31 30 32 34 3A 55 4F B2 31 39 38 |9:UM.1024:UO.198|
00001560: 00 84 1D 89 03 55 44 24 B2 22 13 11 11 11 11 11 |.....UD$."......|
00001570: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001580: 11 11 11 22 00 B6 1D 8A 03 55 50 24 B2 22 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 20 20 20 | |
000015B0: 20 20 20 20 20 22 00 04 1E 8B 03 55 54 24 B2 22 | ".....UT$."|
000015C0: 20 C3 C1 CC C5 CE C4 C1 D2 20 20 20 20 20 A0 A0 | ........ ..|
000015D0: A0 A0 A0 22 3A 8F 20 50 4C 41 43 45 20 50 52 4F |...":. PLACE PRO|
000015E0: 47 52 41 4D 20 54 49 54 4C 45 20 48 45 52 45 20 |GRAM TITLE HERE |
000015F0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 |!!!!!!!!!!!!!!!!|
00001600: 21 2A 2A 2A 00 0A 1E 8C 03 8E 00 24 1E 8E 03 8F |!***.......$....|
00001610: 20 2A 2A 20 53 45 54 20 56 41 52 49 41 42 4C 45 | ** SET VARIABLE|
00001620: 53 20 2A 2A 00 2D 1E 93 03 8D 39 30 30 00 48 1E |S **.-....900.H.|
00001630: 98 03 8F 20 2A 2A 20 43 48 45 43 4B 20 46 4F 52 |... ** CHECK FOR|
00001640: 20 38 30 33 32 20 2A 2A 00 66 1E 9D 03 99 22 93 | 8032 **.f....".|
00001650: 22 3A 99 22 A0 22 3A 8F 20 53 48 49 46 54 45 44 |":.".":. SHIFTED|
00001660: 20 53 50 41 43 45 00 7D 1E A2 03 8B C2 28 55 42 | SPACE.}.....(UB|
00001670: AA 34 30 29 B3 B1 39 36 A7 8D 37 30 30 00 96 1E |.40)..96..700...|
00001680: A3 03 8F 20 2A 2A 20 4D 45 4D 4F 52 59 20 43 48 |... ** MEMORY CH|
00001690: 45 43 4B 20 2A 2A 00 AA 1E A4 03 8B 20 B8 28 30 |ECK **...... .(0|
000016A0: 29 B1 32 30 30 30 A7 39 33 37 00 D8 1E A5 03 99 |).2000.937......|
000016B0: 22 93 11 11 05 54 48 49 53 20 4D 41 43 48 49 4E |"....THIS MACHIN|
000016C0: 45 20 44 4F 45 53 20 4E 4F 54 20 48 41 56 45 20 |E DOES NOT HAVE |
000016D0: 45 4E 4F 55 47 48 11 22 00 FC 1E A6 03 99 22 4D |ENOUGH."......"M|
000016E0: 45 4D 4F 52 59 20 54 4F 20 52 55 4E 20 54 48 49 |EMORY TO RUN THI|
000016F0: 53 20 50 52 4F 47 52 41 4D 20 21 22 00 07 1F A7 |S PROGRAM !"....|
00001700: 03 9E 55 55 AA 37 31 00 0D 1F A8 03 80 00 27 1F |..UU.71.......'.|
00001710: A9 03 99 22 93 05 22 3A 8B C2 28 35 30 30 30 33 |..."..":..(50003|
00001720: 29 B2 30 A7 39 36 32 00 56 1F AC 03 8F 20 2A 2A |).0.962.V.... **|
00001730: 20 42 41 53 49 43 20 32 2E 30 20 20 4F 52 20 20 | BASIC 2.0 OR |
00001740: 34 2E 30 20 20 4F 52 20 20 43 2D 36 34 20 53 45 |4.0 OR C-64 SE|
00001750: 54 55 50 20 2A 2A 00 94 1F AD 03 97 31 30 37 35 |TUP **......1075|
00001760: 2C 31 33 33 3A 97 31 30 37 36 2C 31 34 34 3A 97 |,133:.1076,144:.|
00001770: 31 30 37 37 2C 32 33 34 3A 97 31 30 37 39 2C 34 |1077,234:.1079,4|
00001780: 3A 97 31 30 38 30 2C 31 33 33 3A 97 31 30 38 31 |:.1080,133:.1081|
00001790: 2C 31 34 35 00 CA 1F AE 03 97 31 30 39 31 2C 31 |,145......1091,1|
000017A0: 35 35 3A 97 31 30 39 38 2C 31 33 33 3A 97 31 30 |55:.1098,133:.10|
000017B0: 39 39 2C 31 34 34 3A 97 31 31 30 30 2C 32 33 34 |99,144:.1100,234|
000017C0: 3A 97 31 31 30 33 2C 31 33 33 00 EC 1F AF 03 97 |:.1103,133......|
000017D0: 31 31 30 34 2C 31 34 35 3A 97 31 31 30 35 2C 32 |1104,145:.1105,2|
000017E0: 33 34 3A 97 31 30 38 32 2C 32 33 34 00 03 20 B1 |34:.1082,234.. .|
000017F0: 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 36 30 A7 |...(50003)..160.|
00001800: 39 35 35 00 32 20 B6 03 97 31 30 39 33 2C 38 38 |955.2 ...1093,88|
00001810: 3A 97 31 30 39 34 2C 32 32 38 3A 97 31 30 39 37 |:.1094,228:.1097|
00001820: 2C 38 35 3A 97 31 31 30 32 2C 32 32 38 3A 89 39 |,85:.1102,228:.9|
00001830: 36 35 00 47 20 BB 03 8B C2 28 35 30 30 30 33 29 |65.G ....(50003)|
00001840: B3 B1 31 A7 39 39 30 00 76 20 C0 03 97 31 30 39 |..1.990.v ...109|
00001850: 33 2C 34 39 3A 97 31 30 39 34 2C 32 33 30 3A 97 |3,49:.1094,230:.|
00001860: 31 30 39 37 2C 34 36 3A 97 31 31 30 32 2C 32 33 |1097,46:.1102,23|
00001870: 30 3A 89 39 36 35 00 B0 20 C2 03 97 32 30 39 39 |0:.965.. ...2099|
00001880: 2C 31 34 31 3A 97 32 31 30 30 2C 32 30 3A 97 32 |,141:.2100,20:.2|
00001890: 31 30 31 2C 33 3A 97 32 31 30 33 2C 38 3A 97 32 |101,3:.2103,8:.2|
000018A0: 31 30 34 2C 31 34 31 3A 97 32 31 30 35 2C 32 31 |104,141:.2105,21|
000018B0: 00 EC 20 C3 03 97 32 31 30 36 2C 33 3A 97 32 31 |.. ...2106,3:.21|
000018C0: 31 35 2C 31 34 35 3A 97 32 31 31 37 2C 35 32 3A |15,145:.2117,52:|
000018D0: 97 32 31 31 38 2C 32 33 34 3A 97 32 31 32 31 2C |.2118,234:.2121,|
000018E0: 34 39 3A 97 32 31 32 32 2C 31 34 31 00 26 21 C4 |49:.2122,141.&!.|
000018F0: 03 97 32 31 32 33 2C 32 30 3A 97 32 31 32 34 2C |..2123,20:.2124,|
00001900: 33 3A 97 32 31 32 36 2C 32 33 34 3A 97 32 31 32 |3:.2126,234:.212|
00001910: 37 2C 31 34 31 3A 97 32 31 32 38 2C 32 31 3A 97 |7,141:.2128,21:.|
00001920: 32 31 32 39 2C 33 00 44 21 C5 03 9E 55 55 AA 34 |2129,3.D!...UU.4|
00001930: 38 3A 8F 20 44 49 53 41 42 4C 45 20 53 54 4F 50 |8:. DISABLE STOP|
00001940: 20 4B 45 59 00 55 21 CA 03 8D 38 30 30 3A 8F 20 | KEY.U!...800:. |
00001950: 54 49 54 4C 45 00 65 21 D4 03 89 33 30 30 3A 8F |TITLE.e!...300:.|
00001960: 20 4D 45 4E 55 00 96 21 DE 03 99 22 93 54 48 45 | MENU..!...".THE|
00001970: 20 50 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 4F | PGM WILL NOT WO|
00001980: 52 4B 20 4F 4E 20 54 48 49 53 20 4D 41 43 48 49 |RK ON THIS MACHI|
00001990: 4E 45 21 22 3A 80 00 CB 21 E8 03 8B 55 5A B2 31 |NE!":...!...UZ.1|
000019A0: A7 9E 55 50 25 3A 9E 55 50 25 3A 55 5A B2 30 3A |..UP%:.UP%:UZ.0:|
000019B0: 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 53 54 41 |. ** PROGRAM STA|
000019C0: 52 54 53 20 48 45 52 45 20 2A 2A 00 F7 21 E9 03 |RTS HERE **..!..|
000019D0: 99 22 93 05 22 3B 3A 8C 3A 8B C2 28 35 30 30 30 |."..";:.:..(5000|
000019E0: 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 |3).0..53281,6:.5|
000019F0: 33 32 38 30 2C 31 34 00 1C 22 FC 03 8F 20 43 4F |3280,14.."... CO|
00001A00: 50 59 52 49 47 48 54 20 4F 53 43 41 52 20 4E 41 |PYRIGHT OSCAR NA|
00001A10: 4F 59 55 4B 49 20 4E 41 4D 45 4B 49 00 2B 22 06 |OYUKI NAMEKI.+".|
00001A20: 04 8F 20 43 41 4C 45 4E 44 41 52 00 42 22 10 04 |.. CALENDAR.B"..|
00001A30: 8F 20 43 4F 4C 55 4D 42 49 41 20 43 4F 4C 4C 45 |. COLUMBIA COLLE|
00001A40: 47 45 00 62 22 1A 04 8F 20 31 36 31 39 20 57 31 |GE.b"... 1619 W1|
00001A50: 30 20 41 56 45 20 56 41 4E 43 4F 55 56 45 52 20 |0 AVE VANCOUVER |
00001A60: 42 43 00 97 22 24 04 97 55 54 2C 55 4C 25 3A 57 |BC.."$..UT,UL%:W|
00001A70: B2 31 3A 55 47 24 B2 22 22 3A 55 50 B2 31 3A 8D |.1:UG$."":UP.1:.|
00001A80: 38 35 30 3A 99 22 13 11 11 11 11 11 11 11 11 11 |850:."..........|
00001A90: 22 3A 8D 32 30 33 30 00 AC 22 2E 04 99 22 91 91 |":.2030.."..."..|
00001AA0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 00 CE 22 38 |..........";.."8|
00001AB0: 04 99 20 22 C1 20 D0 C5 D2 D0 C5 D4 D5 C1 CC 20 |.. ". ......... |
00001AC0: C3 C1 CC C5 CE C4 C1 D2 22 3A 8D 38 33 35 00 E4 |........":.835..|
00001AD0: 22 4C 04 55 48 B2 31 3A 55 50 B2 55 50 AA 31 3A |"L.UH.1:UP.UP.1:|
00001AE0: 8D 38 35 30 00 1C 23 60 04 99 22 13 11 11 11 20 |.850..#`..".... |
00001AF0: D7 48 41 54 A0 59 45 41 52 27 53 A0 43 41 4C 45 |.HAT.YEAR'S.CALE|
00001B00: 4E 44 41 52 A0 44 4F A0 59 4F 55 A0 57 41 4E 54 |NDAR.DO.YOU.WANT|
00001B10: 3F 20 20 20 20 20 9D 9D 9D 9D 22 3B 00 44 23 65 |? ....";.D#e|
00001B20: 04 55 53 24 B2 22 2D 30 31 32 33 34 35 36 37 38 |.US$."-012345678|
00001B30: 39 22 3A 55 4C B2 34 3A 8D 33 35 3A 41 B2 C5 28 |9":UL.4:.35:A..(|
00001B40: 55 52 24 29 00 58 23 66 04 8B 20 41 B3 31 37 35 |UR$).X#f.. A.175|
00001B50: 32 20 A7 20 31 31 32 30 00 77 23 6A 04 42 B2 28 |2 . 1120.w#j.B.(|
00001B60: 41 AD 31 30 30 29 3A 43 B2 B5 28 41 AD 31 30 30 |A.100):C..(A.100|
00001B70: 29 3A 44 B2 42 AB 43 00 97 23 74 04 8F 2D 2D 43 |):D.B.C..#t..--C|
00001B80: 41 4C 43 55 4C 41 54 49 4F 4E 20 4F 46 20 4C 45 |ALCULATION OF LE|
00001B90: 41 50 20 59 45 41 52 00 A8 23 7E 04 8B 20 44 B2 |AP YEAR..#~.. D.|
00001BA0: 30 20 A7 20 31 31 39 30 00 C3 23 88 04 42 B2 28 |0 . 1190..#..B.(|
00001BB0: 41 AD 34 29 3A 43 B2 B5 28 41 AD 34 29 3A 44 B2 |A.4):C..(A.4):D.|
00001BC0: 42 AB 43 00 D4 23 92 04 8B 20 44 B2 30 20 A7 20 |B.C..#... D.0 . |
00001BD0: 31 32 33 30 00 DF 23 9C 04 89 20 31 32 35 30 00 |1230..#... 1250.|
00001BE0: FE 23 A6 04 42 B2 28 41 AD 34 30 30 29 3A 43 B2 |.#..B.(A.400):C.|
00001BF0: B5 28 41 AD 34 30 30 29 3A 44 B2 42 AB 43 00 0F |.(A.400):D.B.C..|
00001C00: 24 B0 04 8B 20 44 B2 30 20 A7 20 31 32 33 30 00 |$... D.0 . 1230.|
00001C10: 1A 24 BA 04 89 20 31 32 35 30 00 3C 24 CE 04 99 |.$... 1250.<$...|
00001C20: 22 11 20 CF 48 21 20 D4 48 49 53 A0 49 53 A0 41 |". .H! .HIS.IS.A|
00001C30: A0 4C 45 41 50 A0 59 45 41 52 2E 22 00 4B 24 D8 |.LEAP.YEAR.".K$.|
00001C40: 04 58 B2 31 3A 89 20 31 32 36 30 00 53 24 E2 04 |.X.1:. 1260.S$..|
00001C50: 58 B2 30 00 76 24 EC 04 46 B2 B5 28 41 AD 34 29 |X.0.v$..F..(A.4)|
00001C60: 3A 47 B2 B5 28 41 AD 34 30 30 29 3A 48 B2 B5 28 |:G..(A.400):H..(|
00001C70: 41 AD 31 30 30 29 00 82 24 F6 04 4A B2 46 AA 47 |A.100)..$..J.F.G|
00001C80: AB 48 00 B4 24 00 05 4C B2 28 41 AA 4A 29 AD 37 |.H..$..L.(A.J).7|
00001C90: 3A 4D B2 B5 28 28 41 AA 4A 29 AD 37 29 3A 51 B2 |:M..((A.J).7):Q.|
00001CA0: 28 4C AB 4D 29 AC 37 3A 4F B2 B5 28 51 29 3A 52 |(L.M).7:O..(Q):R|
00001CB0: B2 51 AB 4F 00 C8 24 0A 05 8B 20 52 B1 30 2E 39 |.Q.O..$... R.0.9|
00001CC0: 20 A7 20 4F B2 4F AA 31 00 D2 24 14 05 4F B2 4F | . O.O.1..$..O.O|
00001CD0: AB 58 00 E4 24 1E 05 8B 20 4F B3 30 20 A7 20 4F |.X..$... O.0 . O|
00001CE0: B2 4F AA 37 00 02 25 32 05 99 22 11 20 D7 48 41 |.O.7..%2..". .HA|
00001CF0: 54 A0 49 53 A0 54 48 45 A0 4D 4F 4E 54 48 3F 20 |T.IS.THE.MONTH? |
00001D00: 22 3B 00 41 25 37 05 55 53 24 B2 22 30 31 32 33 |";.A%7.US$."0123|
00001D10: 34 35 36 37 38 39 41 42 43 44 45 46 47 48 49 4A |456789ABCDEFGHIJ|
00001D20: 4B 4C 4D 4E 4F 50 51 52 53 54 55 56 57 58 59 5A |KLMNOPQRSTUVWXYZ|
00001D30: 22 3A 55 4C B2 38 3A 8D 33 35 3A 42 24 B2 55 52 |":UL.8:.35:B$.UR|
00001D40: 24 00 4B 25 46 05 8D 32 35 32 30 00 65 25 5A 05 |$.K%F..2520.e%Z.|
00001D50: 8B 20 42 24 B2 22 41 4C 4C 22 20 A7 20 41 24 B2 |. B$."ALL" . A$.|
00001D60: 22 41 4C 4C 22 00 95 25 64 05 8B 20 42 24 B2 22 |"ALL"..%d.. B$."|
00001D70: 4A 41 4E 55 41 52 59 22 20 B0 20 42 24 B2 22 31 |JANUARY" . B$."1|
00001D80: 22 20 B0 20 41 24 B2 22 41 4C 4C 22 20 A7 20 8D |" . A$."ALL" . .|
00001D90: 20 31 39 30 30 00 C5 25 6E 05 8B 20 42 24 B2 22 | 1900..%n.. B$."|
00001DA0: 46 45 42 52 55 41 52 59 22 B0 20 42 24 B2 22 32 |FEBRUARY". B$."2|
00001DB0: 22 20 B0 20 41 24 B2 22 41 4C 4C 22 20 A7 20 8D |" . A$."ALL" . .|
00001DC0: 20 31 39 31 30 00 F8 25 78 05 8B 20 42 24 B2 22 | 1910..%x.. B$."|
00001DD0: 4D 41 52 43 48 22 20 20 20 B0 20 42 24 B2 22 33 |MARCH" . B$."3|
00001DE0: 22 20 B0 20 41 24 B2 22 41 4C 4C 22 20 20 20 20 |" . A$."ALL" |
00001DF0: A7 20 8D 20 31 39 32 30 00 29 26 82 05 8B 20 42 |. . 1920.)&... B|
00001E00: 24 B2 22 41 50 52 49 4C 22 20 20 20 B0 20 42 24 |$."APRIL" . B$|
00001E10: B2 22 34 22 20 B0 20 41 24 B2 22 41 4C 4C 22 20 |."4" . A$."ALL" |
00001E20: 20 A7 20 8D 20 31 39 33 30 00 59 26 8C 05 8B 20 | . . 1930.Y&... |
00001E30: 42 24 B2 22 4D 41 59 22 20 20 20 20 20 B0 20 42 |B$."MAY" . B|
00001E40: 24 B2 22 35 22 20 B0 20 41 24 B2 22 41 4C 4C 22 |$."5" . A$."ALL"|
00001E50: 20 A7 20 8D 20 31 39 34 30 00 8C 26 96 05 8B 20 | . . 1940..&... |
00001E60: 42 24 B2 22 4A 55 4E 45 22 20 20 20 20 B0 20 42 |B$."JUNE" . B|
00001E70: 24 B2 22 36 22 20 B0 20 41 24 B2 22 41 4C 4C 22 |$."6" . A$."ALL"|
00001E80: 20 20 20 A7 20 20 8D 20 31 39 35 30 00 C0 26 A0 | . . 1950..&.|
00001E90: 05 8B 20 42 24 B2 22 4A 55 4C 59 22 20 20 20 20 |.. B$."JULY" |
00001EA0: B0 20 42 24 B2 22 37 22 20 B0 20 41 24 B2 22 41 |. B$."7" . A$."A|
00001EB0: 4C 4C 22 20 20 20 20 A7 20 20 8D 20 31 39 36 30 |LL" . . 1960|
00001EC0: 00 F2 26 AA 05 8B 20 42 24 B2 22 41 55 47 55 53 |..&... B$."AUGUS|
00001ED0: 54 22 20 20 B0 20 42 24 B2 22 38 22 20 B0 20 41 |T" . B$."8" . A|
00001EE0: 24 B2 22 41 4C 4C 22 20 20 A7 20 20 8D 20 31 39 |$."ALL" . . 19|
00001EF0: 37 30 00 23 27 B4 05 8B 20 42 24 B2 22 53 45 50 |70.#'... B$."SEP|
00001F00: 54 45 4D 42 45 52 22 B0 20 42 24 B2 22 39 22 20 |TEMBER". B$."9" |
00001F10: B0 20 41 24 B2 22 41 4C 4C 22 20 A7 20 8D 20 31 |. A$."ALL" . . 1|
00001F20: 39 38 30 00 55 27 BE 05 8B 20 42 24 B2 22 4F 43 |980.U'... B$."OC|
00001F30: 54 4F 42 45 52 22 20 B0 20 42 24 B2 22 31 30 22 |TOBER" . B$."10"|
00001F40: 20 B0 20 41 24 B2 22 41 4C 4C 22 20 20 A7 20 8D | . A$."ALL" . .|
00001F50: 20 31 39 39 30 00 87 27 C8 05 8B 20 42 24 B2 22 | 1990..'... B$."|
00001F60: 4E 4F 56 45 4D 42 45 52 22 20 B0 20 42 24 B2 22 |NOVEMBER" . B$."|
00001F70: 31 31 22 20 B0 20 41 24 B2 22 41 4C 4C 22 20 A7 |11" . A$."ALL" .|
00001F80: 20 8D 20 32 30 30 30 00 B9 27 D2 05 8B 20 42 24 | . 2000..'... B$|
00001F90: B2 22 44 45 43 45 4D 42 45 52 22 20 B0 20 42 24 |."DECEMBER" . B$|
00001FA0: B2 22 31 32 22 20 B0 20 41 24 B2 22 41 4C 4C 22 |."12" . A$."ALL"|
00001FB0: 20 A7 20 8D 20 32 30 31 30 00 D6 27 DC 05 55 48 | . . 2010..'..UH|
00001FC0: B2 31 3A 55 47 24 B2 22 22 3A 55 50 B2 55 50 AA |.1:UG$."":UP.UP.|
00001FD0: 31 3A 8D 38 35 30 00 F4 27 E6 05 99 22 11 11 20 |1:.850..'...".. |
00001FE0: C1 4E 4F 54 48 45 52 20 43 41 4C 45 4E 44 41 52 |.NOTHER CALENDAR|
00001FF0: 3F 20 22 3B 00 11 28 F0 05 55 53 24 B2 22 59 4E |? ";..(..US$."YN|
00002000: 22 3A 55 4C B2 31 3A 8D 33 35 3A 43 24 B2 55 52 |":UL.1:.35:C$.UR|
00002010: 24 00 2A 28 04 06 8B 20 43 24 B2 22 59 22 A7 20 |$.*(... C$."Y". |
00002020: 55 50 B2 30 3A 89 31 31 30 30 00 3A 28 0E 06 9C |UP.0:.1100.:(...|
00002030: 3A 8D 39 30 30 3A 8D 33 30 30 00 40 28 18 06 80 |:.900:.300.@(...|
00002040: 00 52 28 22 06 8B 20 5A B1 36 20 A7 20 5A B2 5A |.R(".. Z.6 . Z.Z|
00002050: AB 37 00 64 28 2C 06 8B 20 5A B3 30 20 A7 20 5A |.7.d(,.. Z.0 . Z|
00002060: B2 5A AA 37 00 7B 28 54 06 8F 20 57 52 49 54 49 |.Z.7.{(T.. WRITI|
00002070: 4E 47 20 43 41 4C 45 4E 44 41 52 00 8A 28 5E 06 |NG CALENDAR..(^.|
00002080: 57 B2 32 30 3A 8D 32 30 32 30 00 9B 28 68 06 99 |W.20:.2020..(h..|
00002090: 22 13 22 3B 22 11 11 11 11 22 3B 00 A6 28 72 06 |".";"....";..(r.|
000020A0: 41 B2 B5 28 41 29 00 BA 28 7C 06 99 20 A3 33 29 |A..(A)..(|.. .3)|
000020B0: 3B 42 24 2C A3 32 30 29 3B 41 00 EC 28 86 06 99 |;B$,.20);A..(...|
000020C0: 22 11 11 22 3B A3 33 29 3B 22 D3 D5 CE A0 A0 CD |"..";.3);"......|
000020D0: CF CE A0 A0 D4 D5 C5 A0 A0 D7 C5 C4 A0 A0 D4 C8 |................|
000020E0: D5 A0 A0 C6 D2 C9 A0 A0 D3 C1 D4 22 00 F7 28 90 |..........."..(.|
000020F0: 06 99 22 11 11 22 3B 00 05 29 9A 06 81 20 4B B2 |.."..";..)... K.|
00002100: 30 20 A4 20 35 00 19 29 A4 06 4C B2 28 4B AC 37 |0 . 5..)..L.(K.7|
00002110: 29 AA 31 3A 4D B2 4C AA 36 00 27 29 AE 06 81 20 |).1:M.L.6.')... |
00002120: 4E B2 4C 20 A4 20 4D 00 31 29 B8 06 50 B2 4E AB |N.L . M.1)..P.N.|
00002130: 5A 00 43 29 C2 06 8B 20 50 B3 B2 30 20 A7 20 31 |Z.C)... P..0 . 1|
00002140: 38 32 30 00 61 29 CC 06 8B 20 4E B1 37 20 A7 20 |820.a)... N.7 . |
00002150: 5A 31 B2 4E AB 28 37 AC 4B 29 3A 89 20 31 37 36 |Z1.N.(7.K):. 176|
00002160: 30 00 6A 29 D6 06 5A 31 B2 4E 00 7B 29 E0 06 8B |0.j)..Z1.N.{)...|
00002170: 20 50 B1 39 20 A7 20 31 37 38 30 00 91 29 EA 06 | P.9 . 1780..)..|
00002180: 49 B2 28 35 AC 5A 31 29 AB 32 3A 89 20 31 37 39 |I.(5.Z1).2:. 179|
00002190: 30 00 A0 29 F4 06 49 B2 28 35 AC 5A 31 29 AB 33 |0..)..I.(5.Z1).3|
000021A0: 00 B1 29 FE 06 8B 20 50 B1 59 20 A7 20 31 38 36 |..)... P.Y . 186|
000021B0: 30 00 DA 29 08 07 8B 20 50 B2 51 20 A7 20 99 20 |0..)... P.Q . . |
000021C0: A3 49 29 3B 22 12 22 3B 50 3A 99 3A 99 20 22 91 |.I);".";P:.:. ".|
000021D0: 91 91 22 3A 89 20 31 38 32 30 00 E7 29 12 07 99 |..":. 1820..)...|
000021E0: 20 A3 49 29 3B 50 3B 00 EF 29 1C 07 82 20 4E 00 | .I);P;..)... N.|
000021F0: F5 29 26 07 99 00 FB 29 30 07 99 00 03 2A 3A 07 |.)&....)0....*:.|
00002200: 82 20 4B 00 09 2A 44 07 99 00 14 2A 4E 07 8D 38 |. K..*D....*N..8|
00002210: 33 35 3A 8E 00 43 2A 6C 07 5A B2 4F 20 20 20 20 |35:..C*l.Z.O |
00002220: 20 3A 59 B2 33 31 20 20 20 20 3A 42 24 B2 22 CA | :Y.31 :B$.".|
00002230: C1 CE D5 C1 D2 D9 22 20 20 20 3A 8D 20 31 35 37 |......" :. 157|
00002240: 30 3A 8E 00 72 2A 76 07 5A B2 4F AA 33 20 20 20 |0:..r*v.Z.O.3 |
00002250: 3A 59 B2 32 38 AA 58 20 20 3A 42 24 B2 22 C6 C5 |:Y.28.X :B$."..|
00002260: C2 D2 D5 C1 D2 D9 22 20 20 3A 8D 20 31 35 37 30 |......" :. 1570|
00002270: 3A 8E 00 A1 2A 80 07 5A B2 4F AA 33 AA 58 20 3A |:...*..Z.O.3.X :|
00002280: 59 B2 33 31 20 20 20 20 3A 42 24 B2 22 CD C1 D2 |Y.31 :B$."...|
00002290: C3 C8 22 20 20 20 20 20 3A 8D 20 31 35 37 30 3A |.." :. 1570:|
000022A0: 8E 00 D0 2A 8A 07 5A B2 4F AB 31 AA 58 20 3A 59 |...*..Z.O.1.X :Y|
000022B0: B2 33 30 20 20 20 20 3A 42 24 B2 22 C1 D0 D2 C9 |.30 :B$."....|
000022C0: CC 22 20 20 20 20 20 3A 8D 20 31 35 37 30 3A 8E |." :. 1570:.|
000022D0: 00 FF 2A 94 07 5A B2 4F AA 31 AA 58 20 3A 59 B2 |..*..Z.O.1.X :Y.|
000022E0: 33 31 20 20 20 20 3A 42 24 B2 22 CD C1 D9 22 20 |31 :B$."..." |
000022F0: 20 20 20 20 20 20 3A 8D 20 31 35 37 30 3A 8E 00 | :. 1570:..|
00002300: 2E 2B 9E 07 5A B2 4F AA 34 AA 58 20 3A 59 B2 33 |.+..Z.O.4.X :Y.3|
00002310: 30 20 20 20 20 3A 42 24 B2 22 CA D5 CE C5 22 20 |0 :B$."...." |
00002320: 20 20 20 20 20 3A 8D 20 31 35 37 30 3A 8E 00 5D | :. 1570:..]|
00002330: 2B A8 07 5A B2 4F AB 31 AA 58 20 3A 59 B2 33 31 |+..Z.O.1.X :Y.31|
00002340: 20 20 20 20 3A 42 24 B2 22 CA D5 CC D9 22 20 20 | :B$."...." |
00002350: 20 20 20 20 3A 8D 20 31 35 37 30 3A 8E 00 8C 2B | :. 1570:...+|
00002360: B2 07 5A B2 4F AA 32 AA 58 20 3A 59 B2 33 31 20 |..Z.O.2.X :Y.31 |
00002370: 20 20 20 3A 42 24 B2 22 C1 D5 C7 D5 D3 D4 22 20 | :B$."......" |
00002380: 20 20 20 3A 8D 20 31 35 37 30 3A 8E 00 BB 2B BC | :. 1570:...+.|
00002390: 07 5A B2 4F AA 35 AA 58 20 3A 59 B2 33 30 20 20 |.Z.O.5.X :Y.30 |
000023A0: 20 20 3A 42 24 B2 22 D3 C5 D0 D4 C5 CD C2 C5 D2 | :B$.".........|
000023B0: 22 20 3A 8D 20 31 35 37 30 3A 8E 00 EA 2B C6 07 |" :. 1570:...+..|
000023C0: 5A B2 4F AA 58 20 20 20 3A 59 B2 33 31 20 20 20 |Z.O.X :Y.31 |
000023D0: 20 3A 42 24 B2 22 CF C3 D4 CF C2 C5 D2 22 20 20 | :B$."......." |
000023E0: 20 3A 8D 20 31 35 37 30 3A 8E 00 19 2C D0 07 5A | :. 1570:...,..Z|
000023F0: B2 4F AA 33 AA 58 20 3A 59 B2 33 30 20 20 20 20 |.O.3.X :Y.30 |
00002400: 3A 42 24 B2 22 CE CF D6 C5 CD C2 C5 D2 22 20 20 |:B$."........" |
00002410: 3A 8D 20 31 35 37 30 3A 8E 00 48 2C DA 07 5A B2 |:. 1570:..H,..Z.|
00002420: 4F AA 35 AA 58 20 3A 59 B2 33 31 20 20 20 20 3A |O.5.X :Y.31 :|
00002430: 42 24 B2 22 C4 C5 C3 C5 CD C2 C5 D2 22 20 20 3A |B$."........" :|
00002440: 8D 20 31 35 37 30 3A 8E 00 51 2C E4 07 99 22 93 |. 1570:..Q,...".|
00002450: 22 00 5C 2C EE 07 99 22 A7 A3 22 3B 00 6B 2C F8 |".\,..."..";.k,.|
00002460: 07 81 20 43 B2 31 20 A4 20 33 35 00 76 2C 02 08 |.. C.1 . 35.v,..|
00002470: 99 20 22 A3 22 3B 00 7E 2C 0C 08 82 20 43 00 88 |. ".";.~,... C..|
00002480: 2C 16 08 99 22 A3 A5 22 00 96 2C 20 08 81 20 43 |,..."..".., .. C|
00002490: B2 31 20 A4 20 57 00 AD 2C 2A 08 99 20 A3 30 29 |.1 . W..,*.. .0)|
000024A0: 3B 22 A7 22 3B A3 33 38 29 3B 22 A5 22 00 B5 2C |;".";.38);"."..,|
000024B0: 34 08 82 20 43 00 C1 2C 3E 08 99 20 22 A7 A4 22 |4.. C..,>.. ".."|
000024C0: 3B 00 D0 2C 48 08 81 20 43 B2 31 20 A4 20 33 35 |;..,H.. C.1 . 35|
000024D0: 00 DB 2C 52 08 99 20 22 A4 22 3B 00 E3 2C 5C 08 |..,R.. ".";..,\.|
000024E0: 82 20 43 00 EE 2C 66 08 99 20 22 A4 A5 22 00 F4 |. C..,f.. ".."..|
000024F0: 2C 70 08 8E 00 1F 2D D8 09 99 22 11 20 C4 4F 20 |,p....-...". .O |
00002500: 59 4F 55 20 57 41 4E 54 20 41 20 4D 41 52 4B 45 |YOU WANT A MARKE|
00002510: 52 20 4F 4E 20 41 20 44 41 54 45 3F 20 22 3B 00 |R ON A DATE? ";.|
00002520: 3C 2D E2 09 55 53 24 B2 22 59 4E 22 3A 55 4C B2 |<-..US$."YN":UL.|
00002530: 31 3A 8D 33 35 3A 56 24 B2 55 52 24 00 50 2D F6 |1:.35:V$.UR$.P-.|
00002540: 09 8B 56 24 B2 22 4E 22 20 A7 20 89 32 36 32 30 |..V$."N" . .2620|
00002550: 00 75 2D 00 0A 99 22 11 20 CF 4E 20 57 48 41 54 |.u-...". .N WHAT|
00002560: 20 44 41 59 20 4F 46 20 54 48 45 20 4D 4F 4E 54 | DAY OF THE MONT|
00002570: 48 3F 20 22 3B 00 9C 2D 0A 0A 55 53 24 B2 22 30 |H? ";..-..US$."0|
00002580: 31 32 33 34 35 36 37 38 39 22 3A 55 4C B2 32 3A |123456789":UL.2:|
00002590: 8D 33 35 3A 51 B2 C5 28 55 52 24 29 00 A2 2D 3C |.35:Q..(UR$)..-<|
000025A0: 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.R
...UT$.UL$:.53281,1:.".";:.53281,6......
UT,UV%:.UQ.UB.(U2%.256.U1%.U3%.3)......U
Q,UQ%(UQ.UB):.......U1,U1%.&....U2,U2%.2
....U4,U4%.@....U3,U3%.1.H....35.Z...UD%
.((U2%.256.U1%.U3%).UB).40:.H(UD$,UD%.1)
:.......H(UD$,24);"
. HELP COMING . ":......U1%.B(U1):U2%.
B(U2):U3%.B(U3):U4%.B(U4).....UJ$.US$:UK
$.UG$:UL$.UT$:UJ.UP:UK.UL....... .,.. **
MENU **.&.-.:.U....".":.UT,UU%:.B(50003
).0..53281,9:.53280,8.[./.:.X.1..".
MENU"...6.." ----------------
----------------------".O.;..".. 1
. BEGIN CALENDAR "...@..".. 2
. USER INSTRUCTIONS"...O..".. 3.
QUIT..".A.T.." ----------------------
----------------".L.Y..".. PRESS A
NUMBER KEY (1-3) ";...^.UL.1:US$."123":
.35:. INPUT ROUTINE...`.US$.""...C..E(UR
$).1000,400,396...H..300...... ** RE-ENA
BLE STOP KEY AND END **......B(50003)..1
.B(50003)..160.B(50003)..0.399.@....UU.7
1:.B(50003).0..53281,6:.53280,14.L....".
.":..W....875:..X.... ** STUDENT INSTRUC
TIONS **......".":.UT,UL%.....UG$."USER
INSTR.":UP.0:.850.X....". THIS IS A CALE
NDAR PROGRAM WITH WHICH"......". YOU CAN
SEE ANY YEAR'S & ANY MONTH'S".3....". C
ALENDAR. WHEN ASKED FOR THE YEAR,".]...
.". ENTER IT AS A FOUR DIGIT NUMBER.".R.
...". E.G. .1982."......". WHEN ASKED FO
R THE MONTH, ENTER IT"......". AS A NUMB
ER I.E.: .10."......". THIS PROGRAM WILL
ONLY WORK ACCURATELY"......". FOR YEARS
AFTER 1752."......835:.850.<.C..". * JA
NUARY OR 1";" ";.Y.E.."* JULY
OR 7";.Z.G..". * FEBRUARY OR 2";"
";...I.."* AUGUST OR 8";...K..".
* MARCH OR 3";" ";.U.M.."* SEPTEMB
ER OR 9";...O..". * APRIL OR 4"
;" ";...Q.."* OCTOBER OR 10";.4.S.
.". * MAY OR 5";" ";.Q.U.."* NOV
EMBER OR 11";.R.W..". * JUNE OR
6";" ";...Y.."* DECEMBER OR 12";.
.....". IF YOU WANT THE WHOLE YEAR'S CAL
ENDAR"......". THEN ENTER FOR THE MONTH
.ALL.."......". ENTER YOUR MONTH IN FULL
IF YOU ENTER".-....". IT AS A WORD.".;.
...835:.850.H...."..NOTE: ALWAYS PRESS T
HE <RETURN> KEY"......". AFTER ENTERING
AN ANSWER."......".. IF AT ANY TIME YOU
WOULD LIKE TO GO"......". BACK TO THE ME
NU,ENTER H <RETURN>."......835:.850.!...
.".. TO THE BEST OF OUR KNOWLEDGE,.
".J...." THIS PROGRAM IS IN THE PUBLIC
.".V...." DOMAIN. IF THIS IS NOT THE
CASE."......" PLEASE CONTACT:...".....
." COMMODORE BUSINESS MACHINES."...
..." 3370 PHARMACY AVE......."
AGINCOURT, ONTARIO".&. .."
CANADA M1W 2K4".F.".." (
416) 499-4292".V.$.. 835:. 850...&.."
..PROGRAM NAME: CALENDAR ....(.."
WRITTEN BY : O. N. NAMEKI ..M.*.."
UPGRADED BY : ....,.."
.THIS PROGRAM WILL RUN ON ANY........"
BASIC 2.0 PET COMPUTER..F.0.."
BASIC 4.0 PET COMPUTER..H.2.."
8032 CBM COMPUTER....4.."
COMMODORE 64 COMPUTER...6..835...N..UZ.1
..UP%:.217...W...U.... ** TO USE 8032 LO
AD CBM4032 **...F..".....BEFORE RUNNING
THIS PROGRAM ON AN 8032 ...A.P.."
LOAD THE 'CBM 4032' PROGRAM.............
".L.Z..UU.71.R.....R. .. ** T I T L E
P A G E **...".."....";:.UT,UU%:.B(50003
).0..53280,14:.53281,6...$..I.1.38:."...
";:..T.&..I.1.22:.".....";:....(..I.1.37
:.".....";:....*..I.1.22:.".....";:..).,
.."........................... ..K...."
................... . . ...L.0.."......
............. . ......2..".............
....... ....4.."..............C O M M O
D O R E...U.6.."...............EDUCATIO
NAL.....8.."................SOFTWARE...:
.. ** COMMODORE LOGO **.G.;..H(UD$,24);"
..........PRESS SPACE BAR OR WAIT.":I.0.
I.<..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 CONTI
NUE."...L..UI$:.UI$.." ".844...N...*.R..
** PAGE DESIGN ROUTINE **.6.T.UP.UP.1.Z
.W.."."H(UT$.UP$,21);I(UP$.UG$,18)...\..
" --------------------------------------
"...`..UH..0.870.L.A..H(UD$,24);H(UP$,7)
;"HELP - PRESS H <RETURN>"...F.UH.0:."
..":....K.. ** PLEASE WAIT REMARK **.2.P
..H(UD$,24);" ONE MOMENT PLEAS
E... ".8.U...U.... ** SET UP VARIABL
ES **. ...UX$."H":.UQ%(1000):UB.32768:U1
.196:U2.197:U3.198:U4.216:UC.167:UU.1024
.....UT.59468:UU%.12:UL%.14:UP%.1146:UM.
32768:UO.158:. 50003,0.!....B(50003).0.U
B.1024:U1.209:U2.210:U3.211:U4.214:UC.20
4:UU.2048.`....B(50003).0.UT.53272:UU%.2
1:UL%.23:UP%.2139:UM.1024:UO.198.....UD$
.".........................".....UP$."
"..
...UT$." CALENDAR ":. PLACE PRO
GRAM TITLE HERE !!!!!!!!!!!!!!!!!***....
...$.... ** SET VARIABLES **.-....900.H.
... ** CHECK FOR 8032 **.F....".":." ":.
SHIFTED SPACE.}....B(UB.40)..96..700...
... ** MEMORY CHECK **...... .(0).2000.9
37.X...."....THIS MACHINE DOES NOT HAVE
ENOUGH."......"MEMORY TO RUN THIS PROGRA
M !"......UU.71.......'...."..":.B(50003
).0.962.V.... ** BASIC 2.0 OR 4.0 OR
C-64 SETUP **......1075,133:.1076,144:.
1077,234:.1079,4:.1080,133:.1081,145.J..
..1091,155:.1098,133:.1099,144:.1100,234
:.1103,133......1104,145:.1105,234:.1082
,234.. ...B(50003)..160.955.2 ...1093,88
:.1094,228:.1097,85:.1102,228:.965.G ...
B(50003)..1.990.V ...1093,49:.1094,230:.
1097,46:.1102,230:.965.. B..2099,141:.21
00,20:.2101,3:.2103,8:.2104,141:.2105,21
.. C..2106,3:.2115,145:.2117,52:.2118,23
4:.2121,49:.2122,141.&!D..2123,20:.2124,
3:.2126,234:.2127,141:.2128,21:.2129,3.D
!E..UU.48:. DISABLE STOP KEY.U!J..800:.
TITLE.E!T..300:. MENU..!...".THE PGM WIL
L NOT WORK ON THIS MACHINE!":..K!...UZ.1
..UP%:.UP%:UZ.0:. ** PROGRAM STARTS HERE
**..!..."..";:.:.B(50003).0..53281,6:.5
3280,14.."... COPYRIGHT OSCAR NAOYUKI NA
MEKI.+"... CALENDAR.B"... COLUMBIA COLLE
GE.B"... 1619 W10 AVE VANCOUVER BC.."$..
UT,UL%:W.1:UG$."":UP.1:.850:."..........
":.2030.."..."............";.N"8.. "A PE
RPETUAL CALENDAR":.835.."L.UH.1:UP.UP.1:
.850..#`..".... WHAT YEAR'S CALENDAR DO
YOU WANT? ....";.D#E.US$."-012345678
9":UL.4:.35:A.E(UR$).X#F.. A.1752 . 1120
.W#J.B.(A.100):C..(A.100):D.B.C..#T..--C
ALCULATION OF LEAP YEAR..#~.. D.0 . 1190
.C#..B.(A.4):C..(A.4):D.B.C.T#... D.0 .
1230..#... 1250..#..B.(A.400):C..(A.400)
:D.B.C..$... D.0 . 1230..$... 1250.<$N..
". OH! THIS IS A LEAP YEAR.".K$X.X.1:. 1
260.S$..X.0.V$..F..(A.4):G..(A.400):H..(
A.100)..$..J.F.G.H..$..L.(A.J).7:M..((A.
J).7):Q.(L.M).7:O..(Q):R.Q.O.H$... R.0.9
. O.O.1.R$..O.O.X..$... O.0 . O.O.7..%2
..". WHAT IS THE MONTH? ";.A%7.US$."0123
456789ABCDEFGHIJKLMNOPQRSTUVWXYZ":UL.8:.
35:B$.UR$.K%F..2520.E%Z.. B$."ALL" . A$.
"ALL"..%D.. B$."JANUARY" . B$."1" . A$."
ALL" . . 1900.E%N.. B$."FEBRUARY". B$."2
" . A$."ALL" . . 1910..%X.. B$."MARCH"
. B$."3" . A$."ALL" . . 1920.)&... B
$."APRIL" . B$."4" . A$."ALL" . . 193
0.Y&... B$."MAY" . B$."5" . A$."ALL"
. . 1940..&... B$."JUNE" . B$."6" .
A$."ALL" . . 1950..& .. B$."JULY"
. B$."7" . A$."ALL" . . 1960..&... B
$."AUGUST" . B$."8" . A$."ALL" . . 19
70.#'... B$."SEPTEMBER". B$."9" . A$."AL
L" . . 1980.U'... B$."OCTOBER" . B$."10"
. A$."ALL" . . 1990..'H.. B$."NOVEMBER
" . B$."11" . A$."ALL" . . 2000..'R.. B$
."DECEMBER" . B$."12" . A$."ALL" . . 201
0.V'..UH.1:UG$."":UP.UP.1:.850..'..."..
ANOTHER CALENDAR? ";..(..US$."YN":UL.1:.
35:C$.UR$.*(... C$."Y". UP.0:.1100.:(...
:.900:.300.@(....R(".. Z.6 . Z.Z.7.D(,..
Z.0 . Z.Z.7.{(T.. WRITING CALENDAR..(^.
W.20:.2020..(H..".";"....";..(R.A..(A)..
(|.. .3);B$,.20);A..(..."..";.3);"SUN M
ON TUE WED THU FRI SAT"..(..."..";.
.)... K.0 . 5..)..L.(K.7).1:M.L.6.')...
N.L . M.1)..P.N.Z.C)B.. P..0 . 1820.A)L.
. N.7 . Z1.N.(7.K):. 1760.J)V.Z1.N.{)...
P.9 . 1780..)..I.(5.Z1).2:. 1790. )..I.
(5.Z1).3..)... P.Y . 1860.Z)... P.Q . .
.I);".";P:.:. "...":. 1820..)... .I);P;.
.)... N..)&....)0....*:.. K..*D....*N..8
35:..C*L.Z.O :Y.31 :B$."JANUARY"
:. 1570:..R*V.Z.O.3 :Y.28.X :B$."FE
BRUARY" :. 1570:...*..Z.O.3.X :Y.31
:B$."MARCH" :. 1570:..P*..Z.O.1.X :Y
.30 :B$."APRIL" :. 1570:...*..Z.O
.1.X :Y.31 :B$."MAY" :. 1570:..
.+..Z.O.4.X :Y.30 :B$."JUNE" :.
1570:..]+..Z.O.1.X :Y.31 :B$."JULY"
:. 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" :. 1570:
..H,Z.Z.O.5.X :Y.31 :B$."DECEMBER" :
. 1570:..Q,...".".\,..."..";.K,... C.1 .
35.V,... ".";.~,... C..,..."..".., .. C
.1 . W..,*.. .0);".";.38);"."..,4.. C.A,
>.. "..";.P,H.. C.1 . 35..,R.. ".";..,\.
. C..,F.. ".."..,P....-X..". DO YOU WANT
A MARKER ON A DATE? ";.<-..US$."YN":UL.
1:.35:V$.UR$.P-...V$."N" . .2620.U-...".
ON WHAT DAY OF THE MONTH? ";..-..US$."0
123456789":UL.2:.35:Q.E(UR$)..-<.....
> CLICK IMAGE PREVIEW FOR FULL MODAL