home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / sound / minigen / cursor.inc next >
Encoding:
Text File  |  1988-01-07  |  640 b   |  36 lines
  1. Procedure Cursor(ch,cl:Byte);
  2.  
  3. Type RegType = Record
  4.                  AX,BX,CX,DX,BP,DI,SI,DS,ES,Flags : Integer;
  5.                End;
  6.  
  7. Var
  8.   Register : RegType;
  9.   AH       : Byte;
  10.  
  11. Begin
  12. AH := 1;
  13. With Register do
  14.   Begin
  15.   AX := AH shl 8;
  16.   CX := ch shl 8 + cl;
  17.   Intr($10,Register);
  18.   End;
  19. End; {Cursor}
  20.  
  21. Procedure CursorOn;
  22. Begin
  23. Case ScreenType of
  24.   'C' : Cursor(6,7);
  25.   'M' : Cursor(8,9);
  26.   End; {case}
  27. End; {CursorOn}
  28.  
  29. Procedure CursorOff;
  30. Begin
  31. Case ScreenType of
  32.   'C' : Cursor(8,0);
  33.   'M' : Cursor(15,0);
  34.   End; {case}
  35. End; {CursorOff}
  36.