CALENDAR
FILE INFORMATION
FILENAME(S): CALENDAR
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-11-30 21:23:56
APPEARS ON: 1 disk(s)
FILE HASH
c64179f3d47f7a0c3f7b8b6b212c49904e4c8cc20c360354c3c355ec910e963b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 31 1 | CALENDAR | PRG | DuncanTwain | 16 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 10 08 0A 00 97 20 35 39 34 36 38 2C 31 32 |....... 59468,12|
00000010: 00 3D 08 14 00 8F 20 54 48 49 53 20 50 52 4F 47 |.=.... THIS PROG|
00000020: 52 41 4D 20 57 41 53 20 57 52 49 54 54 45 4E 20 |RAM WAS WRITTEN |
00000030: 42 59 20 4A 2E 52 20 52 4F 53 53 55 4D 00 71 08 |BY J.R ROSSUM.q.|
00000040: 1E 00 8F 20 53 55 47 47 45 53 54 45 44 20 42 59 |... SUGGESTED BY|
00000050: 20 27 4A 55 4C 49 41 4E 27 20 49 4E 20 54 48 45 | 'JULIAN' IN THE|
00000060: 20 48 50 20 42 41 53 49 43 20 4C 49 42 52 41 52 | HP BASIC LIBRAR|
00000070: 59 00 88 08 28 00 8F 20 52 45 56 49 53 45 44 20 |Y...(.. REVISED |
00000080: 4F 43 54 20 31 39 37 39 00 B8 08 32 00 99 22 93 |OCT 1979...2..".|
00000090: 11 11 11 11 11 1D 1D 1D 1D 1D 1D 50 52 4F 47 52 |...........PROGR|
000000A0: 41 4D 20 54 4F 20 47 45 4E 45 52 41 54 45 20 43 |AM TO GENERATE C|
000000B0: 41 4C 45 4E 44 45 52 22 00 DD 08 34 00 99 3A 99 |ALENDER"...4..:.|
000000C0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 46 |" F|
000000D0: 4F 52 20 41 4E 59 20 4D 4F 4E 54 48 22 00 09 09 |OR ANY MONTH"...|
000000E0: 36 00 99 3A 99 20 22 20 20 20 20 20 20 20 20 53 |6..:. " S|
000000F0: 49 4E 43 45 20 54 48 45 20 42 49 52 54 48 20 4F |INCE THE BIRTH O|
00000100: 46 20 43 48 52 49 53 54 22 00 1E 09 3C 00 9C 3A |F CHRIST"...<..:|
00000110: 86 20 4D 24 28 32 34 29 3A 54 30 B2 54 49 00 4E |. M$(24):T0.TI.N|
00000120: 09 50 00 99 3A 99 22 20 20 54 59 50 45 20 41 4C |.P..:." TYPE AL|
00000130: 4C 20 46 4F 55 52 20 44 49 47 49 54 53 20 4F 46 |L FOUR DIGITS OF|
00000140: 20 44 45 53 49 52 45 44 20 59 45 41 52 22 00 81 | DESIRED YEAR"..|
00000150: 09 51 00 58 B2 34 3A 46 4C 41 47 B2 31 3A 99 22 |.Q.X.4:FLAG.1:."|
00000160: 11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000170: 20 22 3B 3A 8D 31 30 30 30 3A 47 B2 C5 28 52 24 | ";:.1000:G..(R$|
00000180: 29 00 B3 09 52 00 99 3A 99 22 11 11 4D 4F 4E 54 |)...R..:."..MONT|
00000190: 48 28 31 2D 31 32 29 3F 22 3B 3A 58 B2 32 3A 46 |H(1-12)?";:X.2:F|
000001A0: 4C 41 47 B2 32 3A 8D 31 30 30 30 3A 4D B2 C5 28 |LAG.2:.1000:M..(|
000001B0: 52 24 29 00 BD 09 53 00 8D 32 30 30 30 00 F0 09 |R$)...S..2000...|
000001C0: 54 00 44 B2 47 AC 33 36 35 AA B5 28 28 47 AB 31 |T.D.G.365..((G.1|
000001D0: 29 AD 34 29 AB B5 28 28 47 AB 31 29 AD 31 30 30 |).4)..((G.1).100|
000001E0: 29 AA B5 28 28 47 AB 31 29 AD 34 30 30 29 AA 31 |)..((G.1).400).1|
000001F0: 00 0B 0A 7E 00 8B 20 47 AD 34 30 30 B2 B5 28 47 |...~.. G.400..(G|
00000200: AD 34 30 30 29 20 A7 20 31 33 30 00 25 0A 80 00 |.400) . 130.%...|
00000210: 8B 20 47 AD 31 30 30 B2 B5 28 47 AD 31 30 30 29 |. G.100..(G.100)|
00000220: A7 20 31 34 30 00 42 0A 82 00 8B 20 47 AD 34 B2 |. 140.B.... G.4.|
00000230: B5 28 47 AD 34 29 20 A7 4D 24 28 34 29 B2 22 32 |.(G.4) .M$(4)."2|
00000240: 39 22 00 48 0A 8C 00 99 00 70 0A 0E 01 99 22 93 |9".H.....p....".|
00000250: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000260: 1D 1D 12 43 41 4C 45 4E 44 41 52 22 3A 99 3A 99 |...CALENDAR":.:.|
00000270: 00 89 0A 18 01 81 20 4A B2 31 20 A4 20 32 34 3A |...... J.1 . 24:|
00000280: 87 20 4D 24 28 4A 29 3A 82 00 9F 0A 22 01 81 20 |. M$(J):....".. |
00000290: 4A B2 31 A4 37 3A 87 20 44 24 28 4A 29 3A 82 00 |J.1.7:. D$(J):..|
000002A0: B4 0A 2C 01 99 20 4D 24 28 32 AC 4D AB 31 29 A3 |..,.. M$(2.M.1).|
000002B0: 33 35 29 47 00 DE 0A 36 01 99 3A 81 20 4A B2 31 |35)G...6..:. J.1|
000002C0: 20 A4 20 37 3A 99 20 A3 36 AC 28 4A 29 AB 36 29 | . 7:. .6.(J).6)|
000002D0: 44 24 28 4A 29 3B 22 20 22 3B 3A 82 3A 99 00 F8 |D$(J);" ";:.:...|
000002E0: 0A 3C 01 8B 20 47 AD 34 30 30 B2 B5 28 47 AD 34 |.<.. G.400..(G.4|
000002F0: 30 30 29 A7 20 33 32 30 00 13 0B 3E 01 8B 20 47 |00). 320...>.. G|
00000300: AD 31 30 30 B2 B5 28 47 AD 31 30 30 29 20 A7 20 |.100..(G.100) . |
00000310: 33 33 30 00 31 0B 40 01 8B 20 47 AD 34 B2 B5 28 |330.1.@.. G.4..(|
00000320: 47 AD 34 29 20 A7 20 4D 24 28 34 29 B2 22 32 39 |G.4) . M$(4)."29|
00000330: 22 00 58 0B 4A 01 81 20 4A B2 32 20 A4 20 32 AC |".X.J.. J.2 . 2.|
00000340: 4D AB 32 20 A9 20 32 3A 53 31 B2 53 31 AA C5 28 |M.2 . 2:S1.S1..(|
00000350: 4D 24 28 4A 29 29 3A 82 00 69 0B 4C 01 8B 20 4D |M$(J)):..i.L.. M|
00000360: B2 31 20 A7 20 53 31 B2 30 00 82 0B 54 01 53 B2 |.1 . S1.0...T.S.|
00000370: 53 31 AA 44 AB 37 AC B5 28 28 53 31 AA 44 29 AD |S1.D.7..((S1.D).|
00000380: 37 29 00 93 0B 5E 01 56 B2 C5 28 4D 24 28 32 AC |7)...^.V..(M$(2.|
00000390: 4D 29 29 00 AC 0B 68 01 53 B2 53 AA 36 3A 8B 20 |M))...h.S.S.6:. |
000003A0: 53 B1 B2 37 20 A7 20 53 B2 53 AB 37 00 BA 0B 72 |S..7 . S.S.7...r|
000003B0: 01 54 B2 36 AC 53 3A 57 B2 53 00 C6 0B 7C 01 99 |.T.6.S:W.S...|..|
000003C0: 3A 99 A3 54 29 3B 00 D1 0B 86 01 81 44 B2 31 A4 |:..T);......D.1.|
000003D0: 56 00 E1 0B 8A 01 8B 44 B2 44 31 A7 99 22 12 22 |V......D.D1.."."|
000003E0: 3B 00 02 0C 8B 01 99 C9 28 22 1D 1D 1D 22 AA CA |;.......("..."..|
000003F0: 28 C4 28 44 29 2C 32 29 2C 33 29 22 1D 1D 1D 92 |(.(D),2),3)"....|
00000400: 22 3B 00 17 0C 90 01 57 B2 57 AA 31 3A 8B 57 B2 |";.....W.W.1:.W.|
00000410: 37 A7 99 3A 57 B2 30 00 1D 0C A4 01 82 00 39 0C |7..:W.0.......9.|
00000420: AE 01 99 3A 99 22 11 41 4E 4F 54 48 45 52 20 28 |...:.".ANOTHER (|
00000430: 59 2F 4E 29 3F 20 22 55 24 00 5E 0C B8 01 A1 4B |Y/N)? "U$.^....K|
00000440: 24 3A 8B 4B 24 B2 22 22 B0 28 4B 24 B3 B1 22 59 |$:.K$."".(K$.."Y|
00000450: 22 AF 4B 24 B3 B1 22 4E 22 29 A7 34 34 30 00 73 |".K$.."N").440.s|
00000460: 0C C2 01 8B 4B 24 B2 22 59 22 A7 99 22 93 22 3A |....K$."Y"..".":|
00000470: 89 36 30 00 8B 0C CC 01 8B 4B 24 B2 22 4E 22 A7 |.60......K$."N".|
00000480: 99 22 93 22 3A 89 35 30 30 30 30 00 D0 0C C6 02 |.".":.50000.....|
00000490: 83 20 4A 41 4E 55 41 52 59 2C 33 31 2C 46 45 42 |. JANUARY,31,FEB|
000004A0: 55 41 52 59 2C 32 38 2C 4D 41 52 43 48 2C 33 31 |UARY,28,MARCH,31|
000004B0: 2C 41 50 52 49 4C 2C 33 30 2C 4D 41 59 2C 33 31 |,APRIL,30,MAY,31|
000004C0: 2C 4A 55 4E 45 2C 33 30 2C 4A 55 4C 59 2C 33 31 |,JUNE,30,JULY,31|
000004D0: 00 10 0D D0 02 83 20 41 55 47 55 53 54 2C 33 31 |...... AUGUST,31|
000004E0: 2C 53 45 50 54 45 4D 42 45 52 2C 33 30 2C 4F 43 |,SEPTEMBER,30,OC|
000004F0: 54 4F 42 45 52 2C 33 31 2C 4E 4F 56 45 4D 42 45 |TOBER,31,NOVEMBE|
00000500: 52 2C 33 30 2C 44 45 43 45 4D 42 45 52 2C 33 31 |R,30,DECEMBER,31|
00000510: 00 36 0D DA 02 83 20 53 55 4E 2C 4D 4F 4E 2C 54 |.6.... SUN,MON,T|
00000520: 55 45 2C 57 45 44 2C 54 48 55 2C 46 52 49 2C 53 |UE,WED,THU,FRI,S|
00000530: 41 54 2C 53 55 4E 00 52 0D E8 03 52 B2 30 3A 52 |AT,SUN.R...R.0:R|
00000540: 24 B2 22 22 3A 99 22 20 22 3B 3A 55 24 B2 22 A6 |$."":." ";:U$.".|
00000550: 9D 22 00 5B 0D ED 03 99 55 24 3B 00 6F 0D F2 03 |.".[....U$;.o...|
00000560: A1 5A 24 3A 8B 5A 24 B2 22 22 A7 31 30 31 30 00 |.Z$:.Z$."".1010.|
00000570: A6 0D F7 03 5A B2 C6 28 5A 24 29 3A 8B 28 5A B2 |....Z..(Z$):.(Z.|
00000580: 32 30 29 AF 28 52 B1 30 29 A7 52 B2 52 AB 31 3A |20).(R.0).R.R.1:|
00000590: 52 24 B2 C8 28 52 24 2C 52 29 3A 99 5A 24 3B 3A |R$..(R$,R):.Z$;:|
000005A0: 89 31 30 30 35 B2 00 C7 0D FC 03 8B 28 5A B2 31 |.1005.......(Z.1|
000005B0: 33 29 A7 91 46 4C 41 47 89 31 30 34 30 2C 31 30 |3)..FLAG.1040,10|
000005C0: 35 30 2C 31 30 36 30 00 E3 0D 01 04 8B 5A 24 B3 |50,1060......Z$.|
000005D0: 22 30 22 B0 5A 24 B1 22 39 22 B0 52 B2 58 A7 31 |"0".Z$."9".R.X.1|
000005E0: 30 31 30 00 01 0E 06 04 99 5A 24 3B 3A 52 B2 52 |010......Z$;:R.R|
000005F0: AA 31 3A 52 24 B2 52 24 AA 5A 24 3A 89 31 30 30 |.1:R$.R$.Z$:.100|
00000600: 35 00 11 0E 10 04 8B 52 B2 58 A7 99 22 20 22 3A |5......R.X.." ":|
00000610: 8E 00 1B 0E 15 04 89 31 30 30 35 00 37 0E 1A 04 |.......1005.7...|
00000620: 8B C5 28 52 24 29 A7 8B C5 28 52 24 29 B3 31 33 |..(R$)...(R$).13|
00000630: A7 99 22 20 22 3A 8E 00 41 0E 1F 04 89 31 30 30 |.." ":..A....100|
00000640: 35 00 5D 0E 24 04 8B C5 28 52 24 29 A7 8B C5 28 |5.].$...(R$)...(|
00000650: 52 24 29 B3 33 32 A7 99 22 20 22 3A 8E 00 67 0E |R$).32.." ":..g.|
00000660: 29 04 89 31 30 30 35 00 77 0E D0 07 52 31 B2 30 |)..1005.w...R1.0|
00000670: 3A 52 31 24 B2 22 22 00 A9 0E D3 07 99 22 93 11 |:R1$.""......"..|
00000680: 11 44 4F 20 59 4F 55 20 57 41 4E 54 20 41 20 4D |.DO YOU WANT A M|
00000690: 41 52 4B 45 52 20 4F 4E 20 41 20 44 41 54 45 20 |ARKER ON A DATE |
000006A0: 28 59 2F 4E 29 3F 20 22 3B 00 B2 0E D5 07 99 55 |(Y/N)? ";......U|
000006B0: 24 3B 00 C8 0E DA 07 A1 5A 5A 24 3A 8B 5A 5A 24 |$;......ZZ$:.ZZ$|
000006C0: B2 22 22 A7 32 30 31 30 00 ED 0E DC 07 5A 5A B2 |."".2010.....ZZ.|
000006D0: C6 28 5A 5A 24 29 3A 8B 5A 5A B2 31 33 A7 8B 52 |.(ZZ$):.ZZ.13..R|
000006E0: 31 24 B2 22 4E 22 A7 99 22 20 22 3A 8E 00 05 0F |1$."N".." ":....|
000006F0: DD 07 8B 52 31 24 B2 22 59 22 A7 99 22 20 22 3A |...R1$."Y".." ":|
00000700: 89 32 30 35 30 00 25 0F DF 07 8B 28 5A 5A 24 B3 |.2050.%....(ZZ$.|
00000710: B1 22 59 22 29 AF 28 5A 5A 24 B3 B1 22 4E 22 29 |."Y").(ZZ$.."N")|
00000720: A7 32 30 31 30 00 49 0F FD 07 99 5A 5A 24 3B 3A |.2010.I....ZZ$;:|
00000730: 52 31 B2 52 31 AA 31 3A 52 31 24 B2 52 31 24 AA |R1.R1.1:R1$.R1$.|
00000740: 5A 5A 24 3A 89 32 30 30 35 00 88 0F 02 08 99 22 |ZZ$:.2005......"|
00000750: 11 4F 4E 20 57 48 41 54 20 44 41 59 20 4F 46 20 |.ON WHAT DAY OF |
00000760: 54 48 45 20 4D 4F 4E 54 48 3F 22 3B 3A 58 B2 32 |THE MONTH?";:X.2|
00000770: 3A 46 4C 41 47 B2 33 3A 8D 31 30 30 30 3A 44 31 |:FLAG.3:.1000:D1|
00000780: B2 C5 28 52 24 29 3A 8E 00 C6 0F 50 C3 4B B2 36 |..(R$):....P.K.6|
00000790: 33 31 3A 41 24 B2 22 43 36 34 20 50 41 4B 22 3A |31:A$."C64 PAK":|
000007A0: 97 4B 2C 37 36 3A 97 4B AA 31 2C 32 30 37 3A 97 |.K,76:.K.1,207:.|
000007B0: 4B AA 32 2C 36 35 3A 97 4B AA 33 2C 33 36 3A 97 |K.2,65:.K.3,36:.|
000007C0: 4B AA 34 2C 34 34 00 FD 0F 38 C7 97 4B AA 35 2C |K.4,44...8..K.5,|
000007D0: 35 36 3A 97 4B AA 36 2C 31 33 3A 97 4B AA 37 2C |56:.K.6,13:.K.7,|
000007E0: 38 32 3A 97 4B AA 38 2C 32 31 33 3A 97 4B AA 39 |82:.K.8,213:.K.9|
000007F0: 2C 31 33 3A 97 31 39 38 2C 31 30 3A 80 00 00 00 |,13:.198,10:....|
00000800: ED |. |
....... 59468,12.=.... THIS PROGRAM WAS
WRITTEN BY J.R ROSSUM.Q.... SUGGESTED BY
'JULIAN' IN THE HP BASIC LIBRARY...(..
REVISED OCT 1979...2.."............PROGR
AM TO GENERATE CALENDER"...4..:."
FOR ANY MONTH"...6..:. " S
INCE THE BIRTH OF CHRIST"...<..:. M$(24)
:T0.TI.N.P..:." TYPE ALL FOUR DIGITS OF
DESIRED YEAR"...Q.X.4:FLAG.1:.".
";:.1000:G.E(R$)...R..:."..MONT
H(1-12)?";:X.2:FLAG.2:.1000:M.E(R$)...S.
.2000...T.D.G.365..((G.1).4)..((G.1).100
)..((G.1).400).1...~.. G.400..(G.400) .
130.%.... G.100..(G.100). 140.B.... G.4.
.(G.4) .M$(4)."29".H.....P....".........
...........CALENDAR":.:....... J.1 . 24:
. M$(J):....".. J.1.7:. D$(J):....,.. M$
(2.M.1).35)G...6..:. J.1 . 7:. .6.(J).6)
D$(J);" ";:.:....<.. G.400..(G.400). 320
...>.. G.100..(G.100) . 330.1.@.. G.4..(
G.4) . M$(4)."29".X.J.. J.2 . 2.M.2 . 2:
S1.S1.E(M$(J)):..I.L.. M.1 . S1.0...T.S.
S1.D.7..((S1.D).7)...^.V.E(M$(2.M))...H.
S.S.6:. S..7 . S.S.7...R.T.6.S:W.S.F.|..
:..T);.Q....D.1.V......D.D1..".";......I
("...".J(D(D),2),3)"....";.....W.W.1:.W.
7..:W.0.......9....:.".ANOTHER (Y/N)? "U
$.^....K$:.K$."".(K$.."Y".K$.."N").440.S
.B..K$."Y"..".":.60...L..K$."N"..".":.50
000.P.F.. JANUARY,31,FEBUARY,28,MARCH,31
,APRIL,30,MAY,31,JUNE,30,JULY,31...P.. A
UGUST,31,SEPTEMBER,30,OCTOBER,31,NOVEMBE
R,30,DECEMBER,31.6.Z.. SUN,MON,TUE,WED,T
HU,FRI,SAT,SUN.R...R.0:R$."":." ";:U$.".
.".[....U$;.O....Z$:.Z$."".1010.....Z.F(
Z$):.(Z.20).(R.0).R.R.1:R$.H(R$,R):.Z$;:
.1005..G....(Z.13)..FLAG.1040,1050,1060.
.....Z$."0".Z$."9".R.X.1010......Z$;:R.R
.1:R$.R$.Z$:.1005......R.X.." ":.......1
005.7....E(R$)..E(R$).13.." ":..A....100
5.].$..E(R$)..E(R$).32.." ":..G.)..1005.
W.P.R1.0:R1$.""...S.."...DO YOU WANT A M
ARKER ON A DATE (Y/N)? ";...U..U$;.H.Z..
ZZ$:.ZZ$."".2010.....ZZ.F(ZZ$):.ZZ.13..R
1$."N".." ":.......R1$."Y".." ":.2050.%.
...(ZZ$.."Y").(ZZ$.."N").2010.I....ZZ$;:
R1.R1.1:R1$.R1$.ZZ$:.2005......".ON WHAT
DAY OF THE MONTH?";:X.2:FLAG.3:.1000:D1
.E(R$):..F.PCK.631:A$."C64 PAK":.K,76:.K
.1,207:.K.2,65:.K.3,36:.K.4,44...8G.K.5,
56:.K.6,13:.K.7,82:.K.8,213:.K.9,13:.198
,10:.....
> CLICK IMAGE PREVIEW FOR FULL MODAL