... ReadLibroCassa(cFile,scost) store "" to lb01,lb02,lb03,lb04,lb05,lb06,lb06,lb07,lb08,lb09,lb10,lb11,lb12,lb13,lb14,lb15,lb16 use &cFile alias pippo go scost lica1 := pippo->lb01 lica2 := pippo->lb02 lica3 := pippo->lb03 lica4 := pippo->lb04 lica5 := pippo->lb05 lica6 := pippo->lb06 ...