{{ par 16 input 65504 inplen }}

!~ {}realfunc

~main (es ds :es

   1 input#readp :inplen

   B#input+inplen F#input T#input

   [ F<>B 0 .

   .+>=0E0 .+<0F0 .+010 !~ !!

   .+>=080 .+<0B0 .+040 !!

~! :

   ]

   (inplen 2 input#writp

   )es ;

~! { @entry @cls @main @return } @!exit


~~

Copyright(c) 1998 Victor M.Pancov Russia Obninsk