!ô Ghosts.bbc 0.01 23-May-2005 5ô Show a 13 x 7 grid of random colour ghost cards ô Press SPACE to end program :  "CardLib.bbc" : ô Setup òcdtInit : ô Turn off screen update òcdtRedraw(£) : ô Disable cursor ‡ : õ : tmp=³(-‘) : 5ô Show a 13 x 7 grid of random colour ghost cards ã suit%=0 ¸ 6 ã face%=0 ¸ 12 ‰òcdtDrawEx(@memhdc%,2+(cdtWidth%*face%)+(2*face%),2+(cdtHeight%*suit%)+(2*suit%),face%,suit%,mdGhost,³(255)+(³(255)<<8)+(³(255)<<16)) í í : ô Redraw the screen òcdtRedrawAll : ý ¦(0)=32 : ô Finish using the DLL òcdtTerm : ô Enable cursor î : ô Done à ÿÿ