#Main=0

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

hPoint=PurePoint("Cross.pvp")  ;<-- Loads PurePoint from File

quitMain=0

Repeat

UsePurePoint(hPoint)

Select WaitWindowEvent()

Case #PB_Event_CloseWindow

quitMain=1

EndSelect

Until quitMain

FreePurePoint(hPoint)

EndIf

End