home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / PASCAL / MCEDIT10.ZIP / TEXTT.PAS < prev    next >
Pascal/Delphi Source File  |  1991-12-01  |  2KB  |  54 lines
  1. PROCEDURE textTMouse;
  2.  
  3. var
  4.   textTmasks : array[0..1,0..15] of word;
  5.   Regs : Registers;
  6.  
  7. BEGIN
  8.  
  9. { Screen Mask }
  10.  
  11.   textTmasks[0,0] := $3FFF;    {0011111111111111}
  12.   textTmasks[0,1] := $1FFF;    {0001111111111111}
  13.   textTmasks[0,2] := $0FFF;    {0000111111111111}
  14.   textTmasks[0,3] := $07FF;    {0000011111111111}
  15.   textTmasks[0,4] := $03FF;    {0000001111111111}
  16.   textTmasks[0,5] := $0000;    {0000000000000000}
  17.   textTmasks[0,6] := $0000;    {0000000000000000}
  18.   textTmasks[0,7] := $0000;    {0000000000000000}
  19.   textTmasks[0,8] := $000C;    {0000000000001100}
  20.   textTmasks[0,9] := $010F;    {0000000100001111}
  21.   textTmasks[0,10] := $010F;   {0000000100001111}
  22.   textTmasks[0,11] := $100F;   {0001000000001111}
  23.   textTmasks[0,12] := $300F;   {0011000000001111}
  24.   textTmasks[0,13] := $F80F;   {1111100000001111}
  25.   textTmasks[0,14] := $F807;   {1111100000000111}
  26.   textTmasks[0,15] := $FE07;   {1111111000000111}
  27.  
  28. { Cursor Mask }
  29.  
  30.   textTmasks[1,0] := $0000;    {0000000000000000}
  31.   textTmasks[1,1] := $4000;    {0100000000000000}
  32.   textTmasks[1,2] := $6000;    {0110000000000000}
  33.   textTmasks[1,3] := $7000;    {0111000000000000}
  34.   textTmasks[1,4] := $7800;    {0111100000000000}
  35.   textTmasks[1,5] := $7000;    {0111000000000000}
  36.   textTmasks[1,6] := $77FE;    {0111011111111110}
  37.   textTmasks[1,7] := $7462;    {0111010001100010}
  38.   textTmasks[1,8] := $7060;    {0111000001100000}
  39.   textTmasks[1,9] := $7C60;    {0111110001100000}
  40.   textTmasks[1,10] := $6C60;   {0110110001100000}
  41.   textTmasks[1,11] := $4660;   {0100011001100000}
  42.   textTmasks[1,12] := $0660;   {0000011001100000}
  43.   textTmasks[1,13] := $0360;   {0000001101100000}
  44.   textTmasks[1,14] := $00F0;   {0000000011110000}
  45.   textTmasks[1,15] := $0000;   {0000000000000000}
  46.   regs.AX := 9;
  47.   regs.BX := 1;
  48.   regs.CX := 0;
  49.   regs.DX := ofs(textTmasks);
  50.   regs.ES := seg(textTmasks);
  51.   Intr(51,Regs);
  52. end;
  53. 
  54.