PureBasic Forum

#ScreenWidth   = 320
#ScreenHeight   = 256

Define.i MainWindow, ZoomFactor
Define.b quit
Define.i event

Procedure Error(message.s)
   MessageRequester("Error", message, #PB_MessageRequester_Ok|#PB_MessageRequester_Error)
   End 1
EndProcedure

If InitKeyboard()=0 Or InitSprite()=0
    Error("Initialization failed !")
EndIf

ZoomFactor=2

MainWindow=OpenWindow(#PB_Any,0,0, #ScreenWidth*ZoomFactor,#ScreenHeight*ZoomFactor,"",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)

If MainWindow=0 Or OpenWindowedScreen(WindowID(MainWindow),0,0,#ScreenWidth,#ScreenHeight,#True,0,0)=0
   Error("Couldn't open the screen !")
EndIf

quit=#False

Repeat
   
   Repeat
      event=WindowEvent()
      If event=#PB_Event_CloseWindow
         quit=#True
      EndIf
   Until event=0
   
   ExamineKeyboard()
   
   If KeyboardPushed(#PB_Key_Escape)
      quit=#True
   EndIf
   
   ClearScreen(0)
   
   FlipBuffers()
   
Until quit

OpenWindow(0,0,0,0,0,"",#PB_Window_SystemMenu | #PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(0),0,0,#ScreenWidth,#ScreenHeight,#True,0,0)
ResizeWindow(0,0,0,#ScreenWidth*ZoomFactor,#ScreenHeight*ZoomFactor)