{:}If you are viewing this file in WordPerfect and are curious about the ^X and ^Y characters in the following lines, see the section entitled Saving Source Code in the User Reference Guide.~

{;}This is the MPE4WP Create macro, which is assigned to CTRL-C on the MPE4WP keyboard.  Create attempts to verify that the file in the active window has been saved, then shells out to DOS to run MC.COM.
Copyright 1991 Michael H. Shacter

YOU MUST FILL IN THE FULL PATH NAME OF MC.COM, IF IT IS NOT 
IN A DIRECTORY ON YOUR DOS PATH.  IF MC.COM IS IN THE SAME 
DIRECTORY AS WORDPERFECT, THE EDITED LINE MIGHT READ: 
"{{ASSIGN}FullPN{~}C:\WP51\MC{~}"
BUT WITH REAL TILDES, NOT BRACKETED ONES.

EDIT HERE~

{ASSIGN}FullPN~MC~	{;}<-- EDIT THE COMMAND TO THE LEFT
								by inserting the full path name of 
								MC.COM between the tildes
EDIT HERE~
{IF}!{STATE}&4~
	{RETURN}
{END IF}
{ON CANCEL}{GO}end~~
{ON ERROR}{GO}end~~
{IF}!{SYSTEM}document~&1~{GO}no~{END IF}
{LABEL}again~
{CHAR}key~
{^P}{3}{7}{^]}ÕÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͸
{^P}{3}{8}³ The document in this window has been modified since it was last saved. ³
{^P}{3}{9}³ Would you like to save it before creating your macro? {^V}Y{^Q}{^]}es ({^V}N{^Q}{^]}o)         ³
{^P}{3}{10}ÔÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ;{^\}
{^P}{59}{9}
~	
{CASE}{VARIABLE}key~~
	y~yes~Y~yes~{Enter}~yes~
	n~no~N~no~
	{ELSE}~again~
~
{LABEL}yes~
{DISPLAY OFF}{DISPLAY ON}
{STATUS PROMPT}{Del to EOP}
{Home}{^Q}ÕÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͸{Enter}
³ Pausing while you save your file; ³{Enter}
³ Press {^]}Exit{^\} (F7) to continue       ³{Enter}
³ with macro creation.              ³{Enter}
ÔÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ;{Enter}
~
{Text In/Out}ag
{PAUSE KEY}{Exit}~
{STATUS PROMPT}~
{DISPLAY OFF}{DISPLAY ON}

{LABEL}no~
{Shell}c{VARIABLE}FullPN~{Enter}
{IF}{LEN}FullPN~=2~
	{PROMPT}
	{^P}{19}{8}{^]}ÕÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͸
	{^P}{19}{9}³You may be able to achieve performance  ³
	{^P}{19}{10}³improvements by modifying this macro to ³
	{^P}{19}{11}³specify the full path name of MC.COM.   ³
	{^P}{19}{12}ÔÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ;{^\}
	~
{END IF}
{CHAR}~{^]}Press any key to continue{^\}~
*

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