Compile Insert window.constants * rjc 12-08-15 Import from Arev_bp * W.ENV LAYOUT EQU NEXT.HELP.NO$ TO 1 EQU VARY.TYPE$ TO 2 EQU VARY.POS$ TO 3 EQU PRESERVE.KEYS$ TO 4 EQU PRESERVE.FIELDS$ TO 5 EQU DFLT.MASK$ TO 6 EQU BROWSE.OFF$ TO 8 * DISPLAY.ACTION DEFINITIONS EQU REDISPLAY.HIGHLIGHTS$ TO 4 EQU REDISPLAY.PROMPTS$ TO 5 EQU REDISPLAY.LIST$ TO 6 EQU REDISPLAY.ALL$ TO 7 EQU RECALC.PROMPTS$ TO 9 * WINDOW.ACTION DEFINITIONS EQU TOGGLE.TW.MODE$ TO 1 EQU PRINT.BROWSE.LIST$ TO 2 EQU MPR.MODE$ TO 12 EQU PAN.MODE$ TO 4 EQU MOVE.MODE$ TO 8 EQU RESIZE.MODE$ TO 12 * PROMPT.TYPE DEFINITIONS EQU PT.FILE$ TO 1 EQU PT.KEY$ TO 2 EQU PT.SYMBOLIC$ TO 3 EQU PT.DATA$ TO 4 * AMV.VARS DEFINITIONS EQU AMV.DISPLAY$ TO 1 EQU AMV.WIDTH$ TO 2 EQU AMV.DEPTH$ TO 3 EQU AMV.MAX$ TO 4 EQU AMV.LINER$ TO 5 * AMV.ACTION DEFINITIONS EQU AMV.CLEAR$ TO 1 EQU AMV.DELETE$ TO 2 EQU AMV.INSERT$ TO 3 EQU AMV.CHANGED$ TO 4 EQU AMV.CHANGED.ALL$ TO 5 * MODULE # PARAMETER TO JOINER() EQU READ.ALL.JOINS$ TO 1 EQU CHANGE.JOIN$ TO 2 EQU UNLOCK.JOIN$ TO 3 EQU UPDATE.JOIN$ TO 4 EQU DELETE.JOIN$ TO 5 EQU INIT.JOIN$ TO 6 EQU JOIN.COUNT$ TO 9 * PSEUDO.FILE LAYOUT EQU PSEUDO.SETUP$ TO 1 EQU PSEUDO.SAVE$ TO 4 EQU PSEUDO.EXIT$ TO 7 *EQU PSEUDO.SET$ TO 8 (Removed to allow collector window to null pseudo.file) * FORMAT TYPE EQU TEXT TO 'T' EQU NOFORMAT TO 'TN' * RESET VALUES EQU CLEAN.UP.LINE$ TO 1 EQU CLEAN.UP.EDIT$ TO 2 EQU RESET.EDIT$ TO 3 EQU RESET.PROMPT$ TO 4 EQU RESET.RECORD$ TO 5 EQU RESET.WINDOW$ TO 6 * EXTRA KEY DEFINITIONS *EQU COPY.KEY$ TO \002E\ ;* 02/02/88 - DW - SPEC 111 USED IN WIN.INT * Source Date: 13:11:06 28 JUL 1992 Build ID: AREV*2.2.58 Level: 2.2