home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 03 / praxis / execdos.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-12-14  |  399 b   |  16 lines
  1. PROCEDURE ExecDos(command : STRING);
  2. VAR screen : WORD;
  3.     cx,cy  : BYTE;
  4.     p      : POINTER;
  5.  
  6. BEGIN
  7.   IF MemW[$40:$49] = 7 THEN screen := $b000
  8.                        ELSE screen := $b8000;
  9.   GetMem(p, 2000);
  10.   Move(Mem[screen, 0], p^, 2000);
  11.   cx := WhereX; cy := WhereY; ClrScr;
  12.   ExecCommand(command);
  13.   Move(p^, Mem[screen:0], 2000);
  14.   FreeMem(p, 2000); GotoXY(cx, cy);
  15. END;
  16.