home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MADTRB16.ZIP / PRTSCR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-02-06  |  272 b   |  15 lines
  1. program prtscr;
  2.  var i : integer;
  3. procedure printscr;
  4.   type
  5.    registers=record
  6.               ax,bx,cx,dx,bp,si,di,ds,es,flags: integer;
  7.              end;
  8.   var result : registers;
  9.  begin
  10.   intr(5,result);
  11.  end;
  12.  
  13.  begin (* main program *)
  14.   printscr;
  15.  end.