home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / mar94 / util / misc / kalender.lha / Kalender / txt / Text.def < prev    next >
Text File  |  1993-12-18  |  907b  |  35 lines
  1.  DEFINITION MODULE Text; (* Copyright 1993 by Kai Hofmann *)
  2.  
  3.  (*$ Implementation := FALSE *)
  4.  (*$ StackChk       := FALSE *)
  5.  (*$ RangeChk       := FALSE *)
  6.  (*$ OverflowChk    := FALSE *)
  7.  (*$ NilChk         := FALSE *)
  8.  (*$ CaseChk        := FALSE *)
  9.  (*$ ReturnChk      := FALSE *)
  10.  (*$ LargeVars      := FALSE *)
  11.  (*$ EntryClear     := TRUE  *)
  12.  (*$ Volatile       := TRUE  *)
  13.  (*$ StackParms     := TRUE  *)
  14.  (*$ CStrings       := TRUE  *)
  15.  
  16.  
  17.  CONST
  18.     normal    = "\e[0m";
  19.     reverse    = "\e[30m\e[41m";
  20.         (* Strings für normal und reverse Textausgabe *)
  21.     revc1    = "\e[30m\e[42m";
  22.     revc2    = "\e[30m\e[43m";
  23.         (* Strings für reverse Textausgabe mit den Farben 2 & 3 *)
  24.         normc1  = "\e[32m";
  25.         normc2  = "\e[33m";
  26.                 (* Strings für Textausgabe mit den Farben 2 & 3 *)
  27.     max     = 32;
  28.         (* Standart Stringlänge *)
  29.  
  30.  
  31.  TYPE String = ARRAY [1..max] OF CHAR;
  32.         (* Standart String *)
  33.  
  34.  END Text.
  35.