home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / SCRNPAGE.ZIP / DOSOUT.PAS next >
Encoding:
Pascal/Delphi Source File  |  1985-09-10  |  238 b   |  16 lines
  1. Procedure DosOut(Page);
  2. var
  3.  AH,AL,BH,BL,DH,DL: Byte
  4.  begin
  5.   AH:=2;
  6.   DL:=Ord('*');
  7.   BH:=Page;
  8.   with RegRec do
  9.    begin
  10.     AX:=AH shl 8 + AL;
  11.     BX:=BH shl 8 + BL
  12.     DX:=DH shl 8 + DL;
  13.    end;
  14.   MsDos(RegRec);
  15.  end;
  16.