home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / PLOT / SURFUTI3.ZIP / EXGREGA.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-02-09  |  329 b   |  14 lines
  1. procedure EXGRAPHIC;
  2. { Exit graphics mode }
  3. type
  4.   regpack = record case integer of
  5.     1: (ax,bx,cx,dx,bp,si,di,ds,es,flags : integer);
  6.     2: (al,ah,bl,bh,cl,ch,dl,dh          : byte);
  7.     end;
  8. var
  9.   regs : regpack;
  10. begin
  11.   regs.ax := $0003;  { back to text mode }
  12.   intr($10, regs);
  13. end;  { procedure EXGRAPHIC }
  14.