Что вызывает критическую ошибку и закрытие программы?

Global Width.i = 800                   ;Ширина окна программы
Global Heght.i = 600                   ;Высота окна программы
Global CenterX.i = Width/2                   ;Ширина окна программы
Global CenterY.i = Heght/2                   ;Высота окна программы
Global Radius.i = CenterX
 
#win=0
 
Procedure DrawClock()
  xm=WindowWidth(#win)/2 : ym=WindowHeight(#win)/2
  If ym<xm : Radius=ym*0.98 : Else : Radius=xm*0.98 : EndIf 
EndProcedure
 
 
ExamineDesktops() ; Определяем текущее разрешение экрана
Width = DesktopWidth(0)
Heght = DesktopHeight(0)
If OpenWindow(#win, 0, 0, Width, Heght, "Clock acco Example", #PB_Window_BorderLess | #PB_Window_ScreenCentered | #PB_Window_Maximize) ;  | #PB_Window_Maximize
  AddWindowTimer(#win, 123, 500)
  If CreateImage(0, Width, Heght) And StartDrawing(ImageOutput(0))
    Box(0, 0, Width, Heght, RGB(5, 13, 96))
    StopDrawing() 
    ImageGadget(0, 0, 0, Width, Heght, ImageID(0))
    Repeat
      Event = WaitWindowEvent()
      If Event = #PB_Event_Timer And EventTimer() = 123
        DrawingMode(#PB_2DDrawing_Transparent)
        DrawingFont(FontID(1))
        DrawText(CenterX-TextWidth("12")/2,4,"12")
        DrawText(CenterX - Radius,CenterY-TextHeight("9")/2,"9")
        DrawText(CenterX+Radius-TextWidth("3"),CenterY-TextHeight("3")/2,"3")
        DrawText(CenterX-TextWidth("6")/2,Heght-40,"6")
      ElseIf Event = #PB_Event_LeftClick Or Event = #WM_CHAR
         End
      EndIf    
    Until Event = #PB_Event_CloseWindow
  EndIf
  RemoveWindowTimer(0,123)
EndIf

If OpenWindow(0, 0, 0, 256, 256, "CreateImage", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    ImageGadget(0, 0, 0, 256, 256, 0)
    
    If CreateImage(0, 256, 256, 32, RGB(255,255,255))
      StartDrawing(ImageOutput(0))
      Ellipse(70, 50, 30, 10, RGB(0,0,255))
      Ellipse(186, 50, 30, 10, RGB(0,0,255))
      LineXY(128, 80, 128, 150, RGB(255, 0, 255))
      RoundBox(70, 200, 110, 30, 20, 20, RGB(255, 0, 0))
      StopDrawing()
    EndIf
    
    SetGadgetState(0, ImageID(0)) ; Просмотр
    
    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
   EndIf

Repeat ... Until пока_не_нажата_клавиша_Esc

InitSprite():InitKeyboard():InitSound():InitMouse()
; Параметры экрана
ExamineDesktops() ; Определяем текущее разрешение экрана
Width = DesktopWidth(0)
Height = DesktopHeight(0)
CenterX.i = Width/2                    ;Ширина окна программы
CenterY.i = Height/2                   ;Высота окна программы
Radius.i = CenterY                     ; для монитора центр по высоте
LoadFont (0, "Courier", 10)            ; Загрузка шрифта Courrier, размер 15
LoadFont (1, "Arial", 30)              ; Загрузка шрифта Arial, размер 30
 
OpenScreen(Width, Height,32,"The Clock")
Repeat
    FlipBuffers()
    ClearScreen(RGB(5, 13, 96)) ; цвет заливки
 ; Рисование всякой графики и текста 
    StartDrawing(ScreenOutput())
    DrawingMode(#PB_2DDrawing_Transparent)
    DrawingFont(FontID(1))
    DrawText(CenterX-TextWidth("12")/2,4,"12")
    DrawText(CenterX - Radius,CenterY-TextHeight("9")/2,"9")
    DrawText(CenterX+Radius-TextWidth("3"),CenterY-TextHeight("3")/2,"3")
    DrawText(CenterX-TextWidth("6")/2,Height-50,"6")
  
    ; Рисуем по окружности метки часов и минут циферблата
    ;     xn = x + Cos(u) * r
    ;     yn = y - Sin(u) * r
    
    For a = 0 To 60
      angle.f = Radian(a * 6) 
      Plot(CenterX + Cos(angle)*(CenterY-55), CenterY - Sin(angle)*(CenterY-55), #White)
      
      If a % 5 = 0
        Box(CenterX + Cos(angle)*(CenterY-55), CenterY - Sin(angle)*(CenterY-55),7,7,#White) ; можно так
        ;Circle(CenterX + Cos(angle)*(CenterY-55), CenterY - Sin(angle)*(CenterY-55),4,#White) ; или так
      EndIf
    Next a
    DrawingFont(FontID(0))
    DrawText(10, Height-20, "Текущее разрешение = "+Str(DesktopWidth(0))+"x"+Str(DesktopHeight(0))+"x"+Str(DesktopDepth(0)))
    StopDrawing()
    
ExamineKeyboard()
Until KeyboardReleased(#PB_Key_Escape)

CatchImage(0, ?Logo)
; тут код программы
End
 
  DataSection
    Logo: 
      IncludeBinary "Logo.bmp"
  EndDataSection