← Back to branch summary

~ubuntu-branches/ubuntu/feisty/fpc/feisty

« back to all changes in this revision

Viewing changes to rtl/inc/crth.inc

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2007-01-27 20:08:50 UTC
  • mfrom: (1.2.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20070127200850-9mrptaqqjsx9nwa7
Tags: 2.0.4-5
* Fixed Build-Depends.
* Add myself to Uploaders in debian/control.
* Make sure that the sources are really patched before building them.
* Build unit 'libc' on powerpc too.

Show diffs side-by-side

added added

removed removed

Lines of Context:
rtl/inc/crth.inc
1
1
{
2
 
    $Id: crth.inc,v 1.4 2005/02/14 17:13:22 peter Exp $
3
2
    This file is part of the Free Pascal run time library.
4
3
    Copyright (c) 1999-2000 by the Free Pascal development team.
5
4
 
57
56
  CheckEOF: Boolean;      { Enable Ctrl-Z }
58
57
  DirectVideo: Boolean;   { Enable direct video addressing }
59
58
  CheckSnow: Boolean;     { Enable snow filtering }
60
 
{$ifdef ver1_0}
61
 
const
62
 
{$endif}
63
59
  LastMode: Word = 3;         { Current text mode }
64
60
  TextAttr: Byte = $07;         { Current text attribute }
65
61
  WindMin: Word  = $0;          { Window upper left coordinates }
66
62
  WindMax: Word  = $184f;          { Window lower right coordinates }
67
 
{$ifdef ver1_0}
68
 
var
69
 
{$endif}
70
63
  { FPC Specific for large screen support }
71
64
  WindMinX : DWord;
72
65
  WindMaxX : DWord;
77
70
procedure AssignCrt(var F: Text);
78
71
function KeyPressed: Boolean;
79
72
function ReadKey: Char;
80
 
procedure TextMode(Mode: Integer);
 
73
procedure TextMode (Mode: word);
81
74
procedure Window(X1,Y1,X2,Y2: Byte);
82
75
procedure GotoXY(X,Y: Byte);
83
76
function WhereX: Byte;
100
93
procedure cursoroff;
101
94
procedure cursorbig;
102
95
 
103
 
{
104
 
  $Log: crth.inc,v $
105
 
  Revision 1.4  2005/02/14 17:13:22  peter
106
 
    * truncate log
107
 
 
108
 
}