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

{ STEVE BOUTILIER }

Uses
  Dos,
  Crt;

Procedure OpenGraphics; Assembler;
Asm
  Mov Ah, 00h
  Mov Al, 13h
  Int $10
end;

Procedure CloseGraphics; Assembler;
Asm
  Mov Ah, 00h
  Mov Al, 03h
  Int $10
end;

Procedure PutXY(X, Y : Byte); Assembler;
Asm
  Mov Ah, 02h
  Mov Dh, Y - 1
  Mov Dl, X - 1
  Mov Bh, 0
  Int $10
end;

Procedure OutChar(S : Char; Col : Byte); Assembler;
Asm
  Mov Ah, 0Eh
  Mov Al, S
  Mov Bh, 0
  Mov Bl, Col
  Int $10
end;

Procedure OutString(S : String; Col : Byte);
Var
 I  : Integer;
 Ch : Char;
begin
  For I := 1 to Length(s) do
  begin
   Ch := S[I];
   OutChar(Ch, Col);
  end;
end;

begin
  OpenGraphics;
  OutString('HELLO WORLD!' + #13#10, 14);
  Repeat Until KeyPressed;
  CloseGraphics;
end.

{
BTW: This code is Public Domain! Do what you want With it! most of you
     probably already have routines that are even better than this.
}

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