home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ETRAP8.ZIP / CRSRST.INC < prev    next >
Encoding:
Text File  |  1987-12-26  |  431 b   |  22 lines
  1. (*******************************************************************)
  2.  
  3. procedure cursor(state:boolean);
  4.  
  5. var
  6.   regs:registers;
  7. begin
  8.   regs.ah:=$1;
  9.   case state of
  10.   true:begin
  11.          regs.ch:=6;
  12.          regs.cl:=7;
  13.        end;
  14.   false:begin
  15.          regs.ch:=$20;
  16.         end;
  17.   end;{case}
  18.     regs.ax:=regs.ah shl 8 + regs.al;
  19.     regs.cx:=regs.ch shl 8 + regs.cl;
  20.    intr($10,regs);
  21. end;{cursor(state)}
  22.