         {+}wincibeg.inc    Quick$Yes
main()   
         open,MainArgs[1],0 :InputFile open,MainArgs[2],1 :OutputFile 
\?Quick  !~ $123456 ~! 
         F:=[InputFile]FileBuffer  D:=[B]FileEnd 
         T:=[OutputFile]FileBuffer 

         [ F<D <. :> ] >- T:[B]FilePointer 
?\ 
         [ getc,InputFile ?- putc,A,OutputFile ]
!\ 
         close,InputFile  close,OutputFile 
;
         {+}winciend.inc 
~~ 

WinProCQ.luc - ਬ LUX-ணࠬ஢  ன ୮ 
ࠡ⪨ 䠩 

         [ F<D <. :> ] 

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

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

WinProCQ.luc - ᯮ ꥪ  File - InputFile  OutputFile 

- ᪨ ᮧ ᮮ⢥騬 맮 㭪権: 

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

 ᪨ 㭨⮦ ᮮ⢥騬 맮 㭪権: 

         close,InputFile  close,OutputFile 

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

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

