CALENDAR
FILE INFORMATION
FILENAME(S): CALENDAR
FILE TYPE(S): PRG
FILE SIZE: 9.4K
FIRST SEEN: 2025-11-30 18:12:50
APPEARS ON: 2 disk(s)
FILE HASH
60b2b4c72079c2cc2797ade8e1d831332c275c9bcf97311b8d61153e567e3d69
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIES | CALENDAR | PRG | Sailor, Ganheden | 12 | 11 | DOWNLOAD FILE |
| C64 STARTER KIT | CALENDAR | PRG | Curtcool, Bo | 31 | 0 | 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 CB |NTH, ENTER.IT"..| 000009A0: 11 BA 01 99 22 11 20 45 49 54 48 45 52 20 49 4E |....". EITHER IN| 000009B0: A0 57 4F 52 44 53 A0 4F 52 A0 49 4E A0 4E 55 4D |.WORDS.OR.IN.NUM| 000009C0: 42 45 52 53 20 C9 2E C5 2E 3A 22 00 FB 11 BB 01 |BERS ....:".....| 000009D0: 99 22 11 20 D4 48 49 53 A0 50 52 4F 47 52 41 4D |.". .HIS.PROGRAM| 000009E0: 20 57 49 4C 4C 20 4F 4E 4C 59 20 57 4F 52 4B 20 | WILL ONLY WORK | 000009F0: 41 43 43 55 52 41 54 45 4C 59 22 00 1A 12 BC 01 |ACCURATELY".....| 00000A00: 99 22 11 20 46 4F 52 20 59 45 41 52 53 20 41 46 |.". FOR YEARS AF| 00000A10: 54 45 52 20 31 37 35 32 2E 22 00 28 12 BD 01 8D |TER 1752.".(....| 00000A20: 38 33 35 3A 8D 38 35 30 00 49 12 C3 01 99 22 11 |835:.850.I....".| 00000A30: 20 2A 20 CA C1 CE D5 C1 D2 D9 20 20 CF D2 20 20 | * ....... .. | 00000A40: 20 31 22 3B 22 20 20 22 3B 00 66 12 C5 01 99 22 | 1";" ";.f...."| 00000A50: 2A 20 CA D5 CC D9 20 20 20 20 20 20 20 CF D2 20 |* .... .. | 00000A60: 20 20 20 37 22 3B 00 87 12 C7 01 99 22 11 20 2A | 7";......". *| 00000A70: 20 C6 C5 C2 D2 D5 C1 D2 D9 20 CF D2 20 20 20 32 | ........ .. 2| 00000A80: 22 3B 22 20 20 22 3B 00 A4 12 C9 01 99 22 2A 20 |";" ";......"* | 00000A90: C1 D5 C7 D5 D3 D4 20 20 20 20 20 CF D2 20 20 20 |...... .. | 00000AA0: 20 38 22 3B 00 C5 12 CB 01 99 22 11 20 2A 20 CD | 8";......". * .| 00000AB0: C1 D2 C3 C8 20 20 20 20 CF D2 20 20 20 33 22 3B |.... .. 3";| 00000AC0: 22 20 20 22 3B 00 E2 12 CD 01 99 22 2A 20 D3 C5 |" ";......"* ..| 00000AD0: D0 D4 C5 CD C2 C5 D2 20 20 CF D2 20 20 20 20 39 |....... .. 9| 00000AE0: 22 3B 00 03 13 CF 01 99 22 11 20 2A 20 C1 D0 D2 |";......". * ...| 00000AF0: C9 CC 20 20 20 20 CF D2 20 20 20 34 22 3B 22 20 |.. .. 4";" | 00000B00: 20 22 3B 00 20 13 D1 01 99 22 2A 20 CF C3 D4 CF | ";. ...."* ....| 00000B10: C2 C5 D2 20 20 20 20 CF D2 20 20 20 31 30 22 3B |... .. 10";| 00000B20: 00 41 13 D3 01 99 22 11 20 2A 20 CD C1 D9 20 20 |.A....". * ... | 00000B30: 20 20 20 20 CF D2 20 20 20 35 22 3B 22 20 20 22 | .. 5";" "| 00000B40: 3B 00 5E 13 D5 01 99 22 2A 20 CE CF D6 C5 CD C2 |;.^...."* ......| 00000B50: C5 D2 20 20 20 CF D2 20 20 20 31 31 22 3B 00 7F |.. .. 11";..| 00000B60: 13 D7 01 99 22 11 20 2A 20 CA D5 CE C5 20 20 20 |....". * .... | 00000B70: 20 20 CF D2 20 20 20 36 22 3B 22 20 20 22 3B 00 | .. 6";" ";.| 00000B80: 9C 13 D9 01 99 22 2A 20 C4 C5 C3 C5 CD C2 C5 D2 |....."* ........| 00000B90: 20 20 20 CF D2 20 20 20 31 32 22 3B 00 CB 13 DD | .. 12";....| 00000BA0: 01 99 22 11 20 C9 46 A0 59 4F 55 A0 57 41 4E 54 |..". .F.YOU.WANT| 00000BB0: A0 54 48 45 A0 57 48 4F 4C 45 A0 59 45 41 52 27 |.THE.WHOLE.YEAR'| 00000BC0: 53 A0 43 41 4C 45 4E 44 41 52 22 00 F4 13 DF 01 |S.CALENDAR".....| 00000BD0: 99 22 11 20 54 48 45 4E A0 45 4E 54 45 52 A0 46 |.". THEN.ENTER.F| 00000BE0: 4F 52 A0 54 48 45 A0 4D 4F 4E 54 48 20 12 C1 CC |OR.THE.MONTH ...| 00000BF0: CC 92 2E 22 00 23 14 E1 01 99 22 11 20 C5 4E 54 |...".#....". .NT| 00000C00: 45 52 A0 59 4F 55 52 A0 4D 4F 4E 54 48 A0 49 4E |ER.YOUR.MONTH.IN| 00000C10: A0 46 55 4C 4C A0 49 46 A0 59 4F 55 A0 45 4E 54 |.FULL.IF.YOU.ENT| 00000C20: 45 52 22 00 3A 14 E2 01 99 22 11 20 49 54 20 41 |ER".:....". IT A| 00000C30: 53 A0 41 A0 57 4F 52 44 2E 22 00 48 14 E5 01 8D |S.A.WORD.".H....| 00000C40: 38 33 35 3A 8D 38 35 30 00 75 14 F4 01 99 22 11 |835:.850.u....".| 00000C50: 11 CE CF D4 C5 3A 20 C1 4C 57 41 59 53 A0 50 52 |.....: .LWAYS.PR| 00000C60: 45 53 53 A0 54 48 45 A0 3C D2 C5 D4 D5 D2 CE 3E |ESS.THE.<......>| 00000C70: 20 4B 45 59 22 00 98 14 F6 01 99 22 11 20 41 46 | KEY"......". AF| 00000C80: 54 45 52 A0 45 4E 54 45 52 49 4E 47 A0 41 4E A0 |TER.ENTERING.AN.| 00000C90: 41 4E 53 57 45 52 2E 22 00 C6 14 F7 01 99 22 11 |ANSWER."......".| 00000CA0: 11 20 C9 46 A0 41 54 A0 41 4E 59 A0 54 49 4D 45 |. .F.AT.ANY.TIME| 00000CB0: A0 59 4F 55 A0 57 4F 55 4C 44 A0 4C 49 4B 45 A0 |.YOU.WOULD.LIKE.| 00000CC0: 54 4F A0 47 4F 22 00 F2 14 F9 01 99 22 11 20 42 |TO.GO"......". B| 00000CD0: 41 43 4B A0 54 4F A0 54 48 45 A0 CD C5 CE D5 2C |ACK.TO.THE.....,| 00000CE0: 45 4E 54 45 52 20 C8 20 3C D2 C5 D4 D5 D2 CE 3E |ENTER . <......>| 00000CF0: 2E 22 00 00 15 FE 01 8D 38 33 35 3A 8D 38 35 30 |."......835:.850| 00000D00: 00 2E 15 12 02 99 22 11 11 20 20 20 20 20 20 D4 |......".. .| 00000D10: 4F 20 54 48 45 20 42 45 53 54 20 4F 46 20 4F 55 |O THE BEST OF OU| 00000D20: 52 20 4B 4E 4F 57 4C 45 44 47 45 2C 11 22 00 57 |R KNOWLEDGE,.".W| 00000D30: 15 14 02 99 22 20 20 20 54 48 49 53 20 50 52 4F |...." THIS PRO| 00000D40: 47 52 41 4D 20 49 53 20 49 4E 20 54 48 45 20 50 |GRAM IS IN THE P| 00000D50: 55 42 4C 49 43 11 22 00 83 15 16 02 99 22 20 20 |UBLIC."......" | 00000D60: 20 44 4F 4D 41 49 4E 2E 20 20 C9 46 20 54 48 49 | DOMAIN. .F THI| 00000D70: 53 20 49 53 20 4E 4F 54 20 54 48 45 20 43 41 53 |S IS NOT THE CAS| 00000D80: 45 11 22 00 A0 15 18 02 99 22 20 20 20 50 4C 45 |E."......" PLE| 00000D90: 41 53 45 20 43 4F 4E 54 41 43 54 3A 11 11 11 22 |ASE CONTACT:..."| 00000DA0: 00 CA 15 1A 02 99 22 20 20 20 20 20 20 C3 4F 4D |......" .OM| 00000DB0: 4D 4F 44 4F 52 45 20 C2 55 53 49 4E 45 53 53 20 |MODORE .USINESS | 00000DC0: CD 41 43 48 49 4E 45 53 11 22 00 ED 15 1C 02 99 |.ACHINES."......| 00000DD0: 22 20 20 20 20 20 20 20 20 20 20 33 33 37 30 20 |" 3370 | 00000DE0: D0 48 41 52 4D 41 43 59 20 C1 56 45 2E 00 11 16 |.HARMACY .VE....| 00000DF0: 1E 02 99 22 20 20 20 20 20 20 20 20 20 20 C1 47 |..." .G| 00000E00: 49 4E 43 4F 55 52 54 2C 20 CF 4E 54 41 52 49 4F |INCOURT, .NTARIO| 00000E10: 22 00 33 16 20 02 99 22 20 20 20 20 20 20 20 20 |".3. .." | 00000E20: 20 20 C3 41 4E 41 44 41 20 20 20 CD 31 D7 20 32 | .ANADA .1. 2| 00000E30: CB 34 22 00 53 16 22 02 99 22 20 20 20 20 20 20 |.4".S.".." | 00000E40: 20 20 20 20 28 34 31 36 29 20 34 39 39 2D 34 32 | (416) 499-42| 00000E50: 39 32 22 00 63 16 24 02 8D 20 38 33 35 3A 8D 20 |92".c.$.. 835:. | 00000E60: 38 35 30 00 8D 16 26 02 99 22 20 20 20 20 20 11 |850...&.." .| 00000E70: 11 D0 52 4F 47 52 41 4D 20 CE 41 4D 45 3A 20 C3 |..ROGRAM .AME: .| 00000E80: 41 4C 45 4E 44 41 52 20 20 20 20 20 11 00 B6 16 |ALENDAR ....| 00000E90: 28 02 99 22 20 20 20 20 20 D7 52 49 54 54 45 4E |(.." .RITTEN| 00000EA0: 20 C2 59 20 20 3A 20 CF 2E 20 CE 2E 20 CE 41 4D | .Y : .. .. .AM| 00000EB0: 45 4B 49 20 20 11 00 DA 16 2A 02 99 22 20 20 20 |EKI ....*.." | 00000EC0: 20 20 D5 50 47 52 41 44 45 44 20 C2 59 20 3A 20 | .PGRADED .Y : | 00000ED0: 20 20 20 20 20 20 20 20 20 11 00 05 17 2C 02 99 | ....,..| 00000EE0: 22 20 20 20 20 20 11 D4 48 49 53 20 50 52 4F 47 |" ..HIS PROG| 00000EF0: 52 41 4D 20 57 49 4C 4C 20 52 55 4E 20 4F 4E 20 |RAM WILL RUN ON | 00000F00: 41 4E 59 11 11 00 2C 17 2E 02 99 22 20 20 20 20 |ANY...,...." | 00000F10: 20 20 20 20 20 C2 C1 D3 C9 C3 A0 32 2E 30 20 D0 | ......2.0 .| 00000F20: C5 D4 20 C3 CF CD D0 D5 D4 C5 D2 11 00 53 17 30 |.. ..........S.0| 00000F30: 02 99 22 20 20 20 20 20 20 20 20 20 C2 C1 D3 C9 |.." ....| 00000F40: C3 20 34 2E 30 20 D0 C5 D4 A0 C3 CF CD D0 D5 D4 |. 4.0 ..........| 00000F50: C5 D2 11 00 75 17 32 02 99 22 20 20 20 20 20 20 |....u.2.." | 00000F60: 20 20 20 38 30 33 32 20 C3 C2 CD 20 C3 CF CD D0 | 8032 ... ....| 00000F70: D5 D4 C5 D2 11 00 9A 17 34 02 99 22 20 20 20 20 |........4.." | 00000F80: 20 20 20 20 20 C3 CF CD CD CF C4 CF D2 C5 20 36 | ......... 6| 00000F90: 34 20 C3 CF CD D0 D5 D4 C5 D2 00 A3 17 36 02 8D |4 ...........6..| 00000FA0: 38 33 35 00 B7 17 4E 02 8B 55 5A B2 31 A7 9E 55 |835...N..UZ.1..U| 00000FB0: 50 25 3A 89 32 31 37 00 BD 17 57 02 8E 00 E2 17 |P%:.217...W.....| 00000FC0: BC 02 8F 20 2A 2A 20 54 4F 20 55 53 45 20 38 30 |... ** TO USE 80| 00000FD0: 33 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 32 20 |32 LOAD CBM4032 | 00000FE0: 2A 2A 00 18 18 C6 02 99 22 93 11 11 11 05 42 45 |**......".....BE| 00000FF0: 46 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 48 49 |FORE RUNNING THI| 00001000: 53 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 |S PROGRAM ON AN | 00001010: 38 30 33 32 20 20 11 11 00 4E 18 D0 02 99 22 20 |8032 ...N...." | 00001020: 20 20 20 20 20 4C 4F 41 44 20 54 48 45 20 27 43 | LOAD THE 'C| 00001030: 42 4D 20 34 30 33 32 27 20 50 52 4F 47 52 41 4D |BM 4032' PROGRAM| 00001040: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 59 |.............".Y| 00001050: 18 DA 02 9E 55 55 AA 37 31 00 5F 18 E4 02 80 00 |....UU.71._.....| 00001060: 7F 18 20 03 8F 20 2A 2A 20 54 20 49 20 54 20 4C |.. .. ** T I T L| 00001070: 20 45 20 20 20 50 20 41 20 47 20 45 20 2A 2A 00 | E P A G E **.| 00001080: B3 18 22 03 99 22 93 11 1D 05 22 3B 3A 97 55 54 |..".."....";:.UT| 00001090: 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 |,UU%:..(50003).0| 000010A0: A7 97 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 |..53280,14:.5328| 000010B0: 31 2C 36 00 C9 18 24 03 81 49 B2 31 A4 33 38 3A |1,6...$..I.1.38:| 000010C0: 99 22 12 A6 92 22 3B 3A 82 00 E1 18 26 03 81 49 |."...";:....&..I| 000010D0: B2 31 A4 32 32 3A 99 22 11 9D 12 A6 92 22 3B 3A |.1.22:.".....";:| 000010E0: 82 00 F9 18 28 03 81 49 B2 31 A4 33 37 3A 99 22 |....(..I.1.37:."| 000010F0: 9D 9D 12 A6 92 22 3B 3A 82 00 11 19 2A 03 81 49 |.....";:....*..I| 00001100: B2 31 A4 32 32 3A 99 22 91 9D 12 A6 92 22 3B 3A |.1.22:.".....";:| 00001110: 82 00 36 19 2C 03 99 22 13 11 11 11 11 11 11 1D |..6.,.."........| 00001120: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00001130: 1D 12 A9 20 20 92 00 58 19 2E 03 99 22 1D 1D 1D |... ..X...."...| 00001140: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 |................| 00001150: 20 92 20 20 12 20 92 A9 00 79 19 30 03 99 22 1D | . . ...y.0..".| 00001160: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00001170: 1D 12 20 92 20 20 12 A3 DF 00 97 19 32 03 99 22 |.. . ......2.."| 00001180: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00001190: 1D 1D DF 12 20 20 92 00 BF 19 34 03 99 22 11 11 |.... ....4.."..| 000011A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 20 4F 20 |............C O | 000011B0: 4D 20 4D 20 4F 20 44 20 4F 20 52 20 45 11 11 00 |M M O D O R E...| 000011C0: E2 19 36 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..6.."..........| 000011D0: 1D 1D 1D 1D 1D 45 44 55 43 41 54 49 4F 4E 41 4C |.....EDUCATIONAL| 000011E0: 11 11 00 01 1A 38 03 99 22 1D 1D 1D 1D 1D 1D 1D |.....8..".......| 000011F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F 46 54 57 41 52 |.........SOFTWAR| 00001200: 45 00 1C 1A 3A 03 8F 20 2A 2A 20 43 4F 4D 4D 4F |E...:.. ** COMMO| 00001210: 44 4F 52 45 20 4C 4F 47 4F 20 2A 2A 00 54 1A 3B |DORE LOGO **.T.;| 00001220: 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D |...(UD$,24);"...| 00001230: 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 |.......PRESS SPA| 00001240: 43 45 20 42 41 52 20 4F 52 20 57 41 49 54 92 22 |CE BAR OR WAIT."| 00001250: 3A 49 B2 30 00 76 1A 3C 03 A1 41 24 3A 8B 41 24 |:I.0.v.<..A$:.A$| 00001260: B3 B1 22 20 22 A7 49 B2 49 AA 31 3A 8B 49 B3 32 |.." ".I.I.1:.I.2| 00001270: 35 30 A7 38 32 38 00 9A 1A 3E 03 54 31 24 B2 22 |50.828...>.T1$."| 00001280: 22 3A 54 32 24 B2 22 22 3A 54 33 24 B2 22 22 3A |":T2$."":T3$."":| 00001290: 54 34 24 B2 22 22 3A 49 B2 30 00 A3 1A 40 03 89 |T4$."":I.0...@..| 000012A0: 33 30 30 00 BF 1A 43 03 8F 20 2A 2A 20 53 50 41 |300...C.. ** SPA| 000012B0: 43 45 20 42 41 52 20 50 52 45 53 53 20 2A 2A 00 |CE BAR PRESS **.| 000012C0: FA 1A 48 03 97 55 4F 2C 30 3A 99 C8 28 55 44 24 |..H..UO,0:..(UD$| 000012D0: 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 45 |,24);".......PRE| 000012E0: 53 53 20 53 50 41 43 45 20 42 41 52 20 54 4F 20 |SS SPACE BAR TO | 000012F0: 43 4F 4E 54 49 4E 55 45 92 22 00 11 1B 4C 03 A1 |CONTINUE."...L..| 00001300: 55 49 24 3A 8B 55 49 24 B3 B1 22 20 22 A7 38 34 |UI$:.UI$.." ".84| 00001310: 34 00 17 1B 4E 03 8E 00 37 1B 52 03 8F 20 2A 2A |4...N...7.R.. **| 00001320: 20 50 41 47 45 20 44 45 53 49 47 4E 20 52 4F 55 | PAGE DESIGN ROU| 00001330: 54 49 4E 45 20 2A 2A 00 43 1B 54 03 55 50 B2 55 |TINE **.C.T.UP.U| 00001340: 50 AA 31 00 67 1B 57 03 99 22 93 22 C8 28 55 54 |P.1.g.W..".".(UT| 00001350: 24 AA 55 50 24 2C 32 31 29 3B C9 28 55 50 24 AA |$.UP$,21);.(UP$.| 00001360: 55 47 24 2C 31 38 29 00 96 1B 5C 03 99 22 20 2D |UG$,18)...\.." -| 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 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001390: 2D 2D 2D 2D 2D 22 00 A5 1B 60 03 8B 55 48 B3 B1 |-----"...`..UH..| 000013A0: 30 A7 38 37 30 00 D9 1B 61 03 99 C8 28 55 44 24 |0.870...a...(UD$| 000013B0: 2C 32 34 29 3B C8 28 55 50 24 2C 37 29 3B 22 48 |,24);.(UP$,7);"H| 000013C0: 45 4C 50 20 2D 20 50 52 45 53 53 20 20 20 48 20 |ELP - PRESS H | 000013D0: 3C 52 45 54 55 52 4E 3E 22 00 EA 1B 66 03 55 48 |<RETURN>"...f.UH| 000013E0: B2 30 3A 99 22 13 11 22 3A 8E 00 09 1C 6B 03 8F |.0:."..":....k..| 000013F0: 20 2A 2A 20 50 4C 45 41 53 45 20 57 41 49 54 20 | ** PLEASE WAIT | 00001400: 52 45 4D 41 52 4B 20 2A 2A 00 3F 1C 70 03 99 C8 |REMARK **.?.p...| 00001410: 28 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 |(UD$,24);" | 00001420: 20 20 20 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 | ONE MOMENT | 00001430: 50 4C 45 41 53 45 2E 2E 2E 20 20 20 20 20 22 00 |PLEASE... ".| 00001440: 45 1C 75 03 8E 00 62 1C 84 03 8F 20 2A 2A 20 53 |E.u...b.... ** S| 00001450: 45 54 20 55 50 20 56 41 52 49 41 42 4C 45 53 20 |ET UP VARIABLES | 00001460: 2A 2A 00 AD 1C 85 03 55 58 24 B2 22 48 22 3A 86 |**.....UX$."H":.| 00001470: 55 51 25 28 31 30 30 30 29 3A 55 42 B2 33 32 37 |UQ%(1000):UB.327| 00001480: 36 38 3A 55 31 B2 31 39 36 3A 55 32 B2 31 39 37 |68:U1.196:U2.197| 00001490: 3A 55 33 B2 31 39 38 3A 55 34 B2 32 31 36 3A 55 |:U3.198:U4.216:U| 000014A0: 43 B2 31 36 37 3A 55 55 B2 31 30 32 34 00 EB 1C |C.167:UU.1024...| 000014B0: 86 03 55 54 B2 35 39 34 36 38 3A 55 55 25 B2 31 |..UT.59468:UU%.1| 000014C0: 32 3A 55 4C 25 B2 31 34 3A 55 50 25 B2 31 31 34 |2:UL%.14:UP%.114| 000014D0: 36 3A 55 4D B2 33 32 37 36 38 3A 55 4F B2 31 35 |6:UM.32768:UO.15| 000014E0: 38 3A 97 20 35 30 30 30 33 2C 30 00 2E 1D 87 03 |8:. 50003,0.....| 000014F0: 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 42 B2 31 |..(50003).0.UB.1| 00001500: 30 32 34 3A 55 31 B2 32 30 39 3A 55 32 B2 32 31 |024:U1.209:U2.21| 00001510: 30 3A 55 33 B2 32 31 31 3A 55 34 B2 32 31 34 3A |0:U3.211:U4.214:| 00001520: 55 43 B2 32 30 34 3A 55 55 B2 32 30 34 38 00 6D |UC.204:UU.2048.m| 00001530: 1D 88 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 |.....(50003).0.U| 00001540: 54 B2 35 33 32 37 32 3A 55 55 25 B2 32 31 3A 55 |T.53272:UU%.21:U| 00001550: 4C 25 B2 32 33 3A 55 50 25 B2 32 31 33 39 3A 55 |L%.23:UP%.2139:U| 00001560: 4D B2 31 30 32 34 3A 55 4F B2 31 39 38 00 91 1D |M.1024:UO.198...| 00001570: 89 03 55 44 24 B2 22 13 11 11 11 11 11 11 11 11 |..UD$.".........| 00001580: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00001590: 22 00 C3 1D 8A 03 55 50 24 B2 22 20 20 20 20 20 |".....UP$." | 000015A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000015B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000015C0: 20 20 22 00 11 1E 8B 03 55 54 24 B2 22 20 C3 C1 | ".....UT$." ..| 000015D0: CC C5 CE C4 C1 D2 20 20 20 20 20 A0 A0 A0 A0 A0 |...... .....| 000015E0: 22 3A 8F 20 50 4C 41 43 45 20 50 52 4F 47 52 41 |":. PLACE PROGRA| 000015F0: 4D 20 54 49 54 4C 45 20 48 45 52 45 20 21 21 21 |M TITLE HERE !!!| 00001600: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 2A 2A |!!!!!!!!!!!!!!**| 00001610: 2A 00 17 1E 8C 03 8E 00 31 1E 8E 03 8F 20 2A 2A |*.......1.... **| 00001620: 20 53 45 54 20 56 41 52 49 41 42 4C 45 53 20 2A | SET VARIABLES *| 00001630: 2A 00 3A 1E 93 03 8D 39 30 30 00 55 1E 98 03 8F |*.:....900.U....| 00001640: 20 2A 2A 20 43 48 45 43 4B 20 46 4F 52 20 38 30 | ** CHECK FOR 80| 00001650: 33 32 20 2A 2A 00 73 1E 9D 03 99 22 93 22 3A 99 |32 **.s....".":.| 00001660: 22 A0 22 3A 8F 20 53 48 49 46 54 45 44 20 53 50 |".":. SHIFTED SP| 00001670: 41 43 45 00 8A 1E A2 03 8B C2 28 55 42 AA 34 30 |ACE.......(UB.40| 00001680: 29 B3 B1 39 36 A7 8D 37 30 30 00 A3 1E A3 03 8F |)..96..700......| 00001690: 20 2A 2A 20 4D 45 4D 4F 52 59 20 43 48 45 43 4B | ** MEMORY CHECK| 000016A0: 20 2A 2A 00 B7 1E A4 03 8B 20 B8 28 30 29 B1 32 | **...... .(0).2| 000016B0: 30 30 30 A7 39 33 37 00 E5 1E A5 03 99 22 93 11 |000.937......"..| 000016C0: 11 05 54 48 49 53 20 4D 41 43 48 49 4E 45 20 44 |..THIS MACHINE D| 000016D0: 4F 45 53 20 4E 4F 54 20 48 41 56 45 20 45 4E 4F |OES NOT HAVE ENO| 000016E0: 55 47 48 11 22 00 09 1F A6 03 99 22 4D 45 4D 4F |UGH."......"MEMO| 000016F0: 52 59 20 54 4F 20 52 55 4E 20 54 48 49 53 20 50 |RY TO RUN THIS P| 00001700: 52 4F 47 52 41 4D 20 21 22 00 14 1F A7 03 9E 55 |ROGRAM !"......U| 00001710: 55 AA 37 31 00 1A 1F A8 03 80 00 34 1F A9 03 99 |U.71.......4....| 00001720: 22 93 05 22 3A 8B C2 28 35 30 30 30 33 29 B2 30 |"..":..(50003).0| 00001730: A7 39 36 32 00 63 1F AC 03 8F 20 2A 2A 20 42 41 |.962.c.... ** BA| 00001740: 53 49 43 20 32 2E 30 20 20 4F 52 20 20 34 2E 30 |SIC 2.0 OR 4.0| 00001750: 20 20 4F 52 20 20 43 2D 36 34 20 53 45 54 55 50 | OR C-64 SETUP| 00001760: 20 2A 2A 00 A1 1F AD 03 97 31 30 37 35 2C 31 33 | **......1075,13| 00001770: 33 3A 97 31 30 37 36 2C 31 34 34 3A 97 31 30 37 |3:.1076,144:.107| 00001780: 37 2C 32 33 34 3A 97 31 30 37 39 2C 34 3A 97 31 |7,234:.1079,4:.1| 00001790: 30 38 30 2C 31 33 33 3A 97 31 30 38 31 2C 31 34 |080,133:.1081,14| 000017A0: 35 00 D7 1F AE 03 97 31 30 39 31 2C 31 35 35 3A |5......1091,155:| 000017B0: 97 31 30 39 38 2C 31 33 33 3A 97 31 30 39 39 2C |.1098,133:.1099,| 000017C0: 31 34 34 3A 97 31 31 30 30 2C 32 33 34 3A 97 31 |144:.1100,234:.1| 000017D0: 31 30 33 2C 31 33 33 00 F9 1F AF 03 97 31 31 30 |103,133......110| 000017E0: 34 2C 31 34 35 3A 97 31 31 30 35 2C 32 33 34 3A |4,145:.1105,234:| 000017F0: 97 31 30 38 32 2C 32 33 34 00 10 20 B1 03 8B C2 |.1082,234.. ....| 00001800: 28 35 30 30 30 33 29 B3 B1 31 36 30 A7 39 35 35 |(50003)..160.955| 00001810: 00 3F 20 B6 03 97 31 30 39 33 2C 38 38 3A 97 31 |.? ...1093,88:.1| 00001820: 30 39 34 2C 32 32 38 3A 97 31 30 39 37 2C 38 35 |094,228:.1097,85| 00001830: 3A 97 31 31 30 32 2C 32 32 38 3A 89 39 36 35 00 |:.1102,228:.965.| 00001840: 54 20 BB 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 |T ....(50003)..1| 00001850: A7 39 39 30 00 83 20 C0 03 97 31 30 39 33 2C 34 |.990.. ...1093,4| 00001860: 39 3A 97 31 30 39 34 2C 32 33 30 3A 97 31 30 39 |9:.1094,230:.109| 00001870: 37 2C 34 36 3A 97 31 31 30 32 2C 32 33 30 3A 89 |7,46:.1102,230:.| 00001880: 39 36 35 00 BD 20 C2 03 97 32 30 39 39 2C 31 34 |965.. ...2099,14| 00001890: 31 3A 97 32 31 30 30 2C 32 30 3A 97 32 31 30 31 |1:.2100,20:.2101| 000018A0: 2C 33 3A 97 32 31 30 33 2C 38 3A 97 32 31 30 34 |,3:.2103,8:.2104| 000018B0: 2C 31 34 31 3A 97 32 31 30 35 2C 32 31 00 F9 20 |,141:.2105,21.. | 000018C0: C3 03 97 32 31 30 36 2C 33 3A 97 32 31 31 35 2C |...2106,3:.2115,| 000018D0: 31 34 35 3A 97 32 31 31 37 2C 35 32 3A 97 32 31 |145:.2117,52:.21| 000018E0: 31 38 2C 32 33 34 3A 97 32 31 32 31 2C 34 39 3A |18,234:.2121,49:| 000018F0: 97 32 31 32 32 2C 31 34 31 00 33 21 C4 03 97 32 |.2122,141.3!...2| 00001900: 31 32 33 2C 32 30 3A 97 32 31 32 34 2C 33 3A 97 |123,20:.2124,3:.| 00001910: 32 31 32 36 2C 32 33 34 3A 97 32 31 32 37 2C 31 |2126,234:.2127,1| 00001920: 34 31 3A 97 32 31 32 38 2C 32 31 3A 97 32 31 32 |41:.2128,21:.212| 00001930: 39 2C 33 00 51 21 C5 03 9E 55 55 AA 34 38 3A 8F |9,3.Q!...UU.48:.| 00001940: 20 44 49 53 41 42 4C 45 20 53 54 4F 50 20 4B 45 | DISABLE STOP KE| 00001950: 59 00 62 21 CA 03 8D 38 30 30 3A 8F 20 54 49 54 |Y.b!...800:. TIT| 00001960: 4C 45 00 72 21 D4 03 89 33 30 30 3A 8F 20 4D 45 |LE.r!...300:. ME| 00001970: 4E 55 00 A3 21 DE 03 99 22 93 54 48 45 20 50 47 |NU..!...".THE PG| 00001980: 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 4B 20 |M WILL NOT WORK | 00001990: 4F 4E 20 54 48 49 53 20 4D 41 43 48 49 4E 45 21 |ON THIS MACHINE!| 000019A0: 22 3A 80 00 D8 21 E8 03 8B 55 5A B2 31 A7 9E 55 |":...!...UZ.1..U| 000019B0: 50 25 3A 9E 55 50 25 3A 55 5A B2 30 3A 8F 20 2A |P%:.UP%:UZ.0:. *| 000019C0: 2A 20 50 52 4F 47 52 41 4D 20 53 54 41 52 54 53 |* PROGRAM STARTS| 000019D0: 20 48 45 52 45 20 2A 2A 00 04 22 E9 03 99 22 93 | HERE **.."...".| 000019E0: 05 22 3B 3A 8C 3A 8B C2 28 35 30 30 30 33 29 B2 |.";:.:..(50003).| 000019F0: 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 |0..53281,6:.5328| 00001A00: 30 2C 31 34 00 29 22 FC 03 8F 20 43 4F 50 59 52 |0,14.)"... COPYR| 00001A10: 49 47 48 54 20 4F 53 43 41 52 20 4E 41 4F 59 55 |IGHT OSCAR NAOYU| 00001A20: 4B 49 20 4E 41 4D 45 4B 49 00 38 22 06 04 8F 20 |KI NAMEKI.8"... | 00001A30: 43 41 4C 45 4E 44 41 52 00 4F 22 10 04 8F 20 43 |CALENDAR.O"... C| 00001A40: 4F 4C 55 4D 42 49 41 20 43 4F 4C 4C 45 47 45 00 |OLUMBIA COLLEGE.| 00001A50: 6F 22 1A 04 8F 20 31 36 31 39 20 57 31 30 20 41 |o"... 1619 W10 A| 00001A60: 56 45 20 56 41 4E 43 4F 55 56 45 52 20 42 43 00 |VE VANCOUVER BC.| 00001A70: A4 22 24 04 97 55 54 2C 55 4C 25 3A 57 B2 31 3A |."$..UT,UL%:W.1:| 00001A80: 55 47 24 B2 22 22 3A 55 50 B2 31 3A 8D 38 35 30 |UG$."":UP.1:.850| 00001A90: 3A 99 22 13 11 11 11 11 11 11 11 11 11 22 3A 8D |:."..........":.| 00001AA0: 32 30 33 30 00 B9 22 2E 04 99 22 91 91 1D 1D 1D |2030.."...".....| 00001AB0: 1D 1D 1D 1D 1D 1D 1D 22 3B 00 DB 22 38 04 99 20 |.......";.."8.. | 00001AC0: 22 C1 20 D0 C5 D2 D0 C5 D4 D5 C1 CC 20 C3 C1 CC |". ......... ...| 00001AD0: C5 CE C4 C1 D2 22 3A 8D 38 33 35 00 F1 22 4C 04 |.....":.835.."L.| 00001AE0: 55 48 B2 31 3A 55 50 B2 55 50 AA 31 3A 8D 38 35 |UH.1:UP.UP.1:.85| 00001AF0: 30 00 29 23 60 04 99 22 13 11 11 11 20 D7 48 41 |0.)#`..".... .HA| 00001B00: 54 A0 59 45 41 52 27 53 A0 43 41 4C 45 4E 44 41 |T.YEAR'S.CALENDA| 00001B10: 52 A0 44 4F A0 59 4F 55 A0 57 41 4E 54 3F 20 20 |R.DO.YOU.WANT? | 00001B20: 20 20 20 9D 9D 9D 9D 22 3B 00 51 23 65 04 55 53 | ....";.Q#e.US| 00001B30: 24 B2 22 2D 30 31 32 33 34 35 36 37 38 39 22 3A |$."-0123456789":| 00001B40: 55 4C B2 34 3A 8D 33 35 3A 41 B2 C5 28 55 52 24 |UL.4:.35:A..(UR$| 00001B50: 29 00 65 23 66 04 8B 20 41 B3 31 37 35 32 20 A7 |).e#f.. A.1752 .| 00001B60: 20 31 31 32 30 00 84 23 6A 04 42 B2 28 41 AD 31 | 1120..#j.B.(A.1| 00001B70: 30 30 29 3A 43 B2 B5 28 41 AD 31 30 30 29 3A 44 |00):C..(A.100):D| 00001B80: B2 42 AB 43 00 A4 23 74 04 8F 2D 2D 43 41 4C 43 |.B.C..#t..--CALC| 00001B90: 55 4C 41 54 49 4F 4E 20 4F 46 20 4C 45 41 50 20 |ULATION OF LEAP | 00001BA0: 59 45 41 52 00 B5 23 7E 04 8B 20 44 B2 30 20 A7 |YEAR..#~.. D.0 .| 00001BB0: 20 31 31 39 30 00 D0 23 88 04 42 B2 28 41 AD 34 | 1190..#..B.(A.4| 00001BC0: 29 3A 43 B2 B5 28 41 AD 34 29 3A 44 B2 42 AB 43 |):C..(A.4):D.B.C| 00001BD0: 00 E1 23 92 04 8B 20 44 B2 30 20 A7 20 31 32 33 |..#... D.0 . 123| 00001BE0: 30 00 EC 23 9C 04 89 20 31 32 35 30 00 0B 24 A6 |0..#... 1250..$.| 00001BF0: 04 42 B2 28 41 AD 34 30 30 29 3A 43 B2 B5 28 41 |.B.(A.400):C..(A| 00001C00: AD 34 30 30 29 3A 44 B2 42 AB 43 00 1C 24 B0 04 |.400):D.B.C..$..| 00001C10: 8B 20 44 B2 30 20 A7 20 31 32 33 30 00 27 24 BA |. D.0 . 1230.'$.| 00001C20: 04 89 20 31 32 35 30 00 49 24 CE 04 99 22 11 20 |.. 1250.I$...". | 00001C30: CF 48 21 20 D4 48 49 53 A0 49 53 A0 41 A0 4C 45 |.H! .HIS.IS.A.LE| 00001C40: 41 50 A0 59 45 41 52 2E 22 00 58 24 D8 04 58 B2 |AP.YEAR.".X$..X.| 00001C50: 31 3A 89 20 31 32 36 30 00 60 24 E2 04 58 B2 30 |1:. 1260.`$..X.0| 00001C60: 00 83 24 EC 04 46 B2 B5 28 41 AD 34 29 3A 47 B2 |..$..F..(A.4):G.| 00001C70: B5 28 41 AD 34 30 30 29 3A 48 B2 B5 28 41 AD 31 |.(A.400):H..(A.1| 00001C80: 30 30 29 00 8F 24 F6 04 4A B2 46 AA 47 AB 48 00 |00)..$..J.F.G.H.| 00001C90: C1 24 00 05 4C B2 28 41 AA 4A 29 AD 37 3A 4D B2 |.$..L.(A.J).7:M.| 00001CA0: B5 28 28 41 AA 4A 29 AD 37 29 3A 51 B2 28 4C AB |.((A.J).7):Q.(L.| 00001CB0: 4D 29 AC 37 3A 4F B2 B5 28 51 29 3A 52 B2 51 AB |M).7:O..(Q):R.Q.| 00001CC0: 4F 00 D5 24 0A 05 8B 20 52 B1 30 2E 39 20 A7 20 |O..$... R.0.9 . | 00001CD0: 4F B2 4F AA 31 00 DF 24 14 05 4F B2 4F AB 58 00 |O.O.1..$..O.O.X.| 00001CE0: F1 24 1E 05 8B 20 4F B3 30 20 A7 20 4F B2 4F AA |.$... O.0 . O.O.| 00001CF0: 37 00 0F 25 32 05 99 22 11 20 D7 48 41 54 A0 49 |7..%2..". .HAT.I| 00001D00: 53 A0 54 48 45 A0 4D 4F 4E 54 48 3F 20 22 3B 00 |S.THE.MONTH? ";.| 00001D10: 4E 25 37 05 55 53 24 B2 22 30 31 32 33 34 35 36 |N%7.US$."0123456| 00001D20: 37 38 39 41 42 43 44 45 46 47 48 49 4A 4B 4C 4D |789ABCDEFGHIJKLM| 00001D30: 4E 4F 50 51 52 53 54 55 56 57 58 59 5A 22 3A 55 |NOPQRSTUVWXYZ":U| 00001D40: 4C B2 38 3A 8D 33 35 3A 42 24 B2 55 52 24 00 58 |L.8:.35:B$.UR$.X| 00001D50: 25 46 05 8D 32 35 32 30 00 72 25 5A 05 8B 20 42 |%F..2520.r%Z.. B| 00001D60: 24 B2 22 41 4C 4C 22 20 A7 20 41 24 B2 22 41 4C |$."ALL" . A$."AL| 00001D70: 4C 22 00 A2 25 64 05 8B 20 42 24 B2 22 4A 41 4E |L"..%d.. B$."JAN| 00001D80: 55 41 52 59 22 20 B0 20 42 24 B2 22 31 22 20 B0 |UARY" . B$."1" .| 00001D90: 20 41 24 B2 22 41 4C 4C 22 20 A7 20 8D 20 31 39 | A$."ALL" . . 19| 00001DA0: 30 30 00 D2 25 6E 05 8B 20 42 24 B2 22 46 45 42 |00..%n.. B$."FEB| 00001DB0: 52 55 41 52 59 22 B0 20 42 24 B2 22 32 22 20 B0 |RUARY". B$."2" .| 00001DC0: 20 41 24 B2 22 41 4C 4C 22 20 A7 20 8D 20 31 39 | A$."ALL" . . 19| 00001DD0: 31 30 00 05 26 78 05 8B 20 42 24 B2 22 4D 41 52 |10..&x.. B$."MAR| 00001DE0: 43 48 22 20 20 20 B0 20 42 24 B2 22 33 22 20 B0 |CH" . B$."3" .| 00001DF0: 20 41 24 B2 22 41 4C 4C 22 20 20 20 20 A7 20 8D | A$."ALL" . .| 00001E00: 20 31 39 32 30 00 36 26 82 05 8B 20 42 24 B2 22 | 1920.6&... B$."| 00001E10: 41 50 52 49 4C 22 20 20 20 B0 20 42 24 B2 22 34 |APRIL" . B$."4| 00001E20: 22 20 B0 20 41 24 B2 22 41 4C 4C 22 20 20 A7 20 |" . A$."ALL" . | 00001E30: 8D 20 31 39 33 30 00 66 26 8C 05 8B 20 42 24 B2 |. 1930.f&... B$.| 00001E40: 22 4D 41 59 22 20 20 20 20 20 B0 20 42 24 B2 22 |"MAY" . B$."| 00001E50: 35 22 20 B0 20 41 24 B2 22 41 4C 4C 22 20 A7 20 |5" . A$."ALL" . | 00001E60: 8D 20 31 39 34 30 00 99 26 96 05 8B 20 42 24 B2 |. 1940..&... B$.| 00001E70: 22 4A 55 4E 45 22 20 20 20 20 B0 20 42 24 B2 22 |"JUNE" . B$."| 00001E80: 36 22 20 B0 20 41 24 B2 22 41 4C 4C 22 20 20 20 |6" . A$."ALL" | 00001E90: A7 20 20 8D 20 31 39 35 30 00 CD 26 A0 05 8B 20 |. . 1950..&... | 00001EA0: 42 24 B2 22 4A 55 4C 59 22 20 20 20 20 B0 20 42 |B$."JULY" . B| 00001EB0: 24 B2 22 37 22 20 B0 20 41 24 B2 22 41 4C 4C 22 |$."7" . A$."ALL"| 00001EC0: 20 20 20 20 A7 20 20 8D 20 31 39 36 30 00 FF 26 | . . 1960..&| 00001ED0: AA 05 8B 20 42 24 B2 22 41 55 47 55 53 54 22 20 |... B$."AUGUST" | 00001EE0: 20 B0 20 42 24 B2 22 38 22 20 B0 20 41 24 B2 22 | . B$."8" . A$."| 00001EF0: 41 4C 4C 22 20 20 A7 20 20 8D 20 31 39 37 30 00 |ALL" . . 1970.| 00001F00: 30 27 B4 05 8B 20 42 24 B2 22 53 45 50 54 45 4D |0'... B$."SEPTEM| 00001F10: 42 45 52 22 B0 20 42 24 B2 22 39 22 20 B0 20 41 |BER". B$."9" . A| 00001F20: 24 B2 22 41 4C 4C 22 20 A7 20 8D 20 31 39 38 30 |$."ALL" . . 1980| 00001F30: 00 62 27 BE 05 8B 20 42 24 B2 22 4F 43 54 4F 42 |.b'... B$."OCTOB| 00001F40: 45 52 22 20 B0 20 42 24 B2 22 31 30 22 20 B0 20 |ER" . B$."10" . | 00001F50: 41 24 B2 22 41 4C 4C 22 20 20 A7 20 8D 20 31 39 |A$."ALL" . . 19| 00001F60: 39 30 00 94 27 C8 05 8B 20 42 24 B2 22 4E 4F 56 |90..'... B$."NOV| 00001F70: 45 4D 42 45 52 22 20 B0 20 42 24 B2 22 31 31 22 |EMBER" . B$."11"| 00001F80: 20 B0 20 41 24 B2 22 41 4C 4C 22 20 A7 20 8D 20 | . A$."ALL" . . | 00001F90: 32 30 30 30 00 C6 27 D2 05 8B 20 42 24 B2 22 44 |2000..'... B$."D| 00001FA0: 45 43 45 4D 42 45 52 22 20 B0 20 42 24 B2 22 31 |ECEMBER" . B$."1| 00001FB0: 32 22 20 B0 20 41 24 B2 22 41 4C 4C 22 20 A7 20 |2" . A$."ALL" . | 00001FC0: 8D 20 32 30 31 30 00 E3 27 DC 05 55 48 B2 31 3A |. 2010..'..UH.1:| 00001FD0: 55 47 24 B2 22 22 3A 55 50 B2 55 50 AA 31 3A 8D |UG$."":UP.UP.1:.| 00001FE0: 38 35 30 00 01 28 E6 05 99 22 11 11 20 C1 4E 4F |850..(...".. .NO| 00001FF0: 54 48 45 52 20 43 41 4C 45 4E 44 41 52 3F 20 22 |THER CALENDAR? "| 00002000: 3B 00 1E 28 F0 05 55 53 24 B2 22 59 4E 22 3A 55 |;..(..US$."YN":U| 00002010: 4C B2 31 3A 8D 33 35 3A 43 24 B2 55 52 24 00 37 |L.1:.35:C$.UR$.7| 00002020: 28 04 06 8B 20 43 24 B2 22 59 22 A7 20 55 50 B2 |(... C$."Y". UP.| 00002030: 30 3A 89 31 31 30 30 00 47 28 0E 06 9C 3A 8D 39 |0:.1100.G(...:.9| 00002040: 30 30 3A 8D 33 30 30 00 4D 28 18 06 80 00 5F 28 |00:.300.M(...._(| 00002050: 22 06 8B 20 5A B1 36 20 A7 20 5A B2 5A AB 37 00 |".. Z.6 . Z.Z.7.| 00002060: 71 28 2C 06 8B 20 5A B3 30 20 A7 20 5A B2 5A AA |q(,.. Z.0 . Z.Z.| 00002070: 37 00 88 28 54 06 8F 20 57 52 49 54 49 4E 47 20 |7..(T.. WRITING | 00002080: 43 41 4C 45 4E 44 41 52 00 97 28 5E 06 57 B2 32 |CALENDAR..(^.W.2| 00002090: 30 3A 8D 32 30 32 30 00 A8 28 68 06 99 22 13 22 |0:.2020..(h.."."| 000020A0: 3B 22 11 11 11 11 22 3B 00 B3 28 72 06 41 B2 B5 |;"....";..(r.A..| 000020B0: 28 41 29 00 C7 28 7C 06 99 20 A3 33 29 3B 42 24 |(A)..(|.. .3);B$| 000020C0: 2C A3 32 30 29 3B 41 00 F9 28 86 06 99 22 11 11 |,.20);A..(..."..| 000020D0: 22 3B A3 33 29 3B 22 D3 D5 CE A0 A0 CD CF CE A0 |";.3);".........| 000020E0: A0 D4 D5 C5 A0 A0 D7 C5 C4 A0 A0 D4 C8 D5 A0 A0 |................| 000020F0: C6 D2 C9 A0 A0 D3 C1 D4 22 00 04 29 90 06 99 22 |........"..)..."| 00002100: 11 11 22 3B 00 12 29 9A 06 81 20 4B B2 30 20 A4 |..";..)... K.0 .| 00002110: 20 35 00 26 29 A4 06 4C B2 28 4B AC 37 29 AA 31 | 5.&)..L.(K.7).1| 00002120: 3A 4D B2 4C AA 36 00 34 29 AE 06 81 20 4E B2 4C |:M.L.6.4)... N.L| 00002130: 20 A4 20 4D 00 3E 29 B8 06 50 B2 4E AB 5A 00 50 | . M.>)..P.N.Z.P| 00002140: 29 C2 06 8B 20 50 B3 B2 30 20 A7 20 31 38 32 30 |)... P..0 . 1820| 00002150: 00 6E 29 CC 06 8B 20 4E B1 37 20 A7 20 5A 31 B2 |.n)... N.7 . Z1.| 00002160: 4E AB 28 37 AC 4B 29 3A 89 20 31 37 36 30 00 77 |N.(7.K):. 1760.w| 00002170: 29 D6 06 5A 31 B2 4E 00 88 29 E0 06 8B 20 50 B1 |)..Z1.N..)... P.| 00002180: 39 20 A7 20 31 37 38 30 00 9E 29 EA 06 49 B2 28 |9 . 1780..)..I.(| 00002190: 35 AC 5A 31 29 AB 32 3A 89 20 31 37 39 30 00 AD |5.Z1).2:. 1790..| 000021A0: 29 F4 06 49 B2 28 35 AC 5A 31 29 AB 33 00 BE 29 |)..I.(5.Z1).3..)| 000021B0: FE 06 8B 20 50 B1 59 20 A7 20 31 38 36 30 00 E7 |... P.Y . 1860..| 000021C0: 29 08 07 8B 20 50 B2 51 20 A7 20 99 20 A3 49 29 |)... P.Q . . .I)| 000021D0: 3B 22 12 22 3B 50 3A 99 3A 99 20 22 91 91 91 22 |;".";P:.:. "..."| 000021E0: 3A 89 20 31 38 32 30 00 F4 29 12 07 99 20 A3 49 |:. 1820..)... .I| 000021F0: 29 3B 50 3B 00 FC 29 1C 07 82 20 4E 00 02 2A 26 |);P;..)... N..*&| 00002200: 07 99 00 08 2A 30 07 99 00 10 2A 3A 07 82 20 4B |....*0....*:.. K| 00002210: 00 16 2A 44 07 99 00 21 2A 4E 07 8D 38 33 35 3A |..*D...!*N..835:| 00002220: 8E 00 50 2A 6C 07 5A B2 4F 20 20 20 20 20 3A 59 |..P*l.Z.O :Y| 00002230: B2 33 31 20 20 20 20 3A 42 24 B2 22 CA C1 CE D5 |.31 :B$."....| 00002240: C1 D2 D9 22 20 20 20 3A 8D 20 31 35 37 30 3A 8E |..." :. 1570:.| 00002250: 00 7F 2A 76 07 5A B2 4F AA 33 20 20 20 3A 59 B2 |..*v.Z.O.3 :Y.| 00002260: 32 38 AA 58 20 20 3A 42 24 B2 22 C6 C5 C2 D2 D5 |28.X :B$.".....| 00002270: C1 D2 D9 22 20 20 3A 8D 20 31 35 37 30 3A 8E 00 |..." :. 1570:..| 00002280: AE 2A 80 07 5A B2 4F AA 33 AA 58 20 3A 59 B2 33 |.*..Z.O.3.X :Y.3| 00002290: 31 20 20 20 20 3A 42 24 B2 22 CD C1 D2 C3 C8 22 |1 :B$."....."| 000022A0: 20 20 20 20 20 3A 8D 20 31 35 37 30 3A 8E 00 DD | :. 1570:...| 000022B0: 2A 8A 07 5A B2 4F AB 31 AA 58 20 3A 59 B2 33 30 |*..Z.O.1.X :Y.30| 000022C0: 20 20 20 20 3A 42 24 B2 22 C1 D0 D2 C9 CC 22 20 | :B$."....." | 000022D0: 20 20 20 20 3A 8D 20 31 35 37 30 3A 8E 00 0C 2B | :. 1570:...+| 000022E0: 94 07 5A B2 4F AA 31 AA 58 20 3A 59 B2 33 31 20 |..Z.O.1.X :Y.31 | 000022F0: 20 20 20 3A 42 24 B2 22 CD C1 D9 22 20 20 20 20 | :B$."..." | 00002300: 20 20 20 3A 8D 20 31 35 37 30 3A 8E 00 3B 2B 9E | :. 1570:..;+.| 00002310: 07 5A B2 4F AA 34 AA 58 20 3A 59 B2 33 30 20 20 |.Z.O.4.X :Y.30 | 00002320: 20 20 3A 42 24 B2 22 CA D5 CE C5 22 20 20 20 20 | :B$."...." | 00002330: 20 20 3A 8D 20 31 35 37 30 3A 8E 00 6A 2B A8 07 | :. 1570:..j+..| 00002340: 5A B2 4F AB 31 AA 58 20 3A 59 B2 33 31 20 20 20 |Z.O.1.X :Y.31 | 00002350: 20 3A 42 24 B2 22 CA D5 CC D9 22 20 20 20 20 20 | :B$."...." | 00002360: 20 3A 8D 20 31 35 37 30 3A 8E 00 99 2B B2 07 5A | :. 1570:...+..Z| 00002370: B2 4F AA 32 AA 58 20 3A 59 B2 33 31 20 20 20 20 |.O.2.X :Y.31 | 00002380: 3A 42 24 B2 22 C1 D5 C7 D5 D3 D4 22 20 20 20 20 |:B$."......" | 00002390: 3A 8D 20 31 35 37 30 3A 8E 00 C8 2B BC 07 5A B2 |:. 1570:...+..Z.| 000023A0: 4F AA 35 AA 58 20 3A 59 B2 33 30 20 20 20 20 3A |O.5.X :Y.30 :| 000023B0: 42 24 B2 22 D3 C5 D0 D4 C5 CD C2 C5 D2 22 20 3A |B$."........." :| 000023C0: 8D 20 31 35 37 30 3A 8E 00 F7 2B C6 07 5A B2 4F |. 1570:...+..Z.O| 000023D0: AA 58 20 20 20 3A 59 B2 33 31 20 20 20 20 3A 42 |.X :Y.31 :B| 000023E0: 24 B2 22 CF C3 D4 CF C2 C5 D2 22 20 20 20 3A 8D |$."......." :.| 000023F0: 20 31 35 37 30 3A 8E 00 26 2C D0 07 5A B2 4F AA | 1570:..&,..Z.O.| 00002400: 33 AA 58 20 3A 59 B2 33 30 20 20 20 20 3A 42 24 |3.X :Y.30 :B$| 00002410: B2 22 CE CF D6 C5 CD C2 C5 D2 22 20 20 3A 8D 20 |."........" :. | 00002420: 31 35 37 30 3A 8E 00 55 2C DA 07 5A B2 4F AA 35 |1570:..U,..Z.O.5| 00002430: AA 58 20 3A 59 B2 33 31 20 20 20 20 3A 42 24 B2 |.X :Y.31 :B$.| 00002440: 22 C4 C5 C3 C5 CD C2 C5 D2 22 20 20 3A 8D 20 31 |"........" :. 1| 00002450: 35 37 30 3A 8E 00 5E 2C E4 07 99 22 93 22 00 69 |570:..^,...".".i| 00002460: 2C EE 07 99 22 A7 A3 22 3B 00 78 2C F8 07 81 20 |,..."..";.x,... | 00002470: 43 B2 31 20 A4 20 33 35 00 83 2C 02 08 99 20 22 |C.1 . 35..,... "| 00002480: A3 22 3B 00 8B 2C 0C 08 82 20 43 00 95 2C 16 08 |.";..,... C..,..| 00002490: 99 22 A3 A5 22 00 A3 2C 20 08 81 20 43 B2 31 20 |."..".., .. C.1 | 000024A0: A4 20 57 00 BA 2C 2A 08 99 20 A3 30 29 3B 22 A7 |. W..,*.. .0);".| 000024B0: 22 3B A3 33 38 29 3B 22 A5 22 00 C2 2C 34 08 82 |";.38);"."..,4..| 000024C0: 20 43 00 CE 2C 3E 08 99 20 22 A7 A4 22 3B 00 DD | C..,>.. "..";..| 000024D0: 2C 48 08 81 20 43 B2 31 20 A4 20 33 35 00 E8 2C |,H.. C.1 . 35..,| 000024E0: 52 08 99 20 22 A4 22 3B 00 F0 2C 5C 08 82 20 43 |R.. ".";..,\.. C| 000024F0: 00 FB 2C 66 08 99 20 22 A4 A5 22 00 01 2D 70 08 |..,f.. ".."..-p.| 00002500: 8E 00 2C 2D D8 09 99 22 11 20 C4 4F 20 59 4F 55 |..,-...". .O YOU| 00002510: 20 57 41 4E 54 20 41 20 4D 41 52 4B 45 52 20 4F | WANT A MARKER O| 00002520: 4E 20 41 20 44 41 54 45 3F 20 22 3B 00 49 2D E2 |N A DATE? ";.I-.| 00002530: 09 55 53 24 B2 22 59 4E 22 3A 55 4C B2 31 3A 8D |.US$."YN":UL.1:.| 00002540: 33 35 3A 56 24 B2 55 52 24 00 5D 2D F6 09 8B 56 |35:V$.UR$.]-...V| 00002550: 24 B2 22 4E 22 20 A7 20 89 32 36 32 30 00 82 2D |$."N" . .2620..-| 00002560: 00 0A 99 22 11 20 CF 4E 20 57 48 41 54 20 44 41 |...". .N WHAT DA| 00002570: 59 20 4F 46 20 54 48 45 20 4D 4F 4E 54 48 3F 20 |Y OF THE MONTH? | 00002580: 22 3B 00 A9 2D 0A 0A 55 53 24 B2 22 30 31 32 33 |";..-..US$."0123| 00002590: 34 35 36 37 38 39 22 3A 55 4C B2 32 3A 8D 33 35 |456789":UL.2:.35| 000025A0: 3A 51 B2 C5 28 55 52 24 29 00 AF 2D 3C 0A 8E 00 |:Q..(UR$)..-<...| 000025B0: 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".K....". EITHER IN
WORDS OR IN NUMBERS I.E.:"......". THIS
PROGRAM WILL ONLY WORK ACCURATELY".....
.". FOR YEARS AFTER 1752.".(....835:.850
.I.C..". * JANUARY OR 1";" ";.F.E.."
* JULY OR 7";...G..". * FEBRUAR
Y OR 2";" ";...I.."* AUGUST OR
8";.E.K..". * MARCH OR 3";" ";...
M.."* SEPTEMBER OR 9";...O..". * APR
IL OR 4";" ";. .Q.."* OCTOBER O
R 10";.A.S..". * MAY OR 5";" "
;.^.U.."* NOVEMBER OR 11";..W..". *
JUNE OR 6";" ";...Y.."* DECEMBER
OR 12";.K....". IF YOU WANT THE WHO
LE YEAR'S CALENDAR"......". THEN ENTER F
OR THE MONTH .ALL..".#....". ENTER YOUR
MONTH IN FULL IF YOU ENTER".:....". IT A
S A WORD.".H....835:.850.U...."..NOTE: A
LWAYS PRESS THE <RETURN> KEY"......". AF
TER ENTERING AN ANSWER.".F....".. IF AT
ANY TIME YOU WOULD LIKE TO GO"......". B
ACK TO THE MENU,ENTER H <RETURN>."......
835:.850......".. TO THE BEST OF OU
R KNOWLEDGE,.".W...." THIS PROGRAM IS
IN THE PUBLIC."......" DOMAIN. IF THI
S IS NOT THE CASE.". ...." PLEASE CONT
ACT:...".J...." COMMODORE BUSINESS
MACHINES."......" 3370 PHARMACY
AVE......." AGINCOURT, ONTARIO
".3. .." CANADA M1W 2K4".S.".
." (416) 499-4292".C.$.. 835:.
850...&.." ..PROGRAM NAME: CALENDAR
....(.." WRITTEN BY : O. N. NAM
EKI ..Z.*.." UPGRADED BY :
....,.." .THIS PROGRAM WILL RUN ON
ANY...,...." BASIC 2.0 PET COMPU
TER..S.0.." BASIC 4.0 PET COMPUT
ER..U.2.." 8032 CBM COMPUTER....
4.." COMMODORE 64 COMPUTER...6..
835...N..UZ.1..UP%:.217...W........ ** T
O USE 8032 LOAD CBM4032 **...F..".....BE
FORE RUNNING THIS PROGRAM ON AN 8032 ..
.N.P.." LOAD THE 'CBM 4032' PROGRAM
.............".Y.Z..UU.71._...... .. **
T I T L E P A G E **...".."....";:.UT
,UU%:.B(50003).0..53280,14:.53281,6.I.$.
.I.1.38:."...";:....&..I.1.22:.".....";:
....(..I.1.37:.".....";:....*..I.1.22:."
.....";:..6.,.."........................
... ..X...."................... . . ..
.Y.0.."................... . ......2.."
.................... ....4.."..........
....C O M M O D O R E.....6.."..........
.....EDUCATIONAL.....8.."...............
.SOFTWARE...:.. ** COMMODORE LOGO **.T.;
..H(UD$,24);"..........PRESS SPACE BAR O
R WAIT.":I.0.V.<..A$:.A$.." ".I.I.1:.I.2
50.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$.." ".84
4...N...7.R.. ** PAGE DESIGN ROUTINE **.
C.T.UP.UP.1.G.W.."."H(UT$.UP$,21);I(UP$.
UG$,18)...\.." -------------------------
-------------"...`..UH..0.870.Y.A..H(UD$
,24);H(UP$,7);"HELP - PRESS H <RETURN>
"...F.UH.0:."..":....K.. ** PLEASE WAIT
REMARK **.?.P..H(UD$,24);" ONE
MOMENT PLEASE... ".E.U...B.... ** S
ET UP VARIABLES **.....UX$."H":.UQ%(1000
):UB.32768:U1.196:U2.197:U3.198:U4.216:U
C.167:UU.1024.....UT.59468:UU%.12:UL%.14
:UP%.1146:UM.32768:UO.158:. 50003,0.....
.B(50003).0.UB.1024:U1.209:U2.210:U3.211
:U4.214:UC.204:UU.2048.M....B(50003).0.U
T.53272:UU%.21:UL%.23:UP%.2139:UM.1024:U
O.198.....UD$.".........................
".C...UP$."
".....UT$." CALENDAR
":. PLACE PROGRAM TITLE HERE !!!!!!!!!!!
!!!!!!***.......1.... ** SET VARIABLES *
*.:....900.U.... ** CHECK FOR 8032 **.S.
...".":." ":. SHIFTED SPACE......B(UB.40
)..96..700...... ** MEMORY CHECK **.....
. .(0).2000.937......"....THIS MACHINE D
OES NOT HAVE ENOUGH."......"MEMORY TO RU
N THIS PROGRAM !"......UU.71.......4....
"..":.B(50003).0.962.C.... ** BASIC 2.0
OR 4.0 OR C-64 SETUP **......1075,13
3:.1076,144:.1077,234:.1079,4:.1080,133:
.1081,145.W....1091,155:.1098,133:.1099,
144:.1100,234:.1103,133......1104,145:.1
105,234:.1082,234.. ...B(50003)..160.955
.? ...1093,88:.1094,228:.1097,85:.1102,2
28:.965.T ...B(50003)..1.990.. ...1093,4
9:.1094,230:.1097,46:.1102,230:.965.. B.
.2099,141:.2100,20:.2101,3:.2103,8:.2104
,141:.2105,21.. C..2106,3:.2115,145:.211
7,52:.2118,234:.2121,49:.2122,141.3!D..2
123,20:.2124,3:.2126,234:.2127,141:.2128
,21:.2129,3.Q!E..UU.48:. DISABLE STOP KE
Y.B!J..800:. TITLE.R!T..300:. MENU..!...
".THE PGM WILL NOT WORK ON THIS MACHINE!
":..X!...UZ.1..UP%:.UP%:UZ.0:. ** PROGRA
M STARTS HERE **.."..."..";:.:.B(50003).
0..53281,6:.53280,14.)"... COPYRIGHT OSC
AR NAOYUKI NAMEKI.8"... CALENDAR.O"... C
OLUMBIA COLLEGE.O"... 1619 W10 AVE VANCO
UVER BC.."$..UT,UL%:W.1:UG$."":UP.1:.850
:."..........":.2030.."..."............"
;.."8.. "A PERPETUAL CALENDAR":.835.."L.
UH.1:UP.UP.1:.850.)#`..".... WHAT YEAR'S
CALENDAR DO YOU WANT? ....";.Q#E.US
$."-0123456789":UL.4:.35:A.E(UR$).E#F..
A.1752 . 1120..#J.B.(A.100):C..(A.100):D
.B.C..#T..--CALCULATION OF LEAP YEAR..#~
.. D.0 . 1190.P#..B.(A.4):C..(A.4):D.B.C
..#... D.0 . 1230..#... 1250..$..B.(A.40
0):C..(A.400):D.B.C..$... D.0 . 1230.'$.
.. 1250.I$N..". OH! THIS IS A LEAP YEAR.
".X$X.X.1:. 1260.`$..X.0..$..F..(A.4):G.
.(A.400):H..(A.100)..$..J.F.G.H.A$..L.(A
.J).7:M..((A.J).7):Q.(L.M).7:O..(Q):R.Q.
O.U$... R.0.9 . O.O.1..$..O.O.X..$... O.
0 . O.O.7..%2..". WHAT IS THE MONTH? ";.
N%7.US$."0123456789ABCDEFGHIJKLMNOPQRSTU
VWXYZ":UL.8:.35:B$.UR$.X%F..2520.R%Z.. B
$."ALL" . A$."ALL"..%D.. B$."JANUARY" .
B$."1" . A$."ALL" . . 1900.R%N.. B$."FEB
RUARY". B$."2" . A$."ALL" . . 1910..&X..
B$."MARCH" . B$."3" . A$."ALL" . .
1920.6&... B$."APRIL" . B$."4" . A$."
ALL" . . 1930.F&... B$."MAY" . B$."
5" . A$."ALL" . . 1940..&... B$."JUNE"
. B$."6" . A$."ALL" . . 1950.M& ..
B$."JULY" . B$."7" . A$."ALL" . .
1960..&... B$."AUGUST" . B$."8" . A$."
ALL" . . 1970.0'... B$."SEPTEMBER". B$
."9" . A$."ALL" . . 1980.B'... B$."OCTOB
ER" . B$."10" . A$."ALL" . . 1990..'H..
B$."NOVEMBER" . B$."11" . A$."ALL" . .
2000.F'R.. B$."DECEMBER" . B$."12" . A$.
"ALL" . . 2010..'..UH.1:UG$."":UP.UP.1:.
850..(...".. ANOTHER CALENDAR? ";..(..US
$."YN":UL.1:.35:C$.UR$.7(... C$."Y". UP.
0:.1100.G(...:.900:.300.M(...._(".. Z.6
. Z.Z.7.Q(,.. Z.0 . Z.Z.7..(T.. WRITING
CALENDAR..(^.W.20:.2020..(H..".";"....";
..(R.A..(A).G(|.. .3);B$,.20);A..(..."..
";.3);"SUN MON TUE WED THU FRI SAT
"..)..."..";..)... K.0 . 5.&)..L.(K.7).1
:M.L.6.4)... N.L . M.>)..P.N.Z.P)B.. P..
0 . 1820.N)L.. N.7 . Z1.N.(7.K):. 1760.W
)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:..P*L.Z.O :Y.31 :
B$."JANUARY" :. 1570:..*V.Z.O.3 :Y.
28.X :B$."FEBRUARY" :. 1570:...*..Z.O.
3.X :Y.31 :B$."MARCH" :. 1570:...
*..Z.O.1.X :Y.30 :B$."APRIL" :. 1
570:...+..Z.O.1.X :Y.31 :B$."MAY"
:. 1570:..;+..Z.O.4.X :Y.30 :B$."J
UNE" :. 1570:..J+..Z.O.1.X :Y.31
:B$."JULY" :. 1570:...+..Z.O.2.X :
Y.31 :B$."AUGUST" :. 1570:..H+..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$."NOVEMB
ER" :. 1570:..U,Z.Z.O.5.X :Y.31 :B$.
"DECEMBER" :. 1570:..^,...".".I,...".."
;.X,... C.1 . 35..,... ".";..,... C..,..
."..".., .. C.1 . W..,*.. .0);".";.38);"
.".B,4.. C.N,>.. "..";..,H.. C.1 . 35..,
R.. ".";..,\.. C..,F.. ".."..-P...,-X.."
. DO YOU WANT A MARKER ON A DATE? ";.I-.
.US$."YN":UL.1:.35:V$.UR$.]-...V$."N" .
.2620..-...". ON WHAT DAY OF THE MONTH?
";..-..US$."0123456789":UL.2:.35:Q.E(UR$
)..-<.....
> CLICK IMAGE PREVIEW FOR FULL MODAL