{;}This is the MPE4WP Record Mode macro, which is assigned to CTRL-R on the MPE4WP keyboard.  Record Mode records keystrokes in an analogous manner to macro recording.  Use Record Mode to record all keystrokes required to access WordPerfect's deep menus.  It may be advisable to delete any formatting commands that WordPerfect inserts while in Record Mode.  Press CTRL-Q to play back the recording.
Copyright 1991 Michael H. Shacter~
{ON NOT FOUND}~
{ON CANCEL}{GO}cancel~~
{ON ERROR}{GO}end~~
{STATUS PROMPT}{^N}{^P}Recording{^O}{^P}  {^\}{^R}Ctrl-Q{^S}{^]} to quit.{^\}~
{ASSIGN}record~~
{ASSIGN}record1~~
{ASSIGN}record2~~
{ASSIGN}record3~~
{ASSIGN}record4~~
{ASSIGN}record5~~
{ASSIGN}record6~~
{ASSIGN}record7~~
{ASSIGN}record8~~
{ASSIGN}record9~~
{ASSIGN}i%~1~
{LABEL}Loop~
	{CHAR}key~~
	{ASSIGN}key~{ORIGINAL KEY}~	{;}Delete this line to use remapped values~
	{IF}{KTON}{VARIABLE}key~~=32800~{CALL}cancel~{END IF}
	{IF}{KTON}{VARIABLE}key~~>31&{KTON}{VARIABLE}key~~<127~
		{CALL}else~
	{ELSE}
		{CALL}{VARIABLE}key~~
	{END IF}
	{LABEL}continue~
	{ASSIGN}record~{VARIABLE}record~{VARIABLE}tkey~~
	{IF}{LEN}record~>110~
		{ASSIGN}i%~{VARIABLE}i%~+1~
			{IF}{VARIABLE}i%~=10~
				{GO}warn~
			{END IF}
		{IF}{VARIABLE}i%~=1~{CALL}next1~{END IF}
		{IF}{VARIABLE}i%~=2~{CALL}next2~{END IF}
		{IF}{VARIABLE}i%~=3~{CALL}next3~{END IF}
		{IF}{VARIABLE}i%~=4~{CALL}next4~{END IF}
		{IF}{VARIABLE}i%~=5~{CALL}next5~{END IF}
		{IF}{VARIABLE}i%~=6~{CALL}next6~{END IF}
		{IF}{VARIABLE}i%~=7~{CALL}next7~{END IF}
		{IF}{VARIABLE}i%~=8~{CALL}next8~{END IF}
		{IF}{VARIABLE}i%~=9~{CALL}next9~{END IF}
	{END IF}
	{VARIABLE}key~
{GO}Loop~

{LABEL}else~
{ASSIGN}tkey~{VARIABLE}key~~

{RETURN}

{LABEL}next1~
{ASSIGN}record1~{VARIABLE}record~~
{ASSIGN}record~~
{RETURN}
		
{LABEL}next2~
{ASSIGN}record2~{VARIABLE}record~~
{ASSIGN}record~~
{RETURN}
		
{LABEL}next3~
{ASSIGN}record3~{VARIABLE}record~~
{ASSIGN}record~~
{RETURN}
		
{LABEL}next4~
{ASSIGN}record4~{VARIABLE}record~~
{ASSIGN}record~~
{RETURN}
		
{LABEL}next5~
{ASSIGN}record5~{VARIABLE}record~~
{ASSIGN}record~~
{RETURN}
		
{LABEL}next6~
{ASSIGN}record6~{VARIABLE}record~~
{ASSIGN}record~~
{RETURN}
		
{LABEL}next7~
{ASSIGN}record7~{VARIABLE}record~~
{ASSIGN}record~~
{RETURN}
		
{LABEL}next8~
{ASSIGN}record8~{VARIABLE}record~~
{ASSIGN}record~~
{RETURN}
		
{LABEL}next9~
{ASSIGN}record9~{VARIABLE}record~~
{ASSIGN}record~~
{RETURN}
		
{LABEL}{Compose}~
{ASSIGN}tkey~{{Compose}~
{RETURN}

{LABEL}{^A}~
{ASSIGN}tkey~{{^A}~
{RETURN}

{LABEL}{^B}~
{ASSIGN}tkey~{{^B}~
{RETURN}

{LABEL}{^C}~
{ASSIGN}tkey~{{^C}~
{RETURN}

{LABEL}{^D}~
{ASSIGN}tkey~{{^D}~
{RETURN}

{LABEL}{^E}~
{ASSIGN}tkey~{{^E}~
{RETURN}

{LABEL}{^F}~
{ASSIGN}tkey~{{^F}~
{RETURN}

{LABEL}{^G}~
{ASSIGN}tkey~{{^G}~
{RETURN}

{LABEL}{Home}~
{ASSIGN}tkey~{{Home}~
{RETURN}

{LABEL}{Tab}~
{ASSIGN}tkey~{{Tab}~
{RETURN}

{LABEL}{Enter}~
{ASSIGN}tkey~{{Enter}~
{RETURN}

{LABEL}{Del to EOL}~
{ASSIGN}tkey~{{Del to EOL}~
{RETURN}

{LABEL}{Del to EOP}~
{ASSIGN}tkey~{{Del to EOP}~
{RETURN}

{LABEL}{^M}~
{ASSIGN}tkey~{{^M}~
{RETURN}

{LABEL}{^N}~
{ASSIGN}tkey~{{^N}~
{RETURN}

{LABEL}{^O}~
{ASSIGN}tkey~{{^O}~
{RETURN}

{LABEL}{^P}~
{ASSIGN}tkey~{{^P}~
{RETURN}


{LABEL}{^R}~
{ASSIGN}tkey~{{^R}~
{RETURN}

{LABEL}{^S}~
{ASSIGN}tkey~{{^S}~
{RETURN}

{LABEL}{^T}~
{ASSIGN}tkey~{{^T}~
{RETURN}

{LABEL}{^U}~
{ASSIGN}tkey~{{^U}~
{RETURN}

{LABEL}{^V}~
{ASSIGN}tkey~{{^V}~
{RETURN}

{LABEL}{Up}~
{ASSIGN}tkey~{{Up}~
{RETURN}

{LABEL}{Right}~
{ASSIGN}tkey~{{Right}~
{RETURN}

{LABEL}{Left}~
{ASSIGN}tkey~{{Left}~
{RETURN}

{LABEL}{Down}~
{ASSIGN}tkey~{{Down}~
{RETURN}

{LABEL}{Esc}~
{ASSIGN}tkey~{{Esc}~
{RETURN}

{LABEL}{^\}~
{ASSIGN}tkey~{{^\}~
{RETURN}

{LABEL}{^]}~
{ASSIGN}tkey~{{^]}~
{RETURN}

{LABEL}{Keyboard}~
{ASSIGN}tkey~{{Keyboard}~
{RETURN}

{LABEL}{^_}~
{ASSIGN}tkey~{{^_}~
{RETURN}



{LABEL}cancel~
{ASSIGN}tkey~{{Cancel}~
{GO}continue~

{LABEL}{Search}~
{ASSIGN}tkey~{{Search}~
{RETURN}

{LABEL}{Help}~
{ASSIGN}tkey~{{Help}~
{RETURN}

{LABEL}{Indent}~
{ASSIGN}tkey~{{Indent}~
{RETURN}

{LABEL}{List}~
{ASSIGN}tkey~{{List}~
{RETURN}

{LABEL}{Bold}~
{ASSIGN}tkey~{{Bold}~
{RETURN}

{LABEL}{Exit}~
{ASSIGN}tkey~{{Exit}~
{RETURN}

{LABEL}{Underline}~
{ASSIGN}tkey~{{Underline}~
{RETURN}

{LABEL}{End Field}~
{ASSIGN}tkey~{{End Field}~
{RETURN}

{LABEL}{Save}~
{ASSIGN}tkey~{{Save}~
{RETURN}

{LABEL}{F11}~
{ASSIGN}tkey~{{F11}~
{RETURN}

{LABEL}{F12}~
{ASSIGN}tkey~{{F12}~
{RETURN}

{LABEL}{Setup}~
{ASSIGN}tkey~{{Setup}~
{RETURN}

{LABEL}{Search Left}~
{ASSIGN}tkey~{{Search Left}~
{RETURN}

{LABEL}{Switch}~
{ASSIGN}tkey~{{Switch}~
{RETURN}

{LABEL}{L/R Indent}~
{ASSIGN}tkey~{{L/R Indent}~
{RETURN}

{LABEL}{Date/Outline}~
{ASSIGN}tkey~{{Date/Outline}~
{RETURN}

{LABEL}{Center}~
{ASSIGN}tkey~{{Center}~
{RETURN}

{LABEL}{Print}~
{ASSIGN}tkey~{{Print}~
{RETURN}

{LABEL}{Format}~
{ASSIGN}tkey~{{Format}~
{RETURN}

{LABEL}{Merge Codes}~
{ASSIGN}tkey~{{Merge Codes}~
{RETURN}

{LABEL}{Retrieve}~
{ASSIGN}tkey~{{Retrieve}~
{RETURN}

{LABEL}{Shft F11}~
{ASSIGN}tkey~{{Shft F11}~
{RETURN}

{LABEL}{Shft F12}~
{ASSIGN}tkey~{{Shft F12}~
{RETURN}

{LABEL}{Thesaurus}~
{ASSIGN}tkey~{{Thesaurus}~
{RETURN}

{LABEL}{Replace}~
{ASSIGN}tkey~{{Replace}~
{RETURN}

{LABEL}{Reveal Codes}~
{ASSIGN}tkey~{{Reveal Codes}~
{RETURN}

{LABEL}{Block}~
{ASSIGN}tkey~{{Block}~
{RETURN}

{LABEL}{Mark Text}~
{ASSIGN}tkey~{{Mark Text}~
{RETURN}

{LABEL}{Flush Right}~
{ASSIGN}tkey~{{Flush Right}~
{RETURN}

{LABEL}{Columns/Tables}~
{ASSIGN}tkey~{{Columns/Tables}~
{RETURN}

{LABEL}{Style}~
{ASSIGN}tkey~{{Style}~
{RETURN}

{LABEL}{Graphics}~
{ASSIGN}tkey~{{Graphics}~
{RETURN}

{LABEL}{Macro}~
{ASSIGN}tkey~{{Macro}~
{RETURN}

{LABEL}{Alt F11}~
{ASSIGN}tkey~{{Alt F11}~
{RETURN}

{LABEL}{ALT F12}~
{ASSIGN}tkey~{{ALT F12}~
{RETURN}

{LABEL}{Shell}~
{ASSIGN}tkey~{{Shell}~
{RETURN}

{LABEL}{Spell}~
{ASSIGN}tkey~{{Spell}~
{RETURN}

{LABEL}{Screen}~
{ASSIGN}tkey~{{Screen}~
{RETURN}

{LABEL}{Move}~
{ASSIGN}tkey~{{Move}~
{RETURN}

{LABEL}{Text In/Out}~
{ASSIGN}tkey~{{Text In/Out}~
{RETURN}

{LABEL}{Tab Align}~
{ASSIGN}tkey~{{Tab Align}~
{RETURN}

{LABEL}{Footnote}~
{ASSIGN}tkey~{{Footnote}~
{RETURN}

{LABEL}{Font}~
{ASSIGN}tkey~{{Font}~
{RETURN}

{LABEL}{Merge/Sort}~
{ASSIGN}tkey~{{Merge/Sort}~
{RETURN}

{LABEL}{Macro Define}~
{ASSIGN}tkey~{{Macro Define}~
{RETURN}

{LABEL}{Ctrl F11}~
{ASSIGN}tkey~{{Ctrl F11}~
{RETURN}

{LABEL}{Ctrl F12}~
{ASSIGN}tkey~{{Ctrl F12}~
{RETURN}

{LABEL}{Backspace}~
{ASSIGN}tkey~{{Backspace}~
{RETURN}

{LABEL}{Del}~
{ASSIGN}tkey~{{Del}~
{RETURN}

{LABEL}{Del Word}~
{ASSIGN}tkey~{{Del Word}~
{RETURN}

{LABEL}{Word Right}~
{ASSIGN}tkey~{{Word Right}~
{RETURN}

{LABEL}{Word Left}~
{ASSIGN}tkey~{{Word Left}~
{RETURN}

{LABEL}{End}~
{ASSIGN}tkey~{{End}~
{RETURN}

{LABEL}{Home-Home-Left}~
{ASSIGN}tkey~{{Home-Home-Left}~
{RETURN}

{LABEL}{INVALID}~
{ASSIGN}tkey~{{Invalid}~
{RETURN}

{LABEL}{Goto}~
{ASSIGN}tkey~{{Goto}~
{RETURN}

{LABEL}{Page Up}~
{ASSIGN}tkey~{{Page Up}~
{RETURN}

{LABEL}{Page Down}~
{ASSIGN}tkey~{{Page Down}~
{RETURN}

{LABEL}{Screen Down}~
{ASSIGN}tkey~{{Screen Down}~
{RETURN}

{LABEL}{Screen Up}~
{ASSIGN}tkey~{{Screen Up}~
{RETURN}

{LABEL}{Typeover}~
{ASSIGN}tkey~{{Typeover}~
{RETURN}

{LABEL}{Left Mar Rel}~
{ASSIGN}tkey~{{Left Mar Rel}~
{RETURN}

{LABEL}{HPg}~
{ASSIGN}tkey~{{HPg}~
{RETURN}

{LABEL}{SHy}~
{ASSIGN}tkey~{{SHy}~
{RETURN}

{LABEL}{-}~
{ASSIGN}tkey~{{-}~
{RETURN}

{LABEL}{ }~
{ASSIGN}tkey~{{ }~
{RETURN}

{LABEL}{Para Up}~
{ASSIGN}tkey~{{Para Up}~
{RETURN}

{LABEL}{Para Down}~
{ASSIGN}tkey~{{Para Down}~
{RETURN}

{LABEL}{Item Left}~
{ASSIGN}tkey~{{Item Left}~
{RETURN}

{LABEL}{Item Right}~
{ASSIGN}tkey~{{Item Right}~
{RETURN}

{LABEL}{Item Up}~
{ASSIGN}tkey~{{Item Up}~
{RETURN}

{LABEL}{Item Down}~
{ASSIGN}tkey~{{Item Down}~
{RETURN}

{LABEL}{Alt Home}~
{ASSIGN}tkey~{{Alt Home}~
{RETURN}

{LABEL}{Del Word (Row)}~
{ASSIGN}tkey~{{Del Word (Row)}~
{RETURN}

{LABEL}{Menu Bar}~
{ASSIGN}tkey~{{Menu Bar}~
{RETURN}

{LABEL}{Block Append}~
{ASSIGN}tkey~{{Block Append}~
{RETURN}

{LABEL}{Block Move}~
{ASSIGN}tkey~{{Block Move}~
{RETURN}

{LABEL}{Block Copy}~
{ASSIGN}tkey~{{Block Copy}~
{RETURN}

{LABEL}warn~
{CHAR}~
{^P}{19}{7}ÕÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͸
{^P}{19}{8}³ You have run out of recording space. ³
{^P}{19}{9}³ Please press any key to play back    ³
{^P}{19}{10}³ your recording.                      ³
{^P}{19}{11}ÔÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ;
~
{LABEL}{^Q}~
{DISPLAY OFF}

{LABEL}main~
	{IF}{STATE}&8~{Exit}{END IF}					{;}if at main editing screen~
	{IF}{STATE}&4~
			{GO}dump~
		{ELSE}
			{Exit}{Exit}{Cancel}
	{END IF}
	{IF}({STATE}&4092)=32~		{;}assume you're in help~
		{Enter}
	{END IF}
{GO}main~				{;}go back and see where we are now~

{LABEL}dump~
{STATUS PROMPT}{^Q}Move cursor; press {^]}Enter{^\} to play back~
{PAUSE}
{DISPLAY OFF}
{VARIABLE}record1~
{VARIABLE}record2~
{VARIABLE}record3~
{VARIABLE}record4~
{VARIABLE}record5~
{VARIABLE}record6~
{VARIABLE}record7~
{VARIABLE}record8~
{VARIABLE}record9~
{VARIABLE}record~
{ASSIGN}record~~
{ASSIGN}record1~~
{ASSIGN}record2~~
{ASSIGN}record3~~
{ASSIGN}record4~~
{ASSIGN}record5~~
{ASSIGN}record6~~
{ASSIGN}record7~~
{ASSIGN}record8~~
{ASSIGN}record9~~

{LABEL}end~

{STATUS PROMPT}~
{Screen}{Screen}
{QUIT}