> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 48 08 00 FF 8F 22 14 14 14 14 14 14 14 14 |..H...."........|
00000010: 14 14 22 14 4C 49 53 54 53 43 48 55 54 5A 11 CC |..".LISTSCHUTZ..|
00000020: 58 A9 FF 8D 04 08 A9 83 A2 A4 8D 02 03 8E 03 03 |X...............|
00000030: 4C 83 A4 A5 02 8D 04 08 A9 20 A2 08 8D 02 03 8E |L........ ......|
00000040: 03 03 60 58 58 58 58 58 00 52 08 01 00 9E 32 30 |..`XXXXX.R....20|
00000050: 39 38 00 6D 08 02 00 97 35 33 32 38 30 2C 30 3A |98.m....53280,0:|
00000060: 97 35 33 32 38 31 2C 30 3A 99 22 1E 22 00 A1 08 |.53281,0:."."...|
00000070: 03 00 99 22 93 12 20 20 20 20 41 20 53 20 54 20 |...".. A S T |
00000080: 4F 20 52 20 49 20 41 20 2D 20 53 20 4F 20 46 20 |O R I A - S O F |
00000090: 54 20 57 20 41 20 52 20 45 20 20 20 20 20 92 22 |T W A R E ."|
000000A0: 3B 00 D3 08 04 00 99 22 12 20 20 20 20 20 20 20 |;......". |
000000B0: 20 20 20 50 20 52 20 45 20 53 20 45 20 4E 20 54 | P R E S E N T|
000000C0: 20 53 20 3A 20 20 20 20 20 20 20 20 20 20 20 20 | S : |
000000D0: 20 92 22 00 F5 08 05 00 99 22 11 3E 3E 20 43 41 | ."......".>> CA|
000000E0: 4C 45 4E 44 41 52 20 46 4F 52 20 45 41 43 48 20 |LENDAR FOR EACH |
000000F0: 4D 4F 4E 54 48 00 06 09 06 00 81 49 B2 31 A4 32 |MONTH......I.1.2|
00000100: 30 30 30 3A 82 49 00 1E 09 0A 00 97 20 35 33 32 |000:.I...... 532|
00000110: 38 30 2C 31 3A 97 20 35 33 32 38 31 2C 31 00 4F |80,1:. 53281,1.O|
00000120: 09 32 00 99 22 93 90 11 11 11 1D 1D 1D 54 48 49 |.2.."........THI|
00000130: 53 20 50 52 4F 47 52 41 4D 20 42 55 49 4C 44 53 |S PROGRAM BUILDS|
00000140: 20 55 50 20 41 20 43 41 4C 45 4E 44 41 52 22 00 | UP A CALENDAR".|
00000150: 79 09 34 00 99 3A 99 22 20 20 20 49 54 27 53 20 |y.4..:." IT'S |
00000160: 46 4F 52 20 45 41 43 48 20 4D 4F 4E 54 48 20 53 |FOR EACH MONTH S|
00000170: 49 4E 43 45 20 31 35 30 30 00 8E 09 3C 00 9C 3A |INCE 1500...<..:|
00000180: 86 20 4D 24 28 32 34 29 3A 54 30 B2 54 49 00 C6 |. M$(24):T0.TI..|
00000190: 09 50 00 99 3A 99 22 50 4C 45 41 53 45 20 45 4E |.P..:."PLEASE EN|
000001A0: 54 45 52 20 41 4C 4C 20 34 20 4E 55 4D 42 45 52 |TER ALL 4 NUMBER|
000001B0: 53 20 46 4F 52 20 54 48 45 20 59 45 41 52 2E 22 |S FOR THE YEAR."|
000001C0: 3A 99 3A 99 3A 99 00 DE 09 51 00 85 22 20 20 20 |:.:.:....Q.." |
000001D0: 20 20 20 20 20 20 20 59 45 41 52 22 3B 47 00 1C | YEAR";G..|
000001E0: 0A 52 00 8B 20 47 B3 31 35 30 30 A7 99 22 11 53 |.R.. G.1500..".S|
000001F0: 4F 52 52 59 20 21 20 2D 20 45 4E 54 45 52 20 59 |ORRY ! - ENTER Y|
00000200: 45 41 52 20 41 47 41 49 4E 2E 22 3A 81 49 B2 31 |EAR AGAIN.":.I.1|
00000210: A4 31 30 30 30 3A 82 49 3A 89 31 30 00 4A 0A 53 |.1000:.I:.10.J.S|
00000220: 00 99 3A 85 22 20 20 20 20 20 20 20 20 20 20 4D |..:." M|
00000230: 4F 4E 54 48 28 31 2D 31 32 29 22 3B 4D 3A 8B 4D |ONTH(1-12)";M:.M|
00000240: B1 30 AF 4D B3 31 33 A7 38 39 00 77 0A 54 00 8B |.0.M.13.89.w.T..|
00000250: 4D B3 31 B0 4D B1 31 32 A7 99 22 11 53 4F 52 52 |M.1.M.12..".SORR|
00000260: 59 20 21 20 2D 20 45 4E 54 45 52 20 41 4C 4C 20 |Y ! - ENTER ALL |
00000270: 41 47 41 49 4E 2E 22 00 88 0A 55 00 81 49 B2 31 |AGAIN."...U..I.1|
00000280: A4 31 30 30 30 3A 82 49 00 90 0A 56 00 89 31 30 |.1000:.I...V..10|
00000290: 00 AC 0A 59 00 8B 20 47 B3 31 39 30 30 20 AF 20 |...Y.. G.1900 . |
000002A0: 47 B1 32 33 30 30 20 A7 20 31 30 35 00 BF 0A 5A |G.2300 . 105...Z|
000002B0: 00 44 B2 28 47 AB 31 39 30 30 29 AC 33 36 35 00 |.D.(G.1900).365.|
000002C0: D2 0A 5C 00 81 20 51 B2 31 39 30 31 20 A4 20 47 |..\.. Q.1901 . G|
000002D0: AB 31 00 EB 0A 5E 00 8B 20 51 AD 34 B2 B5 28 51 |.1...^.. Q.4..(Q|
000002E0: AD 34 29 20 A7 20 44 B2 44 AA 31 00 F1 0A 60 00 |.4) . D.D.1...`.|
000002F0: 82 00 FB 0A 62 00 44 B2 44 AA 32 00 05 0B 64 00 |....b.D.D.2...d.|
00000300: 89 20 32 37 30 00 40 0B 69 00 99 20 22 93 11 11 |. 270.@.i.. "...|
00000310: 11 11 11 11 11 11 11 4A 55 53 54 20 41 20 4D 4F |.......JUST A MO|
00000320: 4D 45 4E 54 20 50 4C 45 41 53 45 2E 20 49 20 48 |MENT PLEASE. I H|
00000330: 41 56 45 20 54 4F 20 43 4F 4D 50 55 54 45 2E 22 |AVE TO COMPUTE."|
00000340: 00 4C 0B 6E 00 44 B2 47 AC 33 36 35 00 5C 0B 78 |.L.n.D.G.365.\.x|
00000350: 00 81 20 51 B2 31 20 A4 20 47 AB 31 00 77 0B 7E |.. Q.1 . G.1.w.~|
00000360: 00 8B 20 51 AD 34 30 30 B2 B5 28 51 AD 34 30 30 |.. Q.400..(Q.400|
00000370: 29 20 A7 20 31 33 30 00 92 0B 80 00 8B 20 51 AD |) . 130...... Q.|
00000380: 31 30 30 B2 B5 28 51 AD 31 30 30 29 20 A7 20 31 |100..(Q.100) . 1|
00000390: 34 30 00 AB 0B 82 00 8B 20 51 AD 34 B2 B5 28 51 |40...... Q.4..(Q|
000003A0: AD 34 29 20 A7 20 44 B2 44 AA 31 00 B1 0B 8C 00 |.4) . D.D.1.....|
000003B0: 82 00 BB 0B 96 00 44 B2 44 AA 31 00 E9 0B 0E 01 |......D.D.1.....|
000003C0: 99 22 90 93 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
000003D0: 1D 1D 1D 54 48 49 53 20 49 53 20 54 48 45 20 43 |...THIS IS THE C|
000003E0: 41 4C 45 4E 44 41 52 20 3A 00 F1 0B 13 01 99 3A |ALENDAR :......:|
000003F0: 99 00 0A 0C 18 01 81 20 4A B2 31 20 A4 20 32 34 |....... J.1 . 24|
00000400: 3A 87 20 4D 24 28 4A 29 3A 82 00 22 0C 22 01 81 |:. M$(J):.."."..|
00000410: 20 4A B2 31 20 A4 20 37 3A 87 20 44 24 28 4A 29 | J.1 . 7:. D$(J)|
00000420: 3A 82 00 34 0C 2C 01 99 22 1F 59 45 41 52 20 20 |:..4.,..".YEAR |
00000430: 3A 22 3B 47 00 50 0C 2D 01 99 22 11 1C 4D 4F 4E |:";G.P.-.."..MON|
00000440: 54 48 20 3A 20 22 3B 4D 24 28 32 AC 4D AB 31 29 |TH : ";M$(2.M.1)|
00000450: 00 7D 0C 36 01 99 22 90 22 3A 99 3A 81 20 4A B2 |.}.6..".":.:. J.|
00000460: 31 20 A4 20 37 3A 99 20 A3 36 AC 28 4A 29 AB 36 |1 . 7:. .6.(J).6|
00000470: 29 44 24 28 4A 29 3B 22 20 22 3B 3A 82 00 8B 0C |)D$(J);" ";:....|
00000480: 38 01 81 20 4A B2 31 20 A4 20 31 00 A6 0C 3C 01 |8.. J.1 . 1...<.|
00000490: 8B 20 47 AD 34 30 30 B2 B5 28 47 AD 34 30 30 29 |. G.400..(G.400)|
000004A0: 20 A7 20 33 32 30 00 C1 0C 3E 01 8B 20 47 AD 31 | . 320...>.. G.1|
000004B0: 30 30 B2 B5 28 47 AD 31 30 30 29 20 A7 20 33 33 |00..(G.100) . 33|
000004C0: 30 00 DF 0C 40 01 8B 20 47 AD 34 B2 B5 28 47 AD |0...@.. G.4..(G.|
000004D0: 34 29 20 A7 20 4D 24 28 34 29 B2 22 32 39 22 00 |4) . M$(4)."29".|
000004E0: 06 0D 4A 01 81 20 4A B2 32 20 A4 20 32 AC 4D AB |..J.. J.2 . 2.M.|
000004F0: 32 20 A9 20 32 3A 53 31 B2 53 31 AA C5 28 4D 24 |2 . 2:S1.S1..(M$|
00000500: 28 4A 29 29 3A 82 00 17 0D 4C 01 8B 20 4D B2 31 |(J)):....L.. M.1|
00000510: 20 A7 20 53 31 B2 30 00 30 0D 54 01 53 B2 53 31 | . S1.0.0.T.S.S1|
00000520: AA 44 AB 37 AC B5 28 28 53 31 AA 44 29 AD 37 29 |.D.7..((S1.D).7)|
00000530: 00 41 0D 5E 01 56 B2 C5 28 4D 24 28 32 AC 4D 29 |.A.^.V..(M$(2.M)|
00000540: 29 00 59 0D 68 01 53 B2 53 AA 37 3A 8B 20 53 B1 |).Y.h.S.S.7:. S.|
00000550: 37 20 A7 20 53 B2 53 AB 37 00 6D 0D 72 01 54 B2 |7 . S.S.7.m.r.T.|
00000560: 31 AA 36 AC 28 53 AB 31 29 3A 55 B2 35 00 7A 0D |1.6.(S.1):U.5.z.|
00000570: 7C 01 99 3A 99 A3 54 AB 31 29 00 8B 0D 7E 01 8B ||..:..T.1)...~..|
00000580: 20 54 B2 33 37 20 A7 20 33 39 31 00 9F 0D 86 01 | T.37 . 391.....|
00000590: 81 20 44 B2 31 20 A4 20 56 3A 89 20 33 39 32 00 |. D.1 . V:. 392.|
000005A0: B1 0D 87 01 99 20 31 3A 81 20 44 B2 32 20 A4 20 |..... 1:. D.2 . |
000005B0: 56 00 C5 0D 88 01 99 44 3B A6 55 AB C3 28 C4 28 |V......D;.U..(.(|
000005C0: 44 29 29 29 3B 00 D9 0D 90 01 8B 20 B9 28 30 29 |D)));...... .(0)|
000005D0: B1 33 34 20 A7 20 55 B2 33 00 ED 0D 9A 01 8B 20 |.34 . U.3...... |
000005E0: B9 28 30 29 B3 33 34 20 A7 20 55 B2 35 00 F3 0D |.(0).34 . U.5...|
000005F0: A4 01 82 00 2C 0E A6 01 99 22 13 11 11 11 11 11 |....,...."......|
00000600: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000610: 3E 3E 20 50 52 45 53 53 20 46 31 20 46 4F 52 20 |>> PRESS F1 FOR |
00000620: 4E 45 57 20 43 41 4C 45 4E 44 41 52 00 43 0E AE |NEW CALENDAR.C..|
00000630: 01 A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 |.. A$:. A$."" . |
00000640: 34 33 30 00 58 0E B8 01 8B 20 41 24 B2 C7 28 31 |430.X.... A$..(1|
00000650: 33 33 29 20 A7 20 31 30 00 6D 0E C2 01 8B 20 41 |33) . 10.m.... A|
00000660: 24 B3 B1 C7 28 31 33 33 29 20 A7 20 80 00 B3 0E |$...(133) . ....|
00000670: C6 02 83 20 4A 41 4E 55 41 52 59 2C 33 31 2C 46 |... JANUARY,31,F|
00000680: 45 42 52 55 41 52 59 2C 32 38 2C 4D 41 52 43 48 |EBRUARY,28,MARCH|
00000690: 2C 33 31 2C 41 50 52 49 4C 2C 33 30 2C 4D 41 59 |,31,APRIL,30,MAY|
000006A0: 2C 33 31 2C 4A 55 4E 45 2C 33 30 2C 4A 55 4C 59 |,31,JUNE,30,JULY|
000006B0: 2C 33 31 00 F3 0E D0 02 83 20 41 55 47 55 53 54 |,31...... AUGUST|
000006C0: 2C 33 31 2C 53 45 50 54 45 4D 42 45 52 2C 33 30 |,31,SEPTEMBER,30|
000006D0: 2C 4F 43 54 4F 42 45 52 2C 33 31 2C 4E 4F 56 45 |,OCTOBER,31,NOVE|
000006E0: 4D 42 45 52 2C 33 30 2C 44 45 43 45 4D 42 45 52 |MBER,30,DECEMBER|
000006F0: 2C 33 31 00 19 0F DA 02 83 20 53 55 4E 2C 4D 4F |,31...... SUN,MO|
00000700: 4E 2C 54 55 45 2C 57 45 44 2C 54 48 55 2C 46 52 |N,TUE,WED,THU,FR|
00000710: 49 2C 53 41 54 2C 53 55 4E 00 00 00 B4 45 |I,SAT,SUN....E |
..H...."..........".LISTSCHUTZ.LX.......
........L........ ........`XXXXX.R....20
98.M....53280,0:.53281,0:."."......"..
A S T O R I A - S O F T W A R E ."
;.S....". P R E S E N T S :
."......".>> CALENDAR FOR EACH
MONTH......I.1.2000:.I...... 53280,1:. 5
3281,1.O.2.."........THIS PROGRAM BUILDS
UP A CALENDAR".Y.4..:." IT'S FOR EACH
MONTH SINCE 1500...<..:. M$(24):T0.TI.F
.P..:."PLEASE ENTER ALL 4 NUMBERS FOR TH
E YEAR.":.:.:....Q.." YEAR";G..
.R.. G.1500..".SORRY ! - ENTER YEAR AGAI
N.":.I.1.1000:.I:.10.J.S..:." M
ONTH(1-12)";M:.M.0.M.13.89.W.T..M.1.M.12
..".SORRY ! - ENTER ALL AGAIN."...U..I.1
.1000:.I...V..10...Y.. G.1900 . G.2300 .
105...Z.D.(G.1900).365.R.\.. Q.1901 . G
.1...^.. Q.4..(Q.4) . D.D.1...`.....B.D.
D.2...D.. 270.@.I.. "..........JUST A MO
MENT PLEASE. I HAVE TO COMPUTE.".L.N.D.G
.365.\.X.. Q.1 . G.1.W.~.. Q.400..(Q.400
) . 130...... Q.100..(Q.100) . 140......
Q.4..(Q.4) . D.D.1...........D.D.1.....
.".................THIS IS THE CALENDAR
:......:....... J.1 . 24:. M$(J):.."."..
J.1 . 7:. D$(J):..4.,..".YEAR :";G.P.-
.."..MONTH : ";M$(2.M.1).}.6..".":.:. J.
1 . 7:. .6.(J).6)D$(J);" ";:....8.. J.1
. 1...<.. G.400..(G.400) . 320.A.>.. G.1
00..(G.100) . 330...@.. G.4..(G.4) . M$(
4)."29"...J.. J.2 . 2.M.2 . 2:S1.S1.E(M$
(J)):....L.. M.1 . S1.0.0.T.S.S1.D.7..((
S1.D).7).A.^.V.E(M$(2.M)).Y.H.S.S.7:. S.
7 . S.S.7.M.R.T.1.6.(S.1):U.5.Z.|..:..T.
1)...~.. T.37 . 391...... D.1 . V:. 392.
..... 1:. D.2 . V.E....D;.U.C(D(D)));.Y.
... .(0).34 . U.3...... .(0).34 . U.5...
....,...."......................>> PRESS
F1 FOR NEW CALENDAR.C.... A$:. A$."" .
430.X.... A$.G(133) . 10.M.B.. A$..G(133
) . ....F.. JANUARY,31,FEBRUARY,28,MARCH
,31,APRIL,30,MAY,31,JUNE,30,JULY,31...P.
. AUGUST,31,SEPTEMBER,30,OCTOBER,31,NOVE
MBER,30,DECEMBER,31...Z.. SUN,MON,TUE,WE
D,THU,FRI,SAT,SUN....E
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL