[ATLAS]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

raw 006:*: {
  if !%xw { set %xw 1 }
  if  %xw {
    hadd -m c $+(c,%xw) $2-
    inc %xw
  }
  if %xw == 10 {
    var %char =  32 22 17 34 30  28 29 17 16 14 
    var %q = 2
    while %q <= 8  { 
      inc %cx3 $len($gettok($replace($gettok($hget(c,$+(c,%q)),-3,44),$chr(3),$chr(32)),-1,48)) 
      inc %q
    } 
    var %y = 2
    while %y <= 8 { 
      inc %cx2 $len($gettok($replace($gettok($hget(c,$+(c,%y)),-2,44),$chr(3),$chr(32)),-1,48)) 
      inc %y
    } 
    var %k = 2
    while %k <= 8  { 
      inc %cx1 $len($gettok($replace($gettok( $hget(c,$+(c,%k)),-1,44),$chr(3),$chr(32)),-1,32))
      inc %k
    } 
    GIRIS $+($findtok(%char,%cx3,1,32),$findtok(%char,%cx2,1,32),$findtok(%char,%cx1,1,32))
    unset %cx* 
    unset %xw
  }
}

Dipnot: Code tam sürüm olarak verilmemiştir. 3 ve 8 sayılarını içeren Codeleri görmemektedir. Sorunsuz çalışmaktadır.

Tamamı ile CoCoRiCo ya ayit bir Code dir ..