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

JULIAN DATE

FILE INFORMATION

FILENAME(S): JULIAN DATE

FILE TYPE(S): PRG

FILE SIZE: 2.4K

FIRST SEEN: 2025-10-20 14:30:51

APPEARS ON: 1 disk(s)

FILE HASH

544adc1fc909ee8a0a28c1c34ebf21c92ae6a5d848519d832215ae335b0a7a8c

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
0047ED JULIAN DATE PRG Treasure Chest - Klaus Der Suhler 11 1 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 1C 4B 1C 64 00 83 20  4A 41 4E 55 41 52 59 2C  |..K.d.. JANUARY,|
00000010: 46 45 42 52 55 41 52 59  2C 4D 41 52 43 48 2C 41  |FEBRUARY,MARCH,A|
00000020: 50 52 49 4C 2C 4D 41 59  2C 4A 55 4E 45 2C 4A 55  |PRIL,MAY,JUNE,JU|
00000030: 4C 59 2C 41 55 47 55 53  54 2C 53 45 50 54 45 4D  |LY,AUGUST,SEPTEM|
00000040: 42 45 52 2C 4F 43 54 4F  42 45 52 00 63 1C 6E 00  |BER,OCTOBER.c.n.|
00000050: 83 20 4E 4F 56 45 4D 42  45 52 2C 44 45 43 45 4D  |. NOVEMBER,DECEM|
00000060: 42 45 52 00 A2 1C 78 00  83 20 53 55 4E 44 41 59  |BER...x.. SUNDAY|
00000070: 2C 4D 4F 4E 44 41 59 2C  54 55 45 53 44 41 59 2C  |,MONDAY,TUESDAY,|
00000080: 57 45 44 4E 45 53 44 41  59 2C 54 48 55 52 53 44  |WEDNESDAY,THURSD|
00000090: 41 59 2C 46 52 49 44 41  59 2C 53 41 54 55 52 44  |AY,FRIDAY,SATURD|
000000A0: 41 59 00 B7 1C 82 00 86  20 4D 4F 24 28 31 32 29  |AY...... MO$(12)|
000000B0: 2C 44 41 24 28 37 29 00  D1 1C 8C 00 81 20 49 B2  |,DA$(7)...... I.|
000000C0: 31 20 A4 20 31 32 3A 87  20 4D 4F 24 28 49 29 3A  |1 . 12:. MO$(I):|
000000D0: 82 00 EA 1C 96 00 81 20  49 B2 31 20 A4 20 37 3A  |....... I.1 . 7:|
000000E0: 87 20 44 41 24 28 49 29  3A 82 00 F4 1C A0 00 89  |. DA$(I):.......|
000000F0: 20 31 39 30 00 02 1D AA  00 99 C7 28 31 34 37 29  | 190.......(147)|
00000100: 3A 99 00 35 1D B4 00 99  22 20 49 4E 43 4F 52 52  |:..5...." INCORR|
00000110: 45 43 54 20 49 4E 50 55  54 2C 20 54 52 59 20 41  |ECT INPUT, TRY A|
00000120: 47 41 49 4E 2E 22 3A 81  20 49 B2 31 20 A4 20 32  |GAIN.":. I.1 . 2|
00000130: 30 30 30 3A 82 00 50 1D  BE 00 99 C7 28 31 34 37  |000:..P.....(147|
00000140: 29 3A 8F 20 43 4C 45 41  52 20 53 43 52 45 45 4E  |):. CLEAR SCREEN|
00000150: 00 76 1D C8 00 99 3A 99  22 20 20 20 20 20 20 20  |.v....:."       |
00000160: 20 20 20 4A 55 4C 49 41  4E 20 44 41 59 20 4E 55  |   JULIAN DAY NU|
00000170: 4D 42 45 52 53 22 00 A8  1D D2 00 99 3A 99 3A 99  |MBERS"......:.:.|
00000180: 22 20 20 20 20 20 20 41  53 54 52 4F 4E 4F 4D 45  |"      ASTRONOME|
00000190: 52 53 20 48 41 56 45 20  43 48 4F 53 45 4E 20 44  |RS HAVE CHOSEN D|
000001A0: 41 59 20 5A 45 52 4F 22  00 D9 1D DC 00 99 3A 99  |AY ZERO"......:.|
000001B0: 22 20 41 53 20 4D 49 44  44 41 59 20 41 53 20 4D  |" AS MIDDAY AS M|
000001C0: 45 41 53 55 52 45 44 20  4F 4E 20 54 48 45 20 47  |EASURED ON THE G|
000001D0: 52 45 45 4E 57 49 43 48  22 00 09 1E E6 00 99 3A  |REENWICH"......:|
000001E0: 99 22 20 4D 45 52 49 44  49 41 4E 20 4F 4E 20 4A  |." MERIDIAN ON J|
000001F0: 41 4E 55 41 52 59 20 31  2C 20 34 37 31 33 20 42  |ANUARY 1, 4713 B|
00000200: 2E 43 2E 20 20 54 48 45  22 00 38 1E F0 00 99 3A  |.C.  THE".8....:|
00000210: 99 22 20 4E 55 4D 42 45  52 20 4F 46 20 44 41 59  |." NUMBER OF DAY|
00000220: 53 20 45 4C 41 50 53 45  44 20 53 49 4E 43 45 20  |S ELAPSED SINCE |
00000230: 54 48 45 4E 20 49 53 22  00 68 1E FA 00 99 3A 99  |THEN IS".h....:.|
00000240: 22 20 54 48 45 20 4A 55  4C 49 41 4E 20 44 41 59  |" THE JULIAN DAY|
00000250: 20 4E 55 4D 42 45 52 20  4F 52 20 4A 55 4C 49 41  | NUMBER OR JULIA|
00000260: 4E 20 44 41 54 45 2E 22  00 98 1E 04 01 99 3A 99  |N DATE."......:.|
00000270: 22 20 54 48 45 20 4D 4F  44 49 46 49 45 44 20 4A  |" THE MODIFIED J|
00000280: 55 4C 49 41 4E 20 44 41  54 45 20 42 45 47 41 4E  |ULIAN DATE BEGAN|
00000290: 20 41 54 20 30 2E 30 22  00 C3 1E 0E 01 99 3A 99  | AT 0.0"......:.|
000002A0: 22 20 48 4F 55 52 53 20  28 55 54 29 20 4F 4E 20  |" HOURS (UT) ON |
000002B0: 4E 4F 56 45 4D 42 45 52  20 31 37 2C 20 31 38 35  |NOVEMBER 17, 185|
000002C0: 38 2E 22 00 F3 1E 18 01  99 3A 99 3A 99 3A 99 22  |8."......:.:.:."|
000002D0: 20 41 4E 44 20 53 4F 3A  20 20 4A 44 2D 4D 4A 44  | AND SO:  JD-MJD|
000002E0: 3D 32 2C 34 30 30 2C 30  30 30 2E 35 20 44 41 59  |=2,400,000.5 DAY|
000002F0: 53 2E 22 00 FB 1E 22 01  99 3A 99 00 35 1F 2C 01  |S."..."..:..5.,.|
00000300: 99 22 20 20 20 20 20 20  20 22 3B C7 28 31 38 29  |."       ";.(18)|
00000310: 3B 22 48 49 54 20 41 4E  59 20 4B 45 59 20 54 4F  |;"HIT ANY KEY TO|
00000320: 20 43 4F 4E 54 49 4E 55  45 22 3A 8F 20 52 45 56  | CONTINUE":. REV|
00000330: 20 43 48 41 52 00 4C 1F  36 01 A1 20 41 24 3A 8B  | CHAR.L.6.. A$:.|
00000340: 20 41 24 B2 22 22 20 A7  20 33 31 30 00 5C 1F 40  | A$."" . 310.\.@|
00000350: 01 99 C7 28 31 34 37 29  3A 99 3A 99 00 86 1F 4A  |...(147):.:....J|
00000360: 01 99 22 20 20 50 52 45  53 53 20 3C 31 3E 20 49  |.."  PRESS <1> I|
00000370: 46 20 59 4F 55 20 57 49  53 48 20 54 4F 20 43 4F  |F YOU WISH TO CO|
00000380: 4E 56 45 52 54 22 00 B6  1F 54 01 99 3A 99 3A 99  |NVERT"...T..:.:.|
00000390: 22 20 20 46 52 4F 4D 20  43 41 4C 45 4E 44 41 52  |"  FROM CALENDAR|
000003A0: 20 44 41 54 45 20 54 4F  20 4A 55 4C 49 41 4E 20  | DATE TO JULIAN |
000003B0: 44 41 54 45 2E 22 00 C4  1F 5E 01 99 3A 99 3A 99  |DATE."...^..:.:.|
000003C0: 3A 99 3A 99 00 EE 1F 68  01 99 22 20 20 50 52 45  |:.:....h.."  PRE|
000003D0: 53 53 20 3C 32 3E 20 49  46 20 59 4F 55 20 57 49  |SS <2> IF YOU WI|
000003E0: 53 48 20 54 4F 20 43 4F  4E 56 45 52 54 22 00 1E  |SH TO CONVERT"..|
000003F0: 20 72 01 99 3A 99 3A 99  22 20 20 46 52 4F 4D 20  | r..:.:."  FROM |
00000400: 4A 55 4C 49 41 4E 20 44  41 54 45 20 54 4F 20 43  |JULIAN DATE TO C|
00000410: 41 4C 45 4E 44 41 52 20  44 41 54 45 2E 22 00 37  |ALENDAR DATE.".7|
00000420: 20 7C 01 A1 20 4E 4E 24  3A 8B 20 4E 4E 24 B2 22  | |.. NN$:. NN$."|
00000430: 22 20 A7 20 33 38 30 00  57 20 86 01 8B 20 4E 4E  |" . 380.W ... NN|
00000440: 24 B3 B1 22 31 22 20 AF  20 4E 4E 24 B3 B1 22 32  |$.."1" . NN$.."2|
00000450: 22 20 A7 20 33 38 30 00  6B 20 90 01 8B 20 4E 4E  |" . 380.k ... NN|
00000460: 24 B2 22 32 22 20 A7 20  36 30 30 00 9F 20 9A 01  |$."2" . 600.. ..|
00000470: 99 C7 28 31 34 37 29 3A  99 3A 99 22 20 45 4E 54  |..(147):.:." ENT|
00000480: 45 52 20 59 45 41 52 53  20 42 43 20 41 53 20 4E  |ER YEARS BC AS N|
00000490: 45 47 41 54 49 56 45 20  59 45 41 52 53 2E 22 00  |EGATIVE YEARS.".|
000004A0: BA 20 A4 01 99 3A 85 22  20 45 4E 54 45 52 20 54  |. ...:." ENTER T|
000004B0: 48 45 20 59 45 41 52 22  3B 59 00 DD 20 AE 01 99  |HE YEAR";Y.. ...|
000004C0: 3A 85 22 20 45 4E 54 45  52 20 54 48 45 20 4D 4F  |:." ENTER THE MO|
000004D0: 4E 54 48 20 4E 55 4D 42  45 52 22 3B 4D 00 F7 20  |NTH NUMBER";M.. |
000004E0: B8 01 99 3A 85 22 20 45  4E 54 45 52 20 54 48 45  |...:." ENTER THE|
000004F0: 20 44 41 59 22 3B 44 00  25 21 C2 01 8B 20 44 B1  | DAY";D.%!... D.|
00000500: 33 31 20 B0 20 44 B3 31  20 B0 20 4D B1 31 32 20  |31 . D.1 . M.12 |
00000510: B0 20 4D B3 31 20 B0 20  59 B3 AB 34 37 31 33 20  |. M.1 . Y..4713 |
00000520: A7 20 31 37 30 00 37 21  CC 01 8B 20 59 B3 30 20  |. 170.7!... Y.0 |
00000530: A7 20 59 B2 59 AA 31 00  56 21 D6 01 8B 20 4D B2  |. Y.Y.1.V!... M.|
00000540: 31 20 B0 20 4D B2 32 20  A7 20 59 B2 59 AB 31 3A  |1 . M.2 . Y.Y.1:|
00000550: 4D B2 4D AA 31 32 00 69  21 E0 01 8B 20 59 B1 31  |M.M.12.i!... Y.1|
00000560: 35 38 32 20 A7 20 35 30  30 00 77 21 EA 01 42 B2  |582 . 500.w!..B.|
00000570: 30 3A 89 20 35 32 30 00  86 21 F4 01 41 B2 B5 28  |0:. 520..!..A..(|
00000580: 59 AD 31 30 30 29 00 97  21 FE 01 42 B2 32 AB 41  |Y.100)..!..B.2.A|
00000590: AA B5 28 41 AD 34 29 00  A9 21 08 02 43 B2 B5 28  |..(A.4)..!..C..(|
000005A0: 33 36 35 2E 32 35 AC 59  29 00 C0 21 12 02 45 B2  |365.25.Y)..!..E.|
000005B0: B5 28 33 30 2E 36 30 30  31 AC 28 4D AA 31 29 29  |.(30.6001.(M.1))|
000005C0: 00 D9 21 1C 02 4A 44 B2  42 AA 43 AA 45 AA 44 AA  |..!..JD.B.C.E.D.|
000005D0: 31 37 32 30 39 39 34 2E  35 00 E9 21 26 02 99 3A  |1720994.5..!&..:|
000005E0: 99 3A 99 3A 99 3A 99 3A  99 00 03 22 30 02 99 22  |.:.:.:.:..."0.."|
000005F0: 20 4A 55 4C 49 41 4E 20  44 41 54 45 20 3A 20 22  | JULIAN DATE : "|
00000600: 3B 4A 44 00 17 22 3A 02  4D 4A B2 4A 44 AB 32 34  |;JD..":.MJ.JD.24|
00000610: 30 30 30 30 30 2E 35 00  3E 22 44 02 99 3A 99 3A  |00000.5.>"D..:.:|
00000620: 99 22 20 4D 4F 44 49 46  49 45 44 20 4A 55 4C 49  |." MODIFIED JULI|
00000630: 41 4E 20 44 41 54 45 20  3A 20 22 3B 4D 4A 00 48  |AN DATE : ";MJ.H|
00000640: 22 4E 02 99 3A 99 3A 80  00 58 22 58 02 99 C7 28  |"N..:.:..X"X...(|
00000650: 31 34 37 29 3A 99 3A 99  00 80 22 62 02 99 22 20  |147):.:..."b.." |
00000660: 20 50 52 45 53 53 20 3C  31 3E 20 49 46 20 59 4F  | PRESS <1> IF YO|
00000670: 55 20 57 49 53 48 20 54  4F 20 45 4E 54 45 52 22  |U WISH TO ENTER"|
00000680: 00 A0 22 6C 02 99 3A 99  3A 99 22 20 20 4E 4F 52  |.."l..:.:."  NOR|
00000690: 4D 41 4C 20 4A 55 4C 49  41 4E 20 44 41 54 45 22  |MAL JULIAN DATE"|
000006A0: 00 D2 22 76 02 99 3A 99  3A 99 3A 99 3A 99 3A 99  |.."v..:.:.:.:.:.|
000006B0: 22 20 20 50 52 45 53 53  20 3C 32 3E 20 49 46 20  |"  PRESS <2> IF |
000006C0: 59 4F 55 20 57 49 53 48  20 54 4F 20 45 4E 54 45  |YOU WISH TO ENTE|
000006D0: 52 22 00 F4 22 80 02 99  3A 99 3A 99 22 20 20 4D  |R".."...:.:."  M|
000006E0: 4F 44 49 46 49 45 44 20  4A 55 4C 49 41 4E 20 44  |ODIFIED JULIAN D|
000006F0: 41 54 45 22 00 0D 23 8A  02 A1 20 41 42 24 3A 8B  |ATE"..#... AB$:.|
00000700: 20 41 42 24 B2 22 22 20  A7 20 36 35 30 00 2D 23  | AB$."" . 650.-#|
00000710: 94 02 8B 20 41 42 24 B3  B1 22 31 22 20 AF 20 41  |... AB$.."1" . A|
00000720: 42 24 B3 B1 22 32 22 20  A7 20 36 35 30 00 3F 23  |B$.."2" . 650.?#|
00000730: 9E 02 99 C7 28 31 34 37  29 3A 99 3A 99 3A 99 00  |....(147):.:.:..|
00000740: 6F 23 A8 02 8B 20 41 42  24 B2 22 32 22 20 A7 20  |o#... AB$."2" . |
00000750: 99 22 49 4E 50 55 54 20  4D 4F 44 49 46 49 45 44  |."INPUT MODIFIED|
00000760: 20 4A 55 4C 49 41 4E 20  44 41 54 45 20 3A 22 00  | JULIAN DATE :".|
00000770: 96 23 B2 02 8B 20 41 42  24 B2 22 31 22 20 A7 20  |.#... AB$."1" . |
00000780: 99 22 49 4E 50 55 54 20  4A 55 4C 49 41 4E 20 44  |."INPUT JULIAN D|
00000790: 41 54 45 20 3A 22 00 9E  23 BC 02 99 3A 99 00 A7  |ATE :"..#...:...|
000007A0: 23 C6 02 85 20 4A 44 00  C7 23 D0 02 8B 20 41 42  |#... JD..#... AB|
000007B0: 24 B2 22 32 22 20 A7 20  4A 44 B2 4A 44 AA 32 34  |$."2" . JD.JD.24|
000007C0: 30 30 30 30 30 2E 35 00  D9 23 DA 02 41 58 B2 28  |00000.5..#..AX.(|
000007D0: 4A 44 AA 31 2E 35 29 AD  37 00 F6 23 E4 02 42 58  |JD.1.5).7..#..BX|
000007E0: B2 B5 28 28 41 58 AB B5  28 41 58 29 29 AC 37 AA  |..((AX..(AX)).7.|
000007F0: 30 2E 35 29 AA 31 00 04  24 EE 02 4A 44 B2 4A 44  |0.5).1..$..JD.JD|
00000800: AA 30 2E 35 00 10 24 F8  02 49 B2 B5 28 4A 44 29  |.0.5..$..I..(JD)|
00000810: 00 1B 24 02 03 46 B2 4A  44 AB 49 00 27 24 0C 03  |..$..F.JD.I.'$..|
00000820: 41 B2 49 3A 42 B2 30 00  65 24 16 03 8B 20 49 B1  |A.I:B.0.e$... I.|
00000830: 32 32 39 39 31 36 30 20  A7 20 41 B2 B5 28 28 49  |2299160 . A..((I|
00000840: AB 31 38 36 37 32 31 36  2E 32 35 29 AD 33 36 35  |.1867216.25).365|
00000850: 32 34 2E 32 35 29 3A 42  B2 49 AA 31 AA 41 AB B5  |24.25):B.I.1.A..|
00000860: 28 41 AD 34 29 00 72 24  20 03 43 B2 42 AA 31 35  |(A.4).r$ .C.B.15|
00000870: 32 34 00 8C 24 2A 03 44  B2 B5 28 28 43 AB 31 32  |24..$*.D..((C.12|
00000880: 32 2E 31 29 AD 33 36 35  2E 32 35 29 00 9E 24 34  |2.1).365.25)..$4|
00000890: 03 45 B2 B5 28 33 36 35  2E 32 35 AC 44 29 00 B5  |.E..(365.25.D)..|
000008A0: 24 3E 03 47 B2 B5 28 28  43 AB 45 29 AD 33 30 2E  |$>.G..((C.E).30.|
000008B0: 36 30 30 31 29 00 CF 24  48 03 44 44 B2 43 AB 45  |6001)..$H.DD.C.E|
000008C0: AA 46 AB B5 28 33 30 2E  36 30 30 31 AC 47 29 00  |.F..(30.6001.G).|
000008D0: DB 24 52 03 4D 4D B2 47  AB 31 33 00 F1 24 5C 03  |.$R.MM.G.13..$\.|
000008E0: 8B 20 47 B3 31 33 2E 35  20 A7 20 4D 4D B2 47 AB  |. G.13.5 . MM.G.|
000008F0: 31 00 FF 24 66 03 59 59  B2 44 AB 34 37 31 36 00  |1..$f.YY.D.4716.|
00000900: 18 25 70 03 8B 20 4D 4D  B3 32 2E 35 20 A7 20 59  |.%p.. MM.2.5 . Y|
00000910: 59 B2 44 AB 34 37 31 35  00 22 25 7A 03 99 3A 99  |Y.D.4715."%z..:.|
00000920: 3A 99 00 46 25 84 03 99  20 22 20 20 20 20 20 20  |:..F%... "      |
00000930: 20 54 48 45 20 43 41 4C  45 4E 44 41 52 20 44 41  | THE CALENDAR DA|
00000940: 54 45 20 49 53 22 00 4C  25 8E 03 99 00 72 25 98  |TE IS".L%....r%.|
00000950: 03 99 20 22 20 20 22 3B  4D 4F 24 28 4D 4D 29 3B  |.. "  ";MO$(MM);|
00000960: 44 44 3B 22 2C 20 22 3B  59 59 2C 44 41 24 28 42  |DD;", ";YY,DA$(B|
00000970: 58 29 00 00 00                                    |X)...           |
..K.D.. JANUARY,FEBRUARY,MARCH,APRIL,MAY
,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER.C.N.
. NOVEMBER,DECEMBER...X.. SUNDAY,MONDAY,
TUESDAY,WEDNESDAY,THURSDAY,FRIDAY,SATURD
AY...... MO$(12),DA$(7).Q.... I.1 . 12:.
 MO$(I):....... I.1 . 7:. DA$(I):.... ..
 190......G(147):..5...." INCORRECT INPU
T, TRY AGAIN.":. I.1 . 2000:..P....G(147
):. CLEAR SCREEN.V.H..:."          JULIA
N DAY NUMBERS"...R..:.:."      ASTRONOME
RS HAVE CHOSEN DAY ZERO".Y....:." AS MID
DAY AS MEASURED ON THE GREENWICH"......:
." MERIDIAN ON JANUARY 1, 4713 B.C.  THE
".8....:." NUMBER OF DAYS ELAPSED SINCE 
THEN IS".H....:." THE JULIAN DAY NUMBER 
OR JULIAN DATE."......:." THE MODIFIED J
ULIAN DATE BEGAN AT 0.0".C....:." HOURS 
(UT) ON NOVEMBER 17, 1858."......:.:.:."
 AND SO:  JD-MJD=2,400,000.5 DAYS."...".
.:..5.,.."       ";G(18);"HIT ANY KEY TO
 CONTINUE":. REV CHAR.L.6.. A$:. A$."" .
 310.\.@..G(147):.:....J.."  PRESS <1> I
F YOU WISH TO CONVERT"...T..:.:."  FROM 
CALENDAR DATE TO JULIAN DATE.".D.^..:.:.
:.:....H.."  PRESS <2> IF YOU WISH TO CO
NVERT".. R..:.:."  FROM JULIAN DATE TO C
ALENDAR DATE.".7 |.. NN$:. NN$."" . 380.
W ... NN$.."1" . NN$.."2" . 380.K ... NN
$."2" . 600.. ...G(147):.:." ENTER YEARS
 BC AS NEGATIVE YEARS.".. ...:." ENTER T
HE YEAR";Y.. ...:." ENTER THE MONTH NUMB
ER";M.. ...:." ENTER THE DAY";D.%!B.. D.
31 . D.1 . M.12 . M.1 . Y..4713 . 170.7!
L.. Y.0 . Y.Y.1.V!V.. M.1 . M.2 . Y.Y.1:
M.M.12.I!... Y.1582 . 500.W!..B.0:. 520.
.!..A..(Y.100)..!..B.2.A..(A.4)..!..C..(
365.25.Y)..!..E..(30.6001.(M.1)).Y!..JD.
B.C.E.D.1720994.5..!&..:.:.:.:.:..."0.."
 JULIAN DATE : ";JD..":.MJ.JD.2400000.5.
>"D..:.:." MODIFIED JULIAN DATE : ";MJ.H
"N..:.:..X"X..G(147):.:..."B.."  PRESS <
1> IF YOU WISH TO ENTER". "L..:.:."  NOR
MAL JULIAN DATE".R"V..:.:.:.:.:."  PRESS
 <2> IF YOU WISH TO ENTER".."...:.:."  M
ODIFIED JULIAN DATE"..#... AB$:. AB$."" 
. 650.-#... AB$.."1" . AB$.."2" . 650.?#
...G(147):.:.:..O#... AB$."2" . ."INPUT 
MODIFIED JULIAN DATE :"..#... AB$."1" . 
."INPUT JULIAN DATE :"..#...:...#F.. JD.
G#P.. AB$."2" . JD.JD.2400000.5.Y#Z.AX.(
JD.1.5).7..#..BX..((AX..(AX)).7.0.5).1..
$..JD.JD.0.5..$..I..(JD)..$..F.JD.I.'$..
A.I:B.0.E$... I.2299160 . A..((I.1867216
.25).36524.25):B.I.1.A..(A.4).R$ .C.B.15
24..$*.D..((C.122.1).365.25)..$4.E..(365
.25.D)..$>.G..((C.E).30.6001).O$H.DD.C.E
.F..(30.6001.G)..$R.MM.G.13..$\.. G.13.5
 . MM.G.1..$F.YY.D.4716..%P.. MM.2.5 . Y
Y.D.4715."%Z..:.:..F%... "       THE CAL
ENDAR DATE IS".L%....R%... "  ";MO$(MM);
DD;", ";YY,DA$(BX)...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL