Abbreviations, automatic: Difference between revisions

Content added Content deleted
Line 1,034: Line 1,034:
Open in("dias_de_la_semana.txt")( fd )
Open in("dias_de_la_semana.txt")( fd )
If ( Not( File error ) )
If ( Not( File error ) )
[1:end]
Loop if (Not (Eof(fd)) )
Loop if (Not (Eof(fd)) )
Using( MAX_LINE ), Split( Readlin(fd) » (days), days of week, " ")
Using( MAX_LINE ), Split( Readlin(fd) » (days), days of week, " ")
Line 1,043: Line 1,041:
i=1
i=1
Loop
Loop
Let( temp := Mid( i, 1, Get( days of week )))
Let( temp := Mid( i, 1, days of week ))
aSort(temp)
aSort(temp)