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

pascal
{
>
>\kcompile\e - Compile your pascal source file.
>
>\kicsprompt\e - Create or modify an integration control file which will be
>            used with ics to link your pascal modules.
>
#if (_micro == _68000uP)
>\kics\e - Create a load module which will contain your pascal program.
#else
>\kics\e - Create a linker command file that will link your pascal program.
#endif
>
msg (^);
f1;compile;
     {
      >
#ifndef _VMS
      cmd (^pas -vlds ),
#else
      cmd (^pas "-vlds ),
#endif
	msg(^Enter pascal source file: %f), next;
      f1;;hist;
      f2;;hist;
      f3;;hist;
      f4;;hist;
      f5;;hist;
#ifdef _UNIX
      f6;listfiles; call, cmd (^ls *.ps), exec, return;
#else
#ifdef _VMS
      f6;listfiles; call, cmd (^dir *.ps), exec, return;
#else
Error!  No operating system specified.
#endif
#endif
      f7;manual; man(pas);
      f8;done; msg, cmd, break;},

     {
      >
#ifdef _VMS
      cmd("),
#endif
      cmd(>), msg(^Enter name of listing file to be created: %f),
      msg(^Do not use keys while the compiler is running.), exec, msg, next;
      f1;;hist;
      f2;;hist;
      f3;;hist;
      f4;;hist;
      f5;;hist;
#ifdef _UNIX
      f6;listfiles; call, cmd (^ls), exec, return;
#else
#ifdef _VMS
      f6;listfiles; call, cmd (^dir), exec, return;
#else
Error!  No operating system specified.
#endif
#endif
      f7;manual; man(pas);
      f8;done; msg, cmd, break;};

f2;icsprompt; 
   {cmd(^icsp ), msg(^Function keys are disabled.), exec, msg, next;};

f3;ics;
    {
     >
#if (_micro == _68000uP)
#ifndef _VMS
     cmd (^ics -vk ),
#else
     cmd (^ics "-vk ),
#endif
     msg(^Enter ICS source file: %f),
#ifdef _VMS
     cmd ("),
#endif
     msg(^Load file will have .lo extension.  Emulator setup file will have .ie extension.), exec, msg, next;
#else
#ifndef _VMS
     cmd (^ics -vo ),
#else
     cmd (^ics "-vo ),
#endif
     msg(^Enter ICS source file: %f),
#ifdef _VMS
     cmd ("),
#endif
     msg(^Linker command file will be have .ic extension.) , exec, msg, next;
#endif
     f1;;hist;
     f2;;hist;
     f3;;hist;
     f4;;hist;
     f5;;hist;
#ifdef _UNIX
     f6;listfiles; call, cmd (^ls *.is), exec, return;
#else
#ifdef _VMS
     f6;listfiles; call, cmd (^dir *.is), exec, return;
#else
Error!  No operating system specified.
#endif
#endif
     f7;manual; man(ics);
     f8;done; msg, cmd, break; };

f8;done; break; }
     
