           DisBuf$0B800

!~      {{ DisInd DisCol }}

~exit   04C00 $CD21  ~ik $B408CD21B400 ; ~ink ik .=0 ik +256 ! ;

~oc     (ACT (es ( DisBuf :es ) &255 |DisCol T,DisInd+T :: )es
        T >>1 :DisInd )TCA ; 

~os     ( 32 oc ) ;

~ot     ( &15 <10 +48 ? +55 ! @oc ) ;

~ob     (AC ( C4 >>C @ot ) @ot )CA ;

~oh     (AC C8 >>C @ob )CA @ob @os ;

~oi     (ABCD B10 C0 [ D0 /B D+48 (D ++C ]<>0 [ )A @oc ]- @os 
        )DCBA ;

~say    { (AF Fa! [ #cs . .<>0 @oc ] )FA } ;4

~ln     (ABD B80 +*B :DisInd )DBA ;

~nl     (ABD B80 D0 DisInd +/B +*B +B :DisInd )DBA ;

~cls    (AC DisInd:=0 32 [4000 @oc ]- DisInd:=0 )CA ; 

~entry  :ds :es DisCol:=0E00 @cls ; 

~!      cs +16 :es P0 @entry 

say"WELCOME !" @ink @!exit 

~~ 

LuxStep.luc 

Copyright(c) 1998 Victor M.Pancov Russia Obninsk 

