ô Grid.bbc 0.01 23-May-2005 %ô Draw a 13 x 4 grid of all cards :  "CardLib.bbc" : ô Setup òcdtInit : ô Turn off screen update òcdtRedraw(£) : %ô Show a 13 x 4 grid of all cards ã suit%=0 ¸ 3 ã face%=0 ¸ 12 lòcdtDrawEx(@memhdc%,2+(cdtWidth%*face%)+(2*face%),2+(cdtHeight%*suit%)+(2*suit%),face%,suit%,mdFaceUp,0) í í : (ô Redraw the screen to display cards 1òcdtRedrawArea(0,0,14*cdtWidth%,5*cdtHeight%) : ô Finish using the DLL òcdtTerm : (ô Place the cursor beneath the cards ñŠ0,27); : ô Done à ÿÿ