-- background: 2765 from stack: in
-- bmap block id: 4019
-- flags: 0000
-- background id: 0
-- name: almanac
----- HyperTalk script -----
on openCard
  global force,moon
  ST
  UT
  set numberFormat to "0.###"
  if moon=1 then
    get char 30 to 33 of line 3 of cd fld total of cd "occult."
    if it is not empty then put char 1 to 3 of it &"%"& last char of it into fld pct
  end if
  put "Julian Date = " & the seconds/86400 + 2416480.5 + DSTcheck()/24 into fld "JD"
  set numberFormat to "0.#######"
  if the short name of this cd is "Occult." or the short name of this cd is "Jupiter" then
    if the short name of this cd is "Occult." then
      put nDate(1,12,0) &&"(JT)" into fld "date"
      send mouseUp to cd btn "Today"
    else
      put nDate(1,12,0) &&"(JT)" into fld "date"
    end if
  else
    put nDate(0,0,0) into fld "date"
  end if
  if the shiftKey is up then
    get (the number of this cd)-moon
    if it>1 and it<10 and it≠6 then
      calc (the number of words of fld "ra cheb"),force
    end if
  end if
end openCard

on effect
  visual effect wipe left very fast
end effect



-- part 1 (button)
-- low flags: 00
-- high flags: C006
-- rect: left=42 top=140 right=162 bottom=86
-- 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: DST
----- HyperTalk script -----
on mouseUp
  set hilite of me to not hilite of me
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=432 top=50 right=92 bottom=471
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  effect
  go home
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=432 top=91 right=121 bottom=471
-- title width / last selected line: 0
-- icon id / first selected line: 16732 / 16732
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  effect
  push card
  go card "fx"
end mouseUp




-- part 6 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=190 top=283 right=301 bottom=349
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: UT


-- part 7 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=38 top=283 right=301 bottom=186
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ST


-- part 8 (field)
-- low flags: 81
-- high flags: 4001
-- rect: left=0 top=174 right=239 bottom=512
-- 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: RA Cheb


-- part 9 (field)
-- low flags: 81
-- high flags: 4001
-- rect: left=0 top=266 right=333 bottom=511
-- 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: dec Cheb


-- part 10 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=181 top=78 right=144 bottom=364
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Pos


-- part 13 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=181 top=145 right=179 bottom=378
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: rise


-- part 14 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=44 top=87 right=112 bottom=173
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 14991
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Planet


-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=398 top=50 right=83 bottom=433
-- title width / last selected line: 0
-- icon id / first selected line: 100 / 100
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sun
----- HyperTalk script -----
on mouseUp
  effect
  go card "Sun"
end mouseUp




-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=398 top=82 right=115 bottom=433
-- title width / last selected line: 0
-- icon id / first selected line: 101 / 101
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  effect
  go card "Mercury"
end mouseUp




-- part 19 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=398 top=114 right=147 bottom=433
-- title width / last selected line: 0
-- icon id / first selected line: 102 / 102
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  effect
  go card "Venus"
end mouseUp




-- part 20 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=398 top=146 right=179 bottom=433
-- title width / last selected line: 0
-- icon id / first selected line: 104 / 104
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  effect
  go card "Mars"
end mouseUp




-- part 21 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=398 top=178 right=211 bottom=433
-- title width / last selected line: 0
-- icon id / first selected line: 105 / 105
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  effect
  go card "Jupiter"
end mouseUp




-- part 22 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=398 top=210 right=243 bottom=433
-- title width / last selected line: 0
-- icon id / first selected line: 106 / 106
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  effect
  go card "Saturn"
end mouseUp




-- part 23 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=401 top=242 right=274 bottom=433
-- title width / last selected line: 0
-- icon id / first selected line: 107 / 107
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  effect
  go card "Uranus"
end mouseUp




-- part 24 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=398 top=274 right=304 bottom=433
-- title width / last selected line: 0
-- icon id / first selected line: 108 / 108
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  effect
  go card "Neptune"
end mouseUp




-- part 27 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=231 top=306 right=340 bottom=276
-- title width / last selected line: 0
-- icon id / first selected line: 5472 / 5472
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  go first card
end mouseUp



-- part 28 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=39 top=25 right=44 bottom=217
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Date


-- part 31 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=266 top=25 right=44 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: JD


-- part 35 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=358 top=50 right=85 bottom=399
-- title width / last selected line: 0
-- icon id / first selected line: 30979 / 30979
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Moon
----- HyperTalk script -----
on mouseUp
  effect
  go to card id 7837
end mouseUp




-- part 36 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=475 top=50 right=80 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 2478 / 2478
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  push card
  go first card of bkgnd "Info"
end mouseUp



-- part 39 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=219 top=25 right=44 bottom=264
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Pct


-- part 40 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=432 top=120 right=157 bottom=471
-- title width / last selected line: 0
-- icon id / first selected line: 26516 / 26516
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Conj
----- HyperTalk script -----
on mouseUp
  push cd
  go cd conjunct
end mouseUp



-- part 41 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=432 top=156 right=191 bottom=471
-- title width / last selected line: 0
-- icon id / first selected line: 28557 / 28557
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  go position
end mouseUp



-- part 42 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=432 top=190 right=226 bottom=471
-- title width / last selected line: 0
-- icon id / first selected line: 4450 / 4450
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: meteor
----- HyperTalk script -----
on mouseUp
  go cd meteor
  mcalc
end mouseUp