home *** CD-ROM | disk | FTP | other *** search
/ HOT Scene Stuff / hotscenestuffzyklop1996.iso / diskmags / deutsch / microcod / stod2 / sources / mauspas.pas < prev    next >
Pascal/Delphi Source File  |  1995-02-01  |  899b  |  47 lines
  1. PROGRAM MausCursor;
  2.  
  3. USES CRT,DOS;
  4.  
  5. Const
  6.    cursor: Array [0..31] Of Word = (
  7.     $7fc7,$7377,$ffdf,$d5ff,$6e33,$e7f3,$f727,$e1ff,
  8.     $dfd4,$f6c7,$ef77,$ee73,$fff7,$dffb,$f771,$c7ff,
  9.     $2000,$1100,$da8,$e20,$90,$3820,$41f9,$4890,
  10.     $1088,$21,$f0f0,$2252,$8000,$440,$4200,$0);
  11.    hsx : Word = 0;
  12.    hsy : Word = 0;
  13.  
  14. VAR Regs : Registers;
  15.  
  16. PROCEDURE InitMouse;
  17. BEGIN
  18.  Regs.AX := 0;
  19.  Intr($33,Regs);      {Maus initialisieren}
  20.  Regs.AX := 1;
  21.  Intr($33,Regs);      {Maus sichtbar machen}
  22. END;
  23.  
  24. PROCEDURE SetzeMaske;
  25. BEGIN
  26.  Regs.AX := 9;
  27.  Regs.BX := hsx;
  28.  Regs.CX := hsy;
  29.  Regs.DX := Ofs(Cursor);
  30.  Regs.ES := Seg(Cursor);
  31.  Intr($33,Regs);
  32. END;
  33.  
  34. PROCEDURE InitMode(Modus : BYTE);
  35. BEGIN
  36.  Regs.AL := Modus;
  37.  Regs.AH := 0;
  38.  Intr($10,Regs);
  39. END;
  40.  
  41. BEGIN
  42.  InitMode($12);    {640x480x16}
  43.  InitMouse;
  44.  SetzeMaske;
  45.  ReadLn;
  46.  InitMode(3);      {TextModus 80x25 in Farbe}
  47. END.