HI001 JULIANCA
FILE INFORMATION
FILENAME(S): HI001 JULIANCA
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-11-30 01:08:00
APPEARS ON: 2 disk(s)
FILE HASH
9ff0a350f1b870d93c02cef118bdf353ba30b71d57f3a16323a9e19d13dd2801
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | HI001 JULIANCA | PRG | Treasure Chest - Wolfgang Rauprich | 10 | 0 | DOWNLOAD FILE |
| FREESOFT NR | HI001 JULIANCA | PRG | Treasure Chest - Wolfgang Rauprich | 10 | 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 B9 08 32 00 99 22 93 |OCT 1979...2..".| 00000090: 11 11 11 11 11 1D 1D 1D 50 52 4F 47 52 41 4D 20 |........PROGRAM | 000000A0: 54 4F 20 47 45 4E 45 52 41 54 45 20 43 41 4C 45 |TO GENERATE CALE| 000000B0: 4E 44 45 52 20 46 4F 52 22 00 DB 08 34 00 99 3A |NDER FOR"...4..:| 000000C0: 99 22 20 20 20 20 20 20 20 20 20 20 46 4F 52 20 |." FOR | 000000D0: 41 4E 59 20 4D 4F 4E 54 48 20 22 00 05 09 36 00 |ANY MONTH "...6.| 000000E0: 99 3A 99 20 22 20 20 20 20 20 20 53 49 4E 43 45 |.:. " SINCE| 000000F0: 20 54 48 45 20 42 49 52 54 48 20 4F 46 20 43 48 | THE BIRTH OF CH| 00000100: 52 49 53 54 22 00 1A 09 3C 00 9C 3A 86 20 4D 24 |RIST"...<..:. M$| 00000110: 28 32 34 29 3A 54 30 B2 54 49 00 5A 09 50 00 99 |(24):T0.TI.Z.P..| 00000120: 3A 99 22 54 59 50 45 20 41 4C 4C 20 46 4F 55 52 |:."TYPE ALL FOUR| 00000130: 20 44 49 47 49 54 53 20 4F 46 20 44 45 53 49 52 | DIGITS OF DESIR| 00000140: 45 44 20 59 45 41 52 22 3A 99 3A 85 22 20 20 20 |ED YEAR":.:." | 00000150: 20 20 20 20 20 20 20 22 3B 47 00 6F 09 52 00 85 | ";G.o.R..| 00000160: 22 4D 4F 4E 54 48 28 31 2D 31 32 29 22 3B 4D 00 |"MONTH(1-12)";M.| 00000170: 82 09 54 00 8B 20 47 B3 31 39 30 30 20 A7 20 31 |..T.. G.1900 . 1| 00000180: 30 35 00 95 09 5A 00 44 B2 28 47 AB 31 39 30 30 |05...Z.D.(G.1900| 00000190: 29 AC 33 36 35 00 A8 09 5C 00 81 20 51 B2 31 39 |).365...\.. Q.19| 000001A0: 30 31 20 A4 20 47 AB 31 00 C1 09 5E 00 8B 20 51 |01 . G.1...^.. Q| 000001B0: AD 34 B2 B5 28 51 AD 34 29 20 A7 20 44 B2 44 AA |.4..(Q.4) . D.D.| 000001C0: 31 00 C7 09 60 00 82 00 D1 09 62 00 44 B2 44 AA |1...`.....b.D.D.| 000001D0: 32 00 DB 09 64 00 89 20 32 37 30 00 16 0A 69 00 |2...d.. 270...i.| 000001E0: 99 20 22 93 11 11 11 11 11 11 11 11 11 59 4F 55 |. "..........YOU| 000001F0: 20 57 49 4C 4C 20 48 41 56 45 20 54 4F 20 57 41 | WILL HAVE TO WA| 00000200: 49 54 20 41 20 42 49 54 20 46 4F 52 20 54 48 41 |IT A BIT FOR THA| 00000210: 54 20 4F 4E 45 22 00 22 0A 6E 00 44 B2 47 AC 33 |T ONE".".n.D.G.3| 00000220: 36 35 00 32 0A 78 00 81 20 51 B2 31 20 A4 20 47 |65.2.x.. Q.1 . G| 00000230: AB 31 00 4D 0A 7E 00 8B 20 51 AD 34 30 30 B2 B5 |.1.M.~.. Q.400..| 00000240: 28 51 AD 34 30 30 29 20 A7 20 31 33 30 00 67 0A |(Q.400) . 130.g.| 00000250: 80 00 8B 20 51 AD 31 30 30 B2 B5 28 51 AD 31 30 |... Q.100..(Q.10| 00000260: 30 29 A7 20 31 34 30 00 80 0A 82 00 8B 20 51 AD |0). 140...... Q.| 00000270: 34 B2 B5 28 51 AD 34 29 20 A7 20 44 B2 44 AA 31 |4..(Q.4) . D.D.1| 00000280: 00 86 0A 8C 00 82 00 90 0A 96 00 44 B2 44 AA 31 |...........D.D.1| 00000290: 00 B9 0A 0E 01 99 22 93 11 11 11 11 11 11 1D 1D |......".........| 000002A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 4A 55 4C 49 41 4E 20 |.........JULIAN | 000002B0: 43 41 4C 45 4E 44 41 52 22 00 D2 0A 18 01 81 20 |CALENDAR"...... | 000002C0: 4A B2 31 20 A4 20 32 34 3A 87 20 4D 24 28 4A 29 |J.1 . 24:. M$(J)| 000002D0: 3A 82 00 E8 0A 22 01 81 20 4A B2 31 A4 37 3A 87 |:....".. J.1.7:.| 000002E0: 20 44 24 28 4A 29 3A 82 00 FD 0A 2C 01 99 20 4D | D$(J):....,.. M| 000002F0: 24 28 32 AC 4D AB 31 29 A3 33 35 29 47 00 27 0B |$(2.M.1).35)G.'.| 00000300: 36 01 99 3A 99 3A 81 20 4A B2 31 20 A4 20 37 3A |6..:.:. J.1 . 7:| 00000310: 99 20 A3 36 AC 28 4A 29 AB 36 29 44 24 28 4A 29 |. .6.(J).6)D$(J)| 00000320: 3B 22 20 22 3B 3A 82 00 41 0B 3C 01 8B 20 47 AD |;" ";:..A.<.. G.| 00000330: 34 30 30 B2 B5 28 47 AD 34 30 30 29 A7 20 33 32 |400..(G.400). 32| 00000340: 30 00 5C 0B 3E 01 8B 20 47 AD 31 30 30 B2 B5 28 |0.\.>.. G.100..(| 00000350: 47 AD 31 30 30 29 20 A7 20 33 33 30 00 7A 0B 40 |G.100) . 330.z.@| 00000360: 01 8B 20 47 AD 34 B2 B5 28 47 AD 34 29 20 A7 20 |.. G.4..(G.4) . | 00000370: 4D 24 28 34 29 B2 22 32 39 22 00 A1 0B 4A 01 81 |M$(4)."29"...J..| 00000380: 20 4A B2 32 20 A4 20 32 AC 4D AB 32 20 A9 20 32 | J.2 . 2.M.2 . 2| 00000390: 3A 53 31 B2 53 31 AA C5 28 4D 24 28 4A 29 29 3A |:S1.S1..(M$(J)):| 000003A0: 82 00 B2 0B 4C 01 8B 20 4D B2 31 20 A7 20 53 31 |....L.. M.1 . S1| 000003B0: B2 30 00 CB 0B 54 01 53 B2 53 31 AA 44 AB 37 AC |.0...T.S.S1.D.7.| 000003C0: B5 28 28 53 31 AA 44 29 AD 37 29 00 DC 0B 5E 01 |.((S1.D).7)...^.| 000003D0: 56 B2 C5 28 4D 24 28 32 AC 4D 29 29 00 F4 0B 68 |V..(M$(2.M))...h| 000003E0: 01 53 B2 53 AA 37 3A 8B 20 53 B1 37 20 A7 20 53 |.S.S.7:. S.7 . S| 000003F0: B2 53 AB 37 00 08 0C 72 01 54 B2 31 AA 36 AC 28 |.S.7...r.T.1.6.(| 00000400: 53 AB 31 29 3A 55 B2 35 00 16 0C 7C 01 99 3A 99 |S.1):U.5...|..:.| 00000410: A3 54 AB 31 29 3B 00 27 0C 7E 01 8B 20 54 B2 33 |.T.1);.'.~.. T.3| 00000420: 37 20 A7 20 33 39 30 00 37 0C 86 01 81 44 B2 31 |7 . 390.7....D.1| 00000430: A4 56 3A 89 33 39 32 00 47 0C 87 01 99 20 31 3A |.V:.392.G.... 1:| 00000440: 81 20 44 B2 32 A4 56 00 5C 0C 88 01 99 20 44 3B |. D.2.V.\.... D;| 00000450: A6 55 AB C3 28 C4 28 44 29 29 29 3B 00 70 0C 90 |.U..(.(D)));.p..| 00000460: 01 8B 20 B9 28 30 29 B1 33 34 20 A7 20 55 B2 33 |.. .(0).34 . U.3| 00000470: 00 84 0C 9A 01 8B 20 B9 28 30 29 B3 33 34 20 A7 |...... .(0).34 .| 00000480: 20 55 B2 35 00 8A 0C A4 01 82 00 BD 0C A6 01 99 | U.5............| 00000490: 3A 99 3A 99 3A 99 20 A3 31 30 29 22 54 49 4D 45 |:.:.:. .10)"TIME| 000004A0: 3D 22 B5 28 28 54 49 AB 54 30 29 AD 33 36 29 AD |=".((TI.T0).36).| 000004B0: 31 30 30 20 22 4D 49 4E 55 54 45 53 22 00 D2 0C |100 "MINUTES"...| 000004C0: AE 01 99 3A 85 20 22 41 4E 4F 54 48 45 52 22 3B |...:. "ANOTHER";| 000004D0: 4B 24 00 E9 0C B8 01 8B 20 C8 28 4B 24 2C 31 29 |K$...... .(K$,1)| 000004E0: B2 22 59 22 20 A7 20 36 30 00 FF 0C C2 01 8B 20 |."Y" . 60...... | 000004F0: C8 28 4B 24 2C 31 29 B2 22 4E 22 20 A7 20 80 00 |.(K$,1)."N" . ..| 00000500: 09 0D CC 01 89 20 34 33 30 00 4E 0D C6 02 83 20 |..... 430.N.... | 00000510: 4A 41 4E 55 41 52 59 2C 33 31 2C 46 45 42 55 41 |JANUARY,31,FEBUA| 00000520: 52 59 2C 32 38 2C 4D 41 52 43 48 2C 33 31 2C 41 |RY,28,MARCH,31,A| 00000530: 50 52 49 4C 2C 33 30 2C 4D 41 59 2C 33 31 2C 4A |PRIL,30,MAY,31,J| 00000540: 55 4E 45 2C 33 30 2C 4A 55 4C 59 2C 33 31 00 8E |UNE,30,JULY,31..| 00000550: 0D D0 02 83 20 41 55 47 55 53 54 2C 33 31 2C 53 |.... AUGUST,31,S| 00000560: 45 50 54 45 4D 42 45 52 2C 33 30 2C 4F 43 54 4F |EPTEMBER,30,OCTO| 00000570: 42 45 52 2C 33 31 2C 4E 4F 56 45 4D 42 45 52 2C |BER,31,NOVEMBER,| 00000580: 33 30 2C 44 45 43 45 4D 42 45 52 2C 33 31 00 B4 |30,DECEMBER,31..| 00000590: 0D DA 02 83 20 53 55 4E 2C 4D 4F 4E 2C 54 55 45 |.... SUN,MON,TUE| 000005A0: 2C 57 45 44 2C 54 48 55 2C 46 52 49 2C 53 41 54 |,WED,THU,FRI,SAT| 000005B0: 2C 53 55 4E 00 00 00 |,SUN... |
....... 59468,12.=.... THIS PROGRAM WAS
WRITTEN BY J.R ROSSUM.Q.... SUGGESTED BY
'JULIAN' IN THE HP BASIC LIBRARY...(..
REVISED OCT 1979...2..".........PROGRAM
TO GENERATE CALENDER FOR"...4..:."
FOR ANY MONTH "...6..:. " SINCE
THE BIRTH OF CHRIST"...<..:. M$(24):T0.
TI.Z.P..:."TYPE ALL FOUR DIGITS OF DESIR
ED YEAR":.:." ";G.O.R.."MONTH(1
-12)";M...T.. G.1900 . 105...Z.D.(G.1900
).365...\.. Q.1901 . G.1.A.^.. Q.4..(Q.4
) . D.D.1.G.`...Q.B.D.D.2...D.. 270...I.
. "..........YOU WILL HAVE TO WAIT A BIT
FOR THAT ONE".".N.D.G.365.2.X.. Q.1 . G
.1.M.~.. Q.400..(Q.400) . 130.G.... Q.10
0..(Q.100). 140...... Q.4..(Q.4) . D.D.1
...........D.D.1......".................
.JULIAN CALENDAR".R.... 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)
;" ";:..A.<.. G.400..(G.400). 320.\.>..
G.100..(G.100) . 330.Z.@.. G.4..(G.4) .
M$(4)."29"...J.. J.2 . 2.M.2 . 2:S1.S1.E
(M$(J)):....L.. M.1 . S1.0.K.T.S.S1.D.7.
.((S1.D).7)...^.V.E(M$(2.M))...H.S.S.7:.
S.7 . S.S.7...R.T.1.6.(S.1):U.5...|..:.
.T.1);.'.~.. T.37 . 390.7....D.1.V:.392.
G.... 1:. D.2.V.\.... D;.U.C(D(D)));.P..
.. .(0).34 . U.3...... .(0).34 . U.5....
........:.:.:. .10)"TIME=".((TI.T0).36).
100 "MINUTES".R....:. "ANOTHER";K$......
H(K$,1)."Y" . 60...B.. H(K$,1)."N" . ..
..L.. 430.N.F.. JANUARY,31,FEBUARY,28,MA
RCH,31,APRIL,30,MAY,31,JUNE,30,JULY,31..
.P.. AUGUST,31,SEPTEMBER,30,OCTOBER,31,N
OVEMBER,30,DECEMBER,31...Z.. SUN,MON,TUE
,WED,THU,FRI,SAT,SUN...
> CLICK IMAGE PREVIEW FOR FULL MODAL