[Back to CURSOR SWAG index]  [Back to Main SWAG index]  [Original]

{****************************************************************************
 * Procedure ..... SetCursor()
 * Purpose ....... To set the cursor shape
 * Parameters .... nTop       Top line of cursor
 *                 nBottom    Bottom line of cursor
 * Returns ....... N/A
 * Notes ......... None
 * Author ........ Martin Richardson
 * Date .......... May 13, 1992
 ****************************************************************************}
PROCEDURE SetCursor( nTop, nBottom : INTEGER ); ASSEMBLER;
ASM
     MOV  AH, 1
     MOV  CH, BYTE PTR nTop
     MOV  CL, BYTE PTR nBottom
     INT  10h
END;

[Back to CURSOR SWAG index]  [Back to Main SWAG index]  [Original]