*
* 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
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  COMMAND HELP
SET PF13 COMMAND HELP
* SET PF1  COMMAND HELP MENU
* SET PF13 COMMAND HELP MENU
SET PF2  COMMAND SCREEN 2
SET PF14 COMMAND SCREEN 2
SET PF3  QUIT
SET PF15 QUIT
SET PF4  TABKEY
SET PF16 TABKEY
SET PF5  ACENTUA
SET PF17 ACENTUA
SET LINEND OFF
SET PF6 BOT #BACK
SET LINEND ON #
SET PF18 ?
SET PF7  BACKWARD
SET PF19 BACKWARD
SET PF8  FORWARD
SET PF20 FORWARD
SET PF9  FILE
SET PF21 FILE
SET LINEND OFF
SET PF10 SPLIT CURSOR
SET PF22 SPLIT CURSOR
SET PF11 JOIN CURSOR
SET PF23 JOIN CURSOR
SET LINEND ON
SET PF12 CMS
SET PF24 CMS
SET TEXT ON
SET APL ON
RESER &L23 H ____________________________________________________________________________________________________________________________________________
RESER &L24 H 1=HELP 2=SCR2 3=QUI 4=TABS 5=ACEN 6=BOT 7=BA 8=FO 9=FILE 10=SPL 11=JOIN 12=CMS
-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 PF6 XSPYTEX
****  SETAMENTOS PARA USO DO JUSTIFY:
      SET PREFIX SYNONYM J  PREFIXJ
      SET PREFIX SYNONYM JJ PREFIXJ
      SET PREFIX SYNONYM B  PREFIXB
      SET PREFIX SYNONYM BB PREFIXB
      SET PREFIX SYNONYM TF PREFIXTF
      SET MSGMODE OFF
      JM R73
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