-- card: 3076 from stack: in
-- bmap block id: 7383
-- flags: 0000
-- background id: 2765
-- name: Jupiter
----- HyperTalk script -----
on openCard
  global force
  calc (the number of words of fld "ra cheb"),force
  put char 1 to 3 of second word of nDate(1,12,0) && first word of nDate(1,12,0) into he
  if not((second word of he) = first word of fld "date") or force=1 then fetch he
  pass openCard
end openCard

on fetch he
  global found
  put false into found
  put "JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC" into months
  if he is empty then exit fetch
  if number of chars of he=5 then put "0" after char 4 of he
  -- import text  put proper pathname here
  put "Hard Disk:Astronomy:GE-" & last word of the long date into fileName
  repeat with month=1 to 12
    if item month of months is in he then exit repeat
  end repeat
  if the shiftKey is up and number of lines of cd fld total ≠ 0 then
    select text of cd fld total
    doMenu "Clear Text"
  end if
  put month&char 5 to 6 of he into tar
  open file fileName
  repeat
    set cursor to busy
    read from file fileName until "&"
    if it is empty then
      exit repeat
    end if
    delete last char of it
    if it contains tar then
      exit repeat
    end if
    if tar < char 4 to 7 of line 2 of it then
      get empty
      exit repeat
    end if
  end repeat
  close file fileName
  put the number of lines of it into she
  if she = 0 then
    -- next search
    if not (the target contains "Next") then put "No Galilean Satellite Events for this date." into line 3 of cd fld total
    exit fetch
  end if
  if not (the target contains "Next") then
    put line 1 of it && return into cd fld total
    put "DATE   Time(UT) SP Radii" & return into line 2 of cd fld total
  end if
  repeat with i=2 to she
    put "(not visible)" into temp
    put word 3 of line i of it into time
    put (char 1 to 2 of time+(char 4 to 5 of time)/60+24-DSTcheck()) mod 24 into time
    put line 4 of fld rise of cd sun + .5 into str
    put line 5 of fld rise of cd sun - .5 into sts
    put (line 4 of fld rise + .5) mod 24 into jr
    put (line 5 of fld rise - .5) mod 24 into js
    if time <str or time >sts then
      if jr < 12  then
        if time >jr and time <js then
          put empty into temp
        end if
      else
        if time <jr and time >js then
          put empty into temp
        end if
      end if
    end if
    if (the target contains "Next" and temp is empty and cd fld total is empty) then
      put line 1 of it && return&"DATE   Time(UT) SP Radii" & return into  cd fld total
    end if
    if not(the target contains "Next") or (the target contains "Next" and temp is empty) then put item month of months&&char 5 to 6 of he&&word 3 of line i of it &&" "&word 1 of line i of it&&(word 4 of line i of it)/10 && temp & return after cd fld total
    if temp is empty then put true into found
  end repeat
end fetch


-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=398 top=181 right=205 bottom=437
-- title width / last selected line: 0
-- icon id / first selected line: 31949 / 31949
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Satellite
----- HyperTalk script -----
on mouseUp
  get the seconds
  add DSTcheck()*3600 to it
  convert it to dateitems
  put item 1 of it into line 3 of joe
  put item 2 of it into line 1 of joe
  put item 3 of it +(item 4 of it)/24 + (item 5 of it)/1440 into line 2 of joe
  PutClipboard(joe)
  open "JSAT"
end mouseUp



-- part 18 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=41 top=184 right=282 bottom=348
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 15036
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: total


-- part 19 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=6 top=313 right=334 bottom=87
-- 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: Today
----- HyperTalk script -----
on mouseUp
  put char 1 to 3 of second word of nDate(1,12,0) && first word of nDate(1,12,0) into he
  fetch he
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=283 top=313 right=334 bottom=364
-- 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: Other Days
----- HyperTalk script -----
on mouseUp
  Ask "Enter date (mon dd):"
  put it into he
  fetch he
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=90 top=313 right=334 bottom=171
-- 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: Tomorrow
----- HyperTalk script -----
on mouseUp
  put char 1 to 3 of second word of nDate(1,12,1) && first word of nDate(1,12,1) into he
  fetch he
end mouseUp




-- part 22 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=375 top=313 right=334 bottom=460
-- 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: Next Event
----- HyperTalk script -----
on mouseUp
  global found
  put 0 into n
  put false into found
  repeat until found
    add 1 to n
    put char 1 to 3 of word 2 of nDate(1,12,n) && word 1 of nDate(1,12,n) into he
    fetch he
  end repeat
end mouseUp




-- part contents for background part 7
----- text -----
Sidereal Time = 20:54
20.907328

-- part contents for background part 8
----- text -----
10.532373 1.7509241 -.2889554 -.4065956 .0168502 .0121559 .0117863 .0065057 .0004711 .0000428 -.0003972 -.0001867 -.0000491 -.000006

-- part contents for background part 9
----- text -----
42.843489 2.483478 -.956244 -.040251 .491389 -.106798 -.066149 -.002379 -.001812 .004352 .001587 .00038 .0 -.000172

-- part contents for background part 10
----- text -----
Jupiter R.A. = 6h 45m
Jupiter Dec.  = +22° 45'
below E horizon

101.4934753
22.7620765

-- part contents for background part 6
----- text -----
Universal Time = 00:51
0.861389
288

-- part contents for background part 13
----- text -----
Jupiter Rises at 11:40 PM
Jupiter Sets  at 1:49 PM
30.7481537
23.6700821
13.8262253

-- part contents for background part 14
----- text -----
Jupiter

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

-- part contents for background part 28
----- text -----
16 October 1989 (JT)

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

-- part contents for card part 18
----- text -----
JUPITER SATELLITE ECLIPSE EVENTS 
DATE   Time(UT) SP Radii
OCT 16 11:45.3  1D 1.1