Listing: 1 IMPLEMENTATION MODULE MsColors; 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/mscolors.mov 1.7 10 Mar 1991 15:29:40 coleb $ 12 * 13 *) 14 15 16 (*EntryDiag: 17 IMPORT Diagnostics; 18 :EntryDiag*) 19 20 21 22 VAR 23 Initialized : BOOLEAN; 24 25 PROCEDURE Init(); 26 BEGIN 27 IF Initialized THEN 28 RETURN; 29 ELSE 30 Initialized := TRUE; 31 END; 32 (*EntryDiag: 33 Diagnostics.Init(); 34 :EntryDiag*) 35 (*EntryDiag: 36 Diagnostics.diagS( 'Entering MSColors', '' ); 37 :EntryDiag*) 38 39 plain := 0C; ***** ^ undeclared identifier 40 bold := 1C; ***** ^ undeclared identifier 41 underscored := 2C; ***** ^ undeclared identifier 42 blinking := 3C; ***** ^ undeclared identifier 43 ReverseVideo := 4C; ***** ^ undeclared identifier 44 invisible := 5C; ***** ^ undeclared identifier 45 46 black := CHR(0); ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 47 blue := CHR(1); ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 48 green := CHR(2); ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 49 cyan := CHR(3); ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 50 red := CHR(4); ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 51 magenta := CHR(5); ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 52 brown := CHR(6); ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 53 lightgrey := CHR(7); ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 54 darkgrey := CHR(8); ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 55 lightblue := CHR(9); ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 56 lightgreen := CHR(10); ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 57 lightcyan := CHR(11); ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 58 lightred := CHR(12); ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 59 lightmagenta := CHR(13); ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 60 yellow := CHR(14); ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 61 brightwhite := CHR(15); ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 62 63 (*EntryDiag: 64 Diagnostics.diagS( 'Exiting MSColors', '' ); 65 :EntryDiag*) 66 END Init; ***** ^ not supported yet 67 68 BEGIN 69 Initialized := FALSE; 70 Init(); ***** ^ not supported yet ***** ^ not supported yet 71 END MsColors. ***** ^ not supported yet 58 errors