This content is archived and may be deprecated or obsolete and is presented in the hope that it may still be useful.
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