//********************************************************************/
// Resources for 'IRChat' LispMe demo                                */
//********************************************************************/

MENU ID 5000
  BEGIN
    PULLDOWN "Quit"
      BEGIN
        MENUITEM "Quit" 5000 "Q"
      END
  END

FORM ID 5000 AT (2 2 156 156)
MODAL
MENUID 5000
HELPID 5000
BEGIN
  TITLE "LispMe IR Chat"

  FIELD 5001 10  20 136 90 FONT 0 LEFTALIGN UNDERLINED USABLE
                                  NONEDITABLE MULTIPLELINE
  FIELD 5002 10 116 136 16 FONT 0 LEFTALIGN UNDERLINED USABLE
                                  MAXCHARS 80
  BUTTON "Connect"    ID 5003 AT ( 10 140 AUTO AUTO)
  BUTTON "Disconnect" ID 5004 AT (  6 140 AUTO AUTO) NONUSABLE
  BUTTON "Clear"      ID 5005 AT ( 66 140 AUTO AUTO)
  BUTTON "Send"       ID 5006 AT (102 140 AUTO AUTO) NONUSABLE

  GRAFFITISTATEINDICATOR AT (142 142)
END

STRING ID 5000 "You need another Palm running the same program. "\
               "Tap 'Connect' on both and you can send text "\
               "written in the lower field to the other Palm. "\
               "Both text entered and received is copied to the "\
               "output area above. Tap 'Clear' to clear the "\
               "output area. "\
               "And be sure: This chat is REALLY free :-)"