-- card: 3047 from stack: in
-- bmap block id: 3831
-- flags: 0000
-- background id: 2755
-- name: 
----- HyperTalk script -----
on idle
  put empty into theString
  repeat 3
    put recvUpTo(1,return,2,false,false) into newIn
    put newIn after theString
  end repeat
  if the length of theString > 0 then
    delete last character of card field "inField"
    put theString & "•" after card field "inField"
    repeat while the number of lines in card field "inField" > 24
      delete first line of card field "inField"
    end repeat
  end if
end idle

on returnKey
  sendSPort 1,false,message box & return
  put empty into message box
end returnKey

on clearKey
  sendSPort 1,false,linefeed
end clearKey

on openCard
  show message box
end openCard



-- part 3 (field)
-- low flags: 00
-- high flags: 4002
-- rect: left=2 top=23 right=280 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: inField
----- HyperTalk script -----
on mouseDown
  beep
end mouseDown



-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=2 top=289 right=307 bottom=20
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  push card
  visual effect iris open
  go to card "help"
end mouseUp


-- part 5 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=4 top=313 right=331 bottom=19
-- 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 mouseDown
  breakSPort 1,true
  wait until the mouse is up
  breakSPort 1,false
end mouseDown