If OpenWindow(0, 200, 200, 400, 100, #PB_Window_SystemMenu|#PB_Window_TitleBar, "PureCardDraw Demo")

  ; Draw the five of hearts
  hdc.l = StartDrawing(WindowOutput())
  ReturnValue = CardDraw(hdc, 18, 80, 1, 0, RGB(0, 200, 12))
  Select ReturnValue
    Case - 1
      Debug "Invalid Card Selected"
    Case - 2
      Debug "Could not open Cards.dll"
  EndSelect
  StopDrawing()
  
  ; Draw a random faceup card
  hdc.l = StartDrawing(WindowOutput())
  RandomCard.l = CardDraw(hdc, - 1, 160, 1, 0, RGB(0, 200, 12))
  Select RandomCard
    Case - 1
      Debug "Invalid Card Selected"
    Case - 2
      Debug "Could not open Cards.dll"
  EndSelect
  StopDrawing()
  
  hdc.l = StartDrawing(WindowOutput())
  ; Draw the fish back
  ReturnValue = CardDraw(hdc, 56, 240, 1, 0, RGB(0, 200, 12))
  Select ReturnValue
    Case - 1
      Debug "Invalid Card Selected"
    Case - 2
      Debug "Could not open Cards.dll"
  EndSelect
  StopDrawing()
 
  Repeat
    ev = WaitWindowEvent()
  Until ev =#PB_Event_CloseWindow
EndIf
End