{{ par 16 input 65504 inplen }}
!~ {}realfunc
$/
~copyrt [11 @nl ]-
   say"Copyright(c) 1998, Victor M.Pancov. "
   say"Russia, Obninsk. " @nl
   say"Open LUX - Languge of Unit's eXpressions - for Youself !!!" ;
~pbl ( 32 : ) ;
~strend 00A0D :: ;
~txt { (AF .'" : Fa! [ #cs . .<>0 : ] .'" : )FA } ;2
~pit { (AF Fa! [ #cs . .<>0 : ] )FA } ;2
~pet { (AF Fa! [ #cs . .<>0 : ] @strend )FA } ;2
$-
~main @nl @nl

   1 input#readp :inplen

   2 par#parget say"Output file is " par#pardis

   B#input+inplen F#input T#par

pet"< HTML >"

pit" pit" text="
txt"cyan"
pit" link="
txt"ltgreen"
pit" vlink="
txt"ltgreen"
pet">"

pet"< b >"

pet"< BODY >"

   [ F+>=B !~ !

   0 . .=0D . .=0A pet"< br >"

   . .>='0 .<='9 pet"     " @pbl !~ !!

   `= [ . `= ] pet"< P > < HR > " !

   .=32 [ . .=32 ] pet"     " @pbl !

   <- #] !!

   `_ pit"& nbsp; " <- #] !

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

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

~! ~! : :]

~! --T

   pet"< /b >" pet"< /BODY >" pet"< /HTML >"

   26 : say", length is " T @od

   par#dcreat ( CT par#ewrit ) @close @nl @nl

   ;

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


~~