                 Copyright$1 quick$0 
{+}boxdefs.inc \ ------------------------------- COMMON VALUES PREDEFINITIONS \
                 InputFileBufferLength$0100000 OutputFileBufferLength$0100000
{+}boxvars.inc \ ------------------------------- STATIC VARIABLES DEFINITIONS \
{+}boxvals.inc \ ------------------------------- COMMON VALUES    DEFINITIONS \
{+}boxfuns.inc \ ------------------------------- COMMON FUNCTIONS DEFINITIONS \
\?quick ?\ {+}winstcio.inc  !\
\ ---------------------------------------------- COMMON FUNCTIONS DEFINITIONS \
{+}boxmain.inc \ -------------------------------   MAIN FUNCTION  DEFINITIONS \
\?quick @ReadInputFile F,InputFileBuffer T,OutputFileBuffer DF+InputFileLength
        [ F+<D <. :> ] T -OutputFileBuffer :OutputFileLength 
        @nl ("FILELEN=" @say @oi @WriteOutputFile 
?\      open,MainArgs[1],0 :InputFile open,MainArgs[2],1 :OutputFile 
        [ getc,InputFile ?- putc,A,OutputFile ] 
        close,InputFile  close,OutputFile  
!\  
{+}boxinit.inc  \ ---------------- MAIN FUNCTION INITIALIZATION - TERMINATION \
{+}copyrigt.inc @nl @DisplayCommandLineArgs {+}useinput.inc {+}useoutpt.inc
@main @nl say"Processing Finished !" 
999 \?Copyright >0 ?\ >116 !\ OutScr"WINPROC" ! @!Exit 
{+}wapend.inc 
~~ 
WinProCD.luc - ⨯   ਬ  LUX-ணࠬ஢   
ன ୮ ࠡ⪨ 䠩   ᯮ짮 㭪権 ண 
-뢮 䠩 @ReadInputFile  @WriteOutputFile : 

         [ F<D <. :> ]

 ࠢ  Ci-  ਬ஬ LUX-ணࠬ஢  ன
(  맮 㭪権 getc  putc) ࠡ⪨ ⮣  䠩:

         [ getc,InputFile ?- putc,A,OutputFile ]

WinProCD.luc - ᯮ ꥪ  File - InputFile  OutputFile

- ᪨ ᮧ ᮮ⢥騬 맮 㭪権:

         open,MainArgs[1],0 :InputFile open,MainArgs[2],1 :OutputFile

 ᪨ 㭨⮦ ᮮ⢥騬 맮 㭪権:

         close,InputFile  close,OutputFile

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

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

