en:docs:tpro

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Both sides previous revisionPrevious revision
en:docs:tpro [2025/02/08 13:24] – prokusheven:docs:tpro [2025/02/08 13:36] (current) – prokushev
Line 430: Line 430:
 Activate or deactivate colors on a Hercules InColor card Activate or deactivate colors on a Hercules InColor card
  
-function HercGraphicsMode : Boolean; +===== HercGraphicsMode =====
-  {-Return True if a Hercules card is in graphics mode}+
  
-function HercModeTestWorks : Boolean; +<code pascal>function HercGraphicsMode : Boolean;</code>
-  {-Return True if HercGraphicsMode will work}+
  
-procedure SetHercMode(GraphMode : Boolean; GraphPage : Byte); +Return True if a Hercules card is in graphics mode
-  {-Set Hercules card to graphics mode or text mode, and activate specified +
-   graphics page (if switching to graphics mode).}+
  
-function ReadKeyWord : Word; +===== HercModeTestWorks =====
-  {-Waits for keypress, then returns scan and character codes together}+
  
-function CheckKbd(var KeyCode : Word) : Boolean; +<code pascal>function HercModeTestWorks : Boolean;</code>
-  {-Returns True (and the key codes) if a keystroke is waiting}+
  
-function KbdFlags : Byte; +Return True if HercGraphicsMode will work
-  {-Returns keyboard status flags as a bit-coded byte}+
  
-procedure StuffKey(W : Word); +===== SetHercMode =====
-  {-Stuff one key into the keyboard buffer}+
  
-procedure StuffString(S : string); +<code pascal>procedure SetHercMode(GraphMode : Boolean; GraphPage : Byte);</code>
-  {-Stuff the contents of S into the keyboard buffer}+
  
-procedure ReInitCrt; +Set Hercules card to graphics mode or text mode, and activate specified graphics page (if switching to graphics mode).
-  {-Reinitialize CRT unit's internal variables. For TSR's or programs with +
-   DOS shells. May reset: CurrentMode, ScreenWidth, ScreenHeight, +
-   WindMin/WindMax, CurrentPage, CurrentDisplay, CheckSnow, and VideoSegment}+
  
-{$ifdef WIN32} +===== ReadKeyWord =====
-procedure SetSafeCPSwitching(F: Boolean); +
-procedure SetUseACP(F: Boolean); +
-{$ENDIF}+
  
 +<code pascal>function ReadKeyWord : Word;</code>
  
-procedure AssignConToCrt;+Waits for keypress, then returns scan and character codes together
  
-procedure ClrScr; +===== CheckKbd =====
-  {-Clears the screen and returns the cursor to the upper-left corner}+
  
-procedure TextBackground(Color: Byte); +<code pascal>function CheckKbd(var KeyCode : Word) : Boolean;</code>
-  {-Selects the background color}+
  
-procedure TextColor(Color: Byte); +Returns True (and the key codes) if a keystroke is waiting
-  {-Selects the foreground character color}+
  
-procedure Window(X1,Y1,X2,Y2: Byte); +===== KbdFlags =====
-  {-Defines a text window on the screen}+
  
-procedure GotoXY(X,Y: Byte); +<code pascal>function KbdFlags : Byte;</code>
-  {-Moves the cursor to the given coordinates within the screen}+
  
-function WhereX: Byte; +Returns keyboard status flags as a bit-coded byte
-  {-Returns the X coordinate of the current cursor location}+
  
-function WhereY: Byte; +===== StuffKey =====
-  {-Returns the Y coordinate of the current cursor location}+
  
-procedure ClrEol; +<code pascal>procedure StuffKey(W : Word);</code>
-  {-Clears all characters from the cursor position to the end of the line } +
-  { without moving the cursor.                                            }+
  
-function KeyPressed: Boolean; +Stuff one key into the keyboard buffer
-  {-Determines if a key has been pressed on the keyboard and returns True } +
-  { if a key has been pressed                                             }+
  
-function ReadKey: Char; +===== StuffString =====
-  {-Reads a character from the keyboard and returns a character or an     } +
-  { extended scan code.                                                   }+
  
-procedure TextMode (Mode: word); +<code pascal>procedure StuffString(S : string);</code>
-procedure InsLine; +
-  {-Inserts an empty line at the cursor position}+
  
-procedure DelLine; +Stuff the contents of S into the keyboard buffer
-  {-Deletes the line containing the cursor}+
  
-procedure LowVideo; +===== ReInitCrt =====
-  {-Selects low intensity characters}+
  
-procedure HighVideo; +<code pascal>procedure ReInitCrt;</code>
-  {-Selects high-intensity characters}+
  
-procedure NormVideo; +Reinitialize CRT unit's internal variables. For TSR's or programs with DOS shells. May reset: CurrentMode, ScreenWidth, ScreenHeight, WindMin/WindMax, CurrentPage, CurrentDisplay, CheckSnow, and VideoSegment
-  {-Selects normal intensity characters}+
  
-procedure Delay(MS: Word); +===== SetSafeCPSwitching =====
-procedure Sound(Hz: Word); +
-procedure NoSound; +
-procedure AssignCrt(var F: Text); +
-  {-Associates a text file with CRT device.}+
  
-procedure PlaySound(Freq,Duration: Longint); +<code psacal>procedure SetSafeCPSwitching(F: Boolean);</code> 
-  {-Setups window coordinates }+ 
 +===== SetUseACP ===== 
 + 
 +<code pascal>procedure SetUseACP(F: Boolean);</code> 
 + 
 + 
 +===== AssignConToCrt ===== 
 + 
 +<code pascal>procedure AssignConToCrt;</code> 
 + 
 +===== ClrScr ===== 
 + 
 +<code psacal>procedure ClrScr;</code> 
 + 
 +Clears the screen and returns the cursor to the upper-left corner 
 + 
 +===== TextBackground ===== 
 + 
 +<code pascal>procedure TextBackground(Color: Byte);</code> 
 + 
 +Selects the background color 
 + 
 +===== TextColor ===== 
 + 
 +<code pascal>procedure TextColor(Color: Byte);</code> 
 + 
 +Selects the foreground character color 
 + 
 +===== Window ===== 
 + 
 +<code pascal>procedure Window(X1,Y1,X2,Y2: Byte);</code> 
 + 
 +Defines a text window on the screen 
 + 
 +===== GotoXY ===== 
 + 
 +<code pascal>procedure GotoXY(X,Y: Byte);</code> 
 + 
 +Moves the cursor to the given coordinates within the screen 
 + 
 +===== WhereX ===== 
 + 
 +<code pascal>function WhereX: Byte;</code> 
 + 
 +Returns the X coordinate of the current cursor location 
 + 
 +===== WhereY ===== 
 + 
 +<code pascal>function WhereY: Byte;</code> 
 + 
 +Returns the Y coordinate of the current cursor location 
 + 
 +===== ClrEol ===== 
 + 
 +<code pascal>procedure ClrEol;</code> 
 + 
 +Clears all characters from the cursor position to the end of the line without moving the cursor. 
 + 
 +===== KeyPressed ===== 
 + 
 +<code pascal>function KeyPressed: Boolean;</code> 
 + 
 +Determines if a key has been pressed on the keyboard and returns True if a key has been pressed 
 + 
 +===== ReadKey ===== 
 + 
 +<code pascal>function ReadKey: Char;</code> 
 + 
 +Reads a character from the keyboard and returns a character or an extended scan code. 
 + 
 +===== TextMode ===== 
 + 
 +<code pascal>procedure TextMode (Mode: word);</code> 
 + 
 +===== InsLine ===== 
 + 
 +<code pascal>procedure InsLine;</code> 
 + 
 +Inserts an empty line at the cursor position 
 + 
 +===== DelLine ===== 
 + 
 +<code pascal>procedure DelLine;</code> 
 + 
 +Deletes the line containing the cursor 
 + 
 +===== LowVideo ===== 
 + 
 +<code pascal>procedure LowVideo;</code> 
 + 
 +Selects low intensity characters 
 + 
 +===== HighVideo ===== 
 + 
 +<code pascal>procedure HighVideo;</code> 
 + 
 +Selects high-intensity characters 
 + 
 +===== NormVideo ===== 
 + 
 +<code pascal>procedure NormVideo;</code> 
 + 
 +Selects normal intensity characters 
 + 
 +===== Delay ===== 
 + 
 +<code pascal>procedure Delay(MS: Word);</code> 
 + 
 +===== Sound ===== 
 + 
 +<code pascal>procedure Sound(Hz: Word);</code> 
 + 
 +===== NoSound ===== 
 + 
 +<code pascal>procedure NoSound;</code> 
 + 
 +===== AssignCrt ===== 
 + 
 +<code pascal>procedure AssignCrt(var F: Text);</code> 
 + 
 +Associates a text file with CRT device. 
 + 
 +===== PlaySound ===== 
 + 
 +<code pascal>procedure PlaySound(Freq,Duration: Longint);</code> 
 + 
 +Setups window coordinates  
 + 
 +===== GetLastMode ===== 
 + 
 +<code pascal>procedure GetLastMode;</code>
  
-procedure GetLastMode;