Code-Beispiel: Sichtbarkeit von Windowobjekten und Variablen

Window(win1, 10, 10, 300, 190, ". . . " ) 
  [ Var(x, y)
    Define(Fak)  // y = x! 
              Dup 1 > if { Dup 1 - Fak * } ; 
    INITIALIZE: 3 -> x 
  { 
     String(s1, . . .  )
  Module(Alfa) 
  [ Var(a, b, x)
    Define(Fak)  // verbesserte Version 
              Dup 1 > if { Dup 1 - Fak * } 
                           else { Drop 1 } 
              ; 
  ] 
     OList(pBox, SELECT_MULTIPLE, HZ_SCROLL_BAR, ITEM(800, 14), 10, 73, 400, 47)
     [ Define(SexSym)
          Copy(sexEnum)
          if "" else ""
          ; 
       INITIALIZE: 4 -> x 
                   // P e r s o n 
                   [ "CX_PERSON::title", 0, COLOR BLUE ] 
                   SetFormat
                   [ "CX_PERSON::name", 85, COLOR LIGHTBLUE ] 
                   SetFormat
                   [ "CX_PERSON::firstName", 217, COLOR BLUE ] 
                   SetFormat
                   [ "CX_PERSON::"  Push(SexSym), 305, 7, COLOR LIGHTRED ] 
                   SetFormat
     ]
  } 
  Window(win2, 70, 80, 200, 150, ". . . " ) 
  { 
      . . .