nSprite does not draw anything...

I am using nSprite (Free version but I plan to upgrade as soon as I get my net paycheck!) ANYWAY I am using it to see what kind of a cardgame I can make. I have a PNG like this:

And my code is:

; JUST to see if the card thing works... RWD
Graphics3D 800,600,16,2

SetBuffer BackBuffer()
Include "nSprite.bb"
SeedRnd MilliSecs()
reseed = Rand(1,1000) ;this compensates for known Random bug (just ask 'Morduun' 8)
reseed = Rand(1,1000) 

camera=CreateCamera()
PositionEntity camera,0,0,0
light=CreateLight()
RotateEntity light,45,0,0

nS_Initialize() ; initialize nSprite
card = nS_LoadAnimImage("cards.png",71,96,1,51)

Dim cards%(52)

.reshuffle

shuffle()

While Not KeyHit(1)

;x% = 10
If y% < 13 And x% < 610 Then
	For i% = 1 To 13
		For x% = 10 To 610 Step 200
			y% = y% + 15
				nS_DrawImage(card,x%,y%,cards(i))
			nub = nub+1
		Next
	Next
EndIf

If KeyHit (57) = True Then
	Goto reshuffle
EndIf

;UpdateWorld()
RenderWorld()

Text 0,0,"Sprites: "+nub
Flip

Wend

End

Function shuffle%()
	;Load the cards() array with 52 unique numbers
	;(they just happen to be sequential for now)
	For i% = 1 To 52
		cards(i) = i
	Next

	;Simulate shuffling deck 7 times	
	For i = 1 To 7*52
		;Use indices swap1 and swap2 to scramble deck
		swap1% = Rand(1,52)
		swap2% = Rand(1,52)
		
		;Ensure indices don't point to same element
		While swap1 = swap2
			swap2 = Rand(1,52)
		Wend
		
		;OK, two different elements, perform swap
		temp% = cards(swap1)
		cards(swap1) = cards(swap2)
		cards(swap2) = temp
	Next
End Function

Function getSuit$( integer%)
	;1-13 is a spade,  14-26 is a heart,  27-39 is a club,  40-52 is diamond
	If integer < 14 Then suit$ = "Spades"
	If integer > 13 And integer < 27 Then suit$ = "Hearts"
	If integer > 26 And integer < 40 Then suit$ = "Clubs"
	If integer > 39 Then suit$ = "Diamonds"
	;now we know the suit, make 'integer' a number between 0 and 12
	integer = integer Mod 13
	
	Select integer
		Case  1: value$ = "Ace"
		Case 11: value$ = "Jack"
		Case 12: value$ = "Queen"
		Case  0: value$ = "King"
		Default: value$ = Str(integer)
	End Select
	
	Return value$ + " of " + suit$
End Function

But it draws NADA!!! I know it did a turn through the for/next loop but???

ALSO what is nS_SpriteCount it isn't documented???

RZ