home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 10_11 / tricks / textmodi.var < prev    next >
Encoding:
Text File  |  1988-06-23  |  979 b   |  25 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     TEXTMODI.VAR                       *)
  3. (*      Deklarationen zum Include TEXTMODI.INC            *)
  4. (* ------------------------------------------------------ *)
  5.  
  6. TYPE
  7.   Textmodustyp = (mt, m25, m44);
  8.   Longstring = STRING[255];
  9.   bildschirmzeile_80typ = ARRAY[1..160] OF BYTE;
  10.   bildschirmzeile_132typ = ARRAY[1..264] OF BYTE;
  11.  
  12. VAR
  13.   textmodus : Textmodustyp;
  14.   wox, woy, attr : BYTE;
  15.   invers, blink, hell : BOOLEAN;
  16.   lstring : Longstring;
  17.   bildschirm_80  : ARRAY[1..25] OF bildschirmzeile_80typ
  18.                                 ABSOLUTE $B000:$0000;
  19.   bildschirm_132 : ARRAY[1..44] OF bildschirmzeile_132typ
  20.                                 ABSOLUTE $B000:$0000;
  21.   leerzeile_80   : bildschirmzeile_80typ;
  22.   leerzeile_132  : bildschirmzeile_132typ;
  23. (* ------------------------------------------------------ *)
  24. (*                Ende von TEXTMODI.VAR                   *)
  25.