| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135 |
- 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
|
