dim c$(4028):for i=0to 2017c$(i)=chr$(peek(0))next if"e"=c$(0)do?c$(j+7),c$(4028-j);:j=j+2loop for i=7to 1012?c$(2025-i),c$(i);next
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page