/********************************************************************/
/* Package  : TeXShell for CMS, version 2.0                         */
/* Author   : Humberto Jose' Bortolossi                             */
/*                                                                  */
/* Bitnet   : hjbortol at brlncc.bitnet, hjbortol at brfuem.bitnet  */
/* INTERNET : HJBORTOL AT IMPA.BR                                   */
/*                                                                  */
/* Organizations : Instituto de Matematica Pura e Aplicada (IMPA)   */
/*                 Fundacao Universidade Estadual de Maringa'       */
/*                                                                  */
/* Copyright : This program is freely distributable.                */
/*             You can do changes but, please, keep my name.        */
/*                                                                  */
/* Description : Main program. It just edits  a  file  using  XEDIT */
/*               a special profile (TEXSHELL PROFILE).              */
/*                                                                  */
/*                                       (C) Copyright 1992-1993    */
/********************************************************************/
 
 parse arg fn ft fm .
 
 hi = '1de8'x
 lo = '1d60'x
 
'set emsg off'
'listfile TEXSHELL XEDIT * (ALLOC NOHEADER STACK'
 if rc /= 0 then do
      DropBuf
      say
      say center('File TEXSHELL XEDIT not found.',80,' ')
      say
      call copyright
      exit 0
 end
'set emsg on'
 
 DropBuf
 
 do while fn = ''
     say 'File name:'
     pull fn
 end
 
 if ft = '' then ft = 'TEX'
 if fm = '' then fm = 'A'
 
 say 'Primary file <fn> <ft> <fm> (default: edit file):'
 pull pfn pft pfm
 
 if pfn = '' then pfn = fn
 if pft = '' then pft = ft
 if pfm = '' then pfm = fm
 
'set emsg off'; erase 'PRIMARY FILE *'; 'set emsg on'
'execio 1 diskw PRIMARY FILE' fm '(FINIS STRING' pfn pft pfm
 
'XEDIT' fn ft fm '(prof TEXSHELL'
 call copyright
 
 exit 0
 
copyright:
    msg.1  = '                                                        '
    msg.2  = '+------------------------------------------------------+'
    msg.3  = '|                   TeXshell for CMS                   |'
    MSG.4  = '|                     VERSION 2.00                     |'
    msg.5  = '|                                                      |'
    msg.6  = '|               Humberto Jose'' Bortolossi              |'
    msg.7  = '|                                                      |'
    msg.8  = '|        Instituto de Matematica Pura e Aplicada       |'
    msg.9  = '|                                                      |'
    msg.10 = '| (C) Copyright   BITNET   : hjbortol at brlncc        |'
    msg.11 = '|     1992-1993   INTERNET : hjbortol at impa.br       |'
    msg.12 = '+------------------------------------------------------+'
    msg.13 = '                                                        '
    say hi msg.1
    do i = 2 to 12
       say center(msg.i,80,' ')
    end
    do 1
        say msg.13
    end
    say msg.13 lo
 
 return