REBOL [ Title: "Personal message of the day" Purpose: {Pop up a window at login time showing text from a text file. This is like the unix motd program. Put the text into an area so that we can modify it, and provide a button to save the modified text. You would have to arrange to have this program run at startup in whatever way is appropriate for your computer.} ] MOTD-FILE: %motd.txt if not exists? MOTD-FILE [ write MOTD-FILE rejoin [ "Message of the day" newline ] ] view center-face layout [ WINDOW-TEXT: area 500x500 (read MOTD-FILE) wrap font [size: 24] button 120 "Save and close" [write MOTD-FILE WINDOW-TEXT/text quit] ]