#include "windows.bi"

Dim as HWND hwnd = FindWindow("ConsoleWindowClass",0)
if hwnd<>NULL Then
  Dim As HDC hdc
  hdc=GetWindowDC(hwnd)
  if hdc<>0 Then
   Dim As HPEN hpen = CreatePen(PS_SOLID,5,&hFF)
   SelectObject(hdc,hpen)
   Ellipse(hdc,90,90,120,120)
   DeleteObject(hpen)
   DeleteDC(hdc)
  else
   Print "Error DC Window"
  EndIf  
else
  Print "Error Find Window"
EndIf
sleep