Card.BAS mit card2.bas gemergt