<p>Porra. Essa merda não salienta sintaxe para Pascal ou ObjectPascal ou Delphi.  Sucks !!</p>
<pre><code class="lang-objectPascal">procedure main()
  &amp;window := open("hello", "g", "drawop=reverse")
  repeat if Event() === (&amp;ldrag | &amp;mdrag | &amp;rdrag) then {
    # erase box at old position, then draw at new position
    FillRectangle(\x, \y, -20, -20)
    FillRectangle(x := &amp;x, y := &amp;y, -20, -20)
  }
end
</code></pre>


Porra. Essa merda não salienta sintaxe para Pascal ou ObjectPascal ou Delphi.  Sucks !!


```objectPascal
procedure main()
  &window := open("hello", "g", "drawop=reverse")
  repeat if Event() === (&ldrag | &mdrag | &rdrag) then {
    # erase box at old position, then draw at new position
    FillRectangle(\x, \y, -20, -20)
    FillRectangle(x := &x, y := &y, -20, -20)
  }
end
```

Cadafalso

Cadafalso

Unicon

Sucesso & Falha