-- background: 2652 from stack: in
-- bmap block id: 2976
-- flags: 4000
-- background id: 0
-- name: 
----- HyperTalk script -----
on idle
  put the abbr date into field "Date"
  put the time into field "Time"
  pass idle
end idle



-- part 1 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=10 top=66 right=101 bottom=52
-- title width / last selected line: 0
-- icon id / first selected line: 1011 / 1011
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go "Home"
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=5 top=97 right=137 bottom=56
-- title width / last selected line: 0
-- icon id / first selected line: 20965 / 20965
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  go to card id 16690 of stack "Datebook"
end mouseUp




-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=14 top=130 right=158 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 22855 / 22855
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Yearly
----- HyperTalk script -----
on mouseUp
  get the seconds
  convert it to dateItems
  put ((item 1 of it) - 1987) *2 into whichSix
  if item 2 of it > 6 then add 1 to whichSix
  visual effect zoom open
  if whichSix < 1 then go card 1 of stack "DateBook"
  else if whichSix > 5 then go card 5 of stack "DateBook"
  else
    go to card whichSix of stack "DateBook"
    send "bracketWeek" && the seconds to this card
  end if
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=12 top=165 right=196 bottom=52
-- title width / last selected line: 0
-- icon id / first selected line: 11645 / 11645
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: View
----- HyperTalk script -----
on mouseUp
  visual effect zoom open
  go to "Address"
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=221 top=295 right=324 bottom=263
-- title width / last selected line: 0
-- icon id / first selected line: 19381 / 19381
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  visual scroll right
  go to previous card
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=436 top=295 right=326 bottom=477
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=267 top=295 right=324 bottom=311
-- title width / last selected line: 0
-- icon id / first selected line: 22308 / 22308
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  visual scroll left
  go to next card
end mouseUp



-- part 14 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=19 top=23 right=58 bottom=281
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 24
-- style flags: 2816
-- line height: 32
-- part name: Applications File


-- part 15 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=354 top=4 right=21 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 2048
-- line height: 13
-- part name: Date


-- part 16 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=414 top=23 right=39 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 10
-- style flags: 2304
-- line height: 13
-- part name: Time


-- part 18 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=15 top=278 right=326 bottom=48
-- title width / last selected line: 0
-- icon id / first selected line: 146 / 146
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Finder
----- HyperTalk script -----
on mouseUp
  doMenu "Quit HyperCard"
end mouseUp


-- part 19 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=74 top=294 right=319 bottom=155
-- 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: ShutDown
----- HyperTalk script -----
on mouseUp
  answer "Complete the ShutDown Procedure ?" with "Cancel" or "OK"
  if it is "OK" then ShutDown
end mouseUp




-- part 20 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=13 top=203 right=241 bottom=52
-- title width / last selected line: 0
-- icon id / first selected line: 28782 / 28782
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Phone Log
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go to stack "Telephone Log"
end mouseUp