a-z                : We can use function keys
f3 "Say it in italics." f3 return return
macend

a--                : This makes a dash ignored by Thunder!
"-- " backspace
macend

a-j                 : This macro is a sample header for a letter
tab tab tab tab tab tab tab "1515 First Street" return
tab tab tab tab tab tab tab "Humbug, ST 51515" return
tab tab tab tab tab tab tab
macend

as-j                : And use this one to say good-bye
tab tab tab tab tab tab tab "Sincerely,"
return return return return return
tab tab tab tab tab tab tab "John Q. Public"
return macend

a-s                 : For you German freaks, we have a 
001f009e macend

a-d                 : The date in a handy format
day " " month " 19" year
macend

a-n                 : Ah, yes,  for the Spaniards
"" macend

sa-n                : And an , too, done the hard way
003100A5 macend

ac-d                : Change the path name when getting a file
/|\ esc "B:\*.DOC" macend


: And now some menu equivalents for "1st Word"

c-p                : Print
menu 1st_word 4 15 macend

c-n                : Open a file
menu 1st_word 4 14 macend

c-s                : Save a file
menu 1st_word 4 17 macend

c-q                : Quit
menu 1st_word 4 21 macend

c-f                : Find
menu 1st_word 5 26 macend

c-h                : Replace
menu 1st_word 5 27 macend

cs--               : Toggle subscript
menu 1st_word 7 49 macend

cs-=               : Toggle superscript
menu 1st_word 7 48 macend

c-j                : Toggle justification
menu 1st_word 7 4D macend


: Last, another kind of message to send to "1st Word"
: This one tells "1st Word" to move to the bottom of the
: document in the front widnow

c-b
message 1st_word
0x001a0000
0x0000ffff
0x03e80000
0x00000001
macend


