{* 1 copyr *}

{* 0100000 inplen 0100000 outlen *}
{* 16384 imlsiz 16384 stsize *}

   {+}clastruc.inc {+}comhed.inc {+}winsegs.inc {+}waphed.inc
$:datseg {{ screen #memblk scr #out }}
   {{ input #memblk output #memblk }}
   {{ cmdlin infilnam infile inflen oufilnam oufile ouflen deflen }}
$= {~
welcome: :"Welcome"
   ~}
$@codseg A$0 B$3 C$1 D$2 F$6 T$7 S$4 P$5

!~ {+}clasfuns.inc {+}wapsubrs.inc {+}messages.inc {+}piosubrs.inc

~mainin @mescrini ;

~copy F,input T,output DF+inflen

[ F+<=D . .=13 : . : .13 : .10 ! : ]

@nl ("FILELEN=" @say T -output -1 :ouflen @oi @outfil ;

$-

~! @mainin
\?copyr
say"BlancStr 4.0 Copyright(c)1998,Victor M.Pancov."
say"Russia, Obninsk. " @os @os @os
!\
   @parmproc
  
F,infilnam 0. .+<'! message"LUXY""Invalid Source File Name !
Usage: luxy.exe source.luc output.exe" !~ !
F,oufilnam 0. .+<'! message"LUXY""Invalid Output File Name !
Usage: blancstr.exe source.txt output.txt" !~ !

@inpfil @copy
@nl say"Copying Finished !"
   1
\?copyr >0 ?\ >1 !\ @scrout !

~! ~! @@ExitProcess,0

{+}wapend.inc

~~
Windows-32 Application Interface!

Dialog Box Display Functions!

No Main Window!

BlancStr.luc Copyright(c) 1998 Victor M.Pancov Russia Obninsk