(*---------------------------------------------------------------------------
  :Program.    QText.def
  :Author.     Fridtjof Siebert
  :Address.    Nobileweg 67, D-7-Stgt-40
  :Phone.      (0)711/822509
  :Shortcut.   [fbs]
  :Version.    1.0
  :Date.       29-Apr-89
  :Copyright.  PD
  :Language.   Assembler
  :Translator. M2Amiga v3.1d / Profimat
  :Contents.   Procedure for fast text-output on a BitMap
  :UpDate.     28-JUN-91 for Compiler 4.0d
---------------------------------------------------------------------------*)
(*$ LargeVars:=FALSE NilChk:= FALSE OverflowChk:=FALSE RangeChk:=FALSE
    StackChk:=FALSE  NameChk:=FALSE *)
DEFINITION MODULE QText;

IMPORT R;

FROM SYSTEM    IMPORT ADDRESS;
FROM GraphicsD IMPORT BitMapPtr, TextFontPtr;

PROCEDURE QText(x{R.D0},y{R.D1}: INTEGER;
                str{R.A0}      : ADDRESS;
                bm {R.A1}      : BitMapPtr;
                tf {R.A2}      : TextFontPtr);

(* Gibt str^ an Position x,y in bm mit dem Font tf aus *)
(* x gibt position in Zeichenbreiten (8 Pixel) an.     *)

END QText.