(*---------------------------------------------------------------------------
  :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
---------------------------------------------------------------------------*)

DEFINITION MODULE QText;

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

PROCEDURE QText(x{0},y{1}: INTEGER;
                str{8}: ADDRESS;
                bm{9}: BitMapPtr;
                tf{10}: TextFontPtr);

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

END QText.