Differences
This shows you the differences between two versions of the page.
Both sides previous revisionPrevious revisionNext revision | Previous revision | ||
en:docs:tpro [2025/02/08 04:48] – prokushev | en:docs:tpro [2025/02/08 13:36] (current) – prokushev | ||
---|---|---|---|
Line 19: | Line 19: | ||
===== WhereYAbs ===== | ===== WhereYAbs ===== | ||
- | < | + | < |
Return absolute row coordinate of cursor | Return absolute row coordinate of cursor | ||
- | function | + | ===== WhereXY |
- | {-Return absolute coordinates of cursor} | + | |
- | function | + | <code pascal>function |
- | {-Return absolute column coordinate of cursor} | + | |
- | function ScreenY: Byte; | + | Return absolute |
- | {-Return absolute | + | |
- | procedure FastWrite(St : string; Row, Col, Attr : Byte); | + | ===== ScreenX ===== |
- | {-Write St at Row,Col in Attr (video attribute) without snow} | + | |
- | procedure SetFrameChars(Vertical, | + | <code pascal> |
- | LowerLeft, UpperLeft | + | |
- | {-Sets the frame characters to be used on subsequent FrameWindow calls.} | + | |
- | procedure WhereXYdirect(var X, Y : Byte); | + | Return absolute column coordinate |
- | {-Read the current position | + | |
- | function GetCrtMode : Byte; | + | ===== ScreenY ===== |
- | {-Get the current video mode. Also reinitializes internal variables. May | + | |
- | | + | |
- | | + | |
- | procedure GotoXYAbs(X, | + | <code pascal> |
- | {-Move cursor to column X, row Y. No error checking done.} | + | |
- | procedure SetVisiblePage(PageNum : Byte); | + | Return absolute row coordinate of cursor |
- | {-Set current video page} | + | |
+ | ===== FastWrite ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Write St at Row,Col in Attr (video attribute) without snow | ||
+ | |||
+ | ===== SetFrameChars ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Sets the frame characters to be used on subsequent FrameWindow calls. | ||
+ | |||
+ | ===== WhereXYdirect ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Read the current position of the cursor directly from the CRT controller | ||
+ | |||
+ | ===== GetCrtMode ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Get the current video mode. Also reinitializes internal variables. May reset: CurrentMode, | ||
+ | |||
+ | ===== GotoXYAbs ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Move cursor to column X, row Y. No error checking done. | ||
+ | |||
+ | ===== SetVisiblePage ===== | ||
+ | |||
+ | <code pascal>procedure SetVisiblePage(PageNum : Byte);</ | ||
+ | |||
+ | Set current video page | ||
+ | |||
+ | ===== ScrollWindowUp ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Scrolls the designated window up the specified number of lines. | ||
+ | |||
+ | ===== ScrollWindowDown ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Scrolls the designated window down the specified number of lines. | ||
+ | |||
+ | ===== CursorTypeSL ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Returns a word. High byte has starting scan line, low byte has ending. | ||
+ | |||
+ | ===== CursorStartLine ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Returns the starting scan line of the cursor | ||
+ | |||
+ | ===== CursorEndLine ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Returns the ending scan line of the cursor. | ||
+ | |||
+ | ===== SetCursorSize ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Sets the cursor' | ||
+ | |||
+ | ===== NormalCursor ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Set normal scan lines for cursor based on current video mode | ||
+ | |||
+ | ===== FatCursor ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Set larger scan lines for cursor based on current video mode | ||
+ | |||
+ | ===== BlockCursor ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Set scan lines for a block cursor | ||
+ | |||
+ | ===== HiddenCursor ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Hide the cursor | ||
+ | |||
+ | ===== ReadCharAtCursor ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Returns character at the current cursor location on the selected page. | ||
+ | |||
+ | ===== ReadAttrAtCursor ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Returns attribute at the current cursor location on the selected page. | ||
+ | |||
+ | ===== GetCursorState ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Return the current position and size of the cursor | ||
+ | |||
+ | ===== RestoreCursorState ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Reset the cursor to a position and size saved with GetCursorState | ||
+ | |||
+ | ===== FastWriteWindow ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Write a string using window-relative coordinates | ||
+ | |||
+ | ===== FastText ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Write St at Row,Col without changing the underlying video attribute. | ||
+ | |||
+ | ===== FastTextWindow ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Write St at window Row,Col without changing the underlying video attribute. | ||
+ | |||
+ | ===== FastVert ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Write St vertically at Row,Col in Attr (video attribute) | ||
+ | |||
+ | ===== FastVertWindow ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Write a string vertically using window-relative coordinates | ||
+ | |||
+ | ===== FastFill ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Fill Number chs at Row,Col in Attr (video attribute) without snow | ||
+ | |||
+ | ===== FastFillWindow ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Fill Number chs at window Row,Col in Attr (video attribute) without snow | ||
+ | |||
+ | ===== FastCenter ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Write St centered on window Row in Attr (video attribute) without snow | ||
+ | |||
+ | ===== FastFlush ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Write St flush right on window Row in Attr (video attribute) without snow | ||
+ | |||
+ | ===== FastRead ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Read Number characters from the screen into St starting at Row,Col | ||
+ | |||
+ | ===== FastReadWindow ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Read Number characters from the screen into St starting at window Row,Col | ||
+ | |||
+ | ===== ReadAttribute ===== | ||
+ | <code pascal> | ||
+ | |||
+ | Read Number attributes from the screen into St starting at Row,Col | ||
+ | |||
+ | ===== ReadAttributeWindow ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Read Number attributes from the screen into St starting at window Row,Col | ||
+ | |||
+ | ===== WriteAttribute ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Write string of attributes St at Row,Col without changing characters | ||
+ | |||
+ | ===== WriteAttributeWindow ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Write string of attributes St at window Row,Col without changing characters | ||
+ | |||
+ | ===== ChangeAttribute ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Change Number video attributes to Attr starting at Row,Col | ||
+ | |||
+ | ===== ChangeAttributeWindow ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Change Number video attributes to Attr starting at window Row,Col | ||
+ | |||
+ | ===== MoveScreen ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Move Length words from Source to Dest without snow | ||
+ | |||
+ | ===== FlexWrite ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Write St at Row,Col with flexible color handling | ||
+ | |||
+ | ===== FlexWriteWindow ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Write a string flexibly using window-relative coordinates. | ||
+ | |||
+ | ===== SaveWindow ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Allocate buffer space if requested and save window contents | ||
+ | |||
+ | ===== RestoreWindow ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Restore screen contents and deallocate buffer space if requested | ||
+ | |||
+ | ===== StoreWindowCoordinates ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Store the window coordinates for the active window | ||
+ | |||
+ | ===== RestoreWindowCoordinates ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Restore previously saved window coordinates | ||
+ | |||
+ | ===== PackWindow ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Return a pointer to a packed window, or nil if not enough memory | ||
+ | |||
+ | ===== DispPackedWindow ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Display the packed window pointed to by PWP | ||
+ | |||
+ | ===== DispPackedWindowAt ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Display the packed window pointed to by PWP at Row,Col. If necessary, the coordinates are adjusted to allow it to fit on the screen. | ||
+ | |||
+ | ===== MapPackedWindowColors ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Map the colors in a packed window for improved appearance on mono/ | ||
+ | |||
+ | ===== DisposePackedWindow ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Dispose of a packed window, setting PWP to nil on exit | ||
+ | |||
+ | ===== WritePackedWindow ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Store the packed window pointed to by PWP in FName | ||
+ | |||
+ | ===== ReadPackedWindow ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Read the packed window stored in FName into memory | ||
+ | |||
+ | ===== CreateLibrary ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Create a library with the specified # of directory entries | ||
+ | |||
+ | ===== OpenLibrary ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Open the specified library and return a pointer to its directory | ||
+ | |||
+ | ===== CloseLibrary ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Close library F and deallocate its directory | ||
+ | |||
+ | ===== PackLibrary ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Pack a library to remove deleted entries. | ||
+ | |||
+ | ===== AddWindowToLibrary ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Add a packed window to the specified library | ||
+ | |||
+ | ===== ReadWindowFromLibrary ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Read a packed window from a library | ||
+ | |||
+ | ===== DeleteWindowFromLibrary ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Delete a packed window from the specified library | ||
+ | |||
+ | ===== MapColor ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Map a video attribute for visibility on mono/bw displays | ||
+ | |||
+ | ===== SetBlink ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Enable text mode attribute blinking if On is True | ||
+ | |||
+ | ===== SetCrtBorder ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Set border to background color if card type and mode allow | ||
+ | |||
+ | ===== Font8x8Selected ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Return True if EGA or VGA is active and in 8x8 font | ||
+ | |||
+ | ===== SelectFont8x8 ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Toggle 8x8 font on or off | ||
+ | |||
+ | ===== HercPresent ===== | ||
+ | |||
+ | <code oascal> | ||
+ | |||
+ | Return true if a Hercules graphics card is present | ||
+ | |||
+ | ===== SwitchInColorCard ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Activate or deactivate colors on a Hercules InColor card | ||
+ | |||
+ | ===== HercGraphicsMode ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Return True if a Hercules card is in graphics mode | ||
+ | |||
+ | ===== HercModeTestWorks ===== | ||
+ | |||
+ | <code pascal> | ||
+ | |||
+ | Return True if HercGraphicsMode will work | ||
+ | |||
+ | ===== SetHercMode ===== | ||
- | procedure | + | <code pascal>procedure |
- | {-Scrolls the designated window up the specified number of lines.} | + | |
- | procedure ScrollWindowDown(XLo, YLo, XHi, YHi, Lines : Byte); | + | Set Hercules card to graphics mode or text mode, and activate specified graphics page (if switching to graphics mode). |
- | {-Scrolls the designated window down the specified number of lines.} | + | |
- | function CursorTypeSL : Word; | + | ===== ReadKeyWord ===== |
- | {-Returns a word. High byte has starting scan line, low byte has ending.} | + | |
- | function | + | <code pascal>function |
- | {-Returns the starting scan line of the cursor} | + | |
- | function CursorEndLine : Byte; | + | Waits for keypress, then returns |
- | {-Returns the ending | + | |
- | procedure SetCursorSize(Startline, | + | ===== CheckKbd ===== |
- | {-Sets the cursor' | + | |
- | procedure NormalCursor; | + | <code pascal> |
- | {-Set normal scan lines for cursor based on current video mode} | + | |
- | procedure FatCursor; | + | Returns True (and the key codes) if a keystroke is waiting |
- | {-Set larger scan lines for cursor based on current video mode} | + | |
- | procedure BlockCursor; | + | ===== KbdFlags ===== |
- | {-Set scan lines for a block cursor} | + | |
- | procedure HiddenCursor; | + | <code pascal> |
- | {-Hide the cursor} | + | |
- | function ReadCharAtCursor : Char; | + | Returns |
- | {-Returns | + | |
- | function ReadAttrAtCursor : Byte; | + | ===== StuffKey ===== |
- | {-Returns attribute at the current cursor location on the selected page.} | + | |
- | procedure | + | <code pascal>procedure |
- | {-Return the current position and size of the cursor} | + | |
- | procedure RestoreCursorState(XY, | + | Stuff one key into the keyboard buffer |
- | {-Reset | + | |
- | procedure FastWriteWindow(St : string; Row, Col, Attr : Byte); | + | ===== StuffString ===== |
- | {-Write a string using window-relative coordinates} | + | |
- | procedure | + | <code pascal>procedure |
- | {-Write St at Row,Col without changing the underlying video attribute.} | + | |
- | procedure FastTextWindow(St : string; Row, Col : Byte); | + | Stuff the contents of S into the keyboard buffer |
- | {-Write St at window Row,Col without changing | + | |
- | procedure FastVert(St : string; Row, Col, Attr : Byte); | + | ===== ReInitCrt ===== |
- | {-Write St vertically at Row,Col in Attr (video attribute)} | + | |
- | procedure | + | <code pascal>procedure |
- | {-Write a string vertically using window-relative coordinates} | + | |
- | procedure FastFill(Number | + | Reinitialize CRT unit's internal variables. For TSR's or programs with DOS shells. May reset: CurrentMode, ScreenWidth, ScreenHeight, |
- | {-Fill Number chs at Row,Col in Attr (video attribute) without snow} | + | |
- | procedure FastFillWindow(Number : Word; Ch : Char; Row, Col, Attr : Byte); | + | ===== SetSafeCPSwitching ===== |
- | {-Fill Number chs at window Row,Col in Attr (video attribute) without snow} | + | |
- | procedure | + | <code psacal>procedure |
- | {-Write St centered on window Row in Attr (video attribute) without snow} | + | |
- | procedure FastFlush(St : string; Row, Attr : Byte); | + | ===== SetUseACP ===== |
- | {-Write St flush right on window Row in Attr (video attribute) without snow} | + | |
- | procedure | + | <code pascal>procedure |
- | {-Read Number characters from the screen into St starting at Row,Col} | + | |
- | procedure FastReadWindow(Number, | ||
- | {-Read Number characters from the screen into St starting at window Row,Col} | ||
- | procedure ReadAttribute(Number, | + | ===== AssignConToCrt ===== |
- | {-Read Number attributes from the screen into St starting at Row,Col} | + | |
- | procedure | + | <code pascal>procedure |
- | {-Read Number attributes from the screen into St starting at window Row,Col} | + | |
- | procedure WriteAttribute(St : String; Row, Col : Byte); | + | ===== ClrScr ===== |
- | {-Write string of attributes St at Row,Col without changing characters} | + | |
- | procedure | + | <code psacal>procedure |
- | {-Write string of attributes St at window Row,Col without changing characters} | + | |
- | procedure ChangeAttribute(Number : Word; Row, Col, Attr : Byte); | + | Clears the screen and returns the cursor |
- | {-Change Number video attributes | + | |
- | procedure ChangeAttributeWindow(Number : Word; Row, Col, Attr : Byte); | + | ===== TextBackground ===== |
- | {-Change Number video attributes to Attr starting at window Row,Col} | + | |
- | procedure | + | <code pascal>procedure |
- | {-Move Length words from Source to Dest without snow} | + | |
- | procedure FlexWrite(St : string; Row, Col : Byte; var FAttrs : FlexAttrs); | + | Selects the background |
- | {-Write St at Row,Col with flexible | + | |
- | procedure FlexWriteWindow(St : string; Row, Col : Byte; var FAttrs : FlexAttrs); | + | ===== TextColor ===== |
- | {-Write a string flexibly using window-relative coordinates.} | + | |
- | function SaveWindow(XLow, YLow, XHigh, YHigh : Byte; Allocate : Boolean; | + | <code pascal> |
- | var Covers : Pointer) : Boolean; | + | |
- | {-Allocate buffer space if requested and save window contents} | + | |
- | procedure RestoreWindow(XLow, | + | Selects the foreground character color |
- | Deallocate : Boolean; var Covers : Pointer); | + | |
- | {-Restore screen contents and deallocate buffer space if requested} | + | |
- | procedure StoreWindowCoordinates(var WC : WindowCoordinates); | + | ===== Window ===== |
- | {-Store the window coordinates for the active window} | + | |
- | procedure | + | <code pascal>procedure |
- | {-Restore previously saved window coordinates} | + | |
- | function PackWindow(XLow, | + | Defines |
- | {-Return | + | |
- | procedure DispPackedWindow(PWP : PackedWindowPtr); | + | ===== GotoXY ===== |
- | {-Display the packed window pointed to by PWP} | + | |
- | procedure | + | <code pascal>procedure |
- | {-Display the packed window pointed to by PWP at Row,Col. If necessary, | + | |
- | the coordinates are adjusted to allow it to fit on the screen.} | + | |
- | procedure MapPackedWindowColors(PWP : PackedWindowPtr); | + | Moves the cursor to the given coordinates within the screen |
- | {-Map the colors in a packed window for improved appearance on mono/ | + | |
- | | + | |
- | procedure DisposePackedWindow(var PWP : PackedWindowPtr); | + | ===== WhereX ===== |
- | {-Dispose of a packed window, setting PWP to nil on exit} | + | |
- | procedure WritePackedWindow(PWP | + | <code pascal> |
- | {-Store the packed window pointed to by PWP in FName} | + | |
- | function ReadPackedWindow(FName : string) : PackedWindowPtr; | + | Returns |
- | {-Read | + | |
- | function CreateLibrary(var F : file; Name : string; | + | ===== WhereY ===== |
- | | + | |
- | {-Create a library with the specified # of directory entries} | + | |
- | function | + | <code pascal>function |
- | {-Open the specified library and return a pointer to its directory} | + | |
- | procedure CloseLibrary(var F : file; var DP : DirectoryPtr); | + | Returns the Y coordinate of the current cursor location |
- | {-Close library F and deallocate its directory} | + | |
- | procedure PackLibrary(LName : string); | + | ===== ClrEol ===== |
- | {-Pack a library to remove deleted entries.} | + | |
- | procedure | + | <code pascal>procedure |
- | DP : DirectoryPtr; | + | |
- | {-Add a packed window to the specified library} | + | |
- | function ReadWindowFromLibrary(var F : file; DP : DirectoryPtr; | + | Clears all characters |
- | | + | |
- | {-Read a packed window | + | |
- | procedure DeleteWindowFromLibrary(var F : file; DP : DirectoryPtr; | + | ===== KeyPressed ===== |
- | WinName : LibName); | + | |
- | {-Delete a packed window from the specified library} | + | |
- | function | + | <code pascal>function |
- | {-Map a video attribute for visibility on mono/bw displays} | + | |
- | procedure SetBlink(Status : Boolean); | + | Determines |
- | {-Enable text mode attribute blinking | + | |
- | procedure SetCrtBorder(Attr : Byte); | + | ===== ReadKey ===== |
- | {-Set border to background color if card type and mode allow} | + | |
- | function | + | <code pascal>function |
- | {-Return True if EGA or VGA is active and in 8x8 font} | + | |
- | procedure SelectFont8x8(Status : Boolean); | + | Reads a character from the keyboard and returns a character |
- | {-Toggle 8x8 font on or off} | + | |
- | function HercPresent : Boolean; | + | ===== TextMode ===== |
- | {-Return true if a Hercules graphics card is present} | + | |
- | procedure | + | <code pascal>procedure |
- | {-Activate or deactivate colors on a Hercules InColor card} | + | |
- | function HercGraphicsMode : Boolean; | + | ===== InsLine ===== |
- | {-Return True if a Hercules card is in graphics mode} | + | |
- | function HercModeTestWorks : Boolean; | + | <code pascal> |
- | {-Return True if HercGraphicsMode will work} | + | |
- | procedure SetHercMode(GraphMode : Boolean; GraphPage : Byte); | + | Inserts an empty line at the cursor position |
- | {-Set Hercules card to graphics mode or text mode, and activate specified | + | |
- | | + | |
- | function ReadKeyWord : Word; | + | ===== DelLine ===== |
- | {-Waits for keypress, then returns scan and character codes together} | + | |
- | function CheckKbd(var KeyCode : Word) : Boolean; | + | <code pascal> |
- | {-Returns True (and the key codes) if a keystroke is waiting} | + | |
- | function KbdFlags : Byte; | + | Deletes the line containing the cursor |
- | {-Returns keyboard status flags as a bit-coded byte} | + | |
- | procedure StuffKey(W : Word); | + | ===== LowVideo ===== |
- | {-Stuff one key into the keyboard buffer} | + | |
- | procedure | + | <code pascal>procedure |
- | {-Stuff the contents of S into the keyboard buffer} | + | |
- | procedure ReInitCrt; | + | Selects low intensity characters |
- | {-Reinitialize CRT unit's internal variables. For TSR's or programs with | + | |
- | DOS shells. May reset: CurrentMode, | + | |
- | | + | |
- | {$ifdef WIN32} | + | ===== HighVideo ===== |
- | procedure SetSafeCPSwitching(F: | + | |
- | procedure SetUseACP(F: | + | |
- | {$ENDIF} | + | |
+ | <code pascal> | ||
- | procedure AssignConToCrt; | + | Selects high-intensity characters |
- | procedure ClrScr; | + | ===== NormVideo ===== |
- | {-Clears the screen and returns the cursor to the upper-left corner} | + | |
- | procedure | + | <code pascal>procedure |
- | {-Selects the background color} | + | |
- | procedure TextColor(Color: | + | Selects |
- | {-Selects | + | |
- | procedure Window(X1, | + | ===== Delay ===== |
- | {-Defines a text window on the screen} | + | |
- | procedure | + | <code pascal>procedure |
- | {-Moves the cursor to the given coordinates within the screen} | + | |
- | function WhereX: Byte; | + | ===== Sound ===== |
- | {-Returns the X coordinate of the current cursor location} | + | |
- | function WhereY: Byte; | + | <code pascal> |
- | {-Returns the Y coordinate of the current cursor location} | + | |
- | procedure ClrEol; | + | ===== NoSound ===== |
- | {-Clears all characters from the cursor position to the end of the line } | + | |
- | { without moving the cursor. | + | |
- | function KeyPressed: Boolean; | + | <code pascal> |
- | {-Determines if a key has been pressed on the keyboard and returns True } | + | |
- | { if a key has been pressed | + | |
- | function ReadKey: Char; | + | ===== AssignCrt ===== |
- | {-Reads a character from the keyboard and returns a character or an } | + | |
- | { extended scan code. } | + | |
- | procedure | + | <code pascal>procedure |
- | procedure InsLine; | + | |
- | {-Inserts an empty line at the cursor position} | + | |
- | procedure DelLine; | + | Associates a text file with CRT device. |
- | {-Deletes the line containing the cursor} | + | |
- | procedure LowVideo; | + | ===== PlaySound ===== |
- | {-Selects low intensity characters} | + | |
- | procedure | + | <code pascal>procedure |
- | {-Selects high-intensity characters} | + | |
- | procedure NormVideo; | + | Setups window coordinates |
- | {-Selects normal intensity characters} | + | |
- | procedure Delay(MS: Word); | + | ===== GetLastMode ===== |
- | procedure Sound(Hz: Word); | + | |
- | procedure NoSound; | + | |
- | procedure AssignCrt(var F: Text); | + | |
- | {-Associates a text file with CRT device.} | + | |
- | procedure | + | <code pascal>procedure |
- | {-Setups window coordinates } | + | |
- | procedure GetLastMode; | ||