-- stack: in.Hiragana
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 3 (painting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 2
-- first background id: 2761
-- card count: 6
-- first card id: 2839
-- list block id: 2130
-- print block id: 3567
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 28128 bytes
-- stack block size: 4096 bytes
-- created by hypercard version: 0x01208000
-- compacted by hypercard version: 0x01258000
-- modified by hypercard version: 0x01258000
-- opened by hypercard version: 0x01258000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on startup
  go MacSunriSE
  pass startup
end startup

on openstack
  set the hilite of bkgnd btn ton to true
end openstack

on openCard
  if the hilite of bkgnd btn "          Zeichen" is true
  then
  show card pict
else
  hide card pict
end if
end opencard

on closecard
  hide card pict
end closecard

on domenu menu
  if menu is "New Stack..."or menu is "save a Copy..." or menu is "Protect Stack..."or menu is "delete Stack..." or menu is "Background" or menu is "Cut Card" or menu is "new card" or menu is "delete card" or menu is "Back" or menu is "Help" or Menu is "Recent" or menu is "First" or menu is "Last" or menu is "prev" or menu is "next" or menu is "find..." or menu is "quit hypercard" or menu is "copy card" or menu is "paste card" or menu is "print report..."
  then
  if menu is "New Stack..."or menu is "save a Copy..." or menu is "delete Stack..." or menu is "copy card" or menu is "paste card" or menu is "print report..."
  then
  beep
end if
if menu is "quit hypercard" then click at the loc of bkgnd btn beenden
if menu is "Protect Stack..." or menu is "Background"
then
if the commandkey is not down or the Optionkey is not down
then
beep
else
  ask "Das Passwort bitteschön.."
  if it is not "the commandkey"
  then
  answer "Passwort ist falsch!"
else
  pass domenu
end if
end if

end if
if menu is "delete card" or Menu is "Cut Card"
then
beep
end if
if menu is "new card"
then
beep
end if
if menu is "Back" or Menu is "Recent"
then
beep
end if
if menu is "Help"
then
pop card
Kompositaaus
click at the loc of bkgnd btn Hilfe
end if
if menu is "First"
then
go first card of this background
end if
if menu is "Last"
then
go last card of this background
end if
if menu is "next"
then
click at the loc of bkgnd btn "nächstes Kanji"
end if
if menu is "prev"
then
click at the loc of bkgnd btn "vorheriges Kanji"
end if
if menu is "find..."
then
if the number of this card is not 47
then
click at the loc of bkgnd btn suchen
else
  click at the loc of card btn Suchen
end if
end if
else
  pass domenu
end if
end domenu