InitSprite()
InitMouse()
InitKeyboard()

ExamineDesktops()

Global DPI.d = DesktopResolutionX()

UsePNGImageDecoder()

;***************Screen Saver Variables & Procedures (PBI)***************

  IncludeFile("Snow Procedure.pbi")

;***********************************************************************

Global ParameterID.s = "", hWnd, pSize.RECT

Procedure Callback(hWnd, Message, wParam, lParam)
 
  Protected Retval
 
  Select Message
    Case #WM_CLOSE
      End
  EndSelect

  Retval = DefWindowProc_(hWnd, Message, wParam, lParam)
 
  ProcedureReturn Retval
 
EndProcedure

Procedure Preview()
   
    hWnd = Val(ParameterID)
    GetClientRect_(hWnd, @PSize.RECT)
    If OpenWindow(0, 0, ((pSize\bottom / DPI) - (((pSize\right / DPI) / 16) * 9)) / 2, pSize\right / DPI, ((pSize\right / DPI) / 16) * 9, "", #WS_CHILD, hWnd)
      OpenWindowedScreen(WindowID(0), 0, 0, DesktopWidth(0) +110, DesktopHeight(0) -55, 1, 0, 0)
      SetWindowCallback(@Callback())
     
      SetWindowState(0, #PB_Window_Maximize) ;temp fix PureBasic 5.72
      SetWindowState(0, #PB_Window_Normal) ;temp fix PureBasic 5.72
    EndIf
   
    If IsSprite(1) = 0
     
;**********************Preview Catch File(s)(PBI)***********************

  IncludeFile("Snow Catch Files.pbi")

;***********************************************************************
 
    EndIf
   
    AddWindowTimer(0, 1, 16)

    Repeat
     
      ClearScreen(RGB(50, 100, 200))
       
        WaitWindowEvent()
       
;************************Preview Animation(PBI)*************************

  IncludeFile("Snow Preview Animation.pbi")

;***********************************************************************
     
      FlipBuffers()
   
    ForEver

EndProcedure
 
Procedure Settings()
 
;*************************Settings Window(PBI)**************************

  IncludeFile("Snow Settings Window.pbi")

;***********************************************************************
   
EndProcedure

Para.s = ProgramParameter()

Parameter.s = LCase(Left(ReplaceString(Para.s,"-","/"), 2))
 
  Select Parameter
    Case "/p"
      ParameterID = ProgramParameter()
      Preview()
    Case "/c"
      Settings()
    Case "/s"
   
;**Screen-Saver Screen, Catch File(s), Repeat Loop, & Animation (PBI)***

  IncludeFile("Snow Animation.pbi")

;***********************************************************************

  EndSelect
 
;********************Screen Saver Data Section (PBI)********************

  IncludeFile("Snow Data.pbi")

;***********************************************************************