{;}This is the MPE4WP Menu macro, which is assigned to CTRL-M on the MPE4WP keyboard.  Use Menu as a help screen and to call the other MPE4WP macros.
Copyright 1991 Michael H. Shacter~
{ON CANCEL}{GO}end~~
{ON ERROR}{GO}end~~
{CHAR}key~
{^P}{18}{4}ÕÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ{^N}{Home}Menu{^O}{Home}ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͸
{^P}{18}{5}³                                          ³
{^P}{18}{6}³  Macro Commands--{^V}A{^Q} to L    {^]}(Ctrl-{{){^\}      ³
{^P}{18}{7}³  Macro Commands--M to {^V}Z{^Q}    {^]}(Ctrl-}}){^\}      ³
{^P}{18}{8}³  E{^V}x{^Q}pand                    {^]}(Ctrl-X){^\}      ³
{^P}{18}{9}³  {^V}R{^Q}ecord Mode               {^]}(Ctrl-R){^\}      ³
{^P}{18}{10}³  {^V}I{^Q}nsert Mode               {^]}(Ctrl-I){^\}      ³
{^P}{18}{11}³  {^V}K{^Q}ey                       {^]}(Ctrl-K){^\}      ³
{^P}{18}{12}³  {^V}S{^Q}pecial Keys              {^]}(Ctrl-S){^\}      ³
{^P}{18}{13}³  {^V}D{^Q}elete                    {^]}(Ctrl-D){^\}      ³
{^P}{18}{14}³  Save {^V}G{^Q}eneric              {^]}(Ctrl-G){^\}      ³
{^P}{18}{15}³  {^V}C{^Q}reate                    {^]}(Ctrl-C){^\}      ³
{^P}{18}{16}³  {^V}P{^Q}lay Back                 {^]}(Ctrl-P){^\}      ³
{^P}{18}{17}³  C{^V}l{^Q}ear Prompt              {^]}(Ctrl-PrScr){^\}  ³
{^P}{18}{18}³                                          ³
{^P}{18}{19}ÔÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ{^N}{Home}MPE4WP{^O}{Home}ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ;
~
{ASSIGN}key~{ORIGINAL KEY}~
{CASE}{VARIABLE}key~~
{Esc}~cmda~a~cmda~A~cmda~
{^]}~cmdb~z~cmdb~Z~cmdb~
{Right}~exp~x~exp~X~exp~
{^R}~rcrd~r~rcrd~R~rcrd~
{Tab}~ins~i~ins~I~ins~
{Del to EOL}~ky~k~ky~K~ky~
{^S}~spe~s~spe~S~spe~
{^D}~del~d~del~D~del~
{^G}~save~g~save~G~save~
{^C}~create~c~create~C~create~
{^P}~pb~p~pb~P~pb~
{Print}~clear~l~clear~L~clear~
{ELSE}~end~
~

{LABEL}cmda~
{ALT {}
{QUIT}

{LABEL}cmdb~
{ALT }}
{QUIT}

{LABEL}exp~
{DISPLAY OFF}{DISPLAY ON}
{ALT ’}
{QUIT}

{LABEL}rcrd~
{DISPLAY OFF}{DISPLAY ON}
{ALT «}
{QUIT}

{LABEL}ins~
{DISPLAY OFF}{DISPLAY ON}
{ALT 9}
{QUIT}

{LABEL}ky~
{DISPLAY OFF}{DISPLAY ON}
{ALT °}
{QUIT}

{LABEL}spe~
{DISPLAY OFF}{DISPLAY ON}
{ALT ã}
{QUIT}

{LABEL}del~
{IF}!{STATE}&4~
	{RETURN}
{END IF}
{DISPLAY OFF}
{ASSIGN}charno~{KTON}{SYSTEM}right~~~
{IF}{VARIABLE}charno~=126~{Left}{END IF}	{;}If the cursor is at the very end of the document~
{IF}{VARIABLE}charno~=123~
	{Block}}}{Del}y	{:}Note additional close brace to avoid error message~
{ELSE}{IF}{KTON}{SYSTEM}left~~=123~
	{Left}{Block}}}{Del}y
{ELSE}
	{Search Left}{{{Search}{Left}{Block}}}{Del}y
	{END IF}
{END IF}
{GO}end~

{LABEL}save~
{DISPLAY OFF}{DISPLAY ON}
	{Text In/Out}ag
{QUIT}

{LABEL}create~
{DISPLAY OFF}{DISPLAY ON}
{ALT $}
{QUIT}

{LABEL}pb~
{DISPLAY OFF}{DISPLAY ON}
{ALT Ø}
{QUIT}

{LABEL}clear~
	{STATUS PROMPT}~

{LABEL}end~
{DISPLAY OFF}{DISPLAY ON}
{QUIT}