Greeting Animals by *yuko*

character::s*12,a(12)*8=["tanoshii","yukaina","naraion","nagi","nbou","sagi","ni","usu","kanku","usu","n",""]
1 read*,s;do i=1,12;k=i<3;if(s(2:4)=="ahouteayohayadarigonbtadtteochonnyas"(i*3-2:i*3))print'(3a)',&
s(:ichar("\x08\x08\x0c\x0e\x0f\x10\x10\x11\x12\x14\x12\x14"(i:))-8),trim(a(i))," nakamaga popopopo-n"(:k*20);enddo;goto1;end

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

download

return to the top page