RosettaCodeData/Task/Phrase-reversals/Fortran/phrase-reversals-4.f
2016-12-05 22:15:40 +01:00

1 line
76 B
Forth

WRITE (6,22) RW//RO,(" ",(ATXT(J), J = LST(I),IST(I),-1), I = 1,N,+1)