/ Garbo / Garbo.cdr / mac / source / intl.sit / Almanac_1.53b1_intl_patch.bin

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 19 41 6c 6d 61 6e 61 | 63 20 31 2e 35 33 62 31 |..Almana|c 1.53b1|
|00000010| 20 69 6e 74 6c 20 70 61 | 74 63 68 00 00 00 00 00 | intl pa|tch.....|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 45 44 49 | 54 00 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 24 fa 00 | 00 01 b6 a0 b3 38 63 a0 |.....$..|.....8c.|
|00000060| b3 38 64 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.8d.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 6f 6e 20 6f 70 65 6e 53 | 74 61 63 6b 0d 20 20 67 |on openS|tack.  g|
|00000090| 6c 6f 62 61 6c 20 66 6f | 72 63 65 2c 69 6e 74 6c |lobal fo|rce,intl|
|000000a0| 20 2d 2d 20 69 6e 74 6c | 0d 20 20 70 75 74 20 30 | -- intl|.  put 0|
|000000b0| 20 69 6e 74 6f 20 66 6f | 72 63 65 0d 20 20 68 69 | into fo|rce.  hi|
|000000c0| 64 65 20 6d 65 73 73 61 | 67 65 20 62 6f 78 0d 20 |de messa|ge box. |
|000000d0| 20 70 75 74 20 74 68 65 | 20 73 65 63 6f 6e 64 73 | put the| seconds|
|000000e0| 2f 38 36 34 30 30 20 2b | 20 31 36 34 38 30 2e 35 |/86400 +| 16480.5|
|000000f0| 20 2b 20 35 2f 32 34 20 | 69 6e 74 6f 20 6a 64 32 | + 5/24 |into jd2|
|00000100| 0d 20 20 70 75 74 20 74 | 72 75 6e 63 28 6a 64 32 |.  put t|runc(jd2|
|00000110| 2b 32 34 30 30 30 30 30 | 30 29 20 2b 31 20 69 6e |+2400000|0) +1 in|
|00000120| 74 6f 20 6a 64 0d 20 20 | 67 65 74 20 74 68 65 20 |to jd.  |get the |
|00000130| 64 61 74 65 0d 20 20 2d | 2d 20 69 6e 74 6c 20 74 |date.  -|- intl t|
|00000140| 6f 20 6e 65 78 74 20 77 | 69 64 67 65 74 0d 20 20 |o next w|idget.  |
|00000150| 69 66 20 69 74 20 63 6f | 6e 74 61 69 6e 73 20 22 |if it co|ntains "|
|00000160| 2e 22 0d 20 20 74 68 65 | 6e 20 70 75 74 20 74 72 |.".  the|n put tr|
|00000170| 75 65 20 69 6e 74 6f 20 | 69 6e 74 6c 0d 20 20 65 |ue into |intl.  e|
|00000180| 6c 73 65 20 70 75 74 20 | 66 61 6c 73 65 20 69 6e |lse put |false in|
|00000190| 74 6f 20 69 6e 74 6c 0d | 20 20 63 6f 6e 76 65 72 |to intl.|  conver|
|000001a0| 74 20 69 74 20 74 6f 20 | 64 61 74 65 49 74 65 6d |t it to |dateItem|
|000001b0| 73 0d 20 20 69 66 20 69 | 6e 74 6c 20 74 68 65 6e |s.  if i|ntl then|
|000001c0| 0d 20 20 20 20 72 65 70 | 65 61 74 20 77 69 74 68 |.    rep|eat with|
|000001d0| 20 69 3d 31 20 74 6f 20 | 6e 75 6d 62 65 72 20 6f | i=1 to |number o|
|000001e0| 66 20 63 68 61 72 73 20 | 6f 66 20 69 74 0d 20 20 |f chars |of it.  |
|000001f0| 20 20 20 20 69 66 20 63 | 68 61 72 20 69 20 6f 66 |    if c|har i of|
|00000200| 20 69 74 20 3d 20 22 2e | 22 20 74 68 65 6e 20 70 | it = ".|" then p|
|00000210| 75 74 20 22 2c 22 20 69 | 6e 74 6f 20 63 68 61 72 |ut "," i|nto char|
|00000220| 20 69 20 6f 66 20 69 74 | 0d 20 20 20 20 65 6e 64 | i of it|.    end|
|00000230| 20 72 65 70 65 61 74 0d | 20 20 20 20 70 75 74 20 | repeat.|    put |
|00000240| 69 74 65 6d 20 31 20 6f | 66 20 69 74 20 69 6e 74 |item 1 o|f it int|
|00000250| 6f 20 64 0d 20 20 20 20 | 70 75 74 20 69 74 65 6d |o d.    |put item|
|00000260| 20 32 20 6f 66 20 69 74 | 20 69 6e 74 6f 20 6d 0d | 2 of it| into m.|
|00000270| 20 20 65 6c 73 65 0d 20 | 20 20 20 70 75 74 20 69 |  else. |   put i|
|00000280| 74 65 6d 20 32 20 6f 66 | 20 69 74 20 69 6e 74 6f |tem 2 of| it into|
|00000290| 20 6d 0d 20 20 20 20 70 | 75 74 20 69 74 65 6d 20 | m.    p|ut item |
|000002a0| 33 20 6f 66 20 69 74 20 | 69 6e 74 6f 20 64 0d 20 |3 of it |into d. |
|000002b0| 20 65 6e 64 20 69 66 0d | 20 20 2d 2d 20 69 6e 74 | end if.|  -- int|
|000002c0| 6c 0d 20 20 70 75 74 20 | 66 61 6c 73 65 20 69 6e |l.  put |false in|
|000002d0| 74 6f 20 76 61 6c 0d 20 | 20 69 66 20 6d 3e 34 20 |to val. | if m>4 |
|000002e0| 61 6e 64 20 6d 3c 3d 31 | 30 20 74 68 65 6e 20 70 |and m<=1|0 then p|
|000002f0| 75 74 20 74 72 75 65 20 | 69 6e 74 6f 20 76 61 6c |ut true |into val|
|00000300| 0d 20 20 70 75 74 20 74 | 72 75 6e 63 28 6a 64 2d |.  put t|runc(jd-|
|00000310| 37 2a 74 72 75 6e 63 28 | 6a 64 2f 37 29 29 20 69 |7*trunc(|jd/7)) i|
|00000320| 6e 74 6f 20 77 0d 20 20 | 2d 2d 20 2d 31 20 61 64 |nto w.  |-- -1 ad|
|00000330| 64 65 64 20 74 6f 20 63 | 6f 72 72 65 63 74 20 66 |ded to c|orrect f|
|00000340| 6f 72 20 31 39 38 39 20 | 76 2e 20 31 2e 35 33 0d |or 1989 |v. 1.53.|
|00000350| 20 20 69 66 20 6d 3d 34 | 20 61 6e 64 20 64 3e 3d |  if m=4| and d>=|
|00000360| 77 2d 31 20 74 68 65 6e | 20 70 75 74 20 74 72 75 |w-1 then| put tru|
|00000370| 65 20 69 6e 74 6f 20 76 | 61 6c 0d 20 20 69 66 20 |e into v|al.  if |
|00000380| 6d 3d 31 30 20 61 6e 64 | 20 28 64 2d 77 29 3e 3d |m=10 and| (d-w)>=|
|00000390| 32 35 20 74 68 65 6e 20 | 70 75 74 20 66 61 6c 73 |25 then |put fals|
|000003a0| 65 20 69 6e 74 6f 20 76 | 61 6c 0d 20 20 2d 2d 20 |e into v|al.  -- |
|000003b0| 66 6f 72 20 76 2e 20 31 | 2e 35 33 2e 2e 2e 0d 20 |for v. 1|.53.... |
|000003c0| 20 73 65 74 20 68 69 6c | 69 74 65 20 6f 66 20 62 | set hil|ite of b|
|000003d0| 6b 67 6e 64 20 62 75 74 | 74 6f 6e 20 22 44 53 54 |kgnd but|ton "DST|
|000003e0| 22 20 74 6f 20 76 61 6c | 0d 20 20 69 66 20 76 61 |" to val|.  if va|
|000003f0| 6c 20 74 68 65 6e 0d 20 | 20 20 20 70 75 74 20 22 |l then. |   put "|
|00000400| 44 22 20 69 6e 74 6f 20 | 63 68 61 72 20 33 20 6f |D" into |char 3 o|
|00000410| 66 20 6c 61 73 74 20 77 | 6f 72 64 20 6f 66 20 63 |f last w|ord of c|
|00000420| 64 20 66 6c 64 20 63 6f | 6f 72 64 73 20 6f 66 20 |d fld co|ords of |
|00000430| 63 64 20 31 0d 20 20 65 | 6c 73 65 0d 20 20 20 20 |cd 1.  e|lse.    |
|00000440| 70 75 74 20 22 53 22 20 | 69 6e 74 6f 20 63 68 61 |put "S" |into cha|
|00000450| 72 20 33 20 6f 66 20 6c | 61 73 74 20 77 6f 72 64 |r 3 of l|ast word|
|00000460| 20 6f 66 20 63 64 20 66 | 6c 64 20 63 6f 6f 72 64 | of cd f|ld coord|
|00000470| 73 20 6f 66 20 63 64 20 | 31 0d 20 20 65 6e 64 20 |s of cd |1.  end |
|00000480| 69 66 0d 20 20 70 75 73 | 68 20 63 61 72 64 0d 20 |if.  pus|h card. |
|00000490| 20 69 66 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f | if the |number o|
|000004a0| 66 20 74 68 69 73 20 63 | 64 20 69 73 20 31 20 74 |f this c|d is 1 t|
|000004b0| 68 65 6e 0d 20 20 20 20 | 70 75 74 20 6c 69 6e 65 |hen.    |put line|
|000004c0| 20 32 20 6f 66 20 63 61 | 72 64 20 66 69 65 6c 64 | 2 of ca|rd field|
|000004d0| 20 22 41 6c 67 6f 6c 22 | 20 69 6e 74 6f 20 65 63 | "Algol"| into ec|
|000004e0| 6c 0d 20 20 20 20 72 65 | 70 65 61 74 0d 20 20 20 |l.    re|peat.   |
|000004f0| 20 20 20 69 66 20 65 63 | 6c 20 3e 20 6a 64 32 20 |   if ec|l > jd2 |
|00000500| 74 68 65 6e 20 65 78 69 | 74 20 72 65 70 65 61 74 |then exi|t repeat|
|00000510| 0d 20 20 20 20 20 20 61 | 64 64 20 32 2e 38 36 37 |.      a|dd 2.867|
|00000520| 33 30 37 35 20 74 6f 20 | 65 63 6c 0d 20 20 20 20 |3075 to |ecl.    |
|00000530| 65 6e 64 20 72 65 70 65 | 61 74 0d 20 20 20 20 73 |end repe|at.    s|
|00000540| 65 74 20 6e 75 6d 62 65 | 72 46 6f 72 6d 61 74 20 |et numbe|rFormat |
|00000550| 74 6f 20 22 30 2e 30 22 | 0d 20 20 20 20 70 75 74 |to "0.0"|.    put|
|00000560| 20 22 4e 65 78 74 20 6d | 69 6e 69 6d 75 6d 20 6f | "Next m|inimum o|
|00000570| 66 20 41 6c 67 6f 6c 20 | 6f 63 63 75 72 73 20 69 |f Algol |occurs i|
|00000580| 6e 22 20 26 26 20 28 65 | 63 6c 2d 6a 64 32 29 2a |n" && (e|cl-jd2)*|
|00000590| 32 34 20 26 26 c2 0d 20 | 20 20 20 22 68 6f 75 72 |24 &&.. |   "hour|
|000005a0| 73 20 61 74 20 4a 44 3d | 22 20 69 6e 74 6f 20 6c |s at JD=|" into l|
|000005b0| 69 6e 65 20 31 20 6f 66 | 20 63 61 72 64 20 66 69 |ine 1 of| card fi|
|000005c0| 65 6c 64 20 41 6c 67 6f | 6c 0d 20 20 20 20 73 65 |eld Algo|l.    se|
|000005d0| 74 20 6e 75 6d 62 65 72 | 46 6f 72 6d 61 74 20 74 |t number|Format t|
|000005e0| 6f 20 22 30 2e 23 23 23 | 22 0d 20 20 20 20 70 75 |o "0.###|".    pu|
|000005f0| 74 20 65 63 6c 2b 32 34 | 30 30 30 30 30 20 61 66 |t ecl+24|00000 af|
|00000600| 74 65 72 20 6c 69 6e 65 | 20 31 20 6f 66 20 63 61 |ter line| 1 of ca|
|00000610| 72 64 20 66 69 65 6c 64 | 20 41 6c 67 6f 6c 0d 20 |rd field| Algol. |
|00000620| 20 20 20 70 75 74 20 65 | 63 6c 20 69 6e 74 6f 20 |   put e|cl into |
|00000630| 6c 69 6e 65 20 32 20 6f | 66 20 63 61 72 64 20 66 |line 2 o|f card f|
|00000640| 69 65 6c 64 20 41 6c 67 | 6f 6c 0d 20 20 65 6e 64 |ield Alg|ol.  end|
|00000650| 20 69 66 0d 65 6e 64 20 | 6f 70 65 6e 53 74 61 63 | if.end |openStac|
|00000660| 6b 0d 0d 66 75 6e 63 74 | 69 6f 6e 20 54 4a 44 44 |k..funct|ion TJDD|
|00000670| 61 74 65 0d 20 20 67 6c | 6f 62 61 6c 20 69 6e 74 |ate.  gl|obal int|
|00000680| 6c 0d 20 20 67 65 74 20 | 74 68 65 20 73 65 63 6f |l.  get |the seco|
|00000690| 6e 64 73 0d 20 20 61 64 | 64 20 38 36 34 30 30 2b |nds.  ad|d 86400+|
|000006a0| 33 36 30 30 2a 28 31 32 | 2b 44 53 54 63 68 65 63 |3600*(12|+DSTchec|
|000006b0| 6b 28 29 29 20 74 6f 20 | 69 74 0d 20 20 2d 2d 20 |k()) to |it.  -- |
|000006c0| 69 6e 74 6c 20 61 64 64 | 20 67 6c 6f 62 61 6c 20 |intl add| global |
|000006d0| 61 6e 64 20 69 66 20 62 | 65 6c 6f 77 0d 20 20 63 |and if b|elow.  c|
|000006e0| 6f 6e 76 65 72 74 20 69 | 74 20 74 6f 20 6c 6f 6e |onvert i|t to lon|
|000006f0| 67 20 64 61 74 65 0d 20 | 20 69 66 20 69 6e 74 6c |g date. | if intl|
|00000700| 20 74 68 65 6e 0d 20 20 | 20 20 70 75 74 20 63 68 | then.  |  put ch|
|00000710| 61 72 20 31 20 74 6f 20 | 28 6f 66 66 73 65 74 28 |ar 1 to |(offset(|
|00000720| 22 2e 22 2c 73 65 63 6f | 6e 64 20 77 6f 72 64 20 |".",seco|nd word |
|00000730| 6f 66 20 69 74 29 2d 31 | 29 20 6f 66 20 73 65 63 |of it)-1|) of sec|
|00000740| 6f 6e 64 20 77 6f 72 64 | 20 6f 66 20 69 74 20 c2 |ond word| of it .|
|00000750| 0d 20 20 20 20 26 26 20 | 74 68 69 72 64 20 77 6f |.    && |third wo|
|00000760| 72 64 20 6f 66 20 69 74 | 20 26 26 20 6c 61 73 74 |rd of it| && last|
|00000770| 20 77 6f 72 64 20 6f 66 | 20 69 74 20 69 6e 74 6f | word of| it into|
|00000780| 20 68 65 0d 20 20 65 6c | 73 65 0d 20 20 20 20 70 | he.  el|se.    p|
|00000790| 75 74 20 63 68 61 72 20 | 31 20 74 6f 20 28 6f 66 |ut char |1 to (of|
|000007a0| 66 73 65 74 28 22 2c 22 | 2c 74 68 69 72 64 20 77 |fset(","|,third w|
|000007b0| 6f 72 64 20 6f 66 20 69 | 74 29 2d 31 29 20 6f 66 |ord of i|t)-1) of|
|000007c0| 20 74 68 69 72 64 20 77 | 6f 72 64 20 6f 66 20 69 | third w|ord of i|
|000007d0| 74 20 c2 0d 20 20 20 20 | 26 26 20 73 65 63 6f 6e |t ..    |&& secon|
|000007e0| 64 20 77 6f 72 64 20 6f | 66 20 69 74 20 26 26 20 |d word o|f it && |
|000007f0| 6c 61 73 74 20 77 6f 72 | 64 20 6f 66 20 69 74 20 |last wor|d of it |
|00000800| 69 6e 74 6f 20 68 65 0d | 20 20 65 6e 64 20 69 66 |into he.|  end if|
|00000810| 0d 20 20 72 65 74 75 72 | 6e 20 68 65 0d 65 6e 64 |.  retur|n he.end|
|00000820| 20 54 4a 44 44 61 74 65 | 0d 0d 66 75 6e 63 74 69 | TJDDate|..functi|
|00000830| 6f 6e 20 67 65 74 44 61 | 74 65 0d 20 20 67 6c 6f |on getDa|te.  glo|
|00000840| 62 61 6c 20 69 6e 74 6c | 0d 20 20 67 65 74 20 74 |bal intl|.  get t|
|00000850| 68 65 20 73 65 63 6f 6e | 64 73 0d 20 20 63 6f 6e |he secon|ds.  con|
|00000860| 76 65 72 74 20 69 74 20 | 74 6f 20 6c 6f 6e 67 20 |vert it |to long |
|00000870| 64 61 74 65 0d 20 20 2d | 2d 20 69 6e 74 6c 20 61 |date.  -|- intl a|
|00000880| 64 64 20 67 6c 6f 62 61 | 6c 20 61 6e 64 20 69 66 |dd globa|l and if|
|00000890| 20 62 65 6c 6f 77 0d 20 | 20 69 66 20 69 6e 74 6c | below. | if intl|
|000008a0| 20 74 68 65 6e 0d 20 20 | 20 20 70 75 74 20 63 68 | then.  |  put ch|
|000008b0| 61 72 20 31 20 74 6f 20 | 28 6f 66 66 73 65 74 28 |ar 1 to |(offset(|
|000008c0| 22 2e 22 2c 73 65 63 6f | 6e 64 20 77 6f 72 64 20 |".",seco|nd word |
|000008d0| 6f 66 20 69 74 29 2d 31 | 29 20 6f 66 20 73 65 63 |of it)-1|) of sec|
|000008e0| 6f 6e 64 20 77 6f 72 64 | 20 6f 66 20 69 74 20 c2 |ond word| of it .|
|000008f0| 0d 20 20 20 20 26 26 20 | 74 68 69 72 64 20 77 6f |.    && |third wo|
|00000900| 72 64 20 6f 66 20 69 74 | 20 26 26 20 6c 61 73 74 |rd of it| && last|
|00000910| 20 77 6f 72 64 20 6f 66 | 20 69 74 20 69 6e 74 6f | word of| it into|
|00000920| 20 68 65 0d 20 20 65 6c | 73 65 0d 20 20 20 20 70 | he.  el|se.    p|
|00000930| 75 74 20 63 68 61 72 20 | 31 20 74 6f 20 28 6f 66 |ut char |1 to (of|
|00000940| 66 73 65 74 28 22 2c 22 | 2c 74 68 69 72 64 20 77 |fset(","|,third w|
|00000950| 6f 72 64 20 6f 66 20 69 | 74 29 2d 31 29 20 6f 66 |ord of i|t)-1) of|
|00000960| 20 74 68 69 72 64 20 77 | 6f 72 64 20 6f 66 20 69 | third w|ord of i|
|00000970| 74 20 c2 0d 20 20 20 20 | 26 26 20 73 65 63 6f 6e |t ..    |&& secon|
|00000980| 64 20 77 6f 72 64 20 6f | 66 20 69 74 20 26 26 20 |d word o|f it && |
|00000990| 6c 61 73 74 20 77 6f 72 | 64 20 6f 66 20 69 74 20 |last wor|d of it |
|000009a0| 69 6e 74 6f 20 68 65 0d | 20 20 65 6e 64 20 69 66 |into he.|  end if|
|000009b0| 0d 20 20 72 65 74 75 72 | 6e 20 68 65 0d 65 6e 64 |.  retur|n he.end|
|000009c0| 20 67 65 74 44 61 74 65 | 0d 0d 66 75 6e 63 74 69 | getDate|..functi|
|000009d0| 6f 6e 20 67 65 74 4a 44 | 44 61 74 65 0d 20 20 67 |on getJD|Date.  g|
|000009e0| 6c 6f 62 61 6c 20 69 6e | 74 6c 0d 20 20 67 65 74 |lobal in|tl.  get|
|000009f0| 20 74 68 65 20 73 65 63 | 6f 6e 64 73 0d 20 20 61 | the sec|onds.  a|
|00000a00| 64 64 20 33 36 30 30 2a | 28 31 32 2b 44 53 54 63 |dd 3600*|(12+DSTc|
|00000a10| 68 65 63 6b 28 29 29 20 | 74 6f 20 69 74 0d 20 20 |heck()) |to it.  |
|00000a20| 63 6f 6e 76 65 72 74 20 | 69 74 20 74 6f 20 6c 6f |convert |it to lo|
|00000a30| 6e 67 20 64 61 74 65 0d | 20 20 2d 2d 20 69 6e 74 |ng date.|  -- int|
|00000a40| 6c 20 61 64 64 20 67 6c | 6f 62 61 6c 20 61 6e 64 |l add gl|obal and|
|00000a50| 20 69 66 20 62 65 6c 6f | 77 0d 20 20 69 66 20 69 | if belo|w.  if i|
|00000a60| 6e 74 6c 20 74 68 65 6e | 0d 20 20 20 20 70 75 74 |ntl then|.    put|
|00000a70| 20 63 68 61 72 20 31 20 | 74 6f 20 28 6f 66 66 73 | char 1 |to (offs|
|00000a80| 65 74 28 22 2e 22 2c 73 | 65 63 6f 6e 64 20 77 6f |et(".",s|econd wo|
|00000a90| 72 64 20 6f 66 20 69 74 | 29 2d 31 29 20 6f 66 20 |rd of it|)-1) of |
|00000aa0| 73 65 63 6f 6e 64 20 77 | 6f 72 64 20 6f 66 20 69 |second w|ord of i|
|00000ab0| 74 20 c2 0d 20 20 20 20 | 26 26 20 74 68 69 72 64 |t ..    |&& third|
|00000ac0| 20 77 6f 72 64 20 6f 66 | 20 69 74 20 26 26 20 6c | word of| it && l|
|00000ad0| 61 73 74 20 77 6f 72 64 | 20 6f 66 20 69 74 20 69 |ast word| of it i|
|00000ae0| 6e 74 6f 20 68 65 0d 20 | 20 65 6c 73 65 0d 20 20 |nto he. | else.  |
|00000af0| 20 20 70 75 74 20 63 68 | 61 72 20 31 20 74 6f 20 |  put ch|ar 1 to |
|00000b00| 28 6f 66 66 73 65 74 28 | 22 2c 22 2c 74 68 69 72 |(offset(|",",thir|
|00000b10| 64 20 77 6f 72 64 20 6f | 66 20 69 74 29 2d 31 29 |d word o|f it)-1)|
|00000b20| 20 6f 66 20 74 68 69 72 | 64 20 77 6f 72 64 20 6f | of thir|d word o|
|00000b30| 66 20 69 74 20 c2 0d 20 | 20 20 20 26 26 20 73 65 |f it .. |   && se|
|00000b40| 63 6f 6e 64 20 77 6f 72 | 64 20 6f 66 20 69 74 20 |cond wor|d of it |
|00000b50| 26 26 20 6c 61 73 74 20 | 77 6f 72 64 20 6f 66 20 |&& last |word of |
|00000b60| 69 74 20 69 6e 74 6f 20 | 68 65 0d 20 20 65 6e 64 |it into |he.  end|
|00000b70| 20 69 66 0d 20 20 72 65 | 74 75 72 6e 20 68 65 0d | if.  re|turn he.|
|00000b80| 65 6e 64 20 67 65 74 4a | 44 44 61 74 65 0d 0d 66 |end getJ|DDate..f|
|00000b90| 75 6e 63 74 69 6f 6e 20 | 67 65 74 55 54 44 61 74 |unction |getUTDat|
|00000ba0| 65 0d 20 20 67 6c 6f 62 | 61 6c 20 69 6e 74 6c 0d |e.  glob|al intl.|
|00000bb0| 20 20 67 65 74 20 74 68 | 65 20 73 65 63 6f 6e 64 |  get th|e second|
|00000bc0| 73 0d 20 20 61 64 64 20 | 33 36 30 30 2a 28 44 53 |s.  add |3600*(DS|
|00000bd0| 54 63 68 65 63 6b 28 29 | 29 20 74 6f 20 69 74 0d |Tcheck()|) to it.|
|00000be0| 20 20 63 6f 6e 76 65 72 | 74 20 69 74 20 74 6f 20 |  conver|t it to |
|00000bf0| 6c 6f 6e 67 20 64 61 74 | 65 0d 20 20 2d 2d 20 69 |long dat|e.  -- i|
|00000c00| 6e 74 6c 20 61 64 64 20 | 67 6c 6f 62 61 6c 20 61 |ntl add |global a|
|00000c10| 6e 64 20 69 66 20 62 65 | 6c 6f 77 0d 20 20 69 66 |nd if be|low.  if|
|00000c20| 20 69 6e 74 6c 20 74 68 | 65 6e 0d 20 20 20 20 70 | intl th|en.    p|
|00000c30| 75 74 20 63 68 61 72 20 | 31 20 74 6f 20 28 6f 66 |ut char |1 to (of|
|00000c40| 66 73 65 74 28 22 2e 22 | 2c 73 65 63 6f 6e 64 20 |fset("."|,second |
|00000c50| 77 6f 72 64 20 6f 66 20 | 69 74 29 2d 31 29 20 6f |word of |it)-1) o|
|00000c60| 66 20 73 65 63 6f 6e 64 | 20 77 6f 72 64 20 6f 66 |f second| word of|
|00000c70| 20 69 74 20 c2 0d 20 20 | 20 20 26 26 20 74 68 69 | it ..  |  && thi|
|00000c80| 72 64 20 77 6f 72 64 20 | 6f 66 20 69 74 20 26 26 |rd word |of it &&|
|00000c90| 20 6c 61 73 74 20 77 6f | 72 64 20 6f 66 20 69 74 | last wo|rd of it|
|00000ca0| 20 69 6e 74 6f 20 68 65 | 0d 20 20 65 6c 73 65 0d | into he|.  else.|
|00000cb0| 20 20 20 20 70 75 74 20 | 63 68 61 72 20 31 20 74 |    put |char 1 t|
|00000cc0| 6f 20 28 6f 66 66 73 65 | 74 28 22 2c 22 2c 74 68 |o (offse|t(",",th|
|00000cd0| 69 72 64 20 77 6f 72 64 | 20 6f 66 20 69 74 29 2d |ird word| of it)-|
|00000ce0| 31 29 20 6f 66 20 74 68 | 69 72 64 20 77 6f 72 64 |1) of th|ird word|
|00000cf0| 20 6f 66 20 69 74 20 c2 | 0d 20 20 20 20 26 26 20 | of it .|.    && |
|00000d00| 73 65 63 6f 6e 64 20 77 | 6f 72 64 20 6f 66 20 69 |second w|ord of i|
|00000d10| 74 20 26 26 20 6c 61 73 | 74 20 77 6f 72 64 20 6f |t && las|t word o|
|00000d20| 66 20 69 74 20 69 6e 74 | 6f 20 68 65 0d 20 20 65 |f it int|o he.  e|
|00000d30| 6e 64 20 69 66 0d 20 20 | 72 65 74 75 72 6e 20 68 |nd if.  |return h|
|00000d40| 65 0d 65 6e 64 20 67 65 | 74 55 54 44 61 74 65 0d |e.end ge|tUTDate.|
|00000d50| 0d 66 75 6e 63 74 69 6f | 6e 20 44 53 54 63 68 65 |.functio|n DSTche|
|00000d60| 63 6b 0d 20 20 67 65 74 | 20 66 69 72 73 74 20 77 |ck.  get| first w|
|00000d70| 6f 72 64 20 6f 66 20 6c | 69 6e 65 20 34 20 6f 66 |ord of l|ine 4 of|
|00000d80| 20 63 61 72 64 20 66 69 | 65 6c 64 20 43 6f 6f 72 | card fi|eld Coor|
|00000d90| 64 73 20 6f 66 20 66 69 | 72 73 74 20 63 64 0d 20 |ds of fi|rst cd. |
|00000da0| 20 69 66 20 68 69 6c 69 | 74 65 20 6f 66 20 62 6b | if hili|te of bk|
|00000db0| 67 6e 64 20 62 75 74 74 | 6f 6e 20 22 44 53 54 22 |gnd butt|on "DST"|
|00000dc0| 0d 20 20 74 68 65 6e 20 | 70 75 74 20 69 74 2d 31 |.  then |put it-1|
|00000dd0| 20 69 6e 74 6f 20 74 65 | 6d 70 0d 20 20 65 6c 73 | into te|mp.  els|
|00000de0| 65 20 70 75 74 20 69 74 | 20 69 6e 74 6f 20 74 65 |e put it| into te|
|00000df0| 6d 70 0d 20 20 72 65 74 | 75 72 6e 20 74 65 6d 70 |mp.  ret|urn temp|
|00000e00| 0d 65 6e 64 20 44 53 54 | 63 68 65 63 6b 0d 0d 66 |.end DST|check..f|
|00000e10| 75 6e 63 74 69 6f 6e 20 | 73 67 6e 20 78 0d 20 20 |unction |sgn x.  |
|00000e20| 69 66 20 78 3c 30 20 74 | 68 65 6e 0d 20 20 20 20 |if x<0 t|hen.    |
|00000e30| 67 65 74 20 2d 31 0d 20 | 20 65 6c 73 65 20 69 66 |get -1. | else if|
|00000e40| 20 78 3d 30 20 74 68 65 | 6e 0d 20 20 20 20 67 65 | x=0 the|n.    ge|
|00000e50| 74 20 30 0d 20 20 65 6c | 73 65 20 69 66 20 78 3e |t 0.  el|se if x>|
|00000e60| 30 20 74 68 65 6e 0d 20 | 20 20 20 67 65 74 20 31 |0 then. |   get 1|
|00000e70| 0d 20 20 65 6e 64 20 69 | 66 0d 20 20 72 65 74 75 |.  end i|f.  retu|
|00000e80| 72 6e 20 69 74 0d 65 6e | 64 20 73 67 6e 0d 0d 6f |rn it.en|d sgn..o|
|00000e90| 6e 20 64 61 79 4f 66 59 | 65 61 72 0d 20 20 2d 2d |n dayOfY|ear.  --|
|00000ea0| 20 72 65 74 75 72 6e 73 | 20 64 61 79 2c 20 64 61 | returns| day, da|
|00000eb0| 79 55 54 20 61 73 20 6e | 75 6d 62 65 72 20 6f 66 |yUT as n|umber of|
|00000ec0| 20 64 61 79 20 69 6e 20 | 79 65 61 72 0d 20 20 2d | day in |year.  -|
|00000ed0| 2d 20 69 6e 74 6c 20 66 | 69 78 2e 2e 2e 0d 20 20 |- intl f|ix....  |
|00000ee0| 67 6c 6f 62 61 6c 20 64 | 61 79 55 54 2c 64 61 79 |global d|ayUT,day|
|00000ef0| 2c 64 61 79 53 65 63 73 | 2c 69 6e 74 6c 0d 20 20 |,daySecs|,intl.  |
|00000f00| 70 75 74 20 74 68 65 20 | 64 61 74 65 20 69 6e 74 |put the |date int|
|00000f10| 6f 20 64 61 79 73 65 63 | 73 0d 20 20 2d 2d 20 69 |o daysec|s.  -- i|
|00000f20| 6e 74 6c 20 61 64 64 20 | 67 6c 6f 62 61 6c 20 61 |ntl add |global a|
|00000f30| 6e 64 20 69 66 2f 72 65 | 70 65 61 74 20 62 65 6c |nd if/re|peat bel|
|00000f40| 6f 77 0d 20 20 69 66 20 | 69 6e 74 6c 20 74 68 65 |ow.  if |intl the|
|00000f50| 6e 0d 20 20 20 20 72 65 | 70 65 61 74 20 77 69 74 |n.    re|peat wit|
|00000f60| 68 20 69 3d 31 20 74 6f | 20 6e 75 6d 62 65 72 20 |h i=1 to| number |
|00000f70| 6f 66 20 63 68 61 72 73 | 20 6f 66 20 64 61 79 73 |of chars| of days|
|00000f80| 65 63 73 0d 20 20 20 20 | 20 20 69 66 20 63 68 61 |ecs.    |  if cha|
|00000f90| 72 20 69 20 6f 66 20 64 | 61 79 73 65 63 73 20 3d |r i of d|aysecs =|
|00000fa0| 20 22 2e 22 20 74 68 65 | 6e 20 70 75 74 20 22 2f | "." the|n put "/|
|00000fb0| 22 20 69 6e 74 6f 20 63 | 68 61 72 20 69 20 6f 66 |" into c|har i of|
|00000fc0| 20 64 61 79 73 65 63 73 | 0d 20 20 20 20 65 6e 64 | daysecs|.    end|
|00000fd0| 20 72 65 70 65 61 74 0d | 20 20 65 6e 64 20 69 66 | repeat.|  end if|
|00000fe0| 0d 20 20 63 6f 6e 76 65 | 72 74 20 64 61 79 53 65 |.  conve|rt daySe|
|00000ff0| 63 73 20 74 6f 20 73 65 | 63 6f 6e 64 73 0d 20 20 |cs to se|conds.  |
|00001000| 70 75 74 20 6e 75 6d 62 | 65 72 20 6f 66 20 63 68 |put numb|er of ch|
|00001010| 61 72 73 20 6f 66 20 74 | 68 65 20 64 61 74 65 20 |ars of t|he date |
|00001020| 69 6e 74 6f 20 6e 64 61 | 74 65 0d 20 20 70 75 74 |into nda|te.  put|
|00001030| 20 22 31 32 2f 33 31 2f | 22 20 26 20 28 63 68 61 | "12/31/|" & (cha|
|00001040| 72 20 6e 64 61 74 65 2d | 31 20 74 6f 20 6e 64 61 |r ndate-|1 to nda|
|00001050| 74 65 20 6f 66 20 74 68 | 65 20 64 61 74 65 29 2d |te of th|e date)-|
|00001060| 31 20 69 6e 74 6f 20 4a | 61 6e 30 0d 20 20 63 6f |1 into J|an0.  co|
|00001070| 6e 76 65 72 74 20 4a 61 | 6e 30 20 74 6f 20 73 65 |nvert Ja|n0 to se|
|00001080| 63 6f 6e 64 73 0d 20 20 | 70 75 74 20 28 64 61 79 |conds.  |put (day|
|00001090| 53 65 63 73 2d 4a 61 6e | 30 29 2f 38 36 34 30 30 |Secs-Jan|0)/86400|
|000010a0| 20 69 6e 74 6f 20 64 61 | 79 0d 20 20 70 75 74 20 | into da|y.  put |
|000010b0| 28 64 61 79 53 65 63 73 | 2d 4a 61 6e 30 2b 33 36 |(daySecs|-Jan0+36|
|000010c0| 30 30 2a 44 53 54 63 68 | 65 63 6b 28 29 29 2f 38 |00*DSTch|eck())/8|
|000010d0| 36 34 30 30 20 69 6e 74 | 6f 20 64 61 79 55 54 0d |6400 int|o dayUT.|
|000010e0| 65 6e 64 20 64 61 79 4f | 66 59 65 61 72 0d 0d 6f |end dayO|fYear..o|
|000010f0| 6e 20 63 68 65 62 20 61 | 2c 62 2c 63 0d 20 20 67 |n cheb a|,b,c.  g|
|00001100| 6c 6f 62 61 6c 20 78 2c | 78 61 2c 78 62 0d 20 20 |lobal x,|xa,xb.  |
|00001110| 70 75 74 20 32 2a 78 2a | 61 2d 62 2b 63 20 69 6e |put 2*x*|a-b+c in|
|00001120| 74 6f 20 74 65 6d 70 0d | 20 20 70 75 74 20 61 20 |to temp.|  put a |
|00001130| 69 6e 74 6f 20 78 62 0d | 20 20 70 75 74 20 74 65 |into xb.|  put te|
|00001140| 6d 70 20 69 6e 74 6f 20 | 78 61 0d 65 6e 64 20 63 |mp into |xa.end c|
|00001150| 68 65 62 0d 0d 6f 6e 20 | 55 54 0d 20 20 67 6c 6f |heb..on |UT.  glo|
|00001160| 62 61 6c 20 64 61 79 2c | 64 61 79 53 65 63 73 2c |bal day,|daySecs,|
|00001170| 78 2c 78 61 2c 78 62 2c | 6d 0d 20 20 64 61 79 4f |x,xa,xb,|m.  dayO|
|00001180| 66 59 65 61 72 20 2d 2d | 20 67 65 74 73 20 64 61 |fYear --| gets da|
|00001190| 79 53 65 63 73 0d 20 20 | 67 65 74 20 28 28 74 68 |ySecs.  |get ((th|
|000011a0| 65 20 73 65 63 6f 6e 64 | 73 2d 64 61 79 53 65 63 |e second|s-daySec|
|000011b0| 73 29 2f 33 36 30 30 2b | 44 53 54 63 68 65 63 6b |s)/3600+|DSTcheck|
|000011c0| 28 29 29 6d 6f 64 20 32 | 34 0d 20 20 70 75 74 20 |())mod 2|4.  put |
|000011d0| 74 72 75 6e 63 28 69 74 | 29 20 69 6e 74 6f 20 68 |trunc(it|) into h|
|000011e0| 0d 20 20 70 75 74 20 74 | 72 75 6e 63 28 36 30 2a |.  put t|runc(60*|
|000011f0| 28 69 74 2d 68 29 29 20 | 69 6e 74 6f 20 6d 0d 20 |(it-h)) |into m. |
|00001200| 20 69 66 20 6d 3c 31 30 | 20 74 68 65 6e 20 70 75 | if m<10| then pu|
|00001210| 74 20 22 30 22 20 62 65 | 66 6f 72 65 20 6d 0d 20 |t "0" be|fore m. |
|00001220| 20 70 75 74 20 22 55 6e | 69 76 65 72 73 61 6c 20 | put "Un|iversal |
|00001230| 54 69 6d 65 20 3d 20 22 | 26 20 68 20 26 22 3a 22 |Time = "|& h &":"|
|00001240| 20 26 20 6d 20 69 6e 74 | 6f 20 6c 69 6e 65 20 31 | & m int|o line 1|
|00001250| 20 6f 66 20 66 69 65 6c | 64 20 31 0d 20 20 70 75 | of fiel|d 1.  pu|
|00001260| 74 20 69 74 20 69 6e 74 | 6f 20 6c 69 6e 65 20 32 |t it int|o line 2|
|00001270| 20 6f 66 20 66 69 65 6c | 64 20 31 0d 65 6e 64 20 | of fiel|d 1.end |
|00001280| 55 54 0d 0d 6f 6e 20 53 | 54 0d 20 20 67 6c 6f 62 |UT..on S|T.  glob|
|00001290| 61 6c 20 64 61 79 2c 64 | 61 79 53 65 63 73 2c 78 |al day,d|aySecs,x|
|000012a0| 2c 78 61 2c 78 62 2c 64 | 61 79 55 54 0d 20 20 64 |,xa,xb,d|ayUT.  d|
|000012b0| 61 79 4f 66 59 65 61 72 | 20 2d 2d 20 67 65 74 73 |ayOfYear| -- gets|
|000012c0| 20 64 61 79 0d 20 20 70 | 75 74 20 28 64 61 79 55 | day.  p|ut (dayU|
|000012d0| 54 2d 31 29 2f 31 38 33 | 2d 31 20 69 6e 74 6f 20 |T-1)/183|-1 into |
|000012e0| 78 0d 20 20 70 75 74 20 | 30 20 69 6e 74 6f 20 61 |x.  put |0 into a|
|000012f0| 0d 20 20 70 75 74 20 30 | 20 69 6e 74 6f 20 62 0d |.  put 0| into b.|
|00001300| 20 20 70 75 74 20 37 20 | 69 6e 74 6f 20 69 0d 20 |  put 7 |into i. |
|00001310| 20 72 65 70 65 61 74 20 | 75 6e 74 69 6c 20 69 3d | repeat |until i=|
|00001320| 30 0d 20 20 20 20 63 68 | 65 62 20 61 2c 62 2c 77 |0.    ch|eb a,b,w|
|00001330| 6f 72 64 20 69 2b 31 20 | 6f 66 20 63 61 72 64 20 |ord i+1 |of card |
|00001340| 66 69 65 6c 64 20 22 53 | 69 64 65 72 65 61 6c 20 |field "S|idereal |
|00001350| 43 68 65 62 22 20 6f 66 | 20 63 61 72 64 20 31 0d |Cheb" of| card 1.|
|00001360| 20 20 20 20 70 75 74 20 | 78 61 20 69 6e 74 6f 20 |    put |xa into |
|00001370| 61 0d 20 20 20 20 70 75 | 74 20 78 62 20 69 6e 74 |a.    pu|t xb int|
|00001380| 6f 20 62 0d 20 20 20 20 | 73 75 62 74 72 61 63 74 |o b.    |subtract|
|00001390| 20 31 20 66 72 6f 6d 20 | 69 0d 20 20 65 6e 64 20 | 1 from |i.  end |
|000013a0| 72 65 70 65 61 74 0d 20 | 20 70 75 74 20 78 62 20 |repeat. | put xb |
|000013b0| 69 6e 74 6f 20 62 32 0d | 20 20 63 68 65 62 20 61 |into b2.|  cheb a|
|000013c0| 2c 62 2c 77 6f 72 64 20 | 31 20 6f 66 20 63 61 72 |,b,word |1 of car|
|000013d0| 64 20 66 69 65 6c 64 20 | 22 53 69 64 65 72 65 61 |d field |"Siderea|
|000013e0| 6c 20 43 68 65 62 22 20 | 6f 66 20 63 61 72 64 20 |l Cheb" |of card |
|000013f0| 31 0d 20 20 67 65 74 20 | 28 28 78 61 2d 62 32 29 |1.  get |((xa-b2)|
|00001400| 2f 32 2b 28 28 74 68 65 | 20 73 65 63 6f 6e 64 73 |/2+((the| seconds|
|00001410| 2d 64 61 79 53 65 63 73 | 29 2f 33 36 30 30 2b 44 |-daySecs|)/3600+D|
|00001420| 53 54 63 68 65 63 6b 28 | 29 29 2a 31 2e 30 30 32 |STcheck(|))*1.002|
|00001430| 37 33 37 39 31 2d c2 0d | 20 20 28 6c 69 6e 65 20 |73791-..|  (line |
|00001440| 32 20 6f 66 20 63 61 72 | 64 20 66 69 65 6c 64 20 |2 of car|d field |
|00001450| 22 63 6f 6f 72 64 73 22 | 20 6f 66 20 63 61 72 64 |"coords"| of card|
|00001460| 20 31 29 2f 31 35 2b 32 | 34 29 20 6d 6f 64 20 32 | 1)/15+2|4) mod 2|
|00001470| 34 0d 20 20 70 75 74 20 | 74 72 75 6e 63 28 69 74 |4.  put |trunc(it|
|00001480| 29 20 69 6e 74 6f 20 68 | 0d 20 20 70 75 74 20 74 |) into h|.  put t|
|00001490| 72 75 6e 63 28 36 30 2a | 28 69 74 2d 68 29 29 20 |runc(60*|(it-h)) |
|000014a0| 69 6e 74 6f 20 6d 0d 20 | 20 69 66 20 6d 3c 31 30 |into m. | if m<10|
|000014b0| 20 74 68 65 6e 20 70 75 | 74 20 22 30 22 20 62 65 | then pu|t "0" be|
|000014c0| 66 6f 72 65 20 6d 0d 20 | 20 70 75 74 20 22 53 69 |fore m. | put "Si|
|000014d0| 64 65 72 65 61 6c 20 54 | 69 6d 65 20 3d 20 22 26 |dereal T|ime = "&|
|000014e0| 20 68 20 26 22 3a 22 20 | 26 20 6d 20 69 6e 74 6f | h &":" |& m into|
|000014f0| 20 6c 69 6e 65 20 31 20 | 6f 66 20 66 69 65 6c 64 | line 1 |of field|
|00001500| 20 32 0d 20 20 70 75 74 | 20 69 74 20 69 6e 74 6f | 2.  put| it into|
|00001510| 20 6c 69 6e 65 20 32 20 | 6f 66 20 66 69 65 6c 64 | line 2 |of field|
|00001520| 20 32 0d 65 6e 64 20 53 | 54 0d 0d 6f 6e 20 68 6d | 2.end S|T..on hm|
|00001530| 20 64 65 63 76 0d 20 20 | 67 6c 6f 62 61 6c 20 69 | decv.  |global i|
|00001540| 74 2c 68 2c 6d 0d 20 20 | 70 75 74 20 74 72 75 6e |t,h,m.  |put trun|
|00001550| 63 28 69 74 29 20 69 6e | 74 6f 20 68 0d 20 20 70 |c(it) in|to h.  p|
|00001560| 75 74 20 74 72 75 6e 63 | 28 36 30 2a 28 69 74 2d |ut trunc|(60*(it-|
|00001570| 68 29 29 20 69 6e 74 6f | 20 6d 0d 20 20 69 66 20 |h)) into| m.  if |
|00001580| 64 65 63 76 20 74 68 65 | 6e 20 70 75 74 20 61 62 |decv the|n put ab|
|00001590| 73 28 6d 29 20 69 6e 74 | 6f 20 6d 0d 20 20 69 66 |s(m) int|o m.  if|
|000015a0| 20 6d 3c 31 30 20 74 68 | 65 6e 20 70 75 74 20 22 | m<10 th|en put "|
|000015b0| 30 22 20 62 65 66 6f 72 | 65 20 6d 0d 65 6e 64 20 |0" befor|e m.end |
|000015c0| 68 6d 0d 0d 6f 6e 20 63 | 61 6c 63 20 6e 75 6d 2c |hm..on c|alc num,|
|000015d0| 66 6f 72 63 65 0d 20 20 | 73 65 74 20 63 75 72 73 |force.  |set curs|
|000015e0| 6f 72 20 74 6f 20 31 30 | 30 31 0d 20 20 2d 2d 20 |or to 10|01.  -- |
|000015f0| 63 61 6c 63 73 20 72 61 | 20 61 6e 64 20 64 65 63 |calcs ra| and dec|
|00001600| 2c 20 66 6f 72 63 65 20 | 3d 31 20 6d 65 61 6e 73 |, force |=1 means|
|00001610| 20 64 6f 20 69 74 20 61 | 6e 79 77 61 79 0d 20 20 | do it a|nyway.  |
|00001620| 70 75 74 20 70 69 2f 31 | 38 30 20 69 6e 74 6f 20 |put pi/1|80 into |
|00001630| 66 61 63 0d 20 20 67 6c | 6f 62 61 6c 20 64 61 79 |fac.  gl|obal day|
|00001640| 2c 64 61 79 53 65 63 73 | 2c 78 2c 78 61 2c 78 62 |,daySecs|,x,xa,xb|
|00001650| 2c 64 61 79 55 54 2c 69 | 74 2c 68 2c 6d 2c 6d 6f |,dayUT,i|t,h,m,mo|
|00001660| 64 65 0d 20 20 64 61 79 | 4f 66 59 65 61 72 20 2d |de.  day|OfYear -|
|00001670| 2d 20 67 65 74 73 20 64 | 61 79 2c 64 61 79 55 54 |- gets d|ay,dayUT|
|00001680| 0d 20 20 67 65 74 20 6c | 69 6e 65 20 33 20 6f 66 |.  get l|ine 3 of|
|00001690| 20 66 69 65 6c 64 20 31 | 0d 20 20 70 75 74 20 66 | field 1|.  put f|
|000016a0| 61 63 2a 28 6c 69 6e 65 | 20 31 20 6f 66 20 63 61 |ac*(line| 1 of ca|
|000016b0| 72 64 20 66 69 65 6c 64 | 20 22 43 6f 6f 72 64 73 |rd field| "Coords|
|000016c0| 22 20 6f 66 20 63 61 72 | 64 20 31 29 20 69 6e 74 |" of car|d 1) int|
|000016d0| 6f 20 6c 61 74 0d 20 20 | 69 66 20 28 69 74 3d 74 |o lat.  |if (it=t|
|000016e0| 72 75 6e 63 28 64 61 79 | 55 54 29 20 61 6e 64 20 |runc(day|UT) and |
|000016f0| 74 68 65 20 6f 70 74 69 | 6f 6e 6b 65 79 20 69 73 |the opti|onkey is|
|00001700| 20 75 70 29 20 61 6e 64 | 20 66 6f 72 63 65 3d 30 | up) and| force=0|
|00001710| 20 74 68 65 6e 0d 20 20 | 20 20 70 75 74 20 6c 69 | then.  |  put li|
|00001720| 6e 65 20 35 20 6f 66 20 | 66 69 65 6c 64 20 35 20 |ne 5 of |field 5 |
|00001730| 69 6e 74 6f 20 64 72 61 | 0d 20 20 20 20 70 75 74 |into dra|.    put|
|00001740| 20 28 6c 69 6e 65 20 36 | 20 6f 66 20 66 69 65 6c | (line 6| of fiel|
|00001750| 64 20 35 29 2a 66 61 63 | 20 69 6e 74 6f 20 64 65 |d 5)*fac| into de|
|00001760| 63 0d 20 20 20 20 70 75 | 74 20 6c 69 6e 65 20 33 |c.    pu|t line 3|
|00001770| 20 6f 66 20 66 69 65 6c | 64 20 36 20 69 6e 74 6f | of fiel|d 6 into|
|00001780| 20 61 72 67 0d 20 20 65 | 6c 73 65 0d 20 20 20 20 | arg.  e|lse.    |
|00001790| 73 65 74 20 63 75 72 73 | 6f 72 20 74 6f 20 31 30 |set curs|or to 10|
|000017a0| 30 32 0d 20 20 20 20 70 | 75 74 20 74 72 75 6e 63 |02.    p|ut trunc|
|000017b0| 28 64 61 79 55 54 29 20 | 69 6e 74 6f 20 6c 69 6e |(dayUT) |into lin|
|000017c0| 65 20 33 20 6f 66 20 66 | 69 65 6c 64 20 31 0d 20 |e 3 of f|ield 1. |
|000017d0| 20 20 20 70 75 74 20 28 | 64 61 79 55 54 2b 28 28 |   put (|dayUT+((|
|000017e0| 74 68 65 20 73 65 63 6f | 6e 64 73 2d 64 61 79 53 |the seco|nds-dayS|
|000017f0| 65 63 73 29 2f 33 36 30 | 30 2b 44 53 54 63 68 65 |ecs)/360|0+DSTche|
|00001800| 63 6b 28 29 29 2f 32 34 | 2d 31 29 2f 31 38 33 2d |ck())/24|-1)/183-|
|00001810| 31 20 c2 0d 20 20 20 20 | 69 6e 74 6f 20 78 0d 20 |1 ..    |into x. |
|00001820| 20 20 20 70 75 74 20 30 | 20 69 6e 74 6f 20 61 0d |   put 0| into a.|
|00001830| 20 20 20 20 70 75 74 20 | 30 20 69 6e 74 6f 20 62 |    put |0 into b|
|00001840| 0d 20 20 20 20 70 75 74 | 20 6e 75 6d 20 69 6e 74 |.    put| num int|
|00001850| 6f 20 69 0d 20 20 20 20 | 72 65 70 65 61 74 20 75 |o i.    |repeat u|
|00001860| 6e 74 69 6c 20 69 3d 30 | 0d 20 20 20 20 20 20 73 |ntil i=0|.      s|
|00001870| 65 74 20 63 75 72 73 6f | 72 20 74 6f 20 62 75 73 |et curso|r to bus|
|00001880| 79 0d 20 20 20 20 20 20 | 63 68 65 62 20 61 2c 62 |y.      |cheb a,b|
|00001890| 2c 77 6f 72 64 20 69 2b | 31 20 6f 66 20 66 69 65 |,word i+|1 of fie|
|000018a0| 6c 64 20 33 0d 20 20 20 | 20 20 20 70 75 74 20 78 |ld 3.   |   put x|
|000018b0| 61 20 69 6e 74 6f 20 61 | 0d 20 20 20 20 20 20 70 |a into a|.      p|
|000018c0| 75 74 20 78 62 20 69 6e | 74 6f 20 62 0d 20 20 20 |ut xb in|to b.   |
|000018d0| 20 20 20 73 75 62 74 72 | 61 63 74 20 31 20 66 72 |   subtr|act 1 fr|
|000018e0| 6f 6d 20 69 0d 20 20 20 | 20 65 6e 64 20 72 65 70 |om i.   | end rep|
|000018f0| 65 61 74 0d 20 20 20 20 | 70 75 74 20 78 62 20 69 |eat.    |put xb i|
|00001900| 6e 74 6f 20 62 32 0d 20 | 20 20 20 63 68 65 62 20 |nto b2. |   cheb |
|00001910| 61 2c 62 2c 77 6f 72 64 | 20 31 20 6f 66 20 66 69 |a,b,word| 1 of fi|
|00001920| 65 6c 64 20 33 0d 20 20 | 20 20 67 65 74 20 28 28 |eld 3.  |  get ((|
|00001930| 78 61 2d 62 32 29 2f 32 | 2b 34 38 29 20 6d 6f 64 |xa-b2)/2|+48) mod|
|00001940| 20 32 34 0d 20 20 20 20 | 70 75 74 20 69 74 2a 31 | 24.    |put it*1|
|00001950| 35 20 69 6e 74 6f 20 64 | 72 61 0d 20 20 20 20 70 |5 into d|ra.    p|
|00001960| 75 74 20 64 72 61 20 69 | 6e 74 6f 20 6c 69 6e 65 |ut dra i|nto line|
|00001970| 20 35 20 6f 66 20 66 69 | 65 6c 64 20 35 0d 20 20 | 5 of fi|eld 5.  |
|00001980| 20 20 68 6d 20 66 61 6c | 73 65 0d 20 20 20 20 70 |  hm fal|se.    p|
|00001990| 75 74 20 73 68 6f 72 74 | 20 6e 61 6d 65 20 6f 66 |ut short| name of|
|000019a0| 20 74 68 69 73 20 63 61 | 72 64 20 26 22 20 52 2e | this ca|rd &" R.|
|000019b0| 41 2e 20 3d 20 22 26 20 | 68 20 26 22 68 20 22 20 |A. = "& |h &"h " |
|000019c0| 26 20 6d 20 26 22 6d 22 | 69 6e 74 6f c2 0d 20 20 |& m &"m"|into..  |
|000019d0| 20 20 6c 69 6e 65 20 31 | 20 6f 66 20 66 69 65 6c |  line 1| of fiel|
|000019e0| 64 20 35 0d 20 20 20 20 | 70 75 74 20 30 20 69 6e |d 5.    |put 0 in|
|000019f0| 74 6f 20 61 0d 20 20 20 | 20 70 75 74 20 30 20 69 |to a.   | put 0 i|
|00001a00| 6e 74 6f 20 62 0d 20 20 | 20 20 70 75 74 20 6e 75 |nto b.  |  put nu|
|00001a10| 6d 20 69 6e 74 6f 20 69 | 0d 20 20 20 20 72 65 70 |m into i|.    rep|
|00001a20| 65 61 74 20 75 6e 74 69 | 6c 20 69 3d 30 0d 20 20 |eat unti|l i=0.  |
|00001a30| 20 20 20 20 73 65 74 20 | 63 75 72 73 6f 72 20 74 |    set |cursor t|
|00001a40| 6f 20 62 75 73 79 0d 20 | 20 20 20 20 20 63 68 65 |o busy. |     che|
|00001a50| 62 20 61 2c 62 2c 77 6f | 72 64 20 69 2b 31 20 6f |b a,b,wo|rd i+1 o|
|00001a60| 66 20 66 69 65 6c 64 20 | 34 0d 20 20 20 20 20 20 |f field |4.      |
|00001a70| 70 75 74 20 78 61 20 69 | 6e 74 6f 20 61 0d 20 20 |put xa i|nto a.  |
|00001a80| 20 20 20 20 70 75 74 20 | 78 62 20 69 6e 74 6f 20 |    put |xb into |
|00001a90| 62 0d 20 20 20 20 20 20 | 73 75 62 74 72 61 63 74 |b.      |subtract|
|00001aa0| 20 31 20 66 72 6f 6d 20 | 69 0d 20 20 20 20 65 6e | 1 from |i.    en|
|00001ab0| 64 20 72 65 70 65 61 74 | 0d 20 20 20 20 70 75 74 |d repeat|.    put|
|00001ac0| 20 78 62 20 69 6e 74 6f | 20 62 32 0d 20 20 20 20 | xb into| b2.    |
|00001ad0| 63 68 65 62 20 61 2c 62 | 2c 77 6f 72 64 20 31 20 |cheb a,b|,word 1 |
|00001ae0| 6f 66 20 66 69 65 6c 64 | 20 34 0d 20 20 20 20 67 |of field| 4.    g|
|00001af0| 65 74 20 28 78 61 2d 62 | 32 29 2f 32 0d 20 20 20 |et (xa-b|2)/2.   |
|00001b00| 20 70 75 74 20 69 74 2a | 66 61 63 20 69 6e 74 6f | put it*|fac into|
|00001b10| 20 64 65 63 0d 20 20 20 | 20 70 75 74 20 69 74 20 | dec.   | put it |
|00001b20| 69 6e 74 6f 20 6c 69 6e | 65 20 36 20 6f 66 20 66 |into lin|e 6 of f|
|00001b30| 69 65 6c 64 20 35 0d 20 | 20 20 20 70 75 74 20 65 |ield 5. |   put e|
|00001b40| 6d 70 74 79 20 69 6e 74 | 6f 20 73 69 67 6e 0d 20 |mpty int|o sign. |
|00001b50| 20 20 20 69 66 20 69 74 | 3c 30 20 61 6e 64 20 69 |   if it|<0 and i|
|00001b60| 74 3e 2d 31 20 74 68 65 | 6e 20 70 75 74 20 22 2d |t>-1 the|n put "-|
|00001b70| 22 20 69 6e 74 6f 20 73 | 69 67 6e 0d 20 20 20 20 |" into s|ign.    |
|00001b80| 69 66 20 69 74 3e 30 20 | 74 68 65 6e 20 70 75 74 |if it>0 |then put|
|00001b90| 20 22 2b 22 20 69 6e 74 | 6f 20 73 69 67 6e 0d 20 | "+" int|o sign. |
|00001ba0| 20 20 20 68 6d 20 74 72 | 75 65 0d 20 20 20 20 70 |   hm tr|ue.    p|
|00001bb0| 75 74 20 73 68 6f 72 74 | 20 6e 61 6d 65 20 6f 66 |ut short| name of|
|00001bc0| 20 74 68 69 73 20 63 61 | 72 64 26 22 20 44 65 63 | this ca|rd&" Dec|
|00001bd0| 2e 20 20 3d 20 22 26 73 | 69 67 6e 26 68 26 22 a1 |.  = "&s|ign&h&".|
|00001be0| 20 22 26 6d 26 22 27 22 | 20 c2 0d 20 20 20 20 69 | "&m&"'"| ..    i|
|00001bf0| 6e 74 6f 20 6c 69 6e 65 | 20 32 20 6f 66 20 66 69 |nto line| 2 of fi|
|00001c00| 65 6c 64 20 35 0d 20 20 | 20 20 0d 20 20 20 20 69 |eld 5.  |  .    i|
|00001c10| 66 20 22 53 75 6e 22 20 | 69 73 20 69 6e 20 73 68 |f "Sun" |is in sh|
|00001c20| 6f 72 74 20 6e 61 6d 65 | 20 6f 66 20 74 68 69 73 |ort name| of this|
|00001c30| 20 63 61 72 64 20 74 68 | 65 6e 0d 20 20 20 20 20 | card th|en.     |
|00001c40| 20 67 65 74 20 28 2d 2e | 32 30 37 39 31 2d 73 69 | get (-.|20791-si|
|00001c50| 6e 28 6c 61 74 29 2a 73 | 69 6e 28 64 65 63 29 29 |n(lat)*s|in(dec))|
|00001c60| 2f 28 63 6f 73 28 6c 61 | 74 29 2a 63 6f 73 28 64 |/(cos(la|t)*cos(d|
|00001c70| 65 63 29 29 0d 20 20 20 | 20 20 20 70 75 74 20 61 |ec)).   |   put a|
|00001c80| 62 73 28 61 74 61 6e 28 | 73 71 72 74 28 31 2d 69 |bs(atan(|sqrt(1-i|
|00001c90| 74 2a 69 74 29 2f 69 74 | 29 29 20 69 6e 74 6f 20 |t*it)/it|)) into |
|00001ca0| 61 6e 67 0d 20 20 20 20 | 20 20 69 66 20 2d 2e 32 |ang.    |  if -.2|
|00001cb0| 30 37 39 31 3c 73 69 6e | 28 6c 61 74 29 2a 73 69 |0791<sin|(lat)*si|
|00001cc0| 6e 28 64 65 63 29 20 74 | 68 65 6e 20 70 75 74 20 |n(dec) t|hen put |
|00001cd0| 70 69 2d 61 6e 67 20 69 | 6e 74 6f 20 61 6e 67 0d |pi-ang i|nto ang.|
|00001ce0| 20 20 20 20 20 20 70 75 | 74 20 61 6e 67 2f 66 61 |      pu|t ang/fa|
|00001cf0| 63 2f 31 35 20 69 6e 74 | 6f 20 64 65 6c 74 61 0d |c/15 int|o delta.|
|00001d00| 20 20 20 20 20 20 70 75 | 74 20 28 64 72 61 2f 31 |      pu|t (dra/1|
|00001d10| 35 2b 28 6c 69 6e 65 20 | 32 20 6f 66 20 66 69 65 |5+(line |2 of fie|
|00001d20| 6c 64 20 31 29 2d 6c 69 | 6e 65 20 32 20 6f 66 20 |ld 1)-li|ne 2 of |
|00001d30| 66 69 65 6c 64 20 32 2b | 32 34 2d 44 53 54 63 68 |field 2+|24-DSTch|
|00001d40| 65 63 6b 28 29 29 20 c2 | 0d 20 20 20 20 20 20 6d |eck()) .|.      m|
|00001d50| 6f 64 20 32 34 20 69 6e | 74 6f 20 61 72 67 0d 20 |od 24 in|to arg. |
|00001d60| 20 20 20 20 20 67 65 74 | 20 61 72 67 2d 64 65 6c |     get| arg-del|
|00001d70| 74 61 0d 20 20 20 20 20 | 20 70 75 74 20 69 74 20 |ta.     | put it |
|00001d80| 69 6e 74 6f 20 6c 69 6e | 65 20 33 20 6f 66 20 63 |into lin|e 3 of c|
|00001d90| 61 72 64 20 66 69 65 6c | 64 20 31 0d 20 20 20 20 |ard fiel|d 1.    |
|00001da0| 20 20 68 6d 20 66 61 6c | 73 65 0d 20 20 20 20 20 |  hm fal|se.     |
|00001db0| 20 61 6d 70 6d 0d 20 20 | 20 20 20 20 70 75 74 20 | ampm.  |    put |
|00001dc0| 22 54 77 69 6c 69 67 68 | 74 20 62 65 67 69 6e 73 |"Twiligh|t begins|
|00001dd0| 20 61 74 20 22 26 20 68 | 20 26 22 3a 22 20 26 20 | at "& h| &":" & |
|00001de0| 6d 20 26 26 20 6d 6f 64 | 65 20 69 6e 74 6f 20 6c |m && mod|e into l|
|00001df0| 69 6e 65 20 31 20 6f 66 | c2 0d 20 20 20 20 20 20 |ine 1 of|..      |
|00001e00| 63 64 20 66 6c 64 20 31 | 0d 20 20 20 20 20 20 67 |cd fld 1|.      g|
|00001e10| 65 74 20 61 72 67 2b 64 | 65 6c 74 61 0d 20 20 20 |et arg+d|elta.   |
|00001e20| 20 20 20 70 75 74 20 69 | 74 20 69 6e 74 6f 20 6c |   put i|t into l|
|00001e30| 69 6e 65 20 34 20 6f 66 | 20 63 64 20 66 6c 64 20 |ine 4 of| cd fld |
|00001e40| 31 0d 20 20 20 20 20 20 | 68 6d 20 66 61 6c 73 65 |1.      |hm false|
|00001e50| 0d 20 20 20 20 20 20 61 | 6d 70 6d 0d 20 20 20 20 |.      a|mpm.    |
|00001e60| 20 20 70 75 74 20 22 54 | 77 69 6c 69 67 68 74 20 |  put "T|wilight |
|00001e70| 65 6e 64 73 20 20 20 20 | 61 74 20 22 26 20 68 20 |ends    |at "& h |
|00001e80| 26 22 3a 22 20 26 20 6d | 20 26 26 20 6d 6f 64 65 |&":" & m| && mode|
|00001e90| 20 69 6e 74 6f 20 6c 69 | 6e 65 20 32 20 6f 66 20 | into li|ne 2 of |
|00001ea0| c2 0d 20 20 20 20 20 20 | 63 64 20 66 6c 64 20 31 |..      |cd fld 1|
|00001eb0| 0d 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 20 20 |.    end| if.    |
|00001ec0| 67 65 74 20 2d 73 69 6e | 28 6c 61 74 29 2a 73 69 |get -sin|(lat)*si|
|00001ed0| 6e 28 64 65 63 29 2f 63 | 6f 73 28 6c 61 74 29 2f |n(dec)/c|os(lat)/|
|00001ee0| 63 6f 73 28 64 65 63 29 | 0d 20 20 20 20 70 75 74 |cos(dec)|.    put|
|00001ef0| 20 61 74 61 6e 28 73 71 | 72 74 28 31 2d 69 74 2a | atan(sq|rt(1-it*|
|00001f00| 69 74 29 2f 69 74 29 20 | 69 6e 74 6f 20 61 6e 67 |it)/it) |into ang|
|00001f10| 0d 20 20 20 20 69 66 20 | 64 65 63 3e 30 20 74 68 |.    if |dec>0 th|
|00001f20| 65 6e 0d 20 20 20 20 20 | 20 61 64 64 20 70 69 20 |en.     | add pi |
|00001f30| 74 6f 20 61 6e 67 0d 20 | 20 20 20 65 6e 64 20 69 |to ang. |   end i|
|00001f40| 66 0d 20 20 20 20 70 75 | 74 20 61 6e 67 2f 66 61 |f.    pu|t ang/fa|
|00001f50| 63 2f 31 35 20 69 6e 74 | 6f 20 64 65 6c 74 61 0d |c/15 int|o delta.|
|00001f60| 20 20 20 20 70 75 74 20 | 64 72 61 2f 31 35 2b 6c |    put |dra/15+l|
|00001f70| 69 6e 65 20 32 20 6f 66 | 20 66 69 65 6c 64 20 31 |ine 2 of| field 1|
|00001f80| 2d 6c 69 6e 65 20 32 20 | 6f 66 20 66 69 65 6c 64 |-line 2 |of field|
|00001f90| 20 32 2b 32 34 2d 44 53 | 54 63 68 65 63 6b 28 29 | 2+24-DS|Tcheck()|
|00001fa0| 69 6e 74 6f 20 61 72 67 | 0d 20 20 20 20 67 65 74 |into arg|.    get|
|00001fb0| 20 28 61 72 67 2d 64 65 | 6c 74 61 29 20 6d 6f 64 | (arg-de|lta) mod|
|00001fc0| 20 32 34 0d 20 20 20 20 | 70 75 74 20 61 72 67 20 | 24.    |put arg |
|00001fd0| 69 6e 74 6f 20 6c 69 6e | 65 20 33 20 6f 66 20 66 |into lin|e 3 of f|
|00001fe0| 69 65 6c 64 20 36 0d 20 | 20 20 20 70 75 74 20 69 |ield 6. |   put i|
|00001ff0| 74 20 69 6e 74 6f 20 6c | 69 6e 65 20 34 20 6f 66 |t into l|ine 4 of|
|00002000| 20 66 69 65 6c 64 20 36 | 0d 20 20 20 20 68 6d 20 | field 6|.    hm |
|00002010| 66 61 6c 73 65 0d 20 20 | 20 20 61 6d 70 6d 0d 20 |false.  |  ampm. |
|00002020| 20 20 20 70 75 74 20 73 | 68 6f 72 74 20 6e 61 6d |   put s|hort nam|
|00002030| 65 20 6f 66 20 74 68 69 | 73 20 63 61 72 64 20 26 |e of thi|s card &|
|00002040| 26 20 22 52 69 73 65 73 | 20 61 74 20 22 26 20 68 |& "Rises| at "& h|
|00002050| 20 26 22 3a 22 20 26 20 | 6d 20 26 26 20 6d 6f 64 | &":" & |m && mod|
|00002060| 65 20 c2 0d 20 20 20 20 | 69 6e 74 6f 20 6c 69 6e |e ..    |into lin|
|00002070| 65 20 31 20 6f 66 20 66 | 69 65 6c 64 20 36 0d 20 |e 1 of f|ield 6. |
|00002080| 20 20 20 67 65 74 20 28 | 61 72 67 2b 64 65 6c 74 |   get (|arg+delt|
|00002090| 61 29 20 6d 6f 64 20 32 | 34 0d 20 20 20 20 70 75 |a) mod 2|4.    pu|
|000020a0| 74 20 69 74 20 69 6e 74 | 6f 20 6c 69 6e 65 20 35 |t it int|o line 5|
|000020b0| 20 6f 66 20 66 69 65 6c | 64 20 36 0d 20 20 20 20 | of fiel|d 6.    |
|000020c0| 68 6d 20 66 61 6c 73 65 | 0d 20 20 20 20 61 6d 70 |hm false|.    amp|
|000020d0| 6d 0d 20 20 20 20 70 75 | 74 20 73 68 6f 72 74 20 |m.    pu|t short |
|000020e0| 6e 61 6d 65 20 6f 66 20 | 74 68 69 73 20 63 61 72 |name of |this car|
|000020f0| 64 20 26 26 20 22 53 65 | 74 73 20 20 61 74 20 22 |d && "Se|ts  at "|
|00002100| 26 20 68 20 26 22 3a 22 | 20 26 20 6d 20 26 26 20 |& h &":"| & m && |
|00002110| 6d 6f 64 65 20 69 6e 74 | 6f 20 c2 0d 20 20 20 20 |mode int|o ..    |
|00002120| 6c 69 6e 65 20 32 20 6f | 66 20 66 69 65 6c 64 20 |line 2 o|f field |
|00002130| 36 0d 20 20 20 20 0d 20 | 20 20 20 73 65 74 20 63 |6.    . |   set c|
|00002140| 75 72 73 6f 72 20 74 6f | 20 31 30 30 31 0d 20 20 |ursor to| 1001.  |
|00002150| 65 6e 64 20 69 66 0d 20 | 20 2d 2d 20 63 61 6c 63 |end if. | -- calc|
|00002160| 20 61 6c 74 20 61 6e 64 | 20 61 7a 20 6f 66 20 6f | alt and| az of o|
|00002170| 62 6a 65 63 74 0d 20 20 | 70 75 74 20 28 28 33 36 |bject.  |put ((36|
|00002180| 30 2b 31 35 2a 28 6c 69 | 6e 65 20 32 20 6f 66 20 |0+15*(li|ne 2 of |
|00002190| 66 69 65 6c 64 20 32 29 | 2d 64 72 61 29 20 6d 6f |field 2)|-dra) mo|
|000021a0| 64 20 33 36 30 29 2a 66 | 61 63 20 69 6e 74 6f 20 |d 360)*f|ac into |
|000021b0| 4c 48 41 0d 20 20 70 75 | 74 20 63 6f 73 28 4c 48 |LHA.  pu|t cos(LH|
|000021c0| 41 29 2a 73 69 6e 28 6c | 61 74 29 2d 74 61 6e 28 |A)*sin(l|at)-tan(|
|000021d0| 64 65 63 29 2a 63 6f 73 | 28 6c 61 74 29 20 69 6e |dec)*cos|(lat) in|
|000021e0| 74 6f 20 64 65 6e 0d 20 | 20 67 65 74 20 61 74 61 |to den. | get ata|
|000021f0| 6e 71 28 64 65 6e 2c 73 | 69 6e 28 4c 48 41 29 29 |nq(den,s|in(LHA))|
|00002200| 0d 20 20 70 75 74 20 72 | 6f 75 6e 64 28 69 74 2f |.  put r|ound(it/|
|00002210| 66 61 63 29 20 69 6e 74 | 6f 20 74 65 6d 70 0d 20 |fac) int|o temp. |
|00002220| 20 70 75 74 20 73 69 6e | 28 6c 61 74 29 2a 73 69 | put sin|(lat)*si|
|00002230| 6e 28 64 65 63 29 2b 63 | 6f 73 28 6c 61 74 29 2a |n(dec)+c|os(lat)*|
|00002240| 63 6f 73 28 64 65 63 29 | 2a 63 6f 73 28 4c 48 41 |cos(dec)|*cos(LHA|
|00002250| 29 20 69 6e 74 6f 20 73 | 69 6e 61 0d 20 20 69 66 |) into s|ina.  if|
|00002260| 20 61 62 73 28 73 69 6e | 61 29 3c 31 20 74 68 65 | abs(sin|a)<1 the|
|00002270| 6e 0d 20 20 20 20 67 65 | 74 20 72 6f 75 6e 64 28 |n.    ge|t round(|
|00002280| 61 74 61 6e 28 73 69 6e | 61 2f 28 73 71 72 74 28 |atan(sin|a/(sqrt(|
|00002290| 31 2d 73 69 6e 61 2a 73 | 69 6e 61 29 29 29 2f 66 |1-sina*s|ina)))/f|
|000022a0| 61 63 29 0d 20 20 20 20 | 69 66 20 69 74 3e 30 20 |ac).    |if it>0 |
|000022b0| 74 68 65 6e 0d 20 20 20 | 20 20 20 70 75 74 20 22 |then.   |   put "|
|000022c0| 41 7a 2e 20 3d 20 22 26 | 20 74 65 6d 70 20 69 6e |Az. = "&| temp in|
|000022d0| 74 6f 20 6c 69 6e 65 20 | 33 20 6f 66 20 66 69 65 |to line |3 of fie|
|000022e0| 6c 64 20 35 0d 20 20 20 | 20 20 20 70 75 74 20 22 |ld 5.   |   put "|
|000022f0| 41 6c 74 2e 20 3d 20 22 | 20 26 20 69 74 20 69 6e |Alt. = "| & it in|
|00002300| 74 6f 20 6c 69 6e 65 20 | 34 20 6f 66 20 66 69 65 |to line |4 of fie|
|00002310| 6c 64 20 35 0d 20 20 20 | 20 65 6c 73 65 0d 20 20 |ld 5.   | else.  |
|00002320| 20 20 20 20 69 66 20 74 | 65 6d 70 3e 31 38 30 0d |    if t|emp>180.|
|00002330| 20 20 20 20 20 20 74 68 | 65 6e 20 70 75 74 20 22 |      th|en put "|
|00002340| 57 22 20 69 6e 74 6f 20 | 74 65 6d 0d 20 20 20 20 |W" into |tem.    |
|00002350| 20 20 65 6c 73 65 20 70 | 75 74 20 22 45 22 20 69 |  else p|ut "E" i|
|00002360| 6e 74 6f 20 74 65 6d 0d | 20 20 20 20 20 20 70 75 |nto tem.|      pu|
|00002370| 74 20 22 62 65 6c 6f 77 | 20 22 20 26 20 74 65 6d |t "below| " & tem|
|00002380| 20 26 20 22 20 68 6f 72 | 69 7a 6f 6e 22 20 69 6e | & " hor|izon" in|
|00002390| 74 6f 20 6c 69 6e 65 20 | 33 20 6f 66 20 66 69 65 |to line |3 of fie|
|000023a0| 6c 64 20 35 0d 20 20 20 | 20 20 20 70 75 74 20 65 |ld 5.   |   put e|
|000023b0| 6d 70 74 79 20 69 6e 74 | 6f 20 6c 69 6e 65 20 34 |mpty int|o line 4|
|000023c0| 20 6f 66 20 66 69 65 6c | 64 20 35 0d 20 20 20 20 | of fiel|d 5.    |
|000023d0| 65 6e 64 20 69 66 0d 20 | 20 65 6c 73 65 0d 20 20 |end if. | else.  |
|000023e0| 20 20 62 65 65 70 0d 20 | 20 65 6e 64 20 69 66 0d |  beep. | end if.|
|000023f0| 20 20 73 65 74 20 63 75 | 72 73 6f 72 20 74 6f 20 |  set cu|rsor to |
|00002400| 31 0d 65 6e 64 20 63 61 | 6c 63 0d 0d 66 75 6e 63 |1.end ca|lc..func|
|00002410| 74 69 6f 6e 20 61 74 61 | 6e 71 20 78 2c 79 0d 20 |tion ata|nq x,y. |
|00002420| 20 67 65 74 20 61 74 61 | 6e 28 79 2f 78 29 0d 20 | get ata|n(y/x). |
|00002430| 20 69 66 20 79 3e 30 20 | 74 68 65 6e 20 61 64 64 | if y>0 |then add|
|00002440| 20 70 69 20 74 6f 20 69 | 74 0d 20 20 69 66 20 79 | pi to i|t.  if y|
|00002450| 2f 78 3c 30 20 74 68 65 | 6e 20 61 64 64 20 70 69 |/x<0 the|n add pi|
|00002460| 20 74 6f 20 69 74 0d 20 | 20 72 65 74 75 72 6e 20 | to it. | return |
|00002470| 69 74 0d 65 6e 64 20 61 | 74 61 6e 71 0d 0d 6f 6e |it.end a|tanq..on|
|00002480| 20 61 6d 70 6d 0d 20 20 | 67 6c 6f 62 61 6c 20 68 | ampm.  |global h|
|00002490| 2c 6d 6f 64 65 2c 69 6e | 74 6c 0d 20 20 69 66 20 |,mode,in|tl.  if |
|000024a0| 69 6e 74 6c 20 74 68 65 | 6e 0d 20 20 20 20 70 75 |intl the|n.    pu|
|000024b0| 74 20 65 6d 70 74 79 20 | 69 6e 74 6f 20 6d 6f 64 |t empty |into mod|
|000024c0| 65 0d 20 20 65 6c 73 65 | 0d 20 20 20 20 70 75 74 |e.  else|.    put|
|000024d0| 20 68 20 69 6e 74 6f 20 | 68 32 0d 20 20 20 20 69 | h into |h2.    i|
|000024e0| 66 20 68 3e 31 31 20 74 | 68 65 6e 0d 20 20 20 20 |f h>11 t|hen.    |
|000024f0| 20 20 73 75 62 74 72 61 | 63 74 20 31 32 20 66 72 |  subtra|ct 12 fr|
|00002500| 6f 6d 20 68 0d 20 20 20 | 20 20 20 70 75 74 20 22 |om h.   |   put "|
|00002510| 50 4d 22 20 69 6e 74 6f | 20 6d 6f 64 65 0d 20 20 |PM" into| mode.  |
|00002520| 20 20 65 6c 73 65 0d 20 | 20 20 20 20 20 70 75 74 |  else. |     put|
|00002530| 20 22 41 4d 22 20 69 6e | 74 6f 20 6d 6f 64 65 0d | "AM" in|to mode.|
|00002540| 20 20 20 20 65 6e 64 20 | 69 66 0d 20 20 20 20 69 |    end |if.    i|
|00002550| 66 20 68 3d 30 20 74 68 | 65 6e 20 70 75 74 20 31 |f h=0 th|en put 1|
|00002560| 32 20 69 6e 74 6f 20 68 | 0d 20 20 65 6e 64 20 69 |2 into h|.  end i|
|00002570| 66 0d 65 6e 64 20 61 6d | 70 6d 00 00 00 00 00 00 |f.end am|pm......|
|00002580| 00 00 01 00 00 00 01 5c | 00 00 00 5c 00 00 00 5a |.......\|...\...Z|
|00002590| 2c 01 81 b6 2c 01 81 b6 | 20 01 80 06 27 f9 9f e6 |,...,...| ...'...|
|000025a0| 20 01 80 06 20 01 80 06 | 20 01 80 0e 1f fe 7f fe | ... ...| .......|
|000025b0| 19 41 6c 6d 61 6e 61 63 | 20 31 2e 35 33 62 31 20 |.Almanac| 1.53b1 |
|000025c0| 69 6e 74 6c 20 70 61 74 | 63 68 02 00 00 00 54 45 |intl pat|ch....TE|
|000025d0| 00 00 54 45 58 54 4d 50 | 53 20 00 00 00 00 00 00 |..TEXTMP|S ......|
|000025e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025f0| 00 00 a0 b3 38 63 00 00 | 24 fa 00 00 01 b6 00 24 |....8c..|$......$|
|00002600| 24 00 80 12 00 01 00 04 | 22 a8 95 52 00 01 00 04 |$.......|"..R....|
|00002610| 20 00 80 02 08 01 01 24 | 24 00 80 92 00 01 00 04 | ......$|$.......|
|00002620| 22 a8 95 52 00 01 00 04 | 20 00 80 02 00 01 00 04 |"..R....| .......|
|00002630| 2a aa aa aa 15 55 55 54 | 00 00 00 00 00 00 00 00 |*....UUT|........|
|00002640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 80 |........|........|
|00002650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002660| 1f ff ff f8 20 01 80 04 | 20 00 00 06 20 01 80 06 |.... ...| ... ...|
|00002670| 20 01 80 06 2f ff ff e6 | 28 00 00 36 29 98 c6 36 | .../...|(..6)..6|
|00002680| 00 00 00 40 00 09 06 4d | 6f 6e 61 63 6f 01 00 01 |...@...M|onaco...|
|00002690| 00 08 ff ff ff ff ff ff | ff ff 00 00 00 00 00 00 |........|........|
|000026a0| 00 01 00 00 00 00 00 00 | 00 00 00 21 00 00 00 1e |........|...!....|
|000026b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026c0| 00 00 00 00 00 00 00 04 | 00 06 00 05 00 00 00 0c |........|........|
|000026d0| 00 00 00 3b 00 00 24 fa | 00 00 24 fa 00 00 01 00 |...;..$.|..$.....|
|000026e0| 00 00 01 5c 00 00 00 5c | 00 00 00 5a 00 02 0e ca |...\...\|...Z....|
|000026f0| 06 9e 00 00 00 1c 00 5a | 00 02 45 46 4e 54 00 00 |.......Z|..EFNT..|
|00002700| 00 1a 45 54 41 42 00 00 | 00 26 45 50 4f 53 00 00 |..ETAB..|.&EPOS..|
|00002710| 00 32 03 eb ff ff 00 00 | 00 00 00 00 00 00 03 ec |.2......|........|
|00002720| ff ff 00 00 00 44 00 00 | 00 00 03 ed ff ff 00 00 |.....D..|........|
|00002730| 00 4c 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.L......|........|
|00002740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+