DO decl
 
hwnd = GetActiveWindow()
hDC = GetDC (hwnd)
 
lpString = "Printing text with TextOut"
= TextOut (hDC, 50,80, lpString, Len(lpString)) && 
 
= ReleaseDC (hwnd, hDC)
 
PROCEDURE  decl
    DECLARE INTEGER GetDC IN user32 INTEGER hwnd
 
    DECLARE INTEGER ReleaseDC IN user32;
        INTEGER hwnd, INTEGER hdc 
 
    DECLARE INTEGER GetActiveWindow IN user32
 
    DECLARE INTEGER TextOut IN gdi32;
        INTEGER hdc,;
        INTEGER x,;
        INTEGER y,;
        STRING  lpString,;
        INTEGER nCount