Listing: 1 IMPLEMENTATION MODULE ListWrite; 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/mods/listwrit.mov 1.5 10 Mar 1991 15:29:04 coleb $ 12 * 13 *) 14 15 16 IMPORT Editor; 17 IMPORT GenLists; 18 IMPORT Numbers; 19 IMPORT ScrnTypes; 20 IMPORT StrConv; 21 IMPORT SYSTEM; 22 IMPORT WindowPrims; 23 24 VAR 25 Initialized : BOOLEAN; 26 27 PROCEDURE Init(); 28 BEGIN 29 IF Initialized THEN 30 RETURN; 31 ELSE 32 Initialized := TRUE; 33 END; 34 Editor.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 35 GenLists.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 36 Numbers.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 37 ScrnTypes.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 38 StrConv.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 39 WindowPrims.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 40 END Init; ***** ^ not supported yet 41 42 43 PROCEDURE ShowList(TheList : GenLists.GenList); ***** ^ not supported yet 44 CONST 45 col1 = 40; 46 row1 = 2; 47 VAR 48 SavedScreen : WindowPrims.ScreenType; ***** ^ not supported yet 49 LineSize, dumtype, maxlength, BottomEdRow, TextRow1, CursorCol, 50 CursorRow : CARDINAL; 51 dumint : INTEGER; 52 dumadr : SYSTEM.ADDRESS; ***** ^ not supported yet 53 TmpList : GenLists.GenList; ***** ^ not supported yet 54 ChangeMade, OldDoCounting : BOOLEAN; 55 DummyFrame: ScrnTypes.DisplayFrame; ***** ^ not supported yet 56 57 BEGIN 58 DummyFrame := NIL; ***** ^ not supported yet 59 OldDoCounting := Editor.DoCounting; ***** ^ not supported yet ***** ^ not supported yet 60 Editor.DoCounting := FALSE; ***** ^ not supported yet ***** ^ not supported yet 61 maxlength := 10; 62 BottomEdRow := 1; 63 WHILE BottomEdRow<=GenLists.ListLength(TheList) DO ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 64 GenLists.GetElmtAdr(TheList, BottomEdRow, dumadr, LineSize, dumtype); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 65 IF LineSize>maxlength THEN 66 maxlength := LineSize; 67 END; 68 INC(BottomEdRow); ***** ^ undeclared identifier ***** ^ not supported yet 69 END; 70 BottomEdRow := Numbers.Between(5,BottomEdRow,15); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 71 maxlength := Numbers.Between(10,maxlength,35); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 72 WindowPrims.ScreenSave(SavedScreen, col1, row1, maxlength+col1, BottomEdRow+ ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 73 row1); ***** ^ not supported yet 74 GenLists.CopyList(TheList, TmpList); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 75 TextRow1 := 1; 76 CursorCol := 1; 77 CursorRow := 1; 78 dumint := Editor.ScrnEdit(col1,row1,maxlength,BottomEdRow,TmpList, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 79 TextRow1,CursorCol,CursorRow, ChangeMade, TRUE, 80 DummyFrame); ***** ^ not supported yet 81 GenLists.DisposeList(TmpList); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 82 WindowPrims.ScreenRestore(SavedScreen, col1, row1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 83 Editor.DoCounting := OldDoCounting; ***** ^ not supported yet ***** ^ not supported yet 84 END ShowList; ***** ^ not supported yet 85 86 BEGIN 87 Initialized := FALSE; 88 Init(); ***** ^ not supported yet ***** ^ not supported yet 89 END ListWrite. ***** ^ not supported yet 70 errors