Ejection by *yuko*

character::s(19)*19="",c;read*,s(5);n=len_trim(s(5));s(n+4)=s(5)
do2 i=6,n+3;read'(a)',s(i);do2 j=1,n;c=s(i)(j:);k=5;l=j;m=ichar(c)/14-5
goto(1)m;k=n+4;goto(1)-m;k=i;l=len_trim(s(i))+1;if(m<0)cycle
1 k=k-m;if(s(k)(l:l)>"")goto1;s(k)(l:l)=c;2 s(i)(j:j)=""
print'(a)',(trim(s(i)),i=1+9/n*4,19);end

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page