home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1987 / 04 / cursor.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-03-13  |  1.1 KB  |  37 lines
  1. {---------------------------------------------------------------------------}
  2. { Demonstration der Turbo-Pascal Prozedur 'Intr' anhand der MS-DOS Funktion
  3.   $10 zur Aenderung der Cursor-Darstellung.                                 }
  4.  
  5. PROGRAM CursorDemo;
  6.  
  7. VAR O_Linie, U_Linie: INTEGER;
  8.  
  9. {---------------------------------------------------------------------------}
  10. {                    Systemaufruf als Prozedur definieren                   }
  11.  
  12. PROCEDURE Cursor (CH, CL: INTEGER);
  13.  
  14.                    { Register des 8088 als Record fuer Parameter definieren }
  15. TYPE Reg8088 = RECORD
  16.                  AX, BX, CX, DX, BP, DI, SI, DS, ES, FLAGS: INTEGER;
  17.                END;
  18.  
  19. VAR Register: Reg8088;
  20.  
  21. BEGIN
  22.   Register.AX := 1 SHL 8;
  23.   Register.CX := CH SHL 8 + CL;
  24.   INTR($10, Register);
  25. END;
  26.  
  27. {---------------------------------------------------------------------------}
  28.  
  29. BEGIN { CursorDemo }
  30.   ClrScr;
  31.   Write('Oberste Linie des Cursor : ');
  32.   ReadLn(O_Linie);
  33.   Write('Unterste Linie des Cursor : ');
  34.   ReadLn(U_Linie);
  35.   Cursor(O_linie, U_Linie);
  36. END.
  37.