_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

CALENDAR MAKER

FILE INFORMATION

FILENAME(S): CALENDAR MAKER

FILE TYPE(S): PRG

FILE SIZE: 4.4K

FIRST SEEN: 2025-11-30 18:12:07

APPEARS ON: 1 disk(s)

FILE HASH

534b3397386f15ffdbb930129ac1953ec01d931ceb6986e919ffa15370291caa

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
LOADSTAR 34 S 1 CALENDAR MAKER PRG Sailor, Ganheden 11 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 24 08 64 00 99 22  93 08 22 C7 28 31 34 32  |..$.d.."..".(142|
00000010: 29 3B 3A 97 35 33 32 38  30 2C 2E 3A 97 35 33 32  |);:.53280,.:.532|
00000020: 38 31 2C 2E 00 53 08 6E  00 86 20 43 24 28 34 32  |81,..S.n.. C$(42|
00000030: 29 2C 44 24 28 33 31 29  2C 4D 24 28 31 32 29 2C  |),D$(31),M$(12),|
00000040: 4E 28 31 32 29 2C 44 4E  24 28 37 29 2C 47 24 28  |N(12),DN$(7),G$(|
00000050: 31 30 29 00 79 08 78 00  99 22 20 20 20 20 20 20  |10).y.x.."      |
00000060: 20 20 20 20 20 9B 4C 4F  41 44 53 54 41 52 20 50  |     .LOADSTAR P|
00000070: 52 45 53 45 4E 54 53 3A  22 00 97 08 82 00 99 20  |RESENTS:"...... |
00000080: A6 31 33 29 3B 22 9F 12  43 41 4C 45 4E 44 41 52  |.13);"..CALENDAR|
00000090: 20 4D 41 4B 45 52 22 00  BB 08 8C 00 99 22 96 20  | MAKER"......". |
000000A0: 20 20 20 20 20 20 20 20  20 20 20 20 42 59 20 4D  |            BY M|
000000B0: 41 52 4B 20 48 41 55 47  41 4E 22 00 E0 08 96 00  |ARK HAUGAN".....|
000000C0: 99 22 20 20 20 20 20 20  20 20 20 20 20 28 43 29  |."           (C)|
000000D0: 20 43 4F 50 59 52 49 47  48 54 20 31 39 38 37 22  | COPYRIGHT 1987"|
000000E0: 00 FB 08 A0 00 81 20 49  B2 31 20 A4 20 33 31 3A  |...... I.1 . 31:|
000000F0: 87 20 44 24 28 49 29 3A  82 20 49 00 16 09 AA 00  |. D$(I):. I.....|
00000100: 81 20 49 B2 31 20 A4 20  31 32 3A 87 20 4D 24 28  |. I.1 . 12:. M$(|
00000110: 49 29 3A 82 20 49 00 30  09 B4 00 81 20 49 B2 31  |I):. I.0.... I.1|
00000120: 20 A4 20 31 32 3A 87 20  4E 28 49 29 3A 82 20 49  | . 12:. N(I):. I|
00000130: 00 4B 09 BE 00 81 20 49  B2 31 20 A4 20 37 3A 87  |.K.... I.1 . 7:.|
00000140: 20 44 4E 24 28 49 29 3A  82 20 49 00 7C 09 C8 00  | DN$(I):. I.|...|
00000150: 99 22 11 1E 20 46 4F 52  20 57 48 41 54 20 4D 4F  |.".. FOR WHAT MO|
00000160: 4E 54 48 20 41 4E 44 20  59 45 41 52 20 44 4F 20  |NTH AND YEAR DO |
00000170: 59 4F 55 20 57 49 53 48  20 54 4F 22 00 98 09 D2  |YOU WISH TO"....|
00000180: 00 99 22 50 52 49 4E 54  20 54 48 45 20 43 41 4C  |.."PRINT THE CAL|
00000190: 45 4E 44 41 52 3F 11 22  00 E1 09 DC 00 99 22 9A  |ENDAR?."......".|
000001A0: 45 4E 54 45 52 20 4D 4F  4E 54 48 2C 20 05 51 20  |ENTER MONTH, .Q |
000001B0: 9A 54 4F 20 51 55 49 54  3A 05 20 20 20 20 20 20  |.TO QUIT:.      |
000001C0: 20 20 20 20 9D 9D 9D 9D  9D 9D 9D 9D 9D 9D 22 3B  |    ..........";|
000001D0: 3A 4D 4D B2 39 3A 8D 31  30 39 30 3A 4D 24 B2 41  |:MM.9:.1090:M$.A|
000001E0: 24 00 F7 09 E6 00 8B 4D  24 B2 22 22 A7 99 22 91  |$......M$.""..".|
000001F0: 22 3B 3A 89 32 32 30 00  0E 0A F0 00 8B 4D 24 B2  |";:.220......M$.|
00000200: 22 51 22 A7 8D 31 31 39  30 3A 89 32 32 30 00 2D  |"Q"..1190:.220.-|
00000210: 0A FA 00 4D B2 C5 28 4D  24 29 3A 8B 20 4D B1 30  |...M..(M$):. M.0|
00000220: 20 AF 20 4D B3 31 33 20  A7 20 32 39 30 00 57 0A  | . M.13 . 290.W.|
00000230: 04 01 81 49 B2 31 A4 31  32 3A 8B 28 4D 24 B2 C8  |...I.1.12:.(M$..|
00000240: 28 4D 24 28 49 29 2C C3  28 4D 24 29 29 29 A7 4D  |(M$(I),.(M$))).M|
00000250: B2 49 3A 89 32 38 30 00  70 0A 0E 01 82 3A 99 3A  |.I:.280.p....:.:|
00000260: 8D 31 30 30 30 3A 8D 31  30 32 30 3A 89 32 32 30  |.1000:.1020:.220|
00000270: 00 85 0A 18 01 8B 49 B2  31 33 A7 99 22 91 22 3B  |......I.13..".";|
00000280: 3A 89 32 32 30 00 CC 0A  22 01 99 22 9A 20 45 4E  |:.220..."..". EN|
00000290: 54 45 52 20 59 45 41 52  2C 20 05 51 20 9A 54 4F  |TER YEAR, .Q .TO|
000002A0: 20 51 55 49 54 3A 20 20  20 20 20 20 20 20 9D 9D  | QUIT:        ..|
000002B0: 9D 9D 9D 9D 9D 9D 05 22  3B 3A 4D 4D B2 34 3A 8D  |.......";:MM.4:.|
000002C0: 31 30 39 30 3A 59 B2 C5  28 41 24 29 00 E3 0A 2C  |1090:Y..(A$)...,|
000002D0: 01 8B 41 24 B2 22 51 22  A7 8D 31 31 39 30 3A 89  |..A$."Q"..1190:.|
000002E0: 32 39 30 00 01 0B 36 01  8B 28 59 B3 30 29 B0 28  |290...6..(Y.0).(|
000002F0: 41 24 B2 22 22 29 A7 99  22 91 22 3B 3A 89 32 39  |A$."")..".";:.29|
00000300: 30 00 15 0B 40 01 8B 59  B3 31 30 30 A7 59 B2 59  |0...@..Y.100.Y.Y|
00000310: AA 31 39 30 30 00 29 0B  4A 01 8F 20 50 52 49 4E  |.1900.).J.. PRIN|
00000320: 54 45 52 20 43 48 45 43  4B 00 2F 0B 54 01 3A 00  |TER CHECK./.T.:.|
00000330: 5F 0B 5E 01 99 22 11 11  9F 20 20 42 45 20 53 55  |_.^.."...  BE SU|
00000340: 52 45 20 59 4F 55 52 20  50 52 49 4E 54 45 52 20  |RE YOUR PRINTER |
00000350: 49 53 20 54 55 52 4E 45  44 20 4F 4E 21 11 22 00  |IS TURNED ON!.".|
00000360: 91 0B 68 01 99 22 9F 20  20 50 52 45 53 53 20 05  |..h..".  PRESS .|
00000370: 53 50 41 43 45 20 9F 54  4F 20 43 4F 4E 54 49 4E  |SPACE .TO CONTIN|
00000380: 55 45 2C 20 05 51 20 9F  54 4F 20 51 55 49 54 2E  |UE, .Q .TO QUIT.|
00000390: 22 00 B7 0B 72 01 A1 41  24 3A 8B 41 24 B3 B1 22  |"...r..A$:.A$.."|
000003A0: 20 22 AF 41 24 B3 B1 22  51 22 AF 41 24 B3 B1 22  | ".A$.."Q".A$.."|
000003B0: D1 22 A7 20 33 37 30 00  D5 0B 7C 01 8B 41 24 B2  |.". 370...|..A$.|
000003C0: 22 51 22 B0 41 24 B2 22  D1 22 A7 8D 31 31 39 30  |"Q".A$."."..1190|
000003D0: 3A 89 33 36 30 00 F8 0B  86 01 9F 31 35 2C 34 2C  |:.360......15,4,|
000003E0: 31 35 3A A0 31 35 3A 8B  53 54 B3 B1 2E A7 8D 31  |15:.15:.ST.....1|
000003F0: 30 35 30 3A 89 33 37 30  00 12 0C 90 01 8B C5 28  |050:.370.......(|
00000400: 4D 24 29 B1 30 A7 4D 24  B2 4D 24 28 C5 28 4D 24  |M$).0.M$.M$(.(M$|
00000410: 29 29 00 35 0C 92 01 50  24 B2 4D 24 AA 22 2C 22  |)).5...P$.M$.","|
00000420: AA C4 28 59 29 3A 54 41  B2 32 30 AB 28 C3 28 50  |..(Y):TA.20.(.(P|
00000430: 24 29 AD 32 29 00 67 0C  95 01 99 22 11 81 20 20  |$).2).g...."..  |
00000440: 20 20 20 20 20 20 50 52  49 4E 54 49 4E 47 20 43  |      PRINTING C|
00000450: 41 4C 45 4E 44 41 52 20  46 4F 52 20 22 3A 99 A3  |ALENDAR FOR ":..|
00000460: 54 41 29 50 24 3A 99 00  71 0C 9A 01 8D 31 30 38  |TA)P$:..q....108|
00000470: 30 00 A7 0C A4 01 4A B2  33 36 37 AC 59 AB B5 28  |0.....J.367.Y..(|
00000480: 37 AC 28 59 AA B5 28 28  4D AA 39 29 AD 31 32 29  |7.(Y..((M.9).12)|
00000490: 29 AD 34 29 AA B5 28 32  37 35 AC 4D AD 39 29 AA  |).4)..(275.M.9).|
000004A0: 31 37 32 31 30 33 31 00  BD 0C AE 01 4B B2 30 3A  |1721031.....K.0:|
000004B0: 8B 20 4D B3 B2 32 20 A7  20 4B B2 AB 31 00 DD 0C  |. M..2 . K..1...|
000004C0: B8 01 4A B2 4A AB B5 28  33 AC 28 B5 28 28 59 AA  |..J.J..(3.(.((Y.|
000004D0: 4B 29 AD 31 30 30 29 AA  31 29 AD 34 29 00 F5 0C  |K).100).1).4)...|
000004E0: C2 01 4B B2 4E 28 4D 29  3A 8B 20 4D B3 B1 32 20  |..K.N(M):. M..2 |
000004F0: A7 20 35 30 30 00 31 0D  CC 01 57 B2 B5 28 59 AB  |. 500.1...W..(Y.|
00000500: 31 30 30 AC B5 28 59 AD  31 30 30 29 29 3A 58 B2  |100..(Y.100)):X.|
00000510: B5 28 59 AB 34 AC B5 28  59 AD 34 29 29 3A 5A B2  |.(Y.4..(Y.4)):Z.|
00000520: B5 28 59 AB 34 30 30 AC  B5 28 59 AD 34 30 30 29  |.(Y.400..(Y.400)|
00000530: 29 00 42 0D D6 01 8B 20  58 B3 B1 30 20 A7 20 35  |).B.... X..0 . 5|
00000540: 30 30 00 59 0D E0 01 8B  20 57 B2 30 20 AF 20 5A  |00.Y.... W.0 . Z|
00000550: B3 B1 30 20 A7 20 35 30  30 00 62 0D EA 01 4B B2  |..0 . 500.b...K.|
00000560: 32 39 00 73 0D F4 01 58  B2 4A AB 37 AC B5 28 4A  |29.s...X.J.7..(J|
00000570: AD 37 29 00 96 0D FE 01  A1 41 24 3A 8B 41 24 B2  |.7)......A$:.A$.|
00000580: 22 51 22 B0 41 24 B2 22  D1 22 A7 8D 31 33 30 30  |"Q".A$."."..1300|
00000590: 3A 8D 31 30 38 30 00 AB  0D 08 02 48 24 B2 22 2D  |:.1080.....H$."-|
000005A0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 22 00 D2 0D 12 02  |----------".....|
000005B0: 81 20 49 B2 30 20 A4 20  34 32 3A 43 24 28 49 29  |. I.0 . 42:C$(I)|
000005C0: B2 22 A5 20 20 20 20 20  20 20 20 20 20 22 3A 82  |.".          ":.|
000005D0: 20 49 00 F5 0D 1C 02 A1  41 24 3A 8B 41 24 B2 22  | I......A$:.A$."|
000005E0: 51 22 B0 41 24 B2 22 D1  22 A7 8D 31 33 30 30 3A  |Q".A$."."..1300:|
000005F0: 8D 31 30 38 30 00 20 0E  26 02 81 20 49 B2 31 20  |.1080. .&.. I.1 |
00000600: A4 20 4B 3A 43 24 28 49  AA 58 29 B2 44 24 28 49  |. K:C$(I.X).D$(I|
00000610: 29 AA 22 20 20 20 20 20  20 20 20 22 3A 82 20 49  |)."        ":. I|
00000620: 00 3B 0E 30 02 8F 20 4F  50 45 4E 20 50 52 49 4E  |.;.0.. OPEN PRIN|
00000630: 54 45 52 20 43 48 41 4E  4E 45 4C 00 44 0E 3A 02  |TER CHANNEL.D.:.|
00000640: 9F 34 2C 34 00 56 0E 44  02 8F 20 50 52 49 4E 54  |.4,4.V.D.. PRINT|
00000650: 20 54 49 54 4C 45 00 79  0E 4E 02 A1 41 24 3A 8B  | TITLE.y.N..A$:.|
00000660: 41 24 B2 22 51 22 B0 41  24 B2 22 D1 22 A7 8D 31  |A$."Q".A$."."..1|
00000670: 33 30 30 3A 8D 31 30 38  30 00 9F 0E 58 02 8B 20  |300:.1080...X.. |
00000680: 49 AA 58 B3 B2 33 36 20  A7 20 46 35 B2 31 3A 81  |I.X..36 . F5.1:.|
00000690: 20 49 B2 31 20 A4 20 35  3A 98 34 3A 82 20 49 00  | I.1 . 5:.4:. I.|
000006A0: C8 0E 62 02 54 24 B2 4D  24 28 4D 29 AA C4 28 59  |..b.T$.M$(M)..(Y|
000006B0: 29 3A 43 B2 32 30 AB C3  28 54 24 29 AD 32 3A 98  |):C.20..(T$).2:.|
000006C0: 34 2C C7 28 31 34 29 3B  00 E2 0E 6C 02 81 20 49  |4,.(14);...l.. I|
000006D0: B2 31 20 A4 20 43 3A 98  34 2C 22 20 22 3B 3A 82  |.1 . C:.4," ";:.|
000006E0: 20 49 00 05 0F 76 02 A1  41 24 3A 8B 41 24 B2 22  | I...v..A$:.A$."|
000006F0: 51 22 B0 41 24 B2 22 D1  22 A7 8D 31 33 30 30 3A  |Q".A$."."..1300:|
00000700: 8D 31 30 38 30 00 1B 0F  80 02 98 34 2C 54 24 3A  |.1080......4,T$:|
00000710: 98 34 2C C7 28 31 35 29  3A 98 34 00 31 0F 8A 02  |.4,.(15):.4.1...|
00000720: 8F 20 50 52 49 4E 54 20  44 41 59 20 4E 41 4D 45  |. PRINT DAY NAME|
00000730: 53 00 5E 0F 94 02 81 20  49 B2 31 20 A4 20 37 3A  |S.^.... I.1 . 7:|
00000740: A1 41 24 3A 8B 41 24 B2  22 51 22 B0 41 24 B2 22  |.A$:.A$."Q".A$."|
00000750: D1 22 A7 8D 31 33 30 30  3A 8D 31 30 38 30 00 74  |."..1300:.1080.t|
00000760: 0F 99 02 98 34 2C 44 4E  24 28 49 29 3B 3A 82 20  |....4,DN$(I);:. |
00000770: 49 3A 98 34 00 8E 0F 9E  02 8F 20 50 52 49 4E 54  |I:.4...... PRINT|
00000780: 20 4D 41 49 4E 20 43 41  4C 45 4E 44 41 52 00 A2  | MAIN CALENDAR..|
00000790: 0F A8 02 81 20 49 B2 31  20 A4 20 35 3A 4A B2 37  |.... I.1 . 5:J.7|
000007A0: AC 49 00 C5 0F B2 02 A1  41 24 3A 8B 41 24 B2 22  |.I......A$:.A$."|
000007B0: 51 22 B0 41 24 B2 22 D1  22 A7 8D 31 33 30 30 3A  |Q".A$."."..1300:|
000007C0: 8D 31 30 38 30 00 F2 0F  BC 02 81 20 4C B2 31 20  |.1080...... L.1 |
000007D0: A4 20 37 3A A1 41 24 3A  8B 41 24 B2 22 51 22 B0  |. 7:.A$:.A$."Q".|
000007E0: 41 24 B2 22 D1 22 A7 8D  31 33 30 30 3A 8D 31 30  |A$."."..1300:.10|
000007F0: 38 30 00 04 10 C1 02 98  34 2C 48 24 3B 3A 82 20  |80......4,H$;:. |
00000800: 4C 3A 98 34 00 27 10 C6  02 A1 41 24 3A 8B 41 24  |L:.4.'....A$:.A$|
00000810: B2 22 51 22 B0 41 24 B2  22 D1 22 A7 8D 31 33 30  |."Q".A$."."..130|
00000820: 30 3A 8D 31 30 38 30 00  59 10 D0 02 81 20 4C B2  |0:.1080.Y.... L.|
00000830: 36 20 A4 20 30 20 A9 20  AB 31 3A A1 41 24 3A 8B  |6 . 0 . .1:.A$:.|
00000840: 41 24 B2 22 51 22 B0 41  24 B2 22 D1 22 A7 8D 31  |A$."Q".A$."."..1|
00000850: 33 30 30 3A 8D 31 30 38  30 00 74 10 D5 02 98 34  |300:.1080.t....4|
00000860: 2C 43 24 28 4A AB 4C 29  3B 3A 82 20 4C 3A 98 34  |,C$(J.L);:. L:.4|
00000870: 2C 22 A5 22 00 90 10 DA  02 A1 41 24 3A 8B 41 24  |,"."......A$:.A$|
00000880: B2 22 51 22 A7 8D 31 33  30 30 3A 8D 31 30 38 30  |."Q"..1300:.1080|
00000890: 00 C0 10 E4 02 81 20 4C  B2 31 20 A4 20 37 3A 81  |...... L.1 . 7:.|
000008A0: 20 4E B2 31 20 A4 20 37  3A A1 41 24 3A 8B 41 24  | N.1 . 7:.A$:.A$|
000008B0: B2 22 51 22 A7 8D 31 33  30 30 3A 8D 31 30 38 30  |."Q"..1300:.1080|
000008C0: 00 DD 10 E9 02 98 34 2C  43 24 28 30 29 3B 3A 82  |......4,C$(0);:.|
000008D0: 20 4E 3A 98 34 2C 22 A5  22 3A 82 20 4C 00 00 11  | N:.4,".":. L...|
000008E0: EE 02 A1 41 24 3A 8B 41  24 B2 22 51 22 B0 41 24  |...A$:.A$."Q".A$|
000008F0: B2 22 D1 22 A7 8D 31 33  30 30 3A 8D 31 30 38 30  |."."..1300:.1080|
00000900: 00 08 11 F8 02 82 20 49  00 19 11 02 03 8B 20 46  |...... I...... F|
00000910: 35 B2 31 20 A7 20 38 32  30 00 22 11 0C 03 4A B2  |5.1 . 820."...J.|
00000920: 34 32 00 3E 11 16 03 81  20 4B B2 31 20 A4 20 37  |42.>.... K.1 . 7|
00000930: 3A 98 34 2C 48 24 3B 3A  82 20 4B 3A 98 34 00 68  |:.4,H$;:. K:.4.h|
00000940: 11 20 03 81 20 4B B2 36  20 A4 20 30 20 A9 20 AB  |. .. K.6 . 0 . .|
00000950: 31 3A 98 34 2C 43 24 28  4A AB 4B 29 3B 3A 82 20  |1:.4,C$(J.K);:. |
00000960: 4B 3A 98 34 2C 22 A5 22  00 99 11 2A 03 81 20 4B  |K:.4,"."...*.. K|
00000970: B2 31 20 A4 20 37 3A 81  20 4C B2 31 20 A4 20 37  |.1 . 7:. L.1 . 7|
00000980: 3A 98 34 2C 43 24 28 30  29 3B 3A 82 20 4C 3A 98  |:.4,C$(0);:. L:.|
00000990: 34 2C 22 A5 22 3A 82 20  4B 00 B5 11 34 03 81 20  |4,".":. K...4.. |
000009A0: 4B B2 31 20 A4 20 37 3A  98 34 2C 48 24 3B 3A 82  |K.1 . 7:.4,H$;:.|
000009B0: 20 4B 3A 98 34 00 DA 11  3E 03 8F 20 43 4C 4F 53  | K:.4...>.. CLOS|
000009C0: 45 20 50 52 49 4E 54 45  52 20 43 48 41 4E 4E 45  |E PRINTER CHANNE|
000009D0: 4C 20 41 4E 44 20 51 55  49 54 00 E4 11 48 03 98  |L AND QUIT...H..|
000009E0: 34 3A A0 34 00 15 12 4A  03 99 22 91 91 20 20 20  |4:.4...J.."..   |
000009F0: 57 4F 55 4C 44 20 59 4F  55 20 4C 49 4B 45 20 54  |WOULD YOU LIKE T|
00000A00: 4F 20 50 52 49 4E 54 20  41 4E 4F 54 48 45 52 20  |O PRINT ANOTHER |
00000A10: 43 4F 50 59 22 00 3C 12  4B 03 99 22 20 20 20 20  |COPY".<.K.."    |
00000A20: 20 20 20 20 4F 46 20 54  48 49 53 20 59 45 41 52  |    OF THIS YEAR|
00000A30: 20 41 4E 44 20 4D 4F 4E  54 48 3F 22 00 77 12 4C  | AND MONTH?".w.L|
00000A40: 03 97 31 39 38 2C 30 3A  92 31 39 38 2C 31 3A A1  |..198,0:.198,1:.|
00000A50: 41 24 3A 8B 41 24 B3 B1  22 59 22 AF 41 24 B3 B1  |A$:.A$.."Y".A$..|
00000A60: 22 D9 22 AF 41 24 B3 B1  22 4E 22 AF 41 24 B3 B1  |".".A$.."N".A$..|
00000A70: 22 CE 22 A7 38 34 34 00  8E 12 4D 03 8B 41 24 B2  |".".844...M..A$.|
00000A80: 22 59 22 B0 41 24 B2 22  D9 22 A7 33 35 30 00 94  |"Y".A$.".".350..|
00000A90: 12 4E 03 3A 00 C7 12 52  03 99 22 99 91 91 20 20  |.N.:...R.."...  |
00000AA0: 20 20 57 4F 55 4C 44 20  59 4F 55 20 4C 49 4B 45  |  WOULD YOU LIKE|
00000AB0: 20 54 4F 20 50 52 49 4E  54 20 41 4E 4F 54 48 45  | TO PRINT ANOTHE|
00000AC0: 52 3F 20 20 20 20 22 00  F7 12 5C 03 99 22 91 20  |R?    "...\..". |
00000AD0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000AE0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000AF0: 20 20 20 20 20 20 22 00  24 13 66 03 A1 41 24 3A  |      ".$.f..A$:|
00000B00: 8B 41 24 B3 B1 22 59 22  AF 41 24 B3 B1 22 4E 22  |.A$.."Y".A$.."N"|
00000B10: AF 41 24 B3 B1 22 D9 22  AF 41 24 B3 B1 22 CE 22  |.A$..".".A$.."."|
00000B20: A7 38 37 30 00 39 13 70  03 8B 41 24 B2 22 59 22  |.870.9.p..A$."Y"|
00000B30: B0 41 24 B2 22 D9 22 A7  8A 00 51 13 7A 03 8B 41  |.A$."."...Q.z..A|
00000B40: 24 B2 22 4E 22 B0 41 24  B2 22 CE 22 A7 31 32 33  |$."N".A$.".".123|
00000B50: 30 00 5C 13 84 03 8F 20  44 41 54 41 00 9E 13 8E  |0.\.... DATA....|
00000B60: 03 83 20 22 A5 20 31 22  2C 22 A5 20 32 22 2C 22  |.. ". 1",". 2","|
00000B70: A5 20 33 22 2C 22 A5 20  34 22 2C 22 A5 20 35 22  |. 3",". 4",". 5"|
00000B80: 2C 22 A5 20 36 22 2C 22  A5 20 37 22 2C 22 A5 20  |,". 6",". 7",". |
00000B90: 38 22 2C 22 A5 20 39 22  2C 22 A5 31 30 22 00 E0  |8",". 9",".10"..|
00000BA0: 13 98 03 83 20 22 A5 31  31 22 2C 22 A5 31 32 22  |.... ".11",".12"|
00000BB0: 2C 22 A5 31 33 22 2C 22  A5 31 34 22 2C 22 A5 31  |,".13",".14",".1|
00000BC0: 35 22 2C 22 A5 31 36 22  2C 22 A5 31 37 22 2C 22  |5",".16",".17","|
00000BD0: A5 31 38 22 2C 22 A5 31  39 22 2C 22 A5 32 30 22  |.18",".19",".20"|
00000BE0: 00 28 14 A2 03 83 20 22  A5 32 31 22 2C 22 A5 32  |.(.... ".21",".2|
00000BF0: 32 22 2C 22 A5 32 33 22  2C 22 A5 32 34 22 2C 22  |2",".23",".24","|
00000C00: A5 32 35 22 2C 22 A5 32  36 22 2C 22 A5 32 37 22  |.25",".26",".27"|
00000C10: 2C 22 A5 32 38 22 2C 22  A5 32 39 22 2C 22 A5 33  |,".28",".29",".3|
00000C20: 30 22 2C 22 A5 33 31 22  00 53 14 AC 03 83 20 22  |0",".31".S.... "|
00000C30: 4A 41 4E 55 41 52 59 22  2C 22 46 45 42 52 55 41  |JANUARY","FEBRUA|
00000C40: 52 59 22 2C 22 4D 41 52  43 48 22 2C 22 41 50 52  |RY","MARCH","APR|
00000C50: 49 4C 22 00 82 14 B6 03  83 20 22 4D 41 59 22 2C  |IL"...... "MAY",|
00000C60: 22 4A 55 4E 45 22 2C 22  4A 55 4C 59 22 2C 22 41  |"JUNE","JULY","A|
00000C70: 55 47 55 53 54 22 2C 22  53 45 50 54 45 4D 42 45  |UGUST","SEPTEMBE|
00000C80: 52 22 00 A8 14 C0 03 83  20 22 4F 43 54 4F 42 45  |R"...... "OCTOBE|
00000C90: 52 22 2C 22 4E 4F 56 45  4D 42 45 52 22 2C 22 44  |R","NOVEMBER","D|
00000CA0: 45 43 45 4D 42 45 52 22  00 D2 14 CA 03 83 20 33  |ECEMBER"...... 3|
00000CB0: 31 2C 32 38 2C 33 31 2C  33 30 2C 33 31 2C 33 30  |1,28,31,30,31,30|
00000CC0: 2C 33 31 2C 33 31 2C 33  30 2C 33 31 2C 33 30 2C  |,31,31,30,31,30,|
00000CD0: 33 31 00 10 15 D4 03 83  20 22 20 20 20 53 55 4E  |31...... "   SUN|
00000CE0: 44 41 59 20 20 22 2C 22  20 20 20 4D 4F 4E 44 41  |DAY  ","   MONDA|
00000CF0: 59 20 20 22 2C 22 20 20  54 55 45 53 44 41 59 20  |Y  ","  TUESDAY |
00000D00: 20 22 2C 22 20 57 45 44  4E 45 53 44 41 59 20 22  | "," WEDNESDAY "|
00000D10: 00 40 15 DE 03 83 20 22  20 20 54 48 55 52 53 44  |.@.... "  THURSD|
00000D20: 41 59 20 22 2C 22 20 20  20 46 52 49 44 41 59 20  |AY ","   FRIDAY |
00000D30: 20 22 2C 22 20 20 53 41  54 55 52 44 41 59 20 22  | ","  SATURDAY "|
00000D40: 00 75 15 E8 03 4F 4B B2  2E 3A 81 41 B2 31 A4 31  |.u...OK..:.A.1.1|
00000D50: 32 3A 8B 28 4D 24 B2 4D  24 28 41 29 29 B0 28 4D  |2:.(M$.M$(A)).(M|
00000D60: 24 B2 C8 28 4D 24 28 41  29 2C 33 29 29 A7 4F 4B  |$..(M$(A),3)).OK|
00000D70: B2 AB 31 3A 8E 00 7D 15  F2 03 82 3A 8E 00 A4 15  |..1:..}....:....|
00000D80: FC 03 99 22 1C 20 20 20  20 20 20 20 20 20 20 45  |...".          E|
00000D90: 52 52 4F 52 3A 20 49 4E  56 41 4C 49 44 20 4D 4F  |RROR: INVALID MO|
00000DA0: 4E 54 48 22 00 E3 15 06  04 81 41 B2 31 A4 32 30  |NTH"......A.1.20|
00000DB0: 30 30 3A 82 3A 99 22 91  20 20 20 20 20 20 20 20  |00:.:.".        |
00000DC0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000DD0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 91  |               .|
00000DE0: 91 91 22 00 E9 15 10 04  8E 00 19 16 1A 04 99 22  |.."............"|
00000DF0: 11 11 1C 20 20 20 45 52  52 4F 52 3A 20 59 4F 55  |...   ERROR: YOU|
00000E00: 52 20 50 52 49 4E 54 45  52 20 49 53 20 4E 4F 54  |R PRINTER IS NOT|
00000E10: 20 4F 4E 4C 49 4E 45 21  22 00 29 16 24 04 81 41  | ONLINE!".).$..A|
00000E20: B2 31 A4 32 30 30 30 3A  82 00 5E 16 2E 04 99 22  |.1.2000:..^...."|
00000E30: 91 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.               |
00000E40: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000E50: 20 20 20 20 20 20 20 20  91 91 91 22 3A 8E 00 91  |        ...":...|
00000E60: 16 38 04 99 22 20 20 20  20 20 20 20 20 9A 50 52  |.8.."        .PR|
00000E70: 45 53 53 20 41 4E 44 20  48 4F 4C 44 20 05 51 20  |ESS AND HOLD .Q |
00000E80: 9A 54 4F 20 51 55 49 54  2E 20 20 20 20 20 22 3A  |.TO QUIT.     ":|
00000E90: 8E 00 AE 16 42 04 99 22  A4 22 3B 3A 81 41 B2 31  |....B..".";:.A.1|
00000EA0: A4 4D 4D AA 31 3A 47 24  28 41 29 B2 22 22 00 C2  |.MM.1:G$(A).""..|
00000EB0: 16 4C 04 A1 41 24 3A 8B  41 24 B2 22 22 A7 31 31  |.L..A$:.A$."".11|
00000EC0: 30 30 00 D5 16 56 04 8B  41 24 B2 C7 28 31 33 29  |00...V..A$..(13)|
00000ED0: A7 31 31 37 30 00 0C 17  60 04 8B 28 41 24 B2 C7  |.1170...`..(A$..|
00000EE0: 28 32 30 29 29 AF 28 41  B1 31 29 A7 41 B2 41 AB  |(20)).(A.1).A.A.|
00000EF0: 31 3A 99 22 9D 9D 20 20  9D 9D A4 22 3B 3A 47 24  |1:."..  ...";:G$|
00000F00: 28 41 29 B2 22 22 3A 89  31 31 30 30 00 1F 17 65  |(A)."":.1100...e|
00000F10: 04 8B 28 41 B2 4D 4D AA  31 29 A7 31 31 30 30 00  |..(A.MM.1).1100.|
00000F20: 3D 17 6A 04 8B 28 41 24  B1 B2 22 20 22 29 AF 28  |=.j..(A$.." ").(|
00000F30: 41 24 B3 B2 22 5F 22 29  A7 31 31 36 30 00 6C 17  |A$.."_").1160.l.|
00000F40: 74 04 8B 28 41 24 B1 B2  22 C1 22 29 AF 28 41 24  |t..(A$..".").(A$|
00000F50: B3 B2 22 DA 22 29 A7 41  24 B2 C7 28 C6 28 41 24  |..".").A$..(.(A$|
00000F60: 29 AB 31 32 38 29 3A 89  31 31 36 30 00 76 17 7E  |).128):.1160.v.~|
00000F70: 04 89 31 31 30 30 00 9C  17 88 04 99 22 9D 20 9D  |..1100......". .|
00000F80: 22 41 24 3B 3A 97 32 31  32 2C 2E 3A 99 22 A4 22  |"A$;:.212,.:."."|
00000F90: 3B 3A 47 24 28 41 29 B2  41 24 3A 82 00 C3 17 92  |;:G$(A).A$:.....|
00000FA0: 04 99 22 9D 20 22 3A 41  24 B2 22 22 3A 81 42 B2  |..". ":A$."":.B.|
00000FB0: 31 A4 41 AB 31 3A 41 24  B2 41 24 AA 47 24 28 42  |1.A.1:A$.A$.G$(B|
00000FC0: 29 3A 82 00 C9 17 9C 04  8E 00 FD 17 A6 04 99 22  |):............."|
00000FD0: 91 9A 20 20 41 52 45 20  59 4F 55 20 53 55 52 45  |..  ARE YOU SURE|
00000FE0: 20 59 4F 55 20 57 41 4E  54 20 54 4F 20 51 55 49  | YOU WANT TO QUI|
00000FF0: 54 3F 20 28 05 59 9A 2F  05 4E 9A 29 22 00 2B 18  |T? (.Y./.N.)".+.|
00001000: B0 04 A1 41 24 3A 8B 41  24 B3 B1 22 59 22 AF 41  |...A$:.A$.."Y".A|
00001010: 24 B3 B1 22 4E 22 AF 41  24 B3 B1 22 D9 22 AF 41  |$.."N".A$..".".A|
00001020: 24 B3 B1 22 CE 22 A7 31  32 30 30 00 43 18 BA 04  |$..".".1200.C...|
00001030: 8B 41 24 B2 22 59 22 B0  41 24 B2 22 D9 22 A7 31  |.A$."Y".A$.".".1|
00001040: 32 33 30 00 7A 18 C4 04  99 22 91 20 20 20 20 20  |230.z....".     |
00001050: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001060: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001070: 20 22 3A 99 22 91 22 3B  3A 8E 00 B3 18 CE 04 9F  | ":.".";:.......|
00001080: 31 35 2C 38 2C 31 35 2C  22 52 30 3A 48 45 4C 4C  |15,8,15,"R0:HELL|
00001090: 4F 20 43 4F 4E 4E 45 43  54 3D 48 45 4C 4C 4F 20  |O CONNECT=HELLO |
000010A0: 43 4F 4E 4E 45 43 54 22  3A 84 31 35 2C 45 52 3A  |CONNECT":.15,ER:|
000010B0: A0 31 35 00 C7 18 D8 04  99 22 93 22 3B 3A 8B 45  |.15......".";:.E|
000010C0: 52 B3 B1 36 33 A7 80 00  DE 18 E2 04 93 22 48 45  |R..63........"HE|
000010D0: 4C 4C 4F 20 43 4F 4E 4E  45 43 54 22 2C 38 00 E4  |LLO CONNECT",8..|
000010E0: 18 EC 04 3A 00 F5 18 14  05 8F 20 4F 54 48 45 52  |...:...... OTHER|
000010F0: 20 51 55 49 54 00 29 19  1E 05 99 22 91 9A 20 20  | QUIT.)...."..  |
00001100: 41 52 45 20 59 4F 55 20  53 55 52 45 20 59 4F 55  |ARE YOU SURE YOU|
00001110: 20 57 41 4E 54 20 54 4F  20 51 55 49 54 3F 20 28  | WANT TO QUIT? (|
00001120: 05 59 9A 2F 05 4E 9A 29  22 00 57 19 28 05 A1 41  |.Y./.N.)".W.(..A|
00001130: 24 3A 8B 41 24 B3 B1 22  59 22 AF 41 24 B3 B1 22  |$:.A$.."Y".A$.."|
00001140: 4E 22 AF 41 24 B3 B1 22  D9 22 AF 41 24 B3 B1 22  |N".A$..".".A$.."|
00001150: CE 22 A7 31 33 32 30 00  6C 19 32 05 8B 41 24 B2  |.".1320.l.2..A$.|
00001160: 22 59 22 B0 41 24 B2 22  D9 22 A7 8A 00 78 19 3C  |"Y".A$."."...x.<|
00001170: 05 99 22 91 22 3B 3A 8E  00 7E 19 46 05 3A 00 00  |..".";:..~.F.:..|
00001180: 00                                                |.               |
..$.D..".."G(142);:.53280,.:.53281,..S.N
.. C$(42),D$(31),M$(12),N(12),DN$(7),G$(
10).Y.X.."           .LOADSTAR PRESENTS:
"...... .13);"..CALENDAR MAKER"......". 
            BY MARK HAUGAN"......"      
     (C) COPYRIGHT 1987"... .. I.1 . 31:
. D$(I):. I...... I.1 . 12:. M$(I):. I.0
.... I.1 . 12:. N(I):. I.K.... I.1 . 7:.
 DN$(I):. I.|.H..".. FOR WHAT MONTH AND 
YEAR DO YOU WISH TO"...R.."PRINT THE CAL
ENDAR?."......".ENTER MONTH, .Q .TO QUIT
:.          ..........";:MM.9:.1090:M$.A
$......M$.""..".";:.220......M$."Q"..119
0:.220.-...M.E(M$):. M.0 . M.13 . 290.W.
...I.1.12:.(M$.H(M$(I),C(M$))).M.I:.280.
P....:.:.1000:.1020:.220......I.13..".";
:.220.L."..". ENTER YEAR, .Q .TO QUIT:  
      .........";:MM.4:.1090:Y.E(A$)...,
..A$."Q"..1190:.290...6..(Y.0).(A$."")..
".";:.290...@..Y.100.Y.Y.1900.).J.. PRIN
TER CHECK./.T.:._.^.."...  BE SURE YOUR 
PRINTER IS TURNED ON!."...H..".  PRESS .
SPACE .TO CONTINUE, .Q .TO QUIT."...R..A
$:.A$.." ".A$.."Q".A$.."Q". 370.U.|..A$.
"Q".A$."Q"..1190:.360......15,4,15: 15:.
ST.....1050:.370......E(M$).0.M$.M$(E(M$
)).5...P$.M$.",".D(Y):TA.20.(C(P$).2).G.
..."..        PRINTING CALENDAR FOR ":..
TA)P$:..Q....1080.....J.367.Y..(7.(Y..((
M.9).12)).4)..(275.M.9).1721031.....K.0:
. M..2 . K..1.....J.J..(3.(.((Y.K).100).
1).4)...B.K.N(M):. M..2 . 500.1.L.W..(Y.
100..(Y.100)):X..(Y.4..(Y.4)):Z..(Y.400.
.(Y.400)).B.V.. X..0 . 500.Y.... W.0 . Z
..0 . 500.B...K.29.S...X.J.7..(J.7).....
.A$:.A$."Q".A$."Q"..1300:.1080.....H$."-
----------".R.... I.0 . 42:C$(I).".     
     ":. I......A$:.A$."Q".A$."Q"..1300:
.1080. .&.. I.1 . K:C$(I.X).D$(I)."     
   ":. I.;.0.. OPEN PRINTER CHANNEL.D.:.
.4,4.V.D.. PRINT TITLE.Y.N..A$:.A$."Q".A
$."Q"..1300:.1080...X.. I.X..36 . F5.1:.
 I.1 . 5:.4:. I.H.B.T$.M$(M).D(Y):C.20.C
(T$).2:.4,G(14);...L.. I.1 . C:.4," ";:.
 I...V..A$:.A$."Q".A$."Q"..1300:.1080...
...4,T$:.4,G(15):.4.1.... PRINT DAY NAME
S.^.... I.1 . 7:.A$:.A$."Q".A$."Q"..1300
:.1080.T....4,DN$(I);:. I:.4...... PRINT
 MAIN CALENDAR...... I.1 . 5:J.7.I.E....
A$:.A$."Q".A$."Q"..1300:.1080...... L.1 
. 7:.A$:.A$."Q".A$."Q"..1300:.1080...A..
4,H$;:. L:.4.'.F..A$:.A$."Q".A$."Q"..130
0:.1080.Y.P.. L.6 . 0 . .1:.A$:.A$."Q".A
$."Q"..1300:.1080.T.U..4,C$(J.L);:. L:.4
,"."...Z..A$:.A$."Q"..1300:.1080...... L
.1 . 7:. N.1 . 7:.A$:.A$."Q"..1300:.1080
......4,C$(0);:. N:.4,".":. L......A$:.A
$."Q".A$."Q"..1300:.1080...... I...... F
5.1 . 820."...J.42.>.... K.1 . 7:.4,H$;:
. K:.4.H. .. K.6 . 0 . .1:.4,C$(J.K);:. 
K:.4,"."...*.. K.1 . 7:. L.1 . 7:.4,C$(0
);:. L:.4,".":. K...4.. K.1 . 7:.4,H$;:.
 K:.4.Z.>.. CLOSE PRINTER CHANNEL AND QU
IT...H..4: 4...J.."..   WOULD YOU LIKE T
O PRINT ANOTHER COPY".<.K.."        OF T
HIS YEAR AND MONTH?".W.L..198,0:.198,1:.
A$:.A$.."Y".A$.."Y".A$.."N".A$.."N".844.
..M..A$."Y".A$."Y".350...N.:.G.R.."...  
  WOULD YOU LIKE TO PRINT ANOTHER?    ".
..\..".                                 
      ".$.F..A$:.A$.."Y".A$.."N".A$.."Y"
.A$.."N".870.9.P..A$."Y".A$."Y"...Q.Z..A
$."N".A$."N".1230.\.... DATA...... ". 1"
,". 2",". 3",". 4",". 5",". 6",". 7",". 
8",". 9",".10"...... ".11",".12",".13","
.14",".15",".16",".17",".18",".19",".20"
.(.... ".21",".22",".23",".24",".25",".2
6",".27",".28",".29",".30",".31".S.... "
JANUARY","FEBRUARY","MARCH","APRIL".....
. "MAY","JUNE","JULY","AUGUST","SEPTEMBE
R"...... "OCTOBER","NOVEMBER","DECEMBER"
.R.J.. 31,28,31,30,31,30,31,31,30,31,30,
31...T.. "   SUNDAY  ","   MONDAY  ","  
TUESDAY  "," WEDNESDAY ".@.... "  THURSD
AY ","   FRIDAY  ","  SATURDAY ".U...OK.
.:.A.1.12:.(M$.M$(A)).(M$.H(M$(A),3)).OK
..1:..}....:.......".          ERROR: IN
VALID MONTH"......A.1.2000:.:.".        
                               ...".....
......."...   ERROR: YOUR PRINTER IS NOT
 ONLINE!".).$..A.1.2000:..^....".       
                                ...":...
.8.."        .PRESS AND HOLD .Q .TO QUIT
.     ":....B..".";:.A.1.MM.1:G$(A)."".B
.L..A$:.A$."".1100.U.V..A$.G(13).1170...
`..(A$.G(20)).(A.1).A.A.1:."..  ...";:G$
(A)."":.1100...E..(A.MM.1).1100.=.J..(A$
.." ").(A$.."_").1160.L.T..(A$.."A").(A$
.."Z").A$.G(F(A$).128):.1160.V.~..1100..
....". ."A$;:.212,.:.".";:G$(A).A$:..C..
..". ":A$."":.B.1.A.1:A$.A$.G$(B):..I...
......."..  ARE YOU SURE YOU WANT TO QUI
T? (.Y./.N.)".+....A$:.A$.."Y".A$.."N".A
$.."Y".A$.."N".1200.C....A$."Y".A$."Y".1
230.Z.D..".                             
         ":.".";:....N..15,8,15,"R0:HELL
O CONNECT=HELLO CONNECT":.15,ER: 15.G.X.
.".";:.ER..63........"HELLO CONNECT",8..
...:...... OTHER QUIT.)...."..  ARE YOU 
SURE YOU WANT TO QUIT? (.Y./.N.)".W.(..A
$:.A$.."Y".A$.."N".A$.."Y".A$.."N".1320.
L.2..A$."Y".A$."Y"...X.<..".";:..~.F.:..
.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL