CALENDAR
FILE INFORMATION
FILENAME(S): CALENDAR
FILE TYPE(S): PRG
FILE SIZE: 8.2K
FIRST SEEN: 2025-10-20 14:30:15
APPEARS ON: 4 disk(s)
FILE HASH
dd6729d7e3ecf240568123accd6e8292997d587ae6529f3ba754c0e93fc935de
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ECOSOFT FREI PRG | CALENDAR | PRG | Treasure Chest - Klaus Der Suhler | 6 | 3 | DOWNLOAD FILE |
| 024A | CALENDAR | PRG | Treasure Chest - Plattfuss | 6 | 3 | DOWNLOAD FILE |
| DIETER PRG S | CALENDAR | PRG | Curtcool, LPN | 11 | 1 | DOWNLOAD FILE |
| ECOSOFT FREI PRG | CALENDAR | PRG | Curtcool, LPN | 6 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 36 08 02 00 99 |.......910.6....|
00000010: 22 78 A9 1D 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x..........X` .|
00000020: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....|
00000030: 8D 15 03 58 60 20 00 61 08 03 00 99 22 78 A9 47 |...X` .a...."x.G|
00000040: 85 90 A9 04 85 91 58 60 20 EA FF A9 FF 85 9B 4C |......X` ......L|
00000050: 58 E4 78 A9 55 85 90 A9 E4 85 91 58 60 20 20 20 |X.x.U......X` |
00000060: 20 00 80 08 04 00 99 22 78 68 68 68 AA 68 A8 68 | ......"xhhh.h.h|
00000070: 68 68 68 68 68 68 98 48 8A 48 58 60 20 20 20 20 |hhhhhh.H.HX` |
00000080: 00 91 08 05 00 99 22 68 68 68 68 68 68 68 60 20 |......"hhhhhhh` |
00000090: 20 00 B8 08 06 00 99 22 A0 FF C8 84 FB A9 D8 85 | ......"........|
000000A0: FC 20 F1 B7 8A A2 04 A0 FF C8 91 FB 88 D0 FB E6 |. ..............|
000000B0: FC CA D0 F6 60 20 20 20 00 D5 08 07 00 99 22 A2 |....` ......".|
000000C0: 04 A0 FF C8 B1 FB 91 FD 88 D0 F9 E6 FC E6 FE CA |................|
000000D0: D0 F2 60 20 20 00 E6 08 23 00 8B 55 57 B2 30 A7 |..` ...#..UW.0.|
000000E0: 9E 55 55 2C 31 35 00 10 09 28 00 97 55 43 2C 30 |.UU,15...(..UC,0|
000000F0: 3A 97 55 4E 2C 30 3A 55 52 24 B2 22 22 3A 55 49 |:.UN,0:UR$."":UI|
00000100: 24 B2 22 22 3A 8B 55 4C B2 30 A7 55 4C B2 33 39 |$."":.UL.0.UL.39|
00000110: 00 24 09 2D 00 A1 55 49 24 3A 8B 55 49 24 B2 22 |.$.-..UI$:.UI$."|
00000120: 22 A7 34 35 00 59 09 32 00 55 41 B2 C6 28 55 49 |".45.Y.2.UA..(UI|
00000130: 24 29 3A 55 52 B2 C3 28 55 52 24 29 3A 8B 55 41 |$):UR..(UR$):.UA|
00000140: B2 31 33 AF 55 52 B1 30 A7 97 55 43 2C 31 3A 99 |.13.UR.0..UC,1:.|
00000150: 22 20 9D 22 3B 3A 89 37 30 00 8E 09 37 00 8B 55 |" .";:.70...7..U|
00000160: 41 B2 32 30 A7 91 AB 28 55 52 B2 30 29 89 34 35 |A.20...(UR.0).45|
00000170: 3A 55 52 24 B2 C8 28 55 52 24 2C 55 52 AB 31 29 |:UR$..(UR$,UR.1)|
00000180: 3A 99 22 9D 20 20 9D 9D 22 3B 3A 89 34 35 00 9C |:.". ..";:.45..|
00000190: 09 3C 00 8B 55 52 B2 55 4C A7 34 35 00 BA 09 41 |.<..UR.UL.45...A|
000001A0: 00 8D 39 35 3A 55 52 24 B2 55 52 24 AA 55 49 24 |..95:UR$.UR$.UI$|
000001B0: 3A 99 55 49 24 3B 3A 89 34 35 00 D3 09 46 00 8B |:.UI$;:.45...F..|
000001C0: 55 52 24 B2 55 58 24 A7 99 22 9D 20 22 3B 3A 89 |UR$.UX$..". ";:.|
000001D0: 31 34 35 00 F6 09 4B 00 81 55 49 B2 55 52 A4 31 |145...K..UI.UR.1|
000001E0: A9 AB 31 3A 8B CA 28 55 52 24 2C 55 49 2C 31 29 |..1:..(UR$,UI,1)|
000001F0: B2 22 20 22 A7 82 00 0C 0A 50 00 55 52 24 B2 C8 |." ".....P.UR$..|
00000200: 28 55 52 24 2C 55 49 29 3A 99 3A 8E 00 1E 0A 5F |(UR$,UI):.:...._|
00000210: 00 8B C3 28 55 53 24 29 B2 30 A7 31 31 30 00 4A |...(US$).0.110.J|
00000220: 0A 64 00 81 55 49 B2 31 A4 C3 28 55 53 24 29 3A |.d..UI.1..(US$):|
00000230: 8B 55 49 24 B3 B1 CA 28 55 53 24 2C 55 49 2C 31 |.UI$...(US$,UI,1|
00000240: 29 A7 82 3A 55 49 24 B2 22 22 00 50 0A 69 00 8E |)..:UI$."".P.i..|
00000250: 00 5D 0A 6E 00 8B 55 41 B2 34 36 A7 8E 00 70 0A |.].n..UA.46...p.|
00000260: 73 00 8B 55 41 B2 33 32 AF 55 52 B3 B1 30 A7 8E |s..UA.32.UR..0..|
00000270: 00 83 0A 78 00 8B 55 41 B1 34 37 AF 55 41 B3 35 |...x..UA.47.UA.5|
00000280: 38 A7 8E 00 96 0A 7D 00 8B 55 41 B1 36 34 AF 55 |8.....}..UA.64.U|
00000290: 41 B3 39 31 A7 8E 00 B2 0A 82 00 8B 55 41 B3 31 |A.91........UA.1|
000002A0: 39 33 B0 55 41 B1 32 31 38 A7 55 49 24 B2 22 22 |93.UA.218.UI$.""|
000002B0: 3A 8E 00 CF 0A 87 00 8B C2 28 55 54 29 B2 55 55 |:........(UT).UU|
000002C0: 25 A7 55 49 24 B2 C7 28 55 41 AB 31 32 38 29 00 |%.UI$..(UA.128).|
000002D0: D5 0A 8C 00 8E 00 04 0B 91 00 8D 31 37 30 3A 97 |...........170:.|
000002E0: 32 35 31 2C 30 3A 97 32 35 32 2C 55 53 AD 32 35 |251,0:.252,US.25|
000002F0: 36 3A 97 32 35 33 2C 30 3A 97 32 35 34 2C 55 46 |6:.253,0:.254,UF|
00000300: 3A 9E 55 56 00 1C 0B 96 00 55 5A B2 31 3A 55 56 |:.UV.....UZ.1:UV|
00000310: 25 B2 C2 28 55 54 29 3A 89 33 30 30 00 62 0B 9B |%..(UT):.300.b..|
00000320: 00 55 5A B2 30 3A 55 53 24 B2 55 4A 24 3A 55 47 |.UZ.0:US$.UJ$:UG|
00000330: 24 B2 55 4B 24 3A 55 54 24 B2 55 4C 24 3A 55 50 |$.UK$:UT$.UL$:UP|
00000340: B2 55 4A 3A 55 4C B2 55 4B 3A 99 22 93 22 3B 3A |.UJ:UL.UK:.".";:|
00000350: 8B 55 57 B2 30 A7 97 55 59 2C 36 3A 97 55 58 2C |.UW.0..UY,6:.UX,|
00000360: 31 34 00 A1 0B A0 00 97 55 54 2C 55 56 25 3A 97 |14......UT,UV%:.|
00000370: 32 35 31 2C 30 3A 97 32 35 32 2C 55 46 3A 97 32 |251,0:.252,UF:.2|
00000380: 35 33 2C 30 3A 97 32 35 34 2C 55 53 AD 32 35 36 |53,0:.254,US.256|
00000390: 3A 9E 55 56 3A 8B 55 57 B2 30 A7 9E 55 55 2C 31 |:.UV:.UW.0..UU,1|
000003A0: 35 00 CB 0B A5 00 97 55 31 2C 55 31 25 3A 97 55 |5......U1,U1%:.U|
000003B0: 32 2C 55 32 25 3A 97 55 33 2C 55 33 25 AB 31 3A |2,U2%:.U3,U3%.1:|
000003C0: 97 55 34 2C 55 34 25 3A 89 33 35 00 F7 0B AA 00 |.U4,U4%:.35.....|
000003D0: 55 31 25 B2 C2 28 55 31 29 3A 55 32 25 B2 C2 28 |U1%..(U1):U2%..(|
000003E0: 55 32 29 3A 55 33 25 B2 C2 28 55 33 29 3A 55 34 |U2):U3%..(U3):U4|
000003F0: 25 B2 C2 28 55 34 29 00 21 0C AF 00 55 4A 24 B2 |%..(U4).!...UJ$.|
00000400: 55 53 24 3A 55 4B 24 B2 55 47 24 3A 55 4C 24 B2 |US$:UK$.UG$:UL$.|
00000410: 55 54 24 3A 55 4A B2 55 50 3A 55 4B B2 55 4C 3A |UT$:UJ.UP:UK.UL:|
00000420: 8E 00 46 0C 2C 01 99 22 93 91 22 3A 97 55 54 2C |..F.,.."..":.UT,|
00000430: 55 55 25 3A 8B 55 57 B2 30 A7 97 55 59 2C 36 3A |UU%:.UW.0..UY,6:|
00000440: 97 55 58 2C 31 34 00 66 0C 31 01 99 22 20 20 20 |.UX,14.f.1.." |
00000450: 20 20 20 20 20 20 20 20 20 20 20 20 20 4D 20 45 | M E|
00000460: 20 4E 20 55 11 22 00 92 0C 36 01 99 22 20 20 20 | N U."...6.." |
00000470: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------|
00000480: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000490: 2D 22 00 B5 0C 3B 01 99 22 11 20 20 20 20 20 20 |-"...;..". |
000004A0: 20 31 2E 20 20 20 42 45 47 49 4E 20 43 41 4C 45 | 1. BEGIN CALE|
000004B0: 4E 44 41 52 22 00 DF 0C 40 01 99 22 11 11 20 20 |NDAR"...@..".. |
000004C0: 20 20 20 20 20 32 2E 20 20 20 53 54 55 44 45 4E | 2. STUDEN|
000004D0: 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 |T INSTRUCTIONS".|
000004E0: 09 0D 45 01 99 22 11 11 20 20 20 20 20 20 20 33 |..E..".. 3|
000004F0: 2E 20 20 20 54 45 41 43 48 45 52 20 49 4E 53 54 |. TEACHER INST|
00000500: 52 55 43 54 49 4F 4E 53 22 00 24 0D 4A 01 99 22 |RUCTIONS".$.J.."|
00000510: 11 11 20 20 20 20 20 20 20 34 2E 20 20 20 51 55 |.. 4. QU|
00000520: 49 54 11 22 00 50 0D 4F 01 99 22 20 20 20 20 2D |IT.".P.O.." -|
00000530: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000540: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"|
00000550: 00 7B 0D 54 01 99 22 11 11 20 20 20 20 20 20 20 |.{.T..".. |
00000560: 50 52 45 53 53 20 41 20 4E 55 4D 42 45 52 20 4B |PRESS A NUMBER K|
00000570: 45 59 20 28 31 2D 34 29 20 22 3B 00 8F 0D 59 01 |EY (1-4) ";...Y.|
00000580: 55 4C B2 31 3A 55 53 24 B2 22 31 32 33 34 22 00 |UL.1:US$."1234".|
00000590: 9E 0D 5B 01 8D 33 35 3A 55 53 24 B2 22 22 00 BB |..[..35:US$.""..|
000005A0: 0D 5E 01 91 C5 28 55 52 24 29 8D 31 30 30 30 2C |.^...(UR$).1000,|
000005B0: 34 30 30 2C 35 30 30 2C 33 39 30 00 C4 0D 63 01 |400,500,390...c.|
000005C0: 89 33 30 30 00 D8 0D 72 01 8B 55 5A B2 31 A7 9E |.300...r..UZ.1..|
000005D0: 55 50 25 3A 89 31 35 35 00 DE 0D 77 01 8E 00 06 |UP%:.155...w....|
000005E0: 0E 86 01 9E 55 45 3A 99 22 9A 93 22 3A 8B 55 57 |....UE:."..":.UW|
000005F0: B2 30 A7 97 55 59 2C 36 3A 97 55 58 2C 31 34 3A |.0..UY,6:.UX,14:|
00000600: 9E 55 55 2C 31 34 00 0E 0E 8B 01 9C 3A 80 00 33 |.UU,14......:..3|
00000610: 0E 90 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A |....".":.UT,UL%:|
00000620: 8B 55 57 B2 30 A7 97 55 59 2C 31 31 3A 97 55 58 |.UW.0..UY,11:.UX|
00000630: 2C 31 32 00 69 0E 95 01 55 54 24 B2 22 20 C3 41 |,12.i...UT$." .A|
00000640: 4C 45 4E 44 41 52 22 3A 55 48 B2 31 3A 55 50 B2 |LENDAR":UH.1:UP.|
00000650: 30 3A 55 47 24 B2 22 D3 54 55 44 45 4E 54 20 C9 |0:UG$.".TUDENT .|
00000660: 4E 53 54 22 3A 8D 38 35 30 00 9A 0E 96 01 99 22 |NST":.850......"|
00000670: 11 11 20 20 20 20 20 D7 49 54 48 20 54 48 49 53 |.. .ITH THIS|
00000680: 20 50 52 4F 47 52 41 4D 20 59 4F 55 20 43 41 4E | PROGRAM YOU CAN|
00000690: 20 56 49 45 57 20 54 48 45 22 00 C7 0E 97 01 99 | VIEW THE"......|
000006A0: 22 11 20 43 41 4C 45 4E 44 41 52 20 46 4F 52 20 |". CALENDAR FOR |
000006B0: 41 4E 59 20 59 45 41 52 20 41 4E 44 20 41 4E 59 |ANY YEAR AND ANY|
000006C0: 20 4D 4F 4E 54 48 22 00 DF 0E 98 01 99 22 11 20 | MONTH"......". |
000006D0: 54 48 41 54 20 59 4F 55 20 57 41 4E 54 2E 22 00 |THAT YOU WANT.".|
000006E0: 10 0F 99 01 99 20 22 11 11 20 20 20 20 20 D7 48 |..... ".. .H|
000006F0: 45 4E 20 59 4F 55 20 45 4E 54 45 52 20 54 48 45 |EN YOU ENTER THE|
00000700: 20 59 45 41 52 2C 20 45 4E 54 45 52 20 49 54 22 | YEAR, ENTER IT"|
00000710: 00 3D 0F 9A 01 99 22 11 20 41 53 20 41 20 46 4F |.=....". AS A FO|
00000720: 55 52 20 44 49 47 49 54 20 4E 55 4D 42 45 52 20 |UR DIGIT NUMBER |
00000730: 28 45 2E 47 2E 20 31 39 38 33 29 2E 22 00 6C 0F |(E.G. 1983).".l.|
00000740: 9B 01 99 22 11 20 D7 48 45 4E 20 59 4F 55 20 41 |...". .HEN YOU A|
00000750: 52 45 20 41 53 4B 45 44 20 46 4F 52 20 54 48 45 |RE ASKED FOR THE|
00000760: 20 4D 4F 4E 54 48 2C 20 55 53 45 22 00 9B 0F 9C | MONTH, USE"....|
00000770: 01 99 22 11 20 54 48 45 20 46 49 52 53 54 20 54 |..". THE FIRST T|
00000780: 48 52 45 45 20 4C 45 54 54 45 52 53 20 46 4F 52 |HREE LETTERS FOR|
00000790: 20 54 48 45 20 4D 4F 4E 54 48 22 00 C0 0F 9D 01 | THE MONTH".....|
000007A0: 99 22 11 20 59 4F 55 20 52 45 51 55 49 52 45 2E |.". YOU REQUIRE.|
000007B0: 22 3A 8D 38 33 35 3A 55 48 B2 31 3A 8D 38 35 30 |":.835:UH.1:.850|
000007C0: 00 EF 0F 9E 01 99 22 11 20 20 2A 20 CA 41 4E 55 |......". * .ANU|
000007D0: 41 52 59 A0 2D 20 CA C1 CE 20 20 20 20 20 2A 20 |ARY.- ... * |
000007E0: CA 55 4C 59 20 20 20 20 20 2D 20 CA D5 CC 22 00 |.ULY - ...".|
000007F0: 1E 10 9F 01 99 22 11 20 20 2A 20 C6 45 42 52 55 |.....". * .EBRU|
00000800: 41 52 59 2D 20 C6 C5 C2 20 20 20 20 20 2A 20 C1 |ARY- ... * .|
00000810: 55 47 55 53 54 20 20 20 2D 20 C1 D5 C7 22 00 4D |UGUST - ...".M|
00000820: 10 A0 01 99 22 11 20 20 2A 20 CD 41 52 43 48 20 |....". * .ARCH |
00000830: 20 20 2D 20 CD C1 D2 20 20 20 20 20 2A 20 D3 45 | - ... * .E|
00000840: 50 54 45 4D 42 45 52 2D 20 D3 C5 D0 22 00 7C 10 |PTEMBER- ...".|.|
00000850: A1 01 99 22 11 20 20 2A 20 C1 50 52 49 4C 20 20 |...". * .PRIL |
00000860: 20 2D 20 C1 D0 D2 20 20 20 20 20 2A 20 CF 43 54 | - ... * .CT|
00000870: 4F 42 45 52 20 20 2D 20 CF C3 D4 22 00 AB 10 A2 |OBER - ..."....|
00000880: 01 99 22 11 20 20 2A 20 CD 41 59 20 20 20 20 20 |..". * .AY |
00000890: 2D 20 CD C1 D9 20 20 20 20 20 2A 20 CE 4F 56 45 |- ... * .OVE|
000008A0: 4D 42 45 52 20 2D 20 CE CF D6 22 00 DA 10 A3 01 |MBER - ...".....|
000008B0: 99 22 11 20 20 2A 20 CA 55 4E 45 20 20 20 20 2D |.". * .UNE -|
000008C0: 20 CA D5 CE 20 20 20 20 20 2A 20 C4 45 43 45 4D | ... * .ECEM|
000008D0: 42 45 52 20 2D 20 C4 C5 C3 22 00 08 11 A4 01 99 |BER - ..."......|
000008E0: 22 11 11 20 20 20 20 20 C9 46 20 59 4F 55 20 57 |".. .F YOU W|
000008F0: 41 4E 54 20 54 4F 20 53 45 45 20 54 48 45 20 43 |ANT TO SEE THE C|
00000900: 41 4C 45 4E 44 41 52 22 00 37 11 A5 01 99 22 11 |ALENDAR".7....".|
00000910: 20 46 4F 52 20 54 48 45 20 45 4E 54 49 52 45 20 | FOR THE ENTIRE |
00000920: 59 45 41 52 2C 20 45 4E 54 45 52 20 C1 CC CC 20 |YEAR, ENTER ... |
00000930: 41 53 20 54 48 45 22 00 47 11 A6 01 99 22 11 20 |AS THE".G....". |
00000940: 4D 4F 4E 54 48 2E 22 00 5A 11 A8 01 8D 38 33 35 |MONTH.".Z....835|
00000950: 3A 55 48 B2 31 3A 8D 38 35 30 00 85 11 AB 01 99 |:UH.1:.850......|
00000960: 20 22 11 20 20 20 CE 4F 54 45 3A 20 11 11 C9 46 | ". .OTE: ...F|
00000970: 20 59 4F 55 20 57 49 53 48 20 54 4F 20 47 4F 20 | YOU WISH TO GO |
00000980: 42 41 43 4B 22 00 B0 11 AC 01 99 20 22 11 20 20 |BACK"...... ". |
00000990: 20 20 20 20 20 20 20 54 4F 20 54 48 45 20 4D 45 | TO THE ME|
000009A0: 4E 55 20 41 54 20 41 4E 59 20 54 49 4D 45 2C 22 |NU AT ANY TIME,"|
000009B0: 00 D4 11 AD 01 99 20 22 11 20 20 20 20 20 20 20 |...... ". |
000009C0: 20 20 50 52 45 53 53 20 48 20 12 D2 C5 D4 D5 D2 | PRESS H ......|
000009D0: CE 92 2E 22 00 F8 11 AE 01 99 20 22 11 11 11 20 |..."...... "... |
000009E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 C9 CD | ..|
000009F0: D0 CF D2 D4 C1 CE D4 22 00 19 12 B0 01 99 20 22 |......."...... "|
00000A00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 A3 | .|
00000A10: A3 A3 A3 A3 A3 A3 A3 A3 22 00 43 12 B1 01 99 20 |........".C.... |
00000A20: 22 11 20 20 20 20 20 D4 48 49 53 20 50 52 4F 47 |". .HIS PROG|
00000A30: 52 41 4D 20 47 49 56 45 53 20 41 43 43 55 52 41 |RAM GIVES ACCURA|
00000A40: 54 45 22 00 6B 12 B2 01 99 20 22 11 20 20 20 20 |TE".k.... ". |
00000A50: 20 20 52 45 53 55 4C 54 53 20 4F 4E 4C 59 20 41 | RESULTS ONLY A|
00000A60: 46 54 45 52 20 31 37 35 32 2E 22 00 74 12 E5 01 |FTER 1752.".t...|
00000A70: 8D 38 33 35 00 88 12 EA 01 8B 55 5A B2 31 A7 9E |.835......UZ.1..|
00000A80: 55 50 25 3A 89 31 35 35 00 8E 12 EF 01 8E 00 B2 |UP%:.155........|
00000A90: 12 F4 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A |....".":.UT,UL%:|
00000AA0: 8B 55 57 B2 30 A7 97 55 59 2C 32 3A 97 55 58 2C |.UW.0..UY,2:.UX,|
00000AB0: 31 30 00 E8 12 F5 01 55 54 24 B2 22 20 C3 41 4C |10.....UT$." .AL|
00000AC0: 45 4E 44 41 52 22 3A 55 48 B2 31 3A 55 50 B2 30 |ENDAR":UH.1:UP.0|
00000AD0: 3A 55 47 24 B2 22 D4 45 41 43 48 45 52 20 C9 4E |:UG$.".EACHER .N|
00000AE0: 53 54 22 3A 8D 38 35 30 00 15 13 F6 01 99 22 11 |ST":.850......".|
00000AF0: 11 20 20 20 20 20 D4 4F 20 54 48 45 20 42 45 53 |. .O THE BES|
00000B00: 54 20 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C 45 44 |T OF OUR KNOWLED|
00000B10: 47 45 2C 11 22 00 40 13 F7 01 99 22 20 20 20 20 |GE,.".@...." |
00000B20: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 49 53 | THIS PROGRAM IS|
00000B30: 20 49 4E 20 54 48 45 20 50 55 42 4C 49 43 11 22 | IN THE PUBLIC."|
00000B40: 00 6B 13 F8 01 99 22 20 20 20 20 20 44 4F 4D 41 |.k...." DOMA|
00000B50: 49 4E 2E 20 20 C9 46 20 54 48 49 53 20 49 53 20 |IN. .F THIS IS |
00000B60: 4E 4F 54 20 54 52 55 45 2C 11 22 00 89 13 F9 01 |NOT TRUE,.".....|
00000B70: 99 22 20 20 20 20 20 50 4C 45 41 53 45 20 43 4F |." PLEASE CO|
00000B80: 4E 54 41 43 54 3A 11 11 22 00 B2 13 FA 01 99 22 |NTACT:.."......"|
00000B90: 20 20 20 20 20 20 C3 CF CD CD CF C4 CF D2 C5 A0 | ..........|
00000BA0: C2 D5 D3 C9 CE C5 D3 D3 A0 CD C1 C3 C8 C9 CE C5 |................|
00000BB0: D3 22 00 D6 13 FB 01 99 22 20 20 20 20 20 20 20 |."......" |
00000BC0: 20 20 20 11 33 33 37 30 20 D0 48 41 52 4D 41 43 | .3370 .HARMAC|
00000BD0: 59 20 C1 56 45 2E 00 FB 13 FC 01 99 22 20 20 20 |Y .VE......." |
00000BE0: 20 20 20 20 20 20 20 11 C1 47 49 4E 43 4F 55 52 | ..GINCOUR|
00000BF0: 54 2C 20 CF 4E 54 41 52 49 4F 22 00 1D 14 FD 01 |T, .NTARIO".....|
00000C00: 99 22 20 20 20 20 20 20 20 20 20 20 11 C3 41 4E |." ..AN|
00000C10: 41 44 41 2C 20 CD 31 D7 20 32 CB 34 22 00 3E 14 |ADA, .1. 2.4".>.|
00000C20: FE 01 99 22 20 20 20 20 20 20 20 20 20 20 11 28 |..." .(|
00000C30: 34 31 36 29 20 34 39 39 2D 34 32 39 32 22 00 51 |416) 499-4292".Q|
00000C40: 14 FF 01 55 48 B2 31 3A 8D 38 33 35 3A 8D 38 35 |...UH.1:.835:.85|
00000C50: 30 00 78 14 00 02 99 22 20 20 20 20 20 20 11 11 |0.x...." ..|
00000C60: D0 52 4F 47 52 41 4D 20 CE 41 4D 45 3A 20 20 C3 |.ROGRAM .AME: .|
00000C70: 41 4C 45 4E 44 41 52 22 00 A1 14 01 02 99 22 20 |ALENDAR"......" |
00000C80: 20 20 20 20 20 11 D7 52 49 54 54 45 4E 20 42 59 | ..RITTEN BY|
00000C90: 20 20 3A 20 20 CF 2E CE 2E 20 CE 41 4D 45 4B 49 | : .... .AMEKI|
00000CA0: 22 00 C8 14 02 02 99 22 20 20 20 20 20 20 11 D2 |"......" ..|
00000CB0: 45 56 49 53 45 44 20 42 59 20 20 3A 20 20 C3 2E |EVISED BY : ..|
00000CC0: 20 C6 4F 53 54 45 52 22 00 F5 14 03 02 99 22 20 | .OSTER"......" |
00000CD0: 20 20 20 20 20 11 11 D4 48 49 53 20 50 52 4F 47 | ...HIS PROG|
00000CE0: 52 41 4D 20 57 49 4C 4C 20 52 55 4E 20 4F 4E 20 |RAM WILL RUN ON |
00000CF0: 41 4E 59 11 11 00 1C 15 04 02 99 22 20 20 20 20 |ANY........" |
00000D00: 20 20 20 20 20 C2 C1 D3 C9 C3 A0 32 2E 30 20 D0 | ......2.0 .|
00000D10: C5 D4 20 C3 4F 4D 50 55 54 45 52 11 00 43 15 05 |.. .OMPUTER..C..|
00000D20: 02 99 22 20 20 20 20 20 20 20 20 20 C2 C1 D3 C9 |.." ....|
00000D30: C3 20 34 2E 30 20 D0 C5 D4 A0 C3 4F 4D 50 55 54 |. 4.0 .....OMPUT|
00000D40: 45 52 11 00 65 15 06 02 99 22 20 20 20 20 20 20 |ER..e...." |
00000D50: 20 20 20 38 30 33 32 20 C3 C2 CD 20 C3 4F 4D 50 | 8032 ... .OMP|
00000D60: 55 54 45 52 11 00 8A 15 07 02 99 22 20 20 20 20 |UTER......." |
00000D70: 20 20 20 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 36 | .OMMODORE 6|
00000D80: 34 20 C3 4F 4D 50 55 54 45 52 00 93 15 49 02 8D |4 .OMPUTER...I..|
00000D90: 38 33 35 00 A7 15 4E 02 8B 55 5A B2 31 A7 9E 55 |835...N..UZ.1..U|
00000DA0: 50 25 3A 89 31 35 35 00 AD 15 53 02 8E 00 E1 15 |P%:.155...S.....|
00000DB0: BC 02 99 55 43 24 22 93 11 11 11 42 45 46 4F 52 |...UC$"....BEFOR|
00000DC0: 45 20 52 55 4E 4E 49 4E 47 20 54 48 49 53 20 50 |E RUNNING THIS P|
00000DD0: 52 4F 47 52 41 4D 20 4F 4E 20 41 4E 20 38 30 33 |ROGRAM ON AN 803|
00000DE0: 32 00 19 16 C1 02 99 22 20 20 20 20 20 20 4C 4F |2......" LO|
00000DF0: 41 44 20 54 48 45 20 27 43 42 4D 20 34 30 33 32 |AD THE 'CBM 4032|
00000E00: 27 20 50 52 4F 47 52 41 4D 11 11 11 11 11 11 11 |' PROGRAM.......|
00000E10: 11 11 11 11 11 11 22 3A 80 00 41 16 20 03 99 22 |......":..A. .."|
00000E20: 93 11 1D 1F 22 3B 3A 97 55 54 2C 55 55 25 3A 8B |....";:.UT,UU%:.|
00000E30: 55 57 B2 30 A7 97 55 59 2C 31 3A 97 55 58 2C 31 |UW.0..UY,1:.UX,1|
00000E40: 34 00 57 16 21 03 81 49 B2 31 A4 33 38 3A 99 22 |4.W.!..I.1.38:."|
00000E50: 12 20 92 22 3B 3A 82 00 6F 16 22 03 81 49 B2 31 |. .";:..o."..I.1|
00000E60: A4 32 32 3A 99 22 11 9D 12 20 92 22 3B 3A 82 00 |.22:."... .";:..|
00000E70: 87 16 23 03 81 49 B2 31 A4 33 37 3A 99 22 9D 9D |..#..I.1.37:."..|
00000E80: 12 20 92 22 3B 3A 82 00 9F 16 24 03 81 49 B2 31 |. .";:....$..I.1|
00000E90: A4 32 32 3A 99 22 91 9D 12 20 92 22 3B 3A 82 00 |.22:."... .";:..|
00000EA0: BF 16 25 03 99 22 13 11 11 11 11 11 11 11 11 1D |..%.."..........|
00000EB0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1F 12 A9 20 20 92 00 |............ ..|
00000EC0: D9 16 26 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..&.."..........|
00000ED0: 12 20 92 20 20 12 20 92 A9 00 05 17 27 03 99 22 |. . . .....'.."|
00000EE0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 1C |........... . .|
00000EF0: 12 A3 DF 1F 92 20 4F 20 4D 20 4D 20 4F 20 44 20 |..... O M M O D |
00000F00: 4F 20 52 20 45 00 1B 17 28 03 99 22 1D 1D 1D 1D |O R E...(.."....|
00000F10: 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 41 17 29 03 |........ ..A.).|
00000F20: 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00000F30: 1D 1D 1D 1D 1C 45 44 55 43 41 54 49 4F 4E 41 4C |.....EDUCATIONAL|
00000F40: 11 00 61 17 2A 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D |..a.*.."........|
00000F50: 1D 1D 1D 1D 1D 1D 1D 1D 1F 53 4F 46 54 57 41 52 |.........SOFTWAR|
00000F60: 45 00 7F 17 2B 03 99 22 11 1D 1D 1D 1D 1D 1D 1D |E...+.."........|
00000F70: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1C 31 39 38 33 1F 00 |..........1983..|
00000F80: BB 17 2C 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 |..,...(UD$,24);"|
00000F90: 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 |..........PRESS |
00000FA0: 53 50 41 43 45 20 42 41 52 20 4F 52 20 57 41 49 |SPACE BAR OR WAI|
00000FB0: 54 92 22 55 43 24 3A 55 49 B2 30 00 E2 17 2D 03 |T."UC$:UI.0...-.|
00000FC0: A1 55 49 24 3A 8B 55 49 24 B3 B1 22 20 22 A7 55 |.UI$:.UI$.." ".U|
00000FD0: 49 B2 55 49 AA 31 3A 8B 55 49 B3 32 35 30 A7 38 |I.UI.1:.UI.250.8|
00000FE0: 31 33 00 EB 17 2E 03 89 33 30 30 00 26 18 43 03 |13......300.&.C.|
00000FF0: 97 55 4E 2C 30 3A 99 C8 28 55 44 24 2C 32 34 29 |.UN,0:..(UD$,24)|
00001000: 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 |;".......PRESS S|
00001010: 50 41 43 45 20 42 41 52 20 54 4F 20 43 4F 4E 54 |PACE BAR TO CONT|
00001020: 49 4E 55 45 92 22 00 3D 18 48 03 A1 55 49 24 3A |INUE.".=.H..UI$:|
00001030: 8B 55 49 24 B3 B1 22 20 22 A7 38 34 30 00 43 18 |.UI$.." ".840.C.|
00001040: 4D 03 8E 00 75 18 52 03 55 50 B2 55 50 AA 31 3A |M...u.R.UP.UP.1:|
00001050: 99 22 93 22 C8 28 55 54 24 AA 55 50 24 2C 32 31 |.".".(UT$.UP$,21|
00001060: 29 3B C9 28 55 50 24 AA 55 47 24 AA C4 28 55 50 |);.(UP$.UG$..(UP|
00001070: 29 2C 31 38 29 00 A4 18 57 03 99 22 20 2D 2D 2D |),18)...W.." ---|
00001080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001090: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000010A0: 2D 2D 2D 22 00 DE 18 5C 03 8B 55 48 B2 30 A7 99 |---"...\..UH.0..|
000010B0: C8 28 55 44 24 2C 32 34 29 3B C8 28 55 50 24 2C |.(UD$,24);.(UP$,|
000010C0: 37 29 3B 22 48 45 4C 50 20 2D 20 50 52 45 53 53 |7);"HELP - PRESS|
000010D0: 20 20 20 48 20 3C 52 45 54 55 52 4E 3E 22 00 EF | H <RETURN>"..|
000010E0: 18 61 03 55 48 B2 30 3A 99 22 13 11 22 3A 8E 00 |.a.UH.0:."..":..|
000010F0: 27 19 6B 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 |'.k...(UD$,24);"|
00001100: 20 20 20 20 20 20 20 20 20 20 20 4F 4E 45 20 4D | ONE M|
00001110: 4F 4D 45 4E 54 20 50 4C 45 41 53 45 2E 2E 2E 20 |OMENT PLEASE... |
00001120: 20 20 20 20 22 3A 8E 00 77 19 84 03 55 58 24 B2 | ":..w...UX$.|
00001130: 22 48 22 3A 55 53 B2 33 32 37 36 38 3A 55 31 B2 |"H":US.32768:U1.|
00001140: 31 39 36 3A 55 32 B2 31 39 37 3A 55 33 B2 31 39 |196:U2.197:U3.19|
00001150: 38 3A 55 34 B2 32 31 36 3A 55 43 B2 31 36 37 3A |8:U4.216:UC.167:|
00001160: 55 42 B2 31 30 32 34 3A 55 44 B2 31 30 38 34 3A |UB.1024:UD.1084:|
00001170: 55 45 B2 31 31 30 35 00 C0 19 85 03 55 54 B2 35 |UE.1105.....UT.5|
00001180: 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 4C 25 B2 |9468:UU%.12:UL%.|
00001190: 31 34 3A 55 50 25 B2 31 31 35 38 3A 55 4E B2 31 |14:UP%.1158:UN.1|
000011A0: 35 38 3A 97 35 30 30 30 33 2C 30 3A 55 57 B2 C2 |58:.50003,0:UW..|
000011B0: 28 35 30 30 30 33 29 3A 55 46 B2 C2 28 35 33 29 |(50003):UF..(53)|
000011C0: 00 0E 1A 86 03 8B 55 57 B2 30 A7 55 53 B2 31 30 |......UW.0.US.10|
000011D0: 32 34 3A 55 31 B2 32 30 39 3A 55 32 B2 32 31 30 |24:U1.209:U2.210|
000011E0: 3A 55 33 B2 32 31 31 3A 55 34 B2 32 31 34 3A 55 |:U3.211:U4.214:U|
000011F0: 43 B2 32 30 34 3A 55 42 B2 32 30 34 38 3A 55 58 |C.204:UB.2048:UX|
00001200: B2 35 33 32 38 30 3A 55 44 B2 32 30 36 34 00 58 |.53280:UD.2064.X|
00001210: 1A 87 03 8B 55 57 B2 30 A7 55 54 B2 35 33 32 37 |....UW.0.UT.5327|
00001220: 32 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 32 33 3A |2:UU%.21:UL%.23:|
00001230: 55 50 25 B2 32 31 35 31 3A 55 4E B2 31 39 38 3A |UP%.2151:UN.198:|
00001240: 55 59 B2 35 33 32 38 31 3A 55 55 B2 32 31 39 39 |UY.53281:UU.2199|
00001250: 3A 55 45 B2 32 30 38 37 00 84 1A 88 03 55 43 24 |:UE.2087.....UC$|
00001260: B2 C7 28 31 35 35 29 3A 55 56 B2 31 32 31 34 3A |..(155):UV.1214:|
00001270: 8B 55 57 B2 30 A7 55 46 B2 31 39 36 3A 55 56 B2 |.UW.0.UF.196:UV.|
00001280: 32 32 33 38 00 D5 1A 89 03 55 44 24 B2 22 13 11 |2238.....UD$."..|
00001290: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000012A0: 11 11 11 11 11 11 11 22 3A 55 50 24 B2 22 20 20 |.......":UP$." |
000012B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000012C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000012D0: 20 20 20 20 22 00 E2 1A 8A 03 86 44 4D 24 28 31 | "......DM$(1|
000012E0: 33 29 00 F8 1A 8B 03 81 53 B2 31 A4 31 33 3A 87 |3)......S.1.13:.|
000012F0: 44 4D 24 28 53 29 3A 82 00 32 1B 8C 03 83 20 4A |DM$(S):..2.... J|
00001300: 41 4E 2C 46 45 42 2C 4D 41 52 2C 41 50 52 2C 4D |AN,FEB,MAR,APR,M|
00001310: 41 59 2C 4A 55 4E 2C 4A 55 4C 2C 41 55 47 2C 53 |AY,JUN,JUL,AUG,S|
00001320: 45 50 2C 4F 43 54 2C 4E 4F 56 2C 44 45 43 2C 41 |EP,OCT,NOV,DEC,A|
00001330: 4C 4C 00 38 1B 8D 03 8E 00 5B 1B 8E 03 8D 39 30 |LL.8.....[....90|
00001340: 30 3A 99 22 93 22 3A 99 22 A0 22 3A 8F 20 53 48 |0:.".":.".":. SH|
00001350: 49 46 54 45 44 20 53 50 41 43 45 00 71 1B 93 03 |IFTED SPACE.q...|
00001360: 8B C2 28 55 53 AA 34 30 29 B3 B1 39 36 A7 37 30 |..(US.40)..96.70|
00001370: 30 00 97 1B 98 03 8B 28 B8 28 30 29 AB 28 B4 28 |0......(.(0).(.(|
00001380: B8 28 30 29 29 B3 30 29 AC 36 35 35 33 36 29 B1 |.(0)).0).65536).|
00001390: 35 30 30 A7 39 33 35 00 C7 1B 9D 03 99 55 43 24 |500.935......UC$|
000013A0: 22 93 11 11 54 48 49 53 20 4D 41 43 48 49 4E 45 |"...THIS MACHINE|
000013B0: 20 44 4F 45 53 20 4E 4F 54 20 48 41 56 45 20 45 | DOES NOT HAVE E|
000013C0: 4E 4F 55 47 48 11 22 00 F1 1B A2 03 99 22 4D 45 |NOUGH."......"ME|
000013D0: 4D 4F 52 59 20 54 4F 20 52 55 4E 20 54 48 49 53 |MORY TO RUN THIS|
000013E0: 20 50 52 4F 47 52 41 4D 20 21 22 3A 9E 55 45 3A | PROGRAM !":.UE:|
000013F0: 80 00 07 1C A7 03 99 22 93 22 55 43 24 3A 8B 55 |......."."UC$:.U|
00001400: 57 B2 30 A7 39 36 35 00 24 1C AC 03 8B 55 46 B2 |W.0.965.$....UF.|
00001410: 36 30 B0 55 46 B2 31 30 38 B0 55 46 B2 31 32 34 |60.UF.108.UF.124|
00001420: A7 39 35 30 00 3E 1C B1 03 97 35 32 2C 30 3A 97 |.950.>....52,0:.|
00001430: 35 33 2C 55 46 AB 34 3A 9C 3A 8D 39 30 30 00 75 |53,UF.4:.:.900.u|
00001440: 1C B6 03 8B 55 57 B2 31 36 30 A7 97 31 31 30 33 |....UW.160..1103|
00001450: 2C 38 38 3A 97 31 31 30 34 2C 32 32 38 3A 97 31 |,88:.1104,228:.1|
00001460: 31 30 37 2C 38 35 3A 97 31 31 31 31 2C 32 32 38 |107,85:.1111,228|
00001470: 3A 89 39 36 35 00 B2 1C BB 03 8B 55 57 B3 B1 31 |:.965......UW..1|
00001480: A7 99 22 93 54 48 49 53 20 50 47 4D 20 57 49 4C |..".THIS PGM WIL|
00001490: 4C 20 4E 4F 54 20 57 4F 52 4B 20 4F 4E 20 54 48 |L NOT WORK ON TH|
000014A0: 49 53 20 4D 41 43 48 49 4E 45 21 22 3A 9E 55 45 |IS MACHINE!":.UE|
000014B0: 3A 80 00 E1 1C C0 03 97 31 31 30 33 2C 34 39 3A |:.......1103,49:|
000014C0: 97 31 31 30 34 2C 32 33 30 3A 97 31 31 30 37 2C |.1104,230:.1107,|
000014D0: 34 36 3A 97 31 31 31 31 2C 32 33 30 3A 89 39 36 |46:.1111,230:.96|
000014E0: 35 00 E9 1C C5 03 9E 55 44 00 F7 1C CA 03 8D 38 |5......UD......8|
000014F0: 30 30 3A 89 33 30 30 00 10 1D E8 03 8B 55 5A B2 |00:.300......UZ.|
00001500: 31 A7 9E 55 50 25 3A 9E 55 50 25 3A 55 5A B2 30 |1..UP%:.UP%:UZ.0|
00001510: 00 32 1D E9 03 99 22 93 22 55 43 24 3B 3A 8C 3A |.2...."."UC$;:.:|
00001520: 8B 55 57 B2 30 A7 97 55 59 2C 36 3A 97 55 58 2C |.UW.0..UY,6:.UX,|
00001530: 31 34 00 57 1D FC 03 8F 20 43 4F 50 59 52 49 47 |14.W.... COPYRIG|
00001540: 48 54 20 4F 53 43 41 52 20 4E 41 4F 59 55 4B 49 |HT OSCAR NAOYUKI|
00001550: 20 4E 41 4D 45 4B 49 00 66 1D 06 04 8F 20 43 41 | NAMEKI.f.... CA|
00001560: 4C 45 4E 44 41 52 00 7D 1D 10 04 8F 20 43 4F 4C |LENDAR.}.... COL|
00001570: 55 4D 42 49 41 20 43 4F 4C 4C 45 47 45 00 9D 1D |UMBIA COLLEGE...|
00001580: 1A 04 8F 20 31 36 31 39 20 57 31 30 20 41 56 45 |... 1619 W10 AVE|
00001590: 20 56 41 4E 43 4F 55 56 45 52 20 42 43 00 E1 1D | VANCOUVER BC...|
000015A0: 24 04 97 55 54 2C 55 55 25 3A 57 B2 31 3A 55 54 |$..UT,UU%:W.1:UT|
000015B0: 24 B2 22 20 43 41 4C 45 4E 44 41 52 22 3A 55 47 |$." CALENDAR":UG|
000015C0: 24 B2 22 50 41 47 45 20 22 3A 55 50 B2 30 3A 8D |$."PAGE ":UP.0:.|
000015D0: 38 35 30 3A 99 22 13 11 11 11 11 11 11 11 11 11 |850:."..........|
000015E0: 22 00 EB 1D 29 04 8D 32 30 33 30 00 00 1E 2E 04 |"...)..2030.....|
000015F0: 99 22 91 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B |."............";|
00001600: 00 22 1E 38 04 99 20 22 41 20 50 45 52 50 45 54 |.".8.. "A PERPET|
00001610: 55 41 4C 20 43 41 4C 45 4E 44 41 52 22 3A 8D 38 |UAL CALENDAR":.8|
00001620: 33 35 00 40 1E 4C 04 97 55 54 2C 55 55 25 3A 55 |35.@.L..UT,UU%:U|
00001630: 48 B2 30 3A 55 50 B2 55 50 AA 31 3A 8D 38 35 30 |H.0:UP.UP.1:.850|
00001640: 00 78 1E 60 04 99 22 13 11 11 11 20 57 48 41 54 |.x.`..".... WHAT|
00001650: A0 59 45 41 52 27 53 A0 43 41 4C 45 4E 44 41 52 |.YEAR'S.CALENDAR|
00001660: A0 44 4F A0 59 4F 55 A0 57 41 4E 54 3F 20 20 20 |.DO.YOU.WANT? |
00001670: 20 20 9D 9D 9D 9D 22 3B 00 A0 1E 65 04 55 53 24 | ....";...e.US$|
00001680: B2 22 48 30 31 32 33 34 35 36 37 38 39 22 3A 55 |."H0123456789":U|
00001690: 4C B2 34 3A 8D 33 35 3A 41 B2 C5 28 55 52 24 29 |L.4:.35:A..(UR$)|
000016A0: 00 B4 1E 66 04 8B 20 41 B3 31 37 35 32 20 A7 20 |...f.. A.1752 . |
000016B0: 31 31 32 30 00 D3 1E 6A 04 42 B2 28 41 AD 31 30 |1120...j.B.(A.10|
000016C0: 30 29 3A 43 B2 B5 28 41 AD 31 30 30 29 3A 44 B2 |0):C..(A.100):D.|
000016D0: 42 AB 43 00 F3 1E 74 04 8F 2D 2D 43 41 4C 43 55 |B.C...t..--CALCU|
000016E0: 4C 41 54 49 4F 4E 20 4F 46 20 4C 45 41 50 20 59 |LATION OF LEAP Y|
000016F0: 45 41 52 00 04 1F 7E 04 8B 20 44 B2 30 20 A7 20 |EAR...~.. D.0 . |
00001700: 31 31 39 30 00 1F 1F 88 04 42 B2 28 41 AD 34 29 |1190.....B.(A.4)|
00001710: 3A 43 B2 B5 28 41 AD 34 29 3A 44 B2 42 AB 43 00 |:C..(A.4):D.B.C.|
00001720: 30 1F 92 04 8B 20 44 B2 30 20 A7 20 31 32 33 30 |0.... D.0 . 1230|
00001730: 00 3B 1F 9C 04 89 20 31 32 35 30 00 5A 1F A6 04 |.;.... 1250.Z...|
00001740: 42 B2 28 41 AD 34 30 30 29 3A 43 B2 B5 28 41 AD |B.(A.400):C..(A.|
00001750: 34 30 30 29 3A 44 B2 42 AB 43 00 6B 1F B0 04 8B |400):D.B.C.k....|
00001760: 20 44 B2 30 20 A7 20 31 32 33 30 00 76 1F BA 04 | D.0 . 1230.v...|
00001770: 89 20 31 32 35 30 00 98 1F CE 04 99 22 11 20 4F |. 1250......". O|
00001780: 48 21 20 54 48 49 53 A0 49 53 A0 41 A0 4C 45 41 |H! THIS.IS.A.LEA|
00001790: 50 A0 59 45 41 52 2E 22 00 A7 1F D8 04 58 B2 31 |P.YEAR.".....X.1|
000017A0: 3A 89 20 31 32 36 30 00 AF 1F E2 04 58 B2 30 00 |:. 1260.....X.0.|
000017B0: D2 1F EC 04 46 B2 B5 28 41 AD 34 29 3A 47 B2 B5 |....F..(A.4):G..|
000017C0: 28 41 AD 34 30 30 29 3A 48 B2 B5 28 41 AD 31 30 |(A.400):H..(A.10|
000017D0: 30 29 00 DE 1F F6 04 4A B2 46 AA 47 AB 48 00 10 |0).....J.F.G.H..|
000017E0: 20 00 05 4C B2 28 41 AA 4A 29 AD 37 3A 4D B2 B5 | ..L.(A.J).7:M..|
000017F0: 28 28 41 AA 4A 29 AD 37 29 3A 51 B2 28 4C AB 4D |((A.J).7):Q.(L.M|
00001800: 29 AC 37 3A 4F B2 B5 28 51 29 3A 52 B2 51 AB 4F |).7:O..(Q):R.Q.O|
00001810: 00 24 20 0A 05 8B 20 52 B1 30 2E 39 20 A7 20 4F |.$ ... R.0.9 . O|
00001820: B2 4F AA 31 00 2E 20 14 05 4F B2 4F AB 58 00 40 |.O.1.. ..O.O.X.@|
00001830: 20 1E 05 8B 20 4F B3 30 20 A7 20 4F B2 4F AA 37 | ... O.0 . O.O.7|
00001840: 00 7C 20 32 05 99 22 11 20 57 48 41 54 20 49 53 |.| 2..". WHAT IS|
00001850: 20 54 48 45 20 4D 4F 4E 54 48 3F 20 20 20 20 9D | THE MONTH? .|
00001860: 9D 9D 22 3B 3A 20 55 53 24 B2 22 22 3A 55 4C B2 |..";: US$."":UL.|
00001870: 33 3A 8D 33 35 3A 42 24 B2 55 52 24 00 8B 20 37 |3:.35:B$.UR$.. 7|
00001880: 05 42 24 B2 C8 28 42 24 2C 33 29 00 A7 20 3C 05 |.B$..(B$,3).. <.|
00001890: 81 53 B2 31 A4 31 33 3A 8B 42 24 B2 44 4D 24 28 |.S.1.13:.B$.DM$(|
000018A0: 53 29 89 32 35 32 30 00 BB 20 41 05 82 53 3A 99 |S).2520.. A..S:.|
000018B0: 22 91 91 91 22 3A 89 31 33 33 30 00 C7 20 50 05 |"...":.1330.. P.|
000018C0: 99 C7 28 31 34 37 29 00 E1 20 5A 05 8B 20 42 24 |..(147).. Z.. B$|
000018D0: B2 22 41 4C 4C 22 20 A7 20 41 24 B2 22 41 4C 4C |."ALL" . A$."ALL|
000018E0: 22 00 08 21 64 05 8B 20 42 24 B2 22 4A 41 4E 22 |"..!d.. B$."JAN"|
000018F0: 20 B0 20 20 41 24 B2 22 41 4C 4C 22 20 20 20 20 | . A$."ALL" |
00001900: A7 20 8D 20 31 39 30 30 00 2F 21 6E 05 8B 20 42 |. . 1900./!n.. B|
00001910: 24 B2 22 46 45 42 22 20 B0 20 41 24 B2 22 41 4C |$."FEB" . A$."AL|
00001920: 4C 22 20 20 20 20 20 A7 20 8D 20 31 39 31 30 00 |L" . . 1910.|
00001930: 56 21 78 05 8B 20 42 24 B2 22 4D 41 52 22 20 B0 |V!x.. B$."MAR" .|
00001940: 20 41 24 B2 22 41 4C 4C 22 20 20 20 20 20 A7 20 | A$."ALL" . |
00001950: 8D 20 31 39 32 30 00 7D 21 82 05 8B 20 42 24 B2 |. 1920.}!... B$.|
00001960: 22 41 50 52 22 20 B0 20 41 24 B2 22 41 4C 4C 22 |"APR" . A$."ALL"|
00001970: 20 20 20 20 20 A7 20 8D 20 31 39 33 30 00 A5 21 | . . 1930..!|
00001980: 8C 05 8B 20 42 24 B2 22 4D 41 59 22 20 B0 20 41 |... B$."MAY" . A|
00001990: 24 B2 22 41 4C 4C 22 20 20 20 20 20 20 A7 20 8D |$."ALL" . .|
000019A0: 20 31 39 34 30 00 CB 21 96 05 8B 20 42 24 B2 22 | 1940..!... B$."|
000019B0: 4A 55 4E 22 20 B0 20 41 24 B2 22 41 4C 4C 22 20 |JUN" . A$."ALL" |
000019C0: 20 20 A7 20 20 8D 20 31 39 35 30 00 E8 21 A0 05 | . . 1950..!..|
000019D0: 8B 42 24 B2 22 4A 55 4C 22 B0 41 24 B2 22 41 4C |.B$."JUL".A$."AL|
000019E0: 4C 22 A7 8D 31 39 36 30 00 0E 22 AA 05 8B 20 42 |L"..1960.."... B|
000019F0: 24 B2 22 41 55 47 22 20 20 B0 20 41 24 B2 22 41 |$."AUG" . A$."A|
00001A00: 4C 4C 22 20 20 A7 20 20 8D 20 31 39 37 30 00 33 |LL" . . 1970.3|
00001A10: 22 B4 05 8B 20 42 24 B2 22 53 45 50 22 B0 20 41 |"... B$."SEP". A|
00001A20: 24 B2 22 41 4C 4C 22 20 20 20 20 A7 20 8D 20 31 |$."ALL" . . 1|
00001A30: 39 38 30 00 57 22 BE 05 8B 20 42 24 B2 22 4F 43 |980.W"... B$."OC|
00001A40: 54 22 20 B0 20 41 24 B2 22 41 4C 4C 22 20 20 A7 |T" . A$."ALL" .|
00001A50: 20 8D 20 31 39 39 30 00 7C 22 C8 05 8B 20 42 24 | . 1990.|"... B$|
00001A60: B2 22 4E 4F 56 22 20 B0 20 41 24 B2 22 41 4C 4C |."NOV" . A$."ALL|
00001A70: 22 20 20 20 A7 20 8D 20 32 30 30 30 00 A2 22 D2 |" . . 2000..".|
00001A80: 05 8B 20 42 24 B2 22 44 45 43 22 20 B0 20 41 24 |.. B$."DEC" . A$|
00001A90: B2 22 41 4C 4C 22 20 20 20 20 A7 20 8D 20 32 30 |."ALL" . . 20|
00001AA0: 31 30 00 C4 22 DC 05 55 48 B2 30 3A 55 47 24 B2 |10.."..UH.0:UG$.|
00001AB0: 22 50 41 47 45 20 22 3A 55 50 B2 55 50 AA 31 3A |"PAGE ":UP.UP.1:|
00001AC0: 8D 38 35 30 00 E2 22 E6 05 99 22 11 11 20 41 4E |.850.."...".. AN|
00001AD0: 4F 54 48 45 52 20 43 41 4C 45 4E 44 41 52 3F 20 |OTHER CALENDAR? |
00001AE0: 22 3B 00 00 23 F0 05 55 53 24 B2 22 48 59 4E 22 |";..#..US$."HYN"|
00001AF0: 3A 55 4C B2 31 3A 8D 33 35 3A 43 24 B2 55 52 24 |:UL.1:.35:C$.UR$|
00001B00: 00 19 23 04 06 8B 20 43 24 B2 22 59 22 A7 20 55 |..#... C$."Y". U|
00001B10: 50 B2 30 3A 89 31 31 30 30 00 29 23 0E 06 9C 3A |P.0:.1100.)#...:|
00001B20: 8D 39 30 30 3A 8D 33 30 30 00 2F 23 18 06 80 00 |.900:.300./#....|
00001B30: 41 23 22 06 8B 20 5A B1 36 20 A7 20 5A B2 5A AB |A#".. Z.6 . Z.Z.|
00001B40: 37 00 53 23 2C 06 8B 20 5A B3 30 20 A7 20 5A B2 |7.S#,.. Z.0 . Z.|
00001B50: 5A AA 37 00 6A 23 54 06 8F 20 57 52 49 54 49 4E |Z.7.j#T.. WRITIN|
00001B60: 47 20 43 41 4C 45 4E 44 41 52 00 79 23 5E 06 57 |G CALENDAR.y#^.W|
00001B70: B2 32 30 3A 8D 32 30 32 30 00 8A 23 68 06 99 22 |.20:.2020..#h.."|
00001B80: 13 22 3B 22 11 11 11 11 22 3B 00 95 23 72 06 41 |.";"....";..#r.A|
00001B90: B2 B5 28 41 29 00 A9 23 7C 06 99 20 A3 33 29 3B |..(A)..#|.. .3);|
00001BA0: 42 24 2C A3 32 30 29 3B 41 00 DB 23 86 06 99 22 |B$,.20);A..#..."|
00001BB0: 11 11 22 3B A3 33 29 3B 22 53 55 4E 20 20 4D 4F |..";.3);"SUN MO|
00001BC0: 4E 20 20 54 55 45 20 20 57 45 44 20 20 54 48 55 |N TUE WED THU|
00001BD0: 20 20 46 52 49 20 20 53 41 54 22 00 E6 23 90 06 | FRI SAT"..#..|
00001BE0: 99 22 11 11 22 3B 00 F4 23 9A 06 81 20 4B B2 30 |."..";..#... K.0|
00001BF0: 20 A4 20 35 00 08 24 A4 06 4C B2 28 4B AC 37 29 | . 5..$..L.(K.7)|
00001C00: AA 31 3A 4D B2 4C AA 36 00 16 24 AE 06 81 20 4E |.1:M.L.6..$... N|
00001C10: B2 4C 20 A4 20 4D 00 20 24 B8 06 50 B2 4E AB 5A |.L . M. $..P.N.Z|
00001C20: 00 32 24 C2 06 8B 20 50 B3 B2 30 20 A7 20 31 38 |.2$... P..0 . 18|
00001C30: 32 30 00 50 24 CC 06 8B 20 4E B1 37 20 A7 20 5A |20.P$... N.7 . Z|
00001C40: 31 B2 4E AB 28 37 AC 4B 29 3A 89 20 31 37 36 30 |1.N.(7.K):. 1760|
00001C50: 00 59 24 D6 06 5A 31 B2 4E 00 6A 24 E0 06 8B 20 |.Y$..Z1.N.j$... |
00001C60: 50 B1 39 20 A7 20 31 37 38 30 00 80 24 EA 06 49 |P.9 . 1780..$..I|
00001C70: B2 28 35 AC 5A 31 29 AB 32 3A 89 20 31 37 39 30 |.(5.Z1).2:. 1790|
00001C80: 00 8F 24 F4 06 49 B2 28 35 AC 5A 31 29 AB 33 00 |..$..I.(5.Z1).3.|
00001C90: A0 24 FE 06 8B 20 50 B1 59 20 A7 20 31 38 36 30 |.$... P.Y . 1860|
00001CA0: 00 C9 24 08 07 8B 20 50 B2 51 20 A7 20 99 20 A3 |..$... P.Q . . .|
00001CB0: 49 29 3B 22 12 22 3B 50 3A 99 3A 99 20 22 91 91 |I);".";P:.:. "..|
00001CC0: 91 22 3A 89 20 31 38 32 30 00 D6 24 12 07 99 20 |.":. 1820..$... |
00001CD0: A3 49 29 3B 50 3B 00 DE 24 1C 07 82 20 4E 00 E4 |.I);P;..$... N..|
00001CE0: 24 26 07 99 00 EA 24 30 07 99 00 F2 24 3A 07 82 |$&....$0....$:..|
00001CF0: 20 4B 00 F8 24 44 07 99 00 03 25 4E 07 8D 38 33 | K..$D....%N..83|
00001D00: 35 3A 8E 00 32 25 6C 07 5A B2 4F 20 20 20 20 20 |5:..2%l.Z.O |
00001D10: 3A 59 B2 33 31 20 20 20 20 3A 42 24 B2 22 4A 41 |:Y.31 :B$."JA|
00001D20: 4E 55 41 52 59 22 20 20 20 20 3A 8D 31 35 37 30 |NUARY" :.1570|
00001D30: 3A 8E 00 61 25 76 07 5A B2 4F AA 33 20 20 20 3A |:..a%v.Z.O.3 :|
00001D40: 59 B2 32 38 AA 58 20 20 3A 42 24 B2 22 46 45 42 |Y.28.X :B$."FEB|
00001D50: 52 55 41 52 59 22 20 20 3A 8D 20 31 35 37 30 3A |RUARY" :. 1570:|
00001D60: 8E 00 90 25 80 07 5A B2 4F AA 33 AA 58 20 3A 59 |...%..Z.O.3.X :Y|
00001D70: B2 33 31 20 20 20 20 3A 42 24 B2 22 4D 41 52 43 |.31 :B$."MARC|
00001D80: 48 22 20 20 20 20 20 3A 8D 20 31 35 37 30 3A 8E |H" :. 1570:.|
00001D90: 00 BF 25 8A 07 5A B2 4F AB 31 AA 58 20 3A 59 B2 |..%..Z.O.1.X :Y.|
00001DA0: 33 30 20 20 20 20 3A 42 24 B2 22 41 50 52 49 4C |30 :B$."APRIL|
00001DB0: 22 20 20 20 20 20 3A 8D 20 31 35 37 30 3A 8E 00 |" :. 1570:..|
00001DC0: EE 25 94 07 5A B2 4F AA 31 AA 58 20 3A 59 B2 33 |.%..Z.O.1.X :Y.3|
00001DD0: 31 20 20 20 20 3A 42 24 B2 22 4D 41 59 22 20 20 |1 :B$."MAY" |
00001DE0: 20 20 20 20 20 3A 8D 20 31 35 37 30 3A 8E 00 1D | :. 1570:...|
00001DF0: 26 9E 07 5A B2 4F AA 34 AA 58 20 3A 59 B2 33 30 |&..Z.O.4.X :Y.30|
00001E00: 20 20 20 20 3A 42 24 B2 22 4A 55 4E 45 22 20 20 | :B$."JUNE" |
00001E10: 20 20 20 20 3A 8D 20 31 35 37 30 3A 8E 00 4C 26 | :. 1570:..L&|
00001E20: A8 07 5A B2 4F AB 31 AA 58 20 3A 59 B2 33 31 20 |..Z.O.1.X :Y.31 |
00001E30: 20 20 20 3A 42 24 B2 22 4A 55 4C 59 22 20 20 20 | :B$."JULY" |
00001E40: 20 20 20 3A 8D 20 31 35 37 30 3A 8E 00 7B 26 B2 | :. 1570:..{&.|
00001E50: 07 5A B2 4F AA 32 AA 58 20 3A 59 B2 33 31 20 20 |.Z.O.2.X :Y.31 |
00001E60: 20 20 3A 42 24 B2 22 41 55 47 55 53 54 22 20 20 | :B$."AUGUST" |
00001E70: 20 20 3A 8D 20 31 35 37 30 3A 8E 00 AA 26 BC 07 | :. 1570:...&..|
00001E80: 5A B2 4F AA 35 AA 58 20 3A 59 B2 33 30 20 20 20 |Z.O.5.X :Y.30 |
00001E90: 20 3A 42 24 B2 22 53 45 50 54 45 4D 42 45 52 22 | :B$."SEPTEMBER"|
00001EA0: 20 3A 8D 20 31 35 37 30 3A 8E 00 D9 26 C6 07 5A | :. 1570:...&..Z|
00001EB0: B2 4F AA 58 20 20 20 3A 59 B2 33 31 20 20 20 20 |.O.X :Y.31 |
00001EC0: 3A 42 24 B2 22 4F 43 54 4F 42 45 52 22 20 20 20 |:B$."OCTOBER" |
00001ED0: 3A 8D 20 31 35 37 30 3A 8E 00 08 27 D0 07 5A B2 |:. 1570:...'..Z.|
00001EE0: 4F AA 33 AA 58 20 3A 59 B2 33 30 20 20 20 20 3A |O.3.X :Y.30 :|
00001EF0: 42 24 B2 22 4E 4F 56 45 4D 42 45 52 22 20 20 3A |B$."NOVEMBER" :|
00001F00: 8D 20 31 35 37 30 3A 8E 00 37 27 DA 07 5A B2 4F |. 1570:..7'..Z.O|
00001F10: AA 35 AA 58 20 3A 59 B2 33 31 20 20 20 20 3A 42 |.5.X :Y.31 :B|
00001F20: 24 B2 22 44 45 43 45 4D 42 45 52 22 20 20 3A 8D |$."DECEMBER" :.|
00001F30: 20 31 35 37 30 3A 8E 00 40 27 E4 07 99 22 93 22 | 1570:..@'..."."|
00001F40: 00 4B 27 EE 07 99 22 A7 A3 22 3B 00 5A 27 F8 07 |.K'..."..";.Z'..|
00001F50: 81 20 43 B2 31 20 A4 20 33 35 00 65 27 02 08 99 |. C.1 . 35.e'...|
00001F60: 20 22 A3 22 3B 00 6D 27 0C 08 82 20 43 00 77 27 | ".";.m'... C.w'|
00001F70: 16 08 99 22 A3 A5 22 00 85 27 20 08 81 20 43 B2 |...".."..' .. C.|
00001F80: 31 20 A4 20 57 00 9C 27 2A 08 99 20 A3 30 29 3B |1 . W..'*.. .0);|
00001F90: 22 A7 22 3B A3 33 38 29 3B 22 A5 22 00 A4 27 34 |".";.38);"."..'4|
00001FA0: 08 82 20 43 00 B0 27 3E 08 99 20 22 A7 A4 22 3B |.. C..'>.. "..";|
00001FB0: 00 BF 27 48 08 81 20 43 B2 31 20 A4 20 33 35 00 |..'H.. C.1 . 35.|
00001FC0: CA 27 52 08 99 20 22 A4 22 3B 00 D2 27 5C 08 82 |.'R.. ".";..'\..|
00001FD0: 20 43 00 DD 27 66 08 99 20 22 A4 A5 22 00 E3 27 | C..'f.. ".."..'|
00001FE0: 70 08 8E 00 0E 28 D8 09 99 22 11 20 44 4F 20 59 |p....(...". DO Y|
00001FF0: 4F 55 20 57 41 4E 54 20 41 20 4D 41 52 4B 45 52 |OU WANT A MARKER|
00002000: 20 4F 4E 20 41 20 44 41 54 45 3F 20 22 3B 00 2C | ON A DATE? ";.,|
00002010: 28 E2 09 55 53 24 B2 22 48 59 4E 22 3A 55 4C B2 |(..US$."HYN":UL.|
00002020: 31 3A 8D 33 35 3A 56 24 B2 55 52 24 00 40 28 F6 |1:.35:V$.UR$.@(.|
00002030: 09 8B 56 24 B2 22 4E 22 20 A7 20 89 32 36 32 30 |..V$."N" . .2620|
00002040: 00 65 28 00 0A 99 22 11 20 4F 4E 20 57 48 41 54 |.e(...". ON WHAT|
00002050: 20 44 41 59 20 4F 46 20 54 48 45 20 4D 4F 4E 54 | DAY OF THE MONT|
00002060: 48 3F 20 22 3B 00 8D 28 0A 0A 55 53 24 B2 22 48 |H? ";..(..US$."H|
00002070: 30 31 32 33 34 35 36 37 38 39 22 3A 55 4C B2 32 |0123456789":UL.2|
00002080: 3A 8D 33 35 3A 51 B2 C5 28 55 52 24 29 00 97 28 |:.35:Q..(UR$)..(|
00002090: 3C 0A 89 31 33 36 30 00 00 00 |<..1360... |
.......910.6...."X..........X` ......L4.
X.1........X` .A...."X.G......X` ......L
X.X.U......X` ......"XHHH.H.HHHHHHH.H
.HX` ......"HHHHHHH` ......" .H...X.
. ..... .H...P...JP.` .U....".. .H....
.P.....JP.` ...#..UW.0..UU,15...(..UC,0
:.UN,0:UR$."":UI$."":.UL.0.UL.39.$.-..UI
$:.UI$."".45.Y.2.UA.F(UI$):UR.C(UR$):.UA
.13.UR.0..UC,1:." .";:.70...7..UA.20...(
UR.0).45:UR$.H(UR$,UR.1):.". ..";:.45..
.<..UR.UL.45...A..95:UR$.UR$.UI$:.UI$;:.
45.S.F..UR$.UX$..". ";:.145...K..UI.UR.1
..1:.J(UR$,UI,1)." ".....P.UR$.H(UR$,UI)
:.:...._..C(US$).0.110.J.D..UI.1.C(US$):
.UI$..J(US$,UI,1)..:UI$."".P.I...].N..UA
.46...P.S..UA.32.UR..0.....X..UA.47.UA.5
8.....}..UA.64.UA.91........UA.193.UA.21
8.UI$."":..O....B(UT).UU%.UI$.G(UA.128).
U..........170:.251,0:.252,US.256:.253,0
:.254,UF:.UV.....UZ.1:UV%.B(UT):.300.B..
.UZ.0:US$.UJ$:UG$.UK$:UT$.UL$:UP.UJ:UL.U
K:.".";:.UW.0..UY,6:.UX,14... ..UT,UV%:.
251,0:.252,UF:.253,0:.254,US.256:.UV:.UW
.0..UU,15.K....U1,U1%:.U2,U2%:.U3,U3%.1:
.U4,U4%:.35.....U1%.B(U1):U2%.B(U2):U3%.
B(U3):U4%.B(U4).!...UJ$.US$:UK$.UG$:UL$.
UT$:UJ.UP:UK.UL:..F.,.."..":.UT,UU%:.UW.
0..UY,6:.UX,14.F.1.." M E
N U."...6.." -----------------------
---------"...;..". 1. BEGIN CALE
NDAR"...@..".. 2. STUDENT INSTRU
CTIONS"...E..".. 3. TEACHER INST
RUCTIONS".$.J..".. 4. QUIT.".P.O
.." --------------------------------"
.{.T..".. PRESS A NUMBER KEY (1-4)
";...Y.UL.1:US$."1234"...[..35:US$.""..
.^..E(UR$).1000,400,500,390.D.C..300.X.R
..UZ.1..UP%:.155...W........UE:."..":.UW
.0..UY,6:.UX,14:.UU,14......:..3....".":
.UT,UL%:.UW.0..UY,11:.UX,12.I...UT$." CA
LENDAR":UH.1:UP.0:UG$."STUDENT INST":.85
0......".. WITH THIS PROGRAM YOU CAN
VIEW THE".G....". CALENDAR FOR ANY YEAR
AND ANY MONTH"......". THAT YOU WANT.".
..... ".. WHEN YOU ENTER THE YEAR, E
NTER IT".=....". AS A FOUR DIGIT NUMBER
(E.G. 1983).".L....". WHEN YOU ARE ASKED
FOR THE MONTH, USE"......". THE FIRST T
HREE LETTERS FOR THE MONTH"......". YOU
REQUIRE.":.835:UH.1:.850......". * JANU
ARY - JAN * JULY - JUL"......".
* FEBRUARY- FEB * AUGUST - AUG".M
. ..". * MARCH - MAR * SEPTEMBER-
SEP".|....". * APRIL - APR * OCT
OBER - OCT"......". * MAY - MAY
* NOVEMBER - NOV".Z....". * JUNE -
JUN * DECEMBER - DEC"......"..
IF YOU WANT TO SEE THE CALENDAR".7....".
FOR THE ENTIRE YEAR, ENTER ALL AS THE".
G....". MONTH.".Z....835:UH.1:.850......
". NOTE: ..IF YOU WISH TO GO BACK"...
... ". TO THE MENU AT ANY TIME,"
.T.... ". PRESS H .RETURN.."....
.. "... IMPORTANT"...... "
.........".C.... ". T
HIS PROGRAM GIVES ACCURATE".K.... ".
RESULTS ONLY AFTER 1752.".T....835....
..UZ.1..UP%:.155............".":.UT,UL%:
.UW.0..UY,2:.UX,10.....UT$." CALENDAR":U
H.1:UP.0:UG$."TEACHER INST":.850......".
. TO THE BEST OF OUR KNOWLEDGE,.".@.
..." THIS PROGRAM IS IN THE PUBLIC."
.K...." DOMAIN. IF THIS IS NOT TRUE
,."......" PLEASE CONTACT:.."......"
COMMODORE BUSINESS MACHINES".V....
" .3370 PHARMACY AVE......."
.AGINCOURT, ONTARIO"......"
.CANADA, M1W 2K4".>...." .(
416) 499-4292".Q...UH.1:.835:.850.X...."
..PROGRAM NAME: CALENDAR"......"
.WRITTEN BY : O.N. NAMEKI".H...."
.REVISED BY : C. FOSTER"......"
..THIS PROGRAM WILL RUN ON ANY.....
..." BASIC 2.0 PET COMPUTER..C..
.." BASIC 4.0 PET COMPUTER..E...
." 8032 CBM COMPUTER......."
COMMODORE 64 COMPUTER...I..835...N.
.UZ.1..UP%:.155...S........UC$"....BEFOR
E RUNNING THIS PROGRAM ON AN 8032...A.."
LOAD THE 'CBM 4032' PROGRAM.......
......":..A. .."....";:.UT,UU%:.UW.0..UY
,1:.UX,14.W.!..I.1.38:.". .";:..O."..I.1
.22:."... .";:....#..I.1.37:."... .";:..
..$..I.1.22:."... .";:....%.."..........
............ ..Y.&.."........... . . .
....'.."........... . ...... O M M O D
O R E...(.."............ ..A.).."......
.............EDUCATIONAL..A.*.."........
.........SOFTWARE..+.."................
..1983....,..H(UD$,24);"..........PRESS
SPACE BAR OR WAIT."UC$:UI.0...-..UI$:.UI
$.." ".UI.UI.1:.UI.250.813......300.&.C.
.UN,0:.H(UD$,24);".......PRESS SPACE BAR
TO CONTINUE.".=.H..UI$:.UI$.." ".840.C.
M...U.R.UP.UP.1:."."H(UT$.UP$,21);I(UP$.
UG$.D(UP),18)...W.." -------------------
-------------------"...\..UH.0..H(UD$,24
);H(UP$,7);"HELP - PRESS H <RETURN>"..
.A.UH.0:."..":..'.K..H(UD$,24);"
ONE MOMENT PLEASE... ":..W...UX$.
"H":US.32768:U1.196:U2.197:U3.198:U4.216
:UC.167:UB.1024:UD.1084:UE.1105.....UT.5
9468:UU%.12:UL%.14:UP%.1158:UN.158:.5000
3,0:UW.B(50003):UF.B(53)......UW.0.US.10
24:U1.209:U2.210:U3.211:U4.214:UC.204:UB
.2048:UX.53280:UD.2064.X....UW.0.UT.5327
2:UU%.21:UL%.23:UP%.2151:UN.198:UY.53281
:UU.2199:UE.2087.....UC$.G(155):UV.1214:
.UW.0.UF.196:UV.2238.U...UD$."..........
...............":UP$."
"......DM$(13)......
S.1.13:.DM$(S):..2.... JAN,FEB,MAR,APR,M
AY,JUN,JUL,AUG,SEP,OCT,NOV,DEC,ALL.8....
.[....900:.".":." ":. SHIFTED SPACE.Q...
.B(US.40)..96.700......(.(0).(.(.(0)).0)
.65536).500.935.G....UC$"...THIS MACHINE
DOES NOT HAVE ENOUGH."......"MEMORY TO
RUN THIS PROGRAM !":.UE:......."."UC$:.U
W.0.965.$....UF.60.UF.108.UF.124.950.>..
..52,0:.53,UF.4:.:.900.U....UW.160..1103
,88:.1104,228:.1107,85:.1111,228:.965...
...UW..1..".THIS PGM WILL NOT WORK ON TH
IS MACHINE!":.UE:.......1103,49:.1104,23
0:.1107,46:.1111,230:.965...E..UD...J..8
00:.300......UZ.1..UP%:.UP%:UZ.0.2....".
"UC$;:.:.UW.0..UY,6:.UX,14.W.... COPYRIG
HT OSCAR NAOYUKI NAMEKI.F.... CALENDAR.}
.... COLUMBIA COLLEGE...... 1619 W10 AVE
VANCOUVER BC...$..UT,UU%:W.1:UT$." CALE
NDAR":UG$."PAGE ":UP.0:.850:."..........
"...)..2030......"............";.".8.. "
A PERPETUAL CALENDAR":.835.@.L..UT,UU%:U
H.0:UP.UP.1:.850.X.`..".... WHAT YEAR'S
CALENDAR DO YOU WANT? ....";. .E.US$
."H0123456789":UL.4:.35:A.E(UR$)...F.. A
.1752 . 1120.S.J.B.(A.100):C..(A.100):D.
B.C...T..--CALCULATION OF LEAP YEAR...~.
. D.0 . 1190.....B.(A.4):C..(A.4):D.B.C.
0.... D.0 . 1230.;.... 1250.Z...B.(A.400
):C..(A.400):D.B.C.K.... D.0 . 1230.V...
. 1250...N..". OH! THIS IS A LEAP YEAR."
...X.X.1:. 1260.....X.0.R...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
.$ ... R.0.9 . O.O.1.. ..O.O.X.@ ... O.0
. O.O.7.| 2..". WHAT IS THE MONTH? .
..";: US$."":UL.3:.35:B$.UR$.. 7.B$.H(B$
,3).. <..S.1.13:.B$.DM$(S).2520.. A..S:.
"...":.1330.G P..G(147).. Z.. B$."ALL" .
A$."ALL"..!D.. B$."JAN" . A$."ALL"
. . 1900./!N.. B$."FEB" . A$."ALL" .
. 1910.V!X.. B$."MAR" . A$."ALL" .
. 1920.}!... B$."APR" . A$."ALL" . .
1930..!... B$."MAY" . A$."ALL" . .
1940.K!... B$."JUN" . A$."ALL" . . 1
950..! ..B$."JUL".A$."ALL"..1960.."... B
$."AUG" . A$."ALL" . . 1970.3"... B$.
"SEP". A$."ALL" . . 1980.W"... B$."OC
T" . A$."ALL" . . 1990.|"H.. B$."NOV" .
A$."ALL" . . 2000.."R.. B$."DEC" . A$
."ALL" . . 2010.D"..UH.0:UG$."PAGE ":
UP.UP.1:.850.."...".. ANOTHER CALENDAR?
";..#..US$."HYN":UL.1:.35:C$.UR$..#... C
$."Y". UP.0:.1100.)#...:.900:.300./#....
A#".. Z.6 . Z.Z.7.S#,.. Z.0 . Z.Z.7.J#T.
. WRITING CALENDAR.Y#^.W.20:.2020..#H.."
.";"....";..#R.A..(A)..#|.. .3);B$,.20);
A..#..."..";.3);"SUN MON TUE WED THU
FRI SAT"..#..."..";..#... K.0 . 5..$.
.L.(K.7).1:M.L.6..$... N.L . M. $..P.N.Z
.2$B.. P..0 . 1820.P$L.. N.7 . Z1.N.(7.K
):. 1760.Y$V.Z1.N.J$... P.9 . 1780..$..I
.(5.Z1).2:. 1790..$..I.(5.Z1).3. $... P.
Y . 1860.I$... P.Q . . .I);".";P:.:. "..
.":. 1820.V$... .I);P;..$... N..$&....$0
....$:.. K..$D....%N..835:..2%L.Z.O
:Y.31 :B$."JANUARY" :.1570:..A%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
" :. 1570:...%..Z.O.1.X :Y.31 :B$
."MAY" :. 1570:...&..Z.O.4.X :Y.30
:B$."JUNE" :. 1570:..L&..Z.O.1.
X :Y.31 :B$."JULY" :. 1570:..{&.
.Z.O.2.X :Y.31 :B$."AUGUST" :. 157
0:...&..Z.O.5.X :Y.30 :B$."SEPTEMBER"
:. 1570:..Y&F.Z.O.X :Y.31 :B$."OCT
OBER" :. 1570:...'P.Z.O.3.X :Y.30 :
B$."NOVEMBER" :. 1570:..7'Z.Z.O.5.X :Y.
31 :B$."DECEMBER" :. 1570:..@'..."."
.K'..."..";.Z'... C.1 . 35.E'... ".";.M'
... C.W'...".."..' .. C.1 . W..'*.. .0);
".";.38);"."..'4.. C..'>.. "..";..'H.. C
.1 . 35.J'R.. ".";.R'\.. C..'F.. ".."..'
P....(X..". DO YOU WANT A MARKER ON A DA
TE? ";.,(..US$."HYN":UL.1:.35:V$.UR$.@(.
..V$."N" . .2620.E(...". ON WHAT DAY OF
THE MONTH? ";..(..US$."H0123456789":UL.2
:.35:Q.E(UR$)..(<..1360...
> CLICK IMAGE PREVIEW FOR FULL MODAL