home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / printer / sider.arc / VIDEO.LIB < prev   
Text File  |  1988-01-06  |  1KB  |  43 lines
  1. {***********************************************************************}
  2. function color : integer;
  3. var mode : byte absolute $0000:$0449;
  4. begin
  5.   color := mode;
  6. end;
  7. {************************************************************************}
  8. function scrn_seg : integer;
  9. begin
  10.   if color <7 then scrn_seg := $b800 else
  11.   if color =7 then scrn_seg := $b000 else
  12.     begin
  13.       clrscr;
  14.       gotoxy(2,12);
  15.       writeln(^g'ABORTING PROGRAM...Monitor Type cannot be identified');
  16.       halt;
  17.     end;
  18. end;
  19. {************************************************************************}
  20. procedure cursor(tln,bln : byte);
  21. begin
  22.   with r do
  23.     begin
  24.       r.ah := 1;
  25.       r.ch := tln;
  26.       r.cl := bln;
  27.       intr($10,r);
  28.     end;
  29. end;
  30. {************************************************************************}
  31. procedure big_cursor;
  32. begin
  33.   if (scrn_seg = $b800) then cursor(1,7) else
  34.                          cursor(2,12);
  35. end;
  36. {************************************************************************}
  37. procedure std_cursor;
  38. begin
  39.   if (scrn_seg = $b800) then cursor(6,7) else
  40.                          cursor(12,13);
  41. end;
  42. {************************************************************************}
  43.