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.:..
.
> CLICK IMAGE PREVIEW FOR FULL MODAL