********************************************************************
* Package  : TeXShell for CMS, version 2.0                         *
* Author   : Humberto Jose' Bortolossi                             *
*                                                                  *
* Bitnet   : hjbortol at brlncc.bitnet, hjbortol at brfuem.bitnet  *
* Internet : hjbortol at gauss.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 profile xedit.                                *
*                                                                  *
*                                               (C) Copyright 1992 *
********************************************************************
*
* SET DEFAULT FILE TYPE TO SCRIPT
*
         &IF &N = 0 &EXIT
         &IF &N = 1 &ARGS &1 SCRIPT
         &COMMAND STATE &1 &2
         &IF &RC = 0 &GOTO -LOAD
         & = &LOCATION OF &2 SCRIPT
         &IF & ^= 1 &GOTO -LOAD
         &ARGS &1 SCRIPT
-LOAD    LOAD &1 &2
         &IF &RC ^= 0 &EXIT &RC
&FN = &1
&FT = &2
&FM = &3
COMMAND TRANSFER TERMINAL NBFILE SIZE SCREEN
&READ VARS &TERMINAL &NBFILE &SIZE &SCR1 &LIN
&IF &TERMINAL = TYPEWRITER &GOTO -NOPFKEYS
&L23 = &LIN - 1
&L24 = &LIN
SET PF1  TEXHELP  &FM
SET PF2  SAVE
SET PF3  FILE
SET PF4  COMPOSE  &FM
SET PF5  LOGVIEW  &FM
SET PF6  VIEW     &FM
SET PF7  BACKWARD
SET PF8  FORWARD
SET PF9  XSPYTEX
SET LINEND OFF
SET PF10 SPLIT CURSOR
SET PF11 JOIN CURSOR
SET LINEND ON
SET PF12 PRINTTEX &FM
SET TEXT ON
SET APL ON
RESER &L23 H ____________________________________________________________________________________________________________________________________________
RESER &L24 H F1 = Help F2 = Save F4 = Compose F5 = LogView F6 = View F9 = Macros F12 = Print
-NOPFKEYS
SET ARBCHAR ON $
SET AUTOSAVE 15
SET CASE MIXED IGNORE
SET CMDLINE TOP
SET CURLINE ON 3
SET TABLINE ON 3
SET MSGMODE ON LONG
SET FULLREAD ON
SET NULLS ON
SET NUMB ON
SET PREFIX ON LEFT
* T PREFIX NULLS
SET SCALE ON 3
SET SPAN ON BLANK
SET STAY  ON
SET COLOR ARROW REVVIDEO NOHI
SET COLOR STATAREA REVVIDEO NOHI
SET COLOR MSGLINE BLINK
SET SYN DSPF Q PF
SET SYN DOWN 1 UP
SET SYN UP 1 DOWN
SET VAR ON
SET WRAP ON
SET MSGMODE ON LONG
SET SPAN ON BLANK
SET STAY  ON
SET COLOR ARROW REVVIDEO NOHI
SET COLOR STATAREA REVVIDEO NOHI
SET COLOR MSGLINE BLINK
SET SYN DSPF Q PF
SET SYN DOWN 1 UP
SET SYN UP 1 DOWN
SET VAR ON
SET WRAP ON