Listing: 1 DEFINITION MODULE Editor; 2 (* 3 * REPERTOIRE 4 * Release 1.6 5 * By Charles Bradford and Cole Brecheen 6 * (c) Copyright 1985-1992 PMI 7 * Green Bay, Wisconsin 8 * All rights reserved 9 * (414) 468-6040 10 * 11 * $Header: D:/logfiles/defs/editor.dev 1.4 30 Dec 1990 18:00:06 coleb $ 12 * 13 *) 14 15 16 IMPORT GenLists; 17 IMPORT KbdInput; 18 IMPORT MsColors; 19 IMPORT ScrnTypes; 20 IMPORT VEditor; 21 22 VAR 23 overwriting, DoCounting : BOOLEAN; 24 MaxLines, EdLastKey, EntryBox, ExitBox, 25 CountRow : CARDINAL; 26 27 EntryForeColor, EntryBackColor, ExitForeColor, 28 ExitBackColor, EntryForeBox, EntryBackBox, 29 ExitForeBox, ExitBackBox, EdPromptFore, 30 EdPromptBack: MsColors.AColor; ***** ^ not supported yet 31 32 EntryAttrib, ExitAttrib, EdPromptAttrib: 33 MsColors.AMonoAttribute; ***** ^ not supported yet 34 35 PROCEDURE ScrnEdit(Col1, Row1, Col2, Row2 : 36 CARDINAL; VAR TheList : GenLists.GenList; ***** ^ not supported yet 37 VAR TextRow1, CursorCol, CursorRow: 38 CARDINAL; VAR ChangeMade: BOOLEAN; ReadOnly: 39 BOOLEAN; VAR FrameRec: 40 ScrnTypes.DisplayFrame): INTEGER; ***** ^ not supported yet 41 42 PROCEDURE DefaultEditor( VAR TheList: 43 GenLists.GenList; VAR Rec: ***** ^ not supported yet 44 VEditor.AnEdControlRec); ***** ^ not supported yet 45 46 PROCEDURE Init(); 47 48 END Editor. ***** ^ not supported yet 7 errors