added sysprog entities

2024-03-25 15:17:34 -07:00
parent 600a8e1f61
commit 3a6a2b6b5b
1028 changed files with 171660 additions and 0 deletions
--- a/SYSPROG/STPROCINS/WINUS.CONSTANTS.txt
+++ b/SYSPROG/STPROCINS/WINUS.CONSTANTS.txt
@ -0,0 +1,58 @@
+compile insert WINUS.CONSTANTS
+*  Winus constants
+*
+*  Change History
+*
+*  01/16/87  JAW  Changed to new edit keys definition
+*
+*
+EQU ULINE       TO CHAR(186)
+EQU FORWARD     TO 'F' : @FM
+EQU ROUND       TO 0.9999
+EQU DFLT.NCOLS  TO 7
+*-->11/27/90 rkp commented this guy out. isn't used anywhere
+*EQU NOHELP.EXIT TO 'No help specified ... press <Esc> to exit'
+*-->11/27/90
+*
+*  MENU.NAME field constants
+*
+EQU MTITLE      TO 1                ;* Menu title in field 1
+EQU MTYPE       TO 2                ;* (No longer used? - 10/23/91 SLJ)
+EQU MACCOUNTS   TO 2                ;* Accounts with access to this menu.
+EQU MDIM        TO 3                ;* Number of columns in AREV-style menus.
+EQU MSEL        TO 4                ;* Menu selection. this value is diplayed to the user.
+EQU MDESC       TO 5                ;* Menu description
+                                     * Shows at bottom of menu or status line
+                                     *   longer descriptions are stored as subvalues and are
+                                     *   shown as default detail help
+EQU MCOM        TO 6                ;* Menu command. this command is processed when it is selected from menu
+EQU MCODE       TO 7                ;* Menu code. this is a code determines how to process MCOM
+EQU MSELRESTRICT TO 8               ;* Restricion level of each item
+EQU MCONCEPT    TO 9                ;* Concept help (CODE,CMD or id)
+EQU MCAPS       TO 10               ;* Menu capital letter selections. bypasses movement keys
+EQU MANCHOR     TO 11               ;* Menu anchor. if a menu is anchored, the command selection will
+                                     *   be processed without popping out of menu.
+EQU MATR        TO 12               ;* Menu video attributes.
+EQU MUPSWD      TO 13               ;* Menu password(s).
+EQU MULEVEL     TO 14               ;* Menu restriction level.
+EQU MSELPSWD    TO 15               ;* Menu passwords for individual selections.
+                                     * Multiple passwords stored as subvalues
+EQU MTUTOR      TO 16               ;* Default detail help (CODE,CMD or id)
+EQU MHELP       TO 17               ;* Help for each item (CODE,CMD or id)
+EQU MPUSHSES    TO 18               ;* Flag if true to push.session
+EQU MOPTCODE    TO 19               ;* Code and command for [F2]
+EQU MOPTCMD     TO 20
+equ standalone  to 21               ;* standalone flag
+EQU MLEVEL      TO 2
+*
+*  MENU selection cases
+*
+EQU SAVESEL TO @FM : @MOVE.KEYS<ENTER$> : @FM : @INT.CONST<SAVE$> : @FM  ;* Save current menu selection
+EQU UPSEL   TO @FM : @MOVE.KEYS<LEFT$> : @FM : @MOVE.KEYS<UP$> : @FM : @EDIT.KEYS<BACK$> : @FM  ;* Move left, up, or back one selection
+EQU DOWNSEL TO @FM : @MOVE.KEYS<RIGHT$> : @FM :@MOVE.KEYS<DOWN$> : @FM : " " : @FM  ;* Move right, down, or over one selection
+*
+*  Used for swapping @FM in and out of MENU.DATA
+*
+EQU SPOTS       TO CHAR(250)
+EQU MODULE$     TO 'MENU'
+* Source Date: 15:54:19  04 MAY 1994  Build ID: AREV_HR*3.1.23  Level: 3.13