/* my new startup.txed  */
OPTIONS results
STATUS F
parse var result name '.' extension


ARChive 2
COLor 0
WRap 1
RM 71
MSG My New TxEd
menu 5 ' ' '"send this to TeX  [F1]"' "TxEdStuff/txedtexify"
menu 5 ' ' '"go to TeX error   [F2]"' "TxEdStuff/toerror"
menu 5 ' ' '"Send chunk to Tex [F4]"' "TxEdStuff/viewchunk"
menu 5 ' ' '"Print this in Tex     "' "TxEdStuff/timatex"
menu 5 ' ' '"send to ibm       [F5]"' "rexx:Amiga_to_IBM.vlt"
menu 5 ' ' '"get from flist    [F6]"' "rexx:Filelist_to_Amiga.vlt"
menu 5 ' ' '"Ascii send on     [F7]"' "rexx:asciisend.txed"
menu 5 ' ' '"VLT to front      [F8]"' "'x=screentofront(""VLT"")'"
macro 1 "TxEdStuff/txedtexify"
macro 2 "TxEdStuff/toerror"
macro 4 "TxEdStuff/viewchunk"
macro 5 "rexx:Amiga_to_IBM.vlt"
macro 6 "rexx:Filelist_to_Amiga.vlt"
macro 7 "rexx:asciisend.txed"
macro 8 "'x=screentofront(""VLT"")'"

if extension = "MYCARDS" | extension = "MYKEEP" then do
   MACRO S "TxEdStuff/serialize"
end
if extension = "mycards" | extension = "mykeep" then do
    MACRO S "TxEdStuff/serialize"
end
exit