REM Shrink.bbc 0.02 28-May-2005
      REM Draw shrinking card
      :
      INSTALL "CardLib.bbc"
      :
      REM Setup
      PROCcdtInit
      :
      REM Turn off screen update
      PROCcdtRedraw(FALSE)
      :
      REM Draw shrinking card
      FOR size%=640 TO 64 STEP -16
        PROCcdtDrawExt(@memhdc%,0,0,size%*.75,size%,0,mdFaceUp,0)
      NEXT
      :
      REM Redraw screen
      PROCcdtRedrawAll
      :
      REM Finish using the DLL
      PROCcdtTerm
      :
      REM Move cursor to bottom of screen
      PRINT TAB(0,43);
      REM Done
      END