-- card: 2966 from stack: in
-- bmap block id: 7067
-- flags: 0000
-- background id: 2765
-- name: Origin
----- HyperTalk script -----
on elong
  global moon
  go first cd
  put line 5 of fld Pos of cd sun into sra
  put line 6 of fld Pos of cd sun into sdec
  repeat with i=(3+moon) to 9+moon
    set cursor to busy
    put (sra -  line 5 of fld Pos of cd i) into dra
    put (sdec - line 6 of fld Pos of cd i) into ddec
    put (dra+360) mod 360 into arg
    if arg>180 then
      get round(sqrt((360-arg)*(360-arg) + ddec*ddec))
      put "E" into dir
    else
      get round(sqrt(arg*arg + ddec*ddec))
      put "W" into dir
    end if
    put (short name of cd i) & " -- " & it && dir into line i-(2+moon) of cd fld "elong"
  end repeat
end elong


-- part 2 (field)
-- low flags: 80
-- high flags: 4001
-- rect: left=4 top=24 right=74 bottom=471
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Sidereal Cheb


-- part 9 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=129 top=74 right=140 bottom=208
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Coords


-- part 18 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=36 top=310 right=331 bottom=174
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Update for Today
----- HyperTalk script -----
on mouseUp
  global force,dodoo,moon
  put 1 into force
  put 1 into dodoo
  repeat with i=2 to 9+moon
    go card i
  end repeat
  put 0 into force
  put 0 into dodoo
  elong
  send mouseUp to bg btn conj
  go cd origin
end mouseUp



-- part 23 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=39 top=240 right=279 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 15034
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Algol


-- part 24 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=272 top=164 right=281 bottom=389
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Elong


-- part 31 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=40 top=163 right=226 bottom=239
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Daily


-- part 33 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=365 top=310 right=331 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete Lunar Card
----- HyperTalk script -----
on mouseUp
  global moon,userName
  if "Mike Kaz" is in userName then exit mouseUp
  Answer "Are you really sure???" with "No" or "Yes"
  if it is "No" then exit mouseUp
  set lockMessages to true
  set lockScreen to true
  go cd "Occult."
  put 0 into moon
  doMenu "Delete Card"
  go first cd
  choose btn tool
  click at the loc of bg btn "Moon"
  doMenu "Clear Button"
  click at the loc of btn "Delete Lunar Card"
  doMenu "Clear Button"
  choose fld tool
  click at the loc of fld pct
  doMenu "Cut Field"
  choose browse tool
  set lockMessages to false
  set lockScreen to false
end mouseUp



-- part contents for card part 2
----- text -----
37.46641019 12.02493024 .00000335 .00000202 .00000561 .00001716 -.00000493 -.00000826

-- part contents for card part 9
----- text -----
33.57500
84.001639
238
5.0 (EDT)

-- part contents for background part 7
----- text -----
Sidereal Time = 21:46
21.771

-- part contents for background part 6
----- text -----
Universal Time = 1:43
1.722
226

-- part contents for background part 14
----- text -----
Card

-- part contents for background part 28
----- text -----
15 October 1989

-- part contents for background part 31
----- text -----
Julian Date = 2447815.572

-- part contents for card part 23
----- text -----
Next minimum of Algol occurs in 56.5 hours at JD=2447817.925
47817.925

-- part contents for background part 10
----- text -----





-- part contents for background part 39
----- text -----
 98%-

-- part contents for card part 24
----- text -----
Mercury -- 17 W
Venus -- 47 E
Mars -- 6 W
Jupiter -- 105 W
Saturn -- 79 E
Uranus -- 72 E
Neptune -- 81 E