-- card: 6173 from stack: in
-- bmap block id: 6908
-- flags: 0000
-- background id: 6007
-- name: Card 1
----- HyperTalk script -----
on opencard
  global NeedSetup
  put 0 into NeedSetup
end opencard

on idle
  global NeedSetup
  if NeedSetup is 0 then
    play "boing"
    get the rect of card button id 1
    repeat with proportion = 0 to 10
      BarButton -1,10,0,proportion
    end repeat
  end if

  if NeedSetup is 1 then
    get the rect of card button id 3
    repeat with proportion = 0 to 10
      BarButton -2,10,0,proportion
    end repeat
  end if

  if NeedSetup is 2 then
    get the rect of card button id 4
    repeat with proportion = 0 to 10
      BarButton -4,10,0,proportion
    end repeat
  end if

  if NeedSetup is 3 then
    get the rect of card button id 7
    repeat with proportion = 0 to 10
      BarButton 1,10,0,proportion
    end repeat
  end if

  if NeedSetup is 5 then
    play "boing"
    go next card
  end if

  add 1 to NeedSetup
  pass idle
end idle


-- part 1 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=28 top=40 right=59 bottom=130
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: 
----- HyperTalk script -----
on mousedown
  set cursor to 2
  get the rect of me
  BarButton
end mousedown



-- part 3 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=28 top=70 right=89 bottom=130
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: 
----- HyperTalk script -----
on mousedown
  set cursor to 2
  get the rect of me
  BarButton
end mousedown



-- part 4 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=67 top=100 right=238 bottom=86
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: 
----- HyperTalk script -----
on mousedown
  set cursor to 2
  get the rect of me
  BarButton
end mousedown



-- part 7 (button)
-- low flags: 00
-- high flags: 0002
-- rect: left=28 top=264 right=283 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: 
----- HyperTalk script -----
on mousedown
  set cursor to 2
  get the rect of me
  BarButton
end mousedown



-- part 8 (field)
-- low flags: 00
-- high flags: 2004
-- rect: left=155 top=35 right=241 bottom=479
-- 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: 


-- part contents for card part 8
----- text -----

BarButton

A Public Domain XCMD for Hypercard

 written by Lloyd Maxfield 

Infosynthesis
2960 Ferry Street
Eugene, OR 97405
(503) 344-3322