                 CopyRight$1      
{+}boxdefs.inc \ ------------------------------- COMMON VALUES PREDEFINITIONS \
                 InputFileBufferLength$0100000 OutputFileBufferLength$0100000
{+}boxvars.inc \ ------------------------------- STATIC VARIABLES DEFINITIONS \
{+}boxvals.inc \ ------------------------------- COMMON VALUES    DEFINITIONS \
{+}boxfuns.inc \ ------------------------------- COMMON FUNCTIONS DEFINITIONS \
{+}boxmain.inc \ -------------------------------   MAIN FUNCTION  DEFINITIONS \

@ReadInputFile F,InputFileBuffer T,OutputFileBuffer DF+InputFileLength 

[ F+<D <. :> ] T -OutputFileBuffer :OutputFileLength @WriteOutputFile

@nl say"Output File Length = " @oi @nl say"Processing Finished !" 

{+}boxinit.inc \ ----------------- MAIN FUNCTION INITIALIZATION - TERMINATION \

{+}copyrigt.inc @DisplayCommandLineArgs {+}useinput.inc {+}useoutpt.inc

@main 999 \?CopyRight >0 ?\ >116 !\ OutScr"WINPROC" ! @!Exit {+}wapend.inc 
~~ 
WinProC.luc - ⨯    ਬ  LUX-ணࠬ஢  
ன ୮ ࠡ⪨ 䠩   ᯮ짮 㭪権 ண
-뢮 䠩 @ReadInputFile  @WriteOutputFile : [ F<D <. :> ]

   ।  ᪨ ६    㣨 ।  
include-䠩  來 ᠭ ᠬ ⬠.

WinProC.luc Copyright(c) 2002 Victor M.Pancov Russia Obninsk 
