If ( (isEmpty(SECUENCIA_LEIDA)=0)&(BOK=1) )
Rem ( Para facilitar la comprensión del proceso, se reemplazan los ascii (10) y (13) por el | )
Set ( SECUENCIA_LEIDA, replaceString(SECUENCIA_LEIDA, (getAsciiChar(10,"ISO-8859-2")+getAsciiChar(13,"ISO-8859-2")), "|") )
Set ( N_SECUENCIAS, countString(SECUENCIA_LEIDA,"|" ) )
For ( I, 0, I < (N_SECUENCIAS), 1 )
Set ( SECUENCIA_KEY, stringSection(SECUENCIA_LEIDA, "|",I,0,0) )