home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / cursor.swg / 0004_Show-Hide Cursor.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  376 b   |  27 lines
  1. Uses Crt;
  2.  
  3. Var
  4.   Continue : Char;
  5.  
  6. Procedure HideCursor; Assembler;
  7. Asm
  8.   MOV   ax,$0100
  9.   MOV   cx,$2607
  10.   INT   $10
  11. end;
  12.  
  13. Procedure ShowCursor; Assembler;
  14. Asm
  15.   MOV   ax,$0100
  16.   MOV   cx,$0506
  17.   INT   $10
  18. end;
  19.  
  20. begin
  21.   Writeln('See the cursor ?');
  22.   Continue := ReadKey;
  23.   HideCursor;
  24.   Writeln('Gone! ');
  25.   Continue := ReadKey;
  26.   ShowCursor;
  27. end.