REM Grid.bbc 0.01 23-May-2005
      REM Draw a 13 x 4 grid of all cards
      :
      INSTALL "CardLib.bbc"
      :
      REM Setup
      PROCcdtInit
      :
      REM Turn off screen update
      PROCcdtRedraw(FALSE)
      :
      REM Show a 13 x 4 grid of all cards
      FOR suit%=0 TO 3
        FOR face%=0 TO 12
          PROCcdtDrawEx(@memhdc%,2+(cdtWidth%*face%)+(2*face%),2+(cdtHeight%*suit%)+(2*suit%),face%,suit%,mdFaceUp,0)
        NEXT
      NEXT
      :
      REM Redraw the screen to display cards
      PROCcdtRedrawArea(0,0,14*cdtWidth%,5*cdtHeight%)
      :
      REM Finish using the DLL
      PROCcdtTerm
      :
      REM Place the cursor beneath the cards
      PRINTTAB(0,27);
      :
      REM Done
      END