I see from your code that you do not assign a value to Isparti.

Code:
Prati:
Primi = Isprati
Serout PORTA.2,N2400,[Isprati]
Goto Main
You assign Primi with the value IspartI, would it be better to reverse it ?.

Isparti = Primi