GetPutTest.bas

#include once "FastConsole.bas"

Dim Shared as uByte ptr pConsole
Randomize Timer

pConsole = Cast(uByte Ptr, pCon.Create())
If pConsole = 0 Then
    MessageBox(0, "Failed to create console!", null, MB_ICONERROR)
    End
End If

pCon.ClearCon(&H0F)

var NewImg = pCon.CreateImage(10, 10)
pCon.DrawRect(10, 10, 10, 10, &H1C, 12)
pCon.GetGFX(10, 10, NewImg)
pCon.PutGFX(1, 1, NewImg)
pCon.Update()

Sleep: System