OMNICALENDAR
FILE INFORMATION
FILENAME(S): OMNICALENDAR
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-12-02 00:01:54
APPEARS ON: 1 disk(s)
FILE HASH
d404f6be61a9c51352fd93ff3628a5bb58e228bd939dfc07f524b08df73f40b3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DE GROOT | OMNICALENDAR | PRG | earthshaker | 3 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 05 00 8F 20 4F 4D 4E 49 43 41 4C 45 |.. .... OMNICALE| 00000010: 4E 44 41 52 2E 2E 2E 2E 2E 2E 57 41 4C 57 59 4E |NDAR......WALWYN| 00000020: 00 2A 08 0A 00 8D 37 30 30 30 00 3D 08 14 00 86 |.*....7000.=....| 00000030: 20 4D 24 28 31 32 29 2C 4D 28 31 32 29 00 59 08 | M$(12),M(12).Y.| 00000040: 1E 00 81 20 4A B2 31 A4 31 32 3A 87 4D 24 28 4A |... J.1.12:.M$(J| 00000050: 29 2C 4D 28 4A 29 3A 82 4A 00 7F 08 23 00 83 20 |),M(J):.J...#.. | 00000060: 4A 41 4E 55 41 52 59 2C 33 31 2C 46 45 42 52 55 |JANUARY,31,FEBRU| 00000070: 41 52 59 2C 32 38 2C 4D 41 52 43 48 2C 33 31 00 |ARY,28,MARCH,31.| 00000080: 9D 08 24 00 83 20 41 50 52 49 4C 2C 33 30 2C 4D |..$.. APRIL,30,M| 00000090: 41 59 2C 33 31 2C 4A 55 4E 45 2C 33 30 00 C2 08 |AY,31,JUNE,30...| 000000A0: 25 00 83 20 4A 55 4C 59 2C 33 31 2C 41 55 47 55 |%.. JULY,31,AUGU| 000000B0: 53 54 2C 33 31 2C 53 45 50 54 45 4D 42 45 52 2C |ST,31,SEPTEMBER,| 000000C0: 33 30 00 EB 08 26 00 83 20 4F 43 54 4F 42 45 52 |30...&.. OCTOBER| 000000D0: 2C 33 31 2C 4E 4F 56 45 4D 42 45 52 2C 33 30 2C |,31,NOVEMBER,30,| 000000E0: 44 45 43 45 4D 42 45 52 2C 33 31 00 FC 08 28 00 |DECEMBER,31...(.| 000000F0: 59 31 B2 31 39 38 33 3A 44 31 B2 36 00 18 09 2A |Y1.1983:D1.6...*| 00000100: 00 8F 20 59 31 20 49 53 20 54 48 45 20 27 42 41 |.. Y1 IS THE 'BA| 00000110: 53 45 20 59 45 41 52 27 00 5B 09 2C 00 8F 20 44 |SE YEAR'.[.,.. D| 00000120: 31 20 49 53 20 54 48 45 20 44 41 59 20 4E 55 4D |1 IS THE DAY NUM| 00000130: 42 45 52 20 28 36 2E 2E 53 41 54 55 52 44 41 59 |BER (6..SATURDAY| 00000140: 29 20 46 4F 52 20 4A 41 4E 2E 20 31 53 54 20 49 |) FOR JAN. 1ST I| 00000150: 4E 20 42 41 53 45 20 59 45 41 52 00 83 09 32 00 |N BASE YEAR...2.| 00000160: 53 59 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 |SY$."...........| 00000170: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00000180: 11 11 22 00 B5 09 37 00 53 58 24 B2 22 1D 1D 1D |.."...7.SX$."...| 00000190: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 000001A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 20 20 20 20 20 |.......... | 000001B0: 20 20 20 20 22 00 E6 09 64 00 97 55 42 2C 55 37 | "...d..UB,U7| 000001C0: 3A 97 55 47 2C 55 52 3A 99 55 34 24 3B 22 93 20 |:.UG,UR:.U4$;". | 000001D0: 20 20 20 20 20 20 20 20 20 4F 4D 4E 49 43 41 4C | OMNICAL| 000001E0: 45 4E 44 41 52 22 00 0F 0A 6E 00 99 22 20 20 20 |ENDAR"...n.." | 000001F0: 20 20 20 20 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 | ............| 00000200: D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 D2 22 00 |..............".| 00000210: 18 0A 73 00 99 55 32 24 00 3C 0A 78 00 85 22 59 |..s..U2$.<.x.."Y| 00000220: 45 41 52 20 52 45 51 55 49 52 45 44 20 28 31 39 |EAR REQUIRED (19| 00000230: 30 30 2D 32 30 30 30 29 22 3B 59 24 00 55 0A 82 |00-2000)";Y$.U..| 00000240: 00 8B C3 28 59 24 29 B3 34 B0 C3 28 59 24 29 B1 |...(Y$).4..(Y$).| 00000250: 34 A7 31 30 30 00 74 0A 8C 00 59 B2 C5 28 59 24 |4.100.t...Y..(Y$| 00000260: 29 3A 8B 59 B3 31 39 30 30 B0 59 B1 32 30 30 30 |):.Y.1900.Y.2000| 00000270: A7 31 30 30 00 7D 0A 96 00 99 55 46 24 00 98 0A |.100.}....UF$...| 00000280: A0 00 81 4A B2 31 A4 31 32 3A 99 4A 3B A3 36 29 |...J.1.12:.J;.6)| 00000290: 4D 24 28 4A 29 3A 82 4A 00 9E 0A AA 00 99 00 B5 |M$(J):.J........| 000002A0: 0A B4 00 85 22 4D 4F 4E 54 48 20 4E 55 4D 42 45 |...."MONTH NUMBE| 000002B0: 52 22 3B 4D 24 00 CE 0A B9 00 8B C3 28 4D 24 29 |R";M$.......(M$)| 000002C0: B1 32 B0 C3 28 4D 24 29 B3 31 A7 31 38 30 00 E8 |.2..(M$).1.180..| 000002D0: 0A BE 00 4D B2 C5 28 4D 24 29 3A 8B 4D B1 31 32 |...M..(M$):.M.12| 000002E0: B0 4D B3 31 A7 31 38 30 00 1B 0B C3 00 99 55 34 |.M.1.180......U4| 000002F0: 24 3B 22 11 11 4F 4B 2C 20 50 4C 45 41 53 45 20 |$;"..OK, PLEASE | 00000300: 57 41 49 54 20 57 48 49 4C 45 20 49 20 43 41 4C |WAIT WHILE I CAL| 00000310: 43 55 4C 41 54 45 20 54 48 45 22 00 42 0B C5 00 |CULATE THE".B...| 00000320: 99 55 34 24 22 4D 4F 4E 54 48 4C 59 20 43 41 4C |.U4$"MONTHLY CAL| 00000330: 45 4E 44 41 52 20 46 4F 52 20 22 4D 24 28 4D 29 |ENDAR FOR "M$(M)| 00000340: 3B 59 00 64 0B C8 00 8F 20 43 41 4C 43 55 4C 41 |;Y.d.... CALCULA| 00000350: 54 45 20 41 4E 44 20 44 52 41 57 20 43 41 4C 45 |TE AND DRAW CALE| 00000360: 4E 44 41 52 00 77 0B D2 00 44 B2 44 31 3A 8B 59 |NDAR.w...D.D1:.Y| 00000370: B3 59 31 A7 32 35 30 00 86 0B DC 00 8B 59 B1 59 |.Y1.250......Y.Y| 00000380: 31 A7 20 33 30 30 00 94 0B E6 00 8B 59 B2 59 31 |1. 300......Y.Y1| 00000390: A7 33 35 30 00 A8 0B FA 00 8F 20 47 4F 49 4E 47 |.350...... GOING| 000003A0: 20 42 41 43 4B 2E 2E 2E 00 BA 0B FF 00 81 20 4A | BACK......... J| 000003B0: B2 59 31 AB 31 A4 59 A9 AB 31 00 C4 0B 04 01 44 |.Y1.1.Y..1.....D| 000003C0: B2 44 AB 31 00 DA 0B 0E 01 8B B5 28 4A AD 34 29 |.D.1.......(J.4)| 000003D0: B2 4A AD 34 A7 44 B2 44 AB 31 00 E9 0B 18 01 8B |.J.4.D.D.1......| 000003E0: 44 B3 31 A7 44 B2 44 AA 37 00 F5 0B 22 01 82 4A |D.1.D.D.7..."..J| 000003F0: 3A 89 34 30 30 00 0D 0C 2C 01 8F 20 47 4F 49 4E |:.400...,.. GOIN| 00000400: 47 20 46 4F 52 57 41 52 44 2E 2E 2E 2E 00 1B 0C |G FORWARD.......| 00000410: 31 01 81 4A B2 59 31 A4 59 AB 31 00 25 0C 36 01 |1..J.Y1.Y.1.%.6.| 00000420: 44 B2 44 AA 31 00 3B 0C 40 01 8B B5 28 4A AD 34 |D.D.1.;.@...(J.4| 00000430: 29 B2 4A AD 34 A7 44 B2 44 AA 31 00 4A 0C 4A 01 |).J.4.D.D.1.J.J.| 00000440: 8B 44 B1 37 A7 44 B2 44 AB 37 00 56 0C 54 01 82 |.D.7.D.D.7.V.T..| 00000450: 4A 3A 89 34 30 30 00 69 0C 5E 01 8F 20 54 48 49 |J:.400.i.^.. THI| 00000460: 53 20 59 45 41 52 2E 2E 2E 00 77 0C 68 01 44 B2 |S YEAR....w.h.D.| 00000470: 44 31 3A 89 34 30 30 00 8B 0C 90 01 81 4A B2 31 |D1:.400......J.1| 00000480: A4 4D 3A 8B 4A B2 4D A7 34 34 30 00 9B 0C 9A 01 |.M:.J.M.440.....| 00000490: 44 B2 44 AA 4D 28 4A 29 AB 32 38 00 B5 0C A4 01 |D.D.M(J).28.....| 000004A0: 8B 4A B2 32 AF B5 28 59 AD 34 29 B2 59 AD 34 A7 |.J.2..(Y.4).Y.4.| 000004B0: 44 B2 44 AA 31 00 C4 0C AE 01 8B 44 B1 37 A7 44 |D.D.1......D.7.D| 000004C0: B2 44 AB 37 00 CB 0C B8 01 82 4A 00 E4 0C F4 01 |.D.7......J.....| 000004D0: 8F 20 50 52 49 4E 54 20 4F 55 54 20 43 41 4C 45 |. PRINT OUT CALE| 000004E0: 4E 44 41 52 00 FF 0C FE 01 97 55 42 2C 55 36 3A |NDAR......UB,U6:| 000004F0: 97 55 47 2C 55 46 3A 99 55 52 24 22 93 22 3B 00 |.UG,UF:.UR$".";.| 00000500: 23 0D 08 02 99 22 20 20 20 20 20 20 20 20 43 41 |#...." CA| 00000510: 4C 45 4E 44 41 52 20 46 4F 52 20 22 4D 24 28 4D |LENDAR FOR "M$(M| 00000520: 29 3B 59 00 29 0D 12 02 99 00 45 0D 14 02 8B 59 |);Y.).....E....Y| 00000530: AD 34 B2 B5 28 59 AD 34 29 AF 4D B2 32 A7 4D 28 |.4..(Y.4).M.2.M(| 00000540: 4D 29 B2 32 39 00 5E 0D 15 02 8B 44 AA 4D 28 4D |M).29.^....D.M(M| 00000550: 29 B2 32 39 A7 4E 35 B2 34 3A 89 35 34 30 00 77 |).29.N5.4:.540.w| 00000560: 0D 16 02 8B 44 AA 4D 28 4D 29 B3 33 37 A7 4E 35 |....D.M(M).37.N5| 00000570: B2 35 3A 89 35 34 30 00 80 0D 17 02 4E 35 B2 36 |.5:.540.....N5.6| 00000580: 00 AA 0D 1C 02 99 55 33 24 3B 22 20 20 20 12 20 |......U3$;" . | 00000590: 4D 4F 4E B6 20 54 55 45 B6 20 57 45 44 B6 20 54 |MON. TUE. WED. T| 000005A0: 48 55 B6 20 46 52 49 B6 22 3B 00 C0 0D 21 02 99 |HU. FRI.";...!..| 000005B0: 55 37 24 3B 22 20 53 41 54 B6 20 53 55 4E B6 22 |U7$;" SAT. SUN."| 000005C0: 00 C6 0D 26 02 99 00 D9 0D 2B 02 81 4A B2 31 A4 |...&.....+..J.1.| 000005D0: 4E 35 3A 81 4B B2 31 A4 32 00 03 0E 30 02 99 55 |N5:.K.1.2...0..U| 000005E0: 33 24 3B 22 20 20 20 12 20 20 20 20 A7 20 20 20 |3$;" . . | 000005F0: 20 A7 20 20 20 20 A7 20 20 20 20 A7 20 20 20 20 | . . . | 00000600: A7 22 3B 00 1C 0E 35 02 99 55 37 24 3B 22 20 20 |.";...5..U7$;" | 00000610: 20 20 A7 20 20 20 20 A7 22 3A 82 4B 00 46 0E 36 | . .":.K.F.6| 00000620: 02 99 55 33 24 3B 22 20 20 20 12 B9 B9 B9 B9 BA |..U3$;" ......| 00000630: B9 B9 B9 B9 BA B9 B9 B9 B9 BA B9 B9 B9 B9 BA B9 |................| 00000640: B9 B9 B9 BA 22 3B 00 5C 0E 37 02 99 55 37 24 3B |....";.\.7..U7$;| 00000650: 22 B9 B9 B9 B9 BA B9 B9 B9 B9 BA 22 00 63 0E 3A |"..........".c.:| 00000660: 02 82 4A 00 94 0E 44 02 99 55 52 24 3B 22 20 20 |..J...D..UR$;" | 00000670: 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 46 | PRESS ANY KEY F| 00000680: 4F 52 20 41 4E 4F 54 48 45 52 20 43 41 4C 45 4E |OR ANOTHER CALEN| 00000690: 44 41 52 22 00 B0 0E 58 02 8F 20 50 52 49 4E 54 |DAR"...X.. PRINT| 000006A0: 20 4F 55 54 20 44 41 59 20 4E 55 4D 42 45 52 53 | OUT DAY NUMBERS| 000006B0: 00 D5 0E 62 02 4E B2 30 3A 4E 4E B2 30 3A 81 4A |...b.N.0:NN.0:.J| 000006C0: B2 31 A4 4E 35 3A 81 4B B2 31 A4 37 3A 8B 4B B2 |.1.N5:.K.1.7:.K.| 000006D0: 44 A7 4E B2 31 00 E2 0E 6C 02 8B 4E B2 30 A7 36 |D.N.1...l..N.0.6| 000006E0: 38 30 00 FB 0E 76 02 4E 4E B2 4E 4E AA 31 3A 8B |80...v.NN.NN.1:.| 000006F0: 4E 4E B1 4D 28 4D 29 A7 36 38 30 00 10 0F 80 02 |NN.M(M).680.....| 00000700: 99 55 33 24 3B 3A 8B 4B B1 35 A7 99 55 37 24 3B |.U3$;:.K.5..U7$;| 00000710: 00 24 0F 85 02 58 32 B2 34 3A 8B 4E 4E B1 39 A7 |.$...X2.4:.NN.9.| 00000720: 58 32 B2 33 00 49 0F 8A 02 99 C8 28 53 59 24 2C |X2.3.I.....(SY$,| 00000730: 4A AC 33 AA 33 29 3B C8 28 53 58 24 2C 28 4B AB |J.3.3);.(SX$,(K.| 00000740: 31 29 AC 35 AA 58 32 29 3B 00 54 0F 94 02 99 22 |1).5.X2);.T...."| 00000750: 12 22 4E 4E 00 5D 0F A8 02 82 4B 2C 4A 00 71 0F |."NN.]....K,J.q.| 00000760: BC 02 A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 37 30 |...A$:.A$.."".70| 00000770: 30 00 84 0F C6 02 A1 41 24 3A 8B 41 24 B2 22 22 |0......A$:.A$.""| 00000780: A7 37 31 30 00 8A 0F D0 02 8A 00 AF 0F 58 1B 8F |.710.........X..| 00000790: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************| 000007A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 000007B0: D4 0F 5A 1B 8F 20 43 4F 4C 4F 55 52 20 43 4F 44 |..Z.. COLOUR COD| 000007C0: 45 53 20 46 4F 52 20 43 4F 4D 4D 4F 44 4F 52 45 |ES FOR COMMODORE| 000007D0: 20 36 34 2E 00 F3 0F 5D 1B 8F 20 28 4F 4E 4C 59 | 64....].. (ONLY| 000007E0: 20 55 53 45 20 54 48 45 53 45 20 43 4F 4C 4F 55 | USE THESE COLOU| 000007F0: 52 53 29 00 0C 10 62 1B 55 30 B2 30 3A 55 30 24 |RS)...b.U0.0:U0$| 00000800: B2 22 90 22 3A 8F 20 42 4C 41 43 4B 00 25 10 6C |.".":. BLACK.%.l| 00000810: 1B 55 31 B2 31 3A 55 31 24 B2 22 05 22 3A 8F 20 |.U1.1:U1$.".":. | 00000820: 57 48 49 54 45 00 41 10 76 1B 55 32 B2 32 3A 55 |WHITE.A.v.U2.2:U| 00000830: 32 24 B2 22 1C 22 3A 8F 20 44 41 52 4B 20 52 45 |2$.".":. DARK RE| 00000840: 44 00 5A 10 80 1B 55 33 B2 35 3A 55 33 24 B2 22 |D.Z...U3.5:U3$."| 00000850: 1E 22 3A 8F 20 47 52 45 45 4E 00 77 10 8A 1B 55 |.":. GREEN.w...U| 00000860: 34 B2 36 3A 55 34 24 B2 22 1F 22 3A 8F 20 44 41 |4.6:U4$.".":. DA| 00000870: 52 4B 20 42 4C 55 45 00 91 10 94 1B 55 35 B2 38 |RK BLUE.....U5.8| 00000880: 3A 55 35 24 B2 22 81 22 3A 8F 20 4F 52 41 4E 47 |:U5$.".":. ORANG| 00000890: 45 00 AA 10 9E 1B 55 36 B2 39 3A 55 36 24 B2 22 |E.....U6.9:U6$."| 000008A0: 95 22 3A 8F 20 42 52 4F 57 4E 00 C3 10 A8 1B 55 |.":. BROWN.....U| 000008B0: 37 B2 31 30 3A 55 37 24 B2 22 96 22 3A 8F 20 50 |7.10:U7$.".":. P| 000008C0: 49 4E 4B 00 E3 10 B2 1B 55 38 B2 31 33 3A 55 38 |INK.....U8.13:U8| 000008D0: 24 B2 22 99 22 3A 8F 20 4C 49 47 48 54 20 47 52 |$.".":. LIGHT GR| 000008E0: 45 45 4E 00 02 11 BC 1B 55 39 B2 31 34 3A 55 39 |EEN.....U9.14:U9| 000008F0: 24 B2 22 9A 22 3A 8F 20 4C 49 47 48 54 20 42 4C |$.".":. LIGHT BL| 00000900: 55 45 00 1C 11 C6 1B 55 55 B2 34 3A 55 55 24 B2 |UE.....UU.4:UU$.| 00000910: 22 9C 22 3A 8F 20 50 55 52 50 4C 45 00 3B 11 D0 |".":. PURPLE.;..| 00000920: 1B 55 52 B2 31 32 3A 55 52 24 B2 22 98 22 3A 8F |.UR.12:UR$.".":.| 00000930: 20 4C 49 47 48 54 20 47 52 45 59 00 5B 11 DA 1B | LIGHT GREY.[...| 00000940: 55 45 B2 37 3A 55 45 24 B2 22 9E 22 3A 8F 20 4C |UE.7:UE$.".":. L| 00000950: 49 47 48 54 20 59 45 4C 4C 4F 57 00 79 11 E4 1B |IGHT YELLOW.y...| 00000960: 55 46 B2 31 31 3A 55 46 24 B2 22 97 22 3A 8F 20 |UF.11:UF$.".":. | 00000970: 44 41 52 4B 20 47 52 45 59 00 9B 11 20 1C 8F 20 |DARK GREY... .. | 00000980: 53 43 52 45 45 4E 20 27 50 4F 4B 45 27 20 43 4F |SCREEN 'POKE' CO| 00000990: 44 45 53 20 46 4F 52 20 36 34 2E 00 BF 11 2A 1C |DES FOR 64....*.| 000009A0: 55 53 B2 31 30 32 34 3A 8F 20 53 43 52 45 45 4E |US.1024:. SCREEN| 000009B0: 20 50 4F 4B 45 20 43 48 41 52 41 43 54 45 52 00 | POKE CHARACTER.| 000009C0: E1 11 34 1C 55 43 B2 35 35 32 39 36 3A 8F 20 53 |..4.UC.55296:. S| 000009D0: 43 52 45 45 4E 20 50 4F 4B 45 20 43 4F 4C 4F 55 |CREEN POKE COLOU| 000009E0: 52 00 02 12 3E 1C 55 47 B2 35 33 32 38 31 3A 8F |R...>.UG.53281:.| 000009F0: 20 42 41 43 4B 47 52 4F 55 4E 44 20 43 4F 4C 4F | BACKGROUND COLO| 00000A00: 55 52 00 26 12 48 1C 55 42 B2 35 33 32 38 30 3A |UR.&.H.UB.53280:| 00000A10: 8F 20 53 43 52 45 45 4E 20 42 4F 52 44 45 52 20 |. SCREEN BORDER | 00000A20: 43 4F 4C 4F 55 52 00 2C 12 E8 1C 8E 00 50 12 4C |COLOUR.,.....P.L| 00000A30: 1D 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************| 00000A40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000A50: 00 00 00 20 FF |... . |
.. .... OMNICALENDAR......WALWYN.*....70 00.=.... M$(12),M(12).Y.... J.1.12:.M$(J ),M(J):.J..#.. JANUARY,31,FEBRUARY,28,M ARCH,31...$.. APRIL,30,MAY,31,JUNE,30.B. %.. JULY,31,AUGUST,31,SEPTEMBER,30...&.. OCTOBER,31,NOVEMBER,30,DECEMBER,31...(. Y1.1983:D1.6...*.. Y1 IS THE 'BASE YEAR' .[.,.. D1 IS THE DAY NUMBER (6..SATURDAY ) FOR JAN. 1ST IN BASE YEAR...2.SY$."... .........................."...7.SX$."... .......................... "... D..UB,U7:.UG,UR:.U4$;". OMNICAL ENDAR"...N.." RRRRRRRRRRRRRRRRRRRR RRRRRR"...S..U2$.<.X.."YEAR REQUIRED (19 00-2000)";Y$.U....C(Y$).4.C(Y$).4.100.T. ..Y.E(Y$):.Y.1900.Y.2000.100.}....UF$... ..J.1.12:.J;.6)M$(J):.J............"MON TH NUMBER";M$.N....C(M$).2.C(M$).1.180.. ...M.E(M$):.M.12.M.1.180...C..U4$;"..OK, PLEASE WAIT WHILE I CALCULATE THE".B.E. .U4$"MONTHLY CALENDAR FOR "M$(M);Y.D.H.. CALCULATE AND DRAW CALENDAR.W.R.D.D1:.Y .Y1.250......Y.Y1. 300......Y.Y1.350.... .. GOING BACK......... J.Y1.1.Y..1.D...D .D.1.Z.....(J.4).J.4.D.D.1......D.1.D.D. 7..."..J:.400...,.. GOING FORWARD....... 1..J.Y1.Y.1.%.6.D.D.1.;.@...(J.4).J.4.D. D.1.J.J..D.7.D.D.7.V.T..J:.400.I.^.. THI S YEAR....W.H.D.D1:.400......J.1.M:.J.M. 440.....D.D.M(J).28......J.2..(Y.4).Y.4. D.D.1.D....D.7.D.D.7.K....J...... PRINT OUT CALENDAR......UB,U6:.UG,UF:.UR$".";. #...." CALENDAR FOR "M$(M);Y.)... ..E....Y.4..(Y.4).M.2.M(M).29.^....D.M(M ).29.N5.4:.540.W....D.M(M).37.N5.5:.540. ....N5.6......U3$;" . MON. TUE. WED. T HU. FRI.";...!..U7$;" SAT. SUN.".F.&...Y .+..J.1.N5:.K.1.2...0..U3$;" . . . . . .";...5..U7$;" . . ":.K.F.6..U3$;" ...................... ....";.\.7..U7$;"..........".C.:..J...D. .UR$;" PRESS ANY KEY FOR ANOTHER CALEN DAR"...X.. PRINT OUT DAY NUMBERS.U.B.N.0 :NN.0:.J.1.N5:.K.1.7:.K.D.N.1...L..N.0.6 80...V.NN.NN.1:.NN.M(M).680......U3$;:.K .5..U7$;.$...X2.4:.NN.9.X2.3.I....H(SY$, J.3.3);H(SX$,(K.1).5.X2);.T...."."NN.].. ..K,J.Q....A$:.A$.."".700...F..A$:.A$."" .710...P.....X.. *********************** *******.T.Z.. COLOUR CODES FOR COMMODORE 64....].. (ONLY USE THESE COLOURS)...B. U0.0:U0$.".":. BLACK.%.L.U1.1:U1$.".":. WHITE.A.V.U2.2:U2$.".":. DARK RED.Z...U3 .5:U3$.".":. GREEN.W...U4.6:U4$.".":. DA RK BLUE.....U5.8:U5$.".":. ORANGE.....U6 .9:U6$.".":. BROWN.C...U7.10:U7$.".":. P INK.....U8.13:U8$.".":. LIGHT GREEN..... U9.14:U9$.".":. LIGHT BLUE...F.UU.4:UU$. ".":. PURPLE.;.P.UR.12:UR$.".":. LIGHT G REY.[.Z.UE.7:UE$.".":. LIGHT YELLOW.Y... UF.11:UF$.".":. DARK GREY... .. SCREEN ' POKE' CODES FOR 64....*.US.1024:. SCREEN POKE CHARACTER...4.UC.55296:. SCREEN PO KE COLOUR...>.UG.53281:. BACKGROUND COLO UR.&.H.UB.53280:. SCREEN BORDER COLOUR., .....P.L.. ***************************** ... .
> CLICK IMAGE PREVIEW FOR FULL MODAL