RosettaCodeData/Task/FASTA-format/EasyLang/fasta-format.easy

20 lines
282 B
Text
Raw Permalink Normal View History

2024-03-06 22:25:12 -08:00
repeat
s$ = input
until s$ = ""
if substr s$ 1 1 = ">"
2026-02-01 16:33:20 -08:00
if stat = 1 : print ""
2024-03-06 22:25:12 -08:00
stat = 1
print s$
else
write s$
.
.
2026-02-01 16:33:20 -08:00
print ""
2024-03-06 22:25:12 -08:00
input_data
>Rosetta_Example_1
THERECANBENOSPACE
>Rosetta_Example_2
THERECANBESEVERAL
LINESBUTTHEYALLMUST
BECONCATENATED