!ô Shrink.bbc 0.02 28-May-2005 ô Draw shrinking card :  "CardLib.bbc" : ô Setup òcdtInit : ô Turn off screen update òcdtRedraw(£) : ô Draw shrinking card ã size%=640 ¸ 64 ˆ -16 :òcdtDrawExt(@memhdc%,0,0,size%*.75,size%,0,mdFaceUp,0) í : ô Redraw screen òcdtRedrawAll : ô Finish using the DLL òcdtTerm : %ô Move cursor to bottom of screen ñ Š0,43); ô Done à ÿÿ