EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","RATTSALANT" TO F.RATTSALANT ELSE STOP

EXECUTE 'SELECT RATTSALANT'

W_Fin = "F"
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"

	READ ENR_RATTSALANT FROM F.RATTSALANT, W_Cle THEN
		ENR_RATTSALANT<1> = INT(ENR_RATTSALANT<1>/6.55957 + 1/2)
		WRITE ENR_RATTSALANT ON F.RATTSALANT,W_Cle
	END

REPEAT
STOP
