EKG Sequence by *yuko*

program-id.y.data division.working-storage section.
1 n pic 999.
1 s pic x(100) value"#$&(%+.*,'140)7:268-C=@;E></IFBD3ULH5[OJNP9gRTVXZSa^Ych\?yd`A\x7fjbflG\x91mpnrtK\x9dsvozxM\xa3|w\x81\x86~\x80Q\xaf\x82\x84}\x8a\x88\x85\x8b\x8e\x8cW".procedure
division.a.compute n=function ord(s)- 35
move s(2:)to s
display n(3- function log10(n):)if s>""go a.

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

download

return to the top page