RMS.COMMON

* =================================== RMS.COMMON ========================================
* COM: 'INCLUDE' This is all RMS Compatible Programs.
* =======================================================================================
* 29.Dec.2010 james: Add RMS$USER.GROUP.S
* 16.Jan.2008 jim: Add LAST.ID.FILE for INPUT and other misc programs.
* 20.Jun.2007 jim: FKEY.ACTS is obsolete.
* 24.Jan.2007 jim: Add RMS$PID for Process ID; use UNUSED position.
* 13.Sep.2006 jim: Add PLATFORM 'Cache' or '[[UniVerse]]' for Cache migration.
* 07/29/91 Major Universe Version: Named Commons !(STD.SETUP only once)
* 01/21/90 ADD ALL TERMINAL, PRINTER STUFF FOR DSI
* =======================================================================================
*
*     These are NAMED COMMONS: once they are set, they stay set until
*     changed. Programs DO NOT need to include them if they are not
*     used: they MAY have other commons which will not hurt these !
*
* =======================================================================================

  common [[/RMS]]/ CLR, EJECT, ES, BELL, RN, RF, EL, TRUE, FALSE, AM, VM, SVM, ILEN, C.R
  common [[/RMS]]/ TERMTYPE, EMBED.ATTR, TOP.LINE, BOT.LINE  ;*  TERMINAL SPECIFIC
  common [[/RMS]]/ HD.CLR, BD.CLR, PR.CLR, M1.CLR, M2.CLR, BK.CLR, IN.CLR, ER.CLR, SP.CLR
  
  common [[/RMS]]/ USER.NO, USER.ID, SEC.LVL

  common [[/RMS]]/ ENTER.PARAMS, ENTER.RETURN  ;*  FOR FASTER MENUS TO INPUT
  common [[/RMS]]/ FKEY.LEAD         ;*  1st char of func-keys (must all be the same)
  common [[/RMS]]/ DEBUG.FLAG        ;*  GLOBAL DEBUGGING FLAG !
  common [[/RMS]]/ FKEY.DELAY        ;*  MACHINE-DEPENDANT HOW LONG FOR F-KEY
  common [[/RMS]]/ INS.MODE          ;*  Global Insert-Mode Flag (false=replace)
  common [[/RMS]]/ RMS$USER.GROUP.S  ;*  Now keep their list of Groups in Common too

  common [[/RMS]]/ FKEY.LEVEL   ;*  How deep in function keys are we ?

  common [[/RMS]]/ SYSTEM.NAME  ;*  01/25/95 For DA stuff: everyone wants to know !
  common [[/RMS]]/ SYSTEM.OS    ;*  09/11/2002 Added for System Test
  common [[/RMS]]/ PLATFORM     ;*  'Cache' or '[[UniVerse]]' (will be '0' if never set)
  common [[/RMS]]/ RMS$PID      ;*  Process ID: new syntax for Named Common ?

  common [[/RMS]]/ UNUSED(2)    ;*  FOR LATER USE (+ see one above)
  common [[/RMS]]/ OUT.MSGS, OUT.FLAG

  *  UNUSED ?: The TERMINAL array is pretty much obsolete now with terminal
  *  emulation being used everywhere; but we would have to remove all references
  *  to it and hard-code (or use a static EQU) instead; so leave it for now:

  common [[/RMS]]/ LINE.REC(10), TERMINAL(75), PRINTER(20)

  *old: common [[/RMS]]/ FKEY.ACTS(12)  ;*  Global Function Key Actions
  
  * @TODO : Move this here from INPUT.COMMON:
  *common [[/RMS]]/ LAST.ID.FILE
  common [[/RMS]]/ RMS.UNUSED(12)