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