Listing: 1 DEFINITION MODULE Diagnostics; 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/diagnost.dev 1.4 30 Dec 1990 17:59:38 coleb $ 12 * 13 *) 14 15 16 FROM GenLists IMPORT GenList; 17 FROM SYSTEM IMPORT ADDRESS; 18 19 PROCEDURE diagA(str1 : ARRAY OF CHAR; TheAddr : ***** ^ not supported yet 20 ADDRESS ); 21 22 PROCEDURE diagB( str1: ARRAY OF CHAR; TheSet: ***** ^ not supported yet 23 BITSET ); ***** ^ undeclared identifier 24 25 PROCEDURE diagS(str1, str2 : ARRAY OF CHAR); ***** ^ not supported yet 26 27 PROCEDURE diagC(str1 : ARRAY OF CHAR; TheCard : ***** ^ not supported yet 28 CARDINAL); 29 30 PROCEDURE diagI(str1 : ARRAY OF CHAR; TheInt : ***** ^ not supported yet 31 INTEGER); 32 33 PROCEDURE diagL(str1 : ARRAY OF CHAR; TheLong : ***** ^ not supported yet 34 LONGINT); 35 36 PROCEDURE diagBlock( str1 : ARRAY OF CHAR; ***** ^ not supported yet 37 TheAddr : ADDRESS; TheSize: CARDINAL ); 38 39 PROCEDURE CheckList( TheList: GenList ); 40 41 PROCEDURE Init(); 42 43 END Diagnostics. ***** ^ not supported yet 9 errors