/*
 * Compile
 */

/*
 * TNIX/Unix/VMS Version
 * Keyshell Version Number 1
 */

compile
{
>
>\kC\e - Invoke the \uC\n compiler and related utilities.
>
>\kpascal\e - Invoke the \upascal\n compiler and related utilities.
>
>\kdone\e - Return to the previous level.
>
msg(^Choose the compiler you wish to use. %%);
f1;C;
#ifdef _c
	[c];
#else
	{
>
>ColorKey+ is not currently setup with keys for the C compiler.
>To add them, run \usetksh\n and build a new custom configuration if 
>the Tektronix C compiler is available at your site. 
>
	msg (^Displaying message.), sly (history off), sly (shiftkey 4),
	sly (history on), msg, break;
	};
#endif

f2;pascal;
#ifdef _pascal
	[pascal];
#else
	{
>
>ColorKey+ is not currently setup with keys for the pascal compiler.
>To add them, run \usetksh\n and build a new custom configuration if 
>the Tektronix pascal compiler is available at your site. 
>
	msg (^Displaying message.), sly (history off), sly (shiftkey 4),
	sly (history on), msg, break;
	};
#endif

f8;done;cmd,msg,break;
}
