alias BF dialog -dm BF BF
dialog -l BF {
  title "BF Interpreter"
  size -1 -1 320 165
  option pixels
  icon $mircexe, 44
  text "Code", 1, 10 10 300 14
  edit "", 2, 10 30 250 20, rich autohs
  button "Run", 3, 265 30 50 20 
  combo 4, 10 130 140 20, sort drop
  edit "", 5, 160 130 150 20, rich read autohs
  text "Length: 0", 6, 250 10 65 14, nowrap disable right
  text "Pointers", 7, 10 110 100 14
  text "Value", 8, 160 110 100  14
  text "Output", 9, 10 60 100 14
  edit "", 10, 10 80 300 20, rich read autohs
}
on *:DIALOG:BF:*:*: {
  if ($devent == edit && $did == 2) did -ra BF 6 Length: $len($did(BF, 2))
}