#Main=0

If OpenWindow(#Main,0,0,400,300,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"Demo")

hPoint=PurePointMem(?_Cross)  ;<-- Loads PurePoint from Memory (Included Binary)

quitMain=0

Repeat

UsePurePoint(hPoint)

Select WaitWindowEvent()

Case #PB_Event_CloseWindow

quitMain=1

EndSelect

Until quitMain

FreePurePoint(hPoint)

EndIf

End

DataSection

_Cross:IncludeBinary "Cross.pvp"

EndDataSection