[Back to EXEC SWAG index] [Back to Main SWAG index] [Original]

    {===================================================================
    Date: 10-19-93 (19:37)
    From: MAYNARD PHILBROOK
    Subj: Re: Execwindow graphics
    ----------------------------------------------------------------------}
    {$F+,I-,S-,D-}
    {$m 1024, 0, 3000}

    Uses Crt, Dos;
    Var
    OLD_29H :Pointer;
    C   :Char;         { Holds Charactor to Write }
    {$F+}

    Procedure Patch1;
    Interrupt;
    Begin
        Write(C);
    End;

    Procedure Patch; Assembler;
      Asm
        Push DS
        Push Ax
            Mov   AX, Seg C;
            Mov   DS, AX;
            Pop   AX;
            Mov   C, Al;
            Pop   DS
            Jmp   Patch1;
      End;
    Begin
     Clrscr;
     GetINtVec($29, OLD_29H);
     SetIntVec($29, @Patch);
     Window(14, 10, 40, 22);
     ClrScr;
     Exec('C:\Command.com',' /c dir');
     Readkey;
     SetIntVec($29, OLD_29h);
    End.

    The Command.com is just an example..
    Note:
    If your using ANSI.SYS in Dos, this will not use Anis..
    TP uses its own screen writes, but this code directs all Dos Char Output
    to the TP window.
    To Stop echo of Dos functions or what ever, use the
    > NULL at the end of the parms when executing..

    --- MsgToss 2.0b
     * Origin: Sherwood Forest RBBS 203-455-0646 (1:327/453)

[Back to EXEC SWAG index] [Back to Main SWAG index] [Original]