home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 03 / tricks / mkcursor.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-12-10  |  909 b   |  34 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     MKCURSOR.PAS                       *)
  3. (*    Manipulation des Cursors im Turbo-Pascal-Editor     *)
  4. (*          (c) 1991 Erich Bertram & TOOLBOX              *)
  5. (* ------------------------------------------------------ *)
  6. PROGRAM Make_Square_Cursor_available_in_Turbo_Pascal;
  7. {$M 4096,0,100}
  8.  
  9. USES Dos, TSR;
  10.  
  11. CONST
  12.   HOTKEY = $6900;    { Alt-F2 }
  13.  
  14.  
  15. {$F+}        { far wegen TSR }
  16.   PROCEDURE SqareCursor;
  17.   VAR
  18.     Regs : Registers;
  19.   BEGIN
  20.     Regs.ax := 1 SHL 8;
  21.     Regs.cx := 13;
  22.     Intr($10, Regs);
  23.   END;
  24. {$F-}
  25.  
  26. BEGIN
  27.   WriteLn;
  28.   WriteLn('SQARE-Curser auf <Alt> <F2> verfügbar - ',
  29.           'auch in Turbo Pascal !');
  30.   MakeResident(@Sqarecursor, HOTKEY);
  31. END.
  32. (* ------------------------------------------------------ *)
  33. (*                Ende von MKCURSOR.PAS                   *)
  34.