-- card: 8548 from stack: in.Komposita
-- bmap block id: 0
-- flags: 0000
-- background id: 8851
-- name: 
----- HyperTalk script -----
on opencard

end opencard

on closecard

end closecard

on arrowKey whichKey
end arrowKey

-on returnkey
click at the loc of card btn start
end returnkey



-- part 2 (field)
-- low flags: 80
-- high flags: 0004
-- rect: left=394 top=2 right=79 bottom=508
-- 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: Einstiegskarte


-- part 5 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=131 top=265 right=293 bottom=241
-- 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: start
----- HyperTalk script -----
on mouseUp
  hide card field ProgrammInfo
  set cursor to watch
  lock screen
  get line 1 of card field Einstiegskarte
  put it into letztgeseheneKarte
  if it is not empty
  then
  put "" into card field Einstiegskarte
  get letztgeseheneKarte
  go it
  set the name of bkgnd btn id 147 to char 1 to 5 of the long time
  if char 5 of the short name of bkgnd btn id 147 = ":"
  then
  set the name of bkgnd btn id 147 to char 1 to 4 of the long time
end if
set the name of bkgnd btn id 148 to "00:00"
else
  pop card
end if
unlock screen
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=265 right=293 bottom=104
-- 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: 
----- HyperTalk script -----
on mouseUp
  if the visible of card field Programminfo is false
  then
  show card field Programminfo
else
  hide card field Programminfo
end if
end mouseUp



-- part 9 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=9 top=2 right=265 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 176
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ProgrammInfo


-- part contents for card part 9
----- text -----
 idea & background
                                                        wolfgang hadamitzky
                                                       tempelhofer damm 4
                                                                1000 berlin 42

                                    tel                                           fax
                                    (+049) 30 785-1713             (+049) 30 785-1993


concept & realisation
                                                               softdesign berlin
                                                                   donaustr. 54
                                                                1000 berlin 44

                                    tel                                           fax
                                    (+049) 30 681-8301             (+049) 30 785-1993