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

    {
    ROBERT ROTHENBURG

    For those interested in using ANSI in Turbo Pascal (at least Dos v2-5
    ...I don't know if Dos 6 Uses this routine--Interrupt $29--or not)
    here's a tip:  The "undocumented" Fast PutChar interrupt is used by
    ANSI.SYS, and thus anything you send to that interrupt will be
    ANSI-interpreted (provided ANSI.SYS is loaded :).

    Use this routine to output a Character to ANSI:
    (you'll have to modify it to output Strings, of course).
    }

    Uses
      Dos;

    Procedure FastPutChar(C : Char);
    { Outputs only to "display", not stdout! Uses Dos v2-5. }
    Var
      Reg : Registers;
    begin
      Reg.AL := Ord(C);
      Intr($29, Reg)
    end;

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