REM Ghosts.bbc 0.01 23-May-2005
      REM Show a 13 x 7 grid of random colour ghost cards
      REM Press SPACE to end program
      :
      INSTALL "CardLib.bbc"
      :
      REM Setup
      PROCcdtInit
      :
      REM Turn off screen update
      PROCcdtRedraw(FALSE)
      :
      REM Disable cursor
      OFF
      :
      REPEAT
        :
        tmp=RND(-TIME)
        :
        REM Show a 13 x 7 grid of random colour ghost cards
        FOR suit%=0 TO 6
          FOR face%=0 TO 12
            PROCcdtDrawEx(@memhdc%,2+(cdtWidth%*face%)+(2*face%),2+(cdtHeight%*suit%)+(2*suit%),face%,suit%,mdGhost,RND(255)+(RND(255)<<8)+(RND(255)<<16))
          NEXT
        NEXT
        :
        REM Redraw the screen
        PROCcdtRedrawAll
        :
      UNTIL INKEY(0)=32
      :
      REM Finish using the DLL
      PROCcdtTerm
      :
      REM Enable cursor
      ON
      :
      REM Done
      END