On 1:input:*:{

  if ($1- == op) { /cs Op #  $me   | halt }
  if ($1- == deop) { /mode # -o  $me   | halt }
  if ($1- == +) { /mode # +v  $me   | halt }
  if ($1- == -) { /mode # +v  $me   | halt }
  if ($1- == nbr) { say  4N6a14b2e4r12?  | halt }
  if ($1- == ins) { say  4İ12N4Ş12A4L12L4A12H4  | halt }
  if ($1- == duy) { say  7[7,18,1- w7,1W7,1w7,1.14,1D7,1u8,1y4,1G11,1u9,1S3,1o8,1H6,1b5,1e13,1T7,1.10,1C11,1o4,1m11,1 -8,1]  | halt }
  if ($1- == naber) { say 4N6a14b2e4r12? | halt }
  if ($1- == genç) { say 4Gencim 1Güzelim 4HızLıyım 1Bekarım 4Gördüğünüz 1Gibi 4Can Yakarım 1:))) | halt }
  if ($1- == çilek) { say 13MucKSsSsSsSsSsSsSs 7SaNa 3MucKSsSsSsSsSsSsSs 6CiLeK 12YaNaKLaRinDaN 13)) | halt }
  if ($1- == bal) { say 13MucKSsSsSsSsSsSsSs 7SaNa 3MucKSsSsSsSsSsSsSs 6BaL 12DuDaKLaRıNDaN 13)) | halt }
  if ($1- == naber?) { say 4N6a14b2e4r12? | halt }
  if ($1- == mrb) { say 4M2e5r3h6a13b1a | halt } 
  if ($1- == :::) { say 12 4:)12:)4:)12:)4:)12:)4:)12:)4:)12:)4:)12:)4:)12:)4:)12:)4:)12:)4:)12:)4:)12:)4:)12:)4:)12:)4:)12:)4:)12:)4:)12:)4:)12:)4:)12:)4:)12:)4:)12:)4:)12:)4:)12:)4:)12:)4:)12:)4:)12:) )  | halt }
  if ($1- == s.a) { say   4S12e4L12å4m12u4N 4A12L4£12y4k12u4m  | halt }
  if ($1- == w) { say   4W12å4L12L4å12H4å 4D12e 4H12e4l12e 4:12)4:12)    | halt }
  if ($1- == valla) { say   4W12å4L12L4å12H4å    | halt }
  if ($1- == byy) { say  4B12y4e12å4S12s4S12s4S 4B12y4e12å4S12s4S12s4S 4P12å4i 4P12å4i 4P12å4i 4P12å4i    | halt }
  if ($1- == nasilsın)  { say  12S2en  12Na4sılsın?    | halt }
  if ($1- == a.s) { say 4A3L4e3Y4K3u4M 4S3e4L3å4M 4H3o4S3G4e3L4D3i4N3   .. | halt }
  if ($1- == s.a) { say 0,4 C* Selamun Aleykum C* | halt }
  if ($1- == :i) { say 6¶4,8:) | halt }
  if ($1- == ay) { say 4a7y10a12y12a13y4a7y10a12y12a13y4a7y10a12y12a13y | halt }
  if ($1- == canimmm) { say  4C12å4N12i4M12m4M12m4M12m4M12m4M12m4M 12B4å12L4i12M4m12M4m12M 12K4å12y4m12å4g12i4M12m4M    | halt }
  if ($1- == s.s.g) { say 4S12e4N12i 4S12e4v12i4y12o4r12u4m12m4m 12G4ü12l4T12a4n12e4M  | halt }
  if ($1- == bye) { say 4B7y4e1.14. | halt }
  if ($1- == oo  ) { say 13:4o13)2) | halt }
  if ($1- == evet) { say 4E10v7e12t4. | halt }
  if (($left($1,1) != /) && (%foreground != none) && (%background != none) && ($active != Status Window)) { 
    set %tg %bold $+ %underline $+  $+ %foreground $+ , $+ %background $+ $$1- | haltdef 
  }
  if (($left($1,1) != /) && (%foreground != none) && (%background == none) && ($active != Status Window)) { 
    set %tg %bold $+ %underline $+  $+ %foreground $+ , $+ 16 $+ $$1- | haltdef 
  }
  if (($left($1,1) != /) && (%foreground == none) && (%background != none) && ($active != Status Window)) { 
    set %tg %bold $+ %underline $+  $+ 16 $+ , $+ %background $+ $$1- | haltdef
  }
  if (($left($1,1) != /) && (%foreground == none) && (%background == none) && ($active != Status Window)) {
    set %tg  %bold $+ %underline $+ $$1- | haltdef
  }
  if (/* iswm $1) { return }
  var %a 0, %b, %c
  while (%a < $numtok(%tg,32)) {
    inc %a
    %c = $gettok(%tg,%a,32)
    if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(4,%c,) }
    else { %b = %b %c }
  }
  if (!%b) { %b = $1- }
  echo -a %b
  halt 
}
dialog color {
  title "Yazi Renk Format by absolut"
  size -1 -1 325 300
  box "Normal Renkler", 3, 5 5 150 250
  list 4, 22 23 110 230
  button "Kapat", 1, 140 265 50 25, ok 
  text "İnce", 9, 35 265 25 25
  check "" 10, 60 265 15 15, 
  check "" 11, 60 280 15 15, 
  text "Alti çizgili", 8, 10 280 45 25
  box "Arka Rengi Yazinin", 5, 170 5 150 250
  list 6, 190 23 110 230

}
on *:dialog:color:init:*: {  
  /did -a color 4 None
  /did -a color 4 Beyaz
  /did -a color 4 Siyah
  /did -a color 4 Mavi
  /did -a color 4 Koyu Yeşil
  /did -a color 4 Kırmızı
  /did -a color 4 Kahve Rengi
  /did -a color 4 Mor
  /did -a color 4 Turuncu
  /did -a color 4 Sari
  /did -a color 4 Açık Yeşil
  /did -a color 4 Mavi Yeşil
  /did -a color 4 Açık Mavi
  /did -a color 4 Mavi
  /did -a color 4 Pembe
  /did -a color 4 Gri
  /did -a color 4 Açık Gri
  /did -ck color 4 %fgstatus
  /did -a color 6 Normal
  /did -a color 6 Beyaz
  /did -a color 6 Siyah
  /did -a color 6 Siyah Mavi
  /did -a color 6 Siyah Yeşil
  /did -a color 6 Kırmızı
  /did -a color 6 Kahve Rengi
  /did -a color 6 Mor
  /did -a color 6 Turuncu
  /did -a color 6 Sarı
  /did -a color 6 Yeşil
  /did -a color 6 Mavi Yeşil
  /did -a color 6 Açık Mavi
  /did -a color 6 Mavi
  /did -a color 6 Pembe
  /did -a color 6 Gri
  /did -a color 6 Açık Gri
  /did -ck color 6 %bgstatus
  if (%bold == ) {
    did -c color 10
  }
  if (%underline == ) {
    did -c color 11
  }

}
on *:dialog:color:sclick:10: {
  if ($did(color,10).state) {

    /set %bold 
  }
  else {

    /unset %bold
  }
} 

on *:dialog:color:sclick:11: {
  if ($did(color,11).state) {

    /set %underline 
  }
  else {

    /unset %underline
  }
} 
on *:dialog:color:sclick:13: {
  /set %color on
  /echo Text Changer turned on.
}
on *:dialog:color:sclick:15: {
  /unset %color
  /echo Text Changer turned off.
}
on *:dialog:color:sclick:1: {
  if ($did(color,4,1) != $null) { /write -c test.txt | /write test.txt $did(color,4,1) }
  if ($did(color,4,2) != $null) { /write test.txt $did(color,4,2) }
  if ($did(color,4,3) != $null) { /write test.txt $did(color,4,3) }
}
on *:dialog:color:sclick:4: {
  if ($did(color,4).sel == 1) { set %foreground none | set %fgstatus 01 }
  if ($did(color,4).sel == 2) { set %foreground 00 | set %fgstatus 02 }
  if ($did(color,4).sel == 3) { set %foreground 01 | set %fgstatus 03 }
  if ($did(color,4).sel == 4) { set %foreground 02 | set %fgstatus 04 }
  if ($did(color,4).sel == 5) { set %foreground 03 | set %fgstatus 05 }
  if ($did(color,4).sel == 6) { set %foreground 04 | set %fgstatus 06 }
  if ($did(color,4).sel == 7) { set %foreground 05 | set %fgstatus 07 }
  if ($did(color,4).sel == 8) { set %foreground 06 | set %fgstatus 08 }
  if ($did(color,4).sel == 9) { set %foreground 07 | set %fgstatus 09 }
  if ($did(color,4).sel == 10) { set %foreground 08 | set %fgstatus 10 }
  if ($did(color,4).sel == 11) { set %foreground 09 | set %fgstatus 11 }
  if ($did(color,4).sel == 12) { set %foreground 10 | set %fgstatus 12 }
  if ($did(color,4).sel == 13) { set %foreground 11 | set %fgstatus 13 }
  if ($did(color,4).sel == 14) { set %foreground 12 | set %fgstatus 14 }
  if ($did(color,4).sel == 15) { set %foreground 13 | set %fgstatus 15 }
  if ($did(color,4).sel == 16) { set %foreground 14 | set %fgstatus 16 }
  if ($did(color,4).sel == 17) { set %foreground 15 | set %fgstatus 17 }
}
on *:dialog:color:sclick:6: {
  if ($did(color,6).sel == 1) { set %background none | set %bgstatus 01 }
  if ($did(color,6).sel == 2) { set %background 00 | set %bgstatus 02 }
  if ($did(color,6).sel == 3) { set %background 01 | set %bgstatus 03 }
  if ($did(color,6).sel == 4) { set %background 02 | set %bgstatus 04 }
  if ($did(color,6).sel == 5) { set %background 03 | set %bgstatus 05 }
  if ($did(color,6).sel == 6) { set %background 04 | set %bgstatus 06 }
  if ($did(color,6).sel == 7) { set %background 05 | set %bgstatus 07 }
  if ($did(color,6).sel == 8) { set %background 06 | set %bgstatus 08 }
  if ($did(color,6).sel == 9) { set %background 07 | set %bgstatus 09 }
  if ($did(color,6).sel == 10) { set %background 08 | set %bgstatus 10 }
  if ($did(color,6).sel == 11) { set %background 09 | set %bgstatus 11 }
  if ($did(color,6).sel == 12) { set %background 10 | set %bgstatus 12 }
  if ($did(color,6).sel == 13) { set %background 11 | set %bgstatus 13 }
  if ($did(color,6).sel == 14) { set %background 12 | set %bgstatus 14 }
  if ($did(color,6).sel == 15) { set %background 13 | set %bgstatus 15 }
  if ($did(color,6).sel == 16) { set %background 14 | set %bgstatus 16 }
  if ($did(color,6).sel == 17) { set %background 15 | set %bgstatus 17 }
}

alias df { 
  set %foreground none
  set %background none
  set %fgstatus 01
  set %bgstatus 01
} 
alias renkleriac {
  dialog -m color color
}