{;}This is the MPE4WP Special Keys macro, which is assigned to CTRL-S on the MPE4WP keyboard.  Special keys facilitates the insertion of the special keys {{ALT x}, {{KEY MACRO nn}, and {{VAR n}.  The macro only permits numbers to be used with {{KEY MACRO nn} and {{VAR n}.  There is no error checking for legal keys with {{ALT x}.  For information regarding "legal" keys with XALT keys, please see the User Reference Guide.
Copyright 1991 Michael H. Shacter~
{IF}!{STATE}&4~
	{RETURN}
{END IF}
{ON ERROR}{GO}end~~
{ON CANCEL}{GO}end~~
{ON NOT FOUND}~


{CHAR}S~
{^P}{25}{4}                              
{^P}{25}{5}   {^R}ΥΝΝΝΝΝ{^S}{^N}{Home}Special Keys{^O}{Home}{^R}ΝΝΝΝΝΈ{^S}   
{^P}{25}{6}   {^R}³{^S}                      {^R}³{^S}   
{^P}{25}{7}   {^R}³{^S}   {^]}1{^\}. {{{^V}A{^Q}LT x}}         {^R}³{^S}   
{^P}{25}{8}   {^R}³{^S}   {^]}2{^\}. {{{^V}K{^Q}EY MACRO n}}   {^R}³{^S}   
{^P}{25}{9}   {^R}³{^S}   {^]}3{^\}. {{{^V}V{^Q}AR n}}         {^R}³{^S}   
{^P}{25}{10}   {^R}³{^S}                      {^R}³{^S}   
{^P}{25}{11}   {^R}ΤΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΎ{^S}   
{^P}{25}{12}                              
{^P}{26}{83}
~
{CASE}{VARIABLE}S~~
	a~alt~A~alt~1~alt~
	k~km~K~km~2~km~
	v~var~V~var~3~var~
{ELSE}~end~
~
			{;} You may change the preceding {{ELSE} to {{OTHERWISE}, if 
			supported by your release of WP5.1 (8/20/90 and later)~

{LABEL}alt~

{DISPLAY OFF}{DISPLAY ON}
{PROMPT}
{^P}{22}{6}                                    
{^P}{22}{7}   {^R}ΥΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΈ{^S}   
{^P}{22}{8}   {^R}³{^S} Type any "legal" character {^R}³{^S}   
{^P}{22}{9}   {^R}ΤΝΝΝΝΝΝΝΝΡΝΝΝΝΝΝΝΝΝΡΝΝΝΝΝΝΝΝΝΎ{^S}   
{^P}{22}{10}            {^R}³{^S} {{ALT {^V} {^Q}}} {^R}³{^S}   
{^P}{22}{11}            {^R}ΤΝΝΝΝΝΝΝΝΝΎ{^S}   
{^P}{22}{12}                                    
{^P}{41}{10}
~
{CHAR}key~~
{CALL}upper~
{{ALT {VARIABLE}key~}}
{Right}
{GO}end~

{LABEL}upper~
{ASSIGN}key#~{KTON}{VARIABLE}key~~~
{IF}{VARIABLE}key#~>96&{VARIABLE}key#~<123~
	{ASSIGN}key#~{VARIABLE}key#~-32~
	{ASSIGN}key~{NTOK}{VARIABLE}key#~~~
{END IF}
{RETURN}

{LABEL}km~
{DISPLAY OFF}{DISPLAY ON}
{ASSIGN}kmac~~
{LABEL}next~
{CALL}get#~
{CHAR}key~~
{IF}"{VARIABLE}key~"="{Enter}"~
	{{KEY MACRO {VARIABLE}kmac~}}{Right}
	{GO}end~
{END IF}
{IF}{KTON}{VARIABLE}key~~<48|{KTON}{VARIABLE}key~~>57~
{CALL}#only~
	{ASSIGN}key~~
	{WAIT}10~
	{CALL}get#~
{END IF}
{ASSIGN}kmac~{VARIABLE}kmac~{VARIABLE}key~~
{GO}next~

{LABEL}get#~
{PROMPT}
{^P}{18}{7}                                         
{^P}{18}{7}   {^R}ΥΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΈ{^S}   
{^P}{18}{8}   {^R}³{^S} Type any number and press ENTER {^R}³{^S}   
{^P}{18}{9}   {^R}ΤΝΝΝΝΝΝΝΡΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΡΝΝΝΝΝΝΝΎ{^S}   
{^P}{18}{10}           {^R}³{^S} {{KEY MACRO      {^R}³{^S}   
{^P}{18}{11}           {^R}ΤΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΎ{^S}   
{^P}{18}{12}                                         
{^P}{43}{10}{^V}{VARIABLE}kmac~ {^Q}}}{Left}{Left}
~
{RETURN}

{LABEL}#only~
{PROMPT}
{^P}{27}{7}ΥΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΈ
{^P}{27}{8}³ {^R}Numbers only, please{^S} ³
{^P}{27}{9}ΤΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΎ
~
{RETURN}

{LABEL}var~
{CALL}var#~
{LABEL}again~
{CHAR}key~~
{IF}{KTON}{VARIABLE}key~~<48|{KTON}{VARIABLE}key~~>57~
	{CALL}#only~
	{ASSIGN}key~~
	{WAIT}10~
	{CALL}var#~
	{GO}Again~
{END IF}
{{VAR {VARIABLE}key~}}
{GO}end~

{LABEL}var#~
{DISPLAY OFF}{DISPLAY ON}
{PROMPT}
{^P}{18}{6}                                         
{^P}{18}{7}   {^R}ΥΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΈ{^S}   
{^P}{18}{8}   {^R}³{^S}°°°°°°°° Type any number °°°°°°°°{^R}³{^S}   
{^P}{18}{9}   {^R}ΤΝΝΝΝΝΝΝΝΝΝΝΡΝΝΝΝΝΝΝΝΝΡΝΝΝΝΝΝΝΝΝΝΝΎ{^S}   
{^P}{18}{10}               {^R}³{^S} {{VAR {^V} {^Q}}} {^R}³{^S}   
{^P}{18}{11}               {^R}ΤΝΝΝΝΝΝΝΝΝΎ{^S}   
{^P}{18}{12}                                         
{^P}{40}{10}
~
{RETURN}

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