home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 12 / tricks / attrdemo.mod < prev    next >
Encoding:
Text File  |  1990-09-28  |  1.2 KB  |  45 lines
  1. (*-------------------------------------------------------*)
  2. (*                    AttrDemo.MOD                       *)
  3. (*        Demonstration für das Modul "Attribut" in      *)
  4. (*              Fitted Modula-2 (ab Version 1.1)         *)
  5. (*             (C) 1990 J. Braun & toolbox               *)
  6. (*-------------------------------------------------------*)
  7. MODULE AttrDemo;
  8.  
  9. FROM Attribut IMPORT BackgroundMode;
  10. FROM Strings IMPORT Length;
  11. FROM Display IMPORT displayAttr, Write;
  12. FROM InOut IMPORT WriteLn, Read;
  13.  
  14. TYPE
  15.   STRING   = ARRAY[0..79] OF CHAR;
  16. CONST
  17.   blinknot = FALSE;
  18.   blink    = TRUE;
  19. VAR
  20.   TestString: STRING;
  21.   i         : CARDINAL;
  22.   ch        : CHAR;
  23.  
  24. BEGIN
  25.   TestString := 'Demo für das Blinkbit in Fitted Modula-2';
  26.   BackgroundMode(blinknot);
  27.   WriteLn;
  28.   displayAttr := 224;
  29.   FOR i := 0 TO Length(TestString) DO
  30.     Write(TestString[i]);
  31.   END;
  32.   displayAttr := 7;
  33.   WriteLn;
  34.   TestString := 'Taste drücken .....';
  35.   FOR i := 0 TO Length(TestString) DO
  36.     Write(TestString[i]);
  37.   END;
  38.   WriteLn;
  39.   Read(ch);
  40.   BackgroundMode(blink);
  41.   WriteLn;
  42. END AttrDemo.
  43. (*-------------------------------------------------------*)
  44. (*                Ende von  AttrDemo.MOD                 *)
  45.