Příklady - Objekty

 dim Nazev  : String[30];
 dim Castka : Real;
 WInit(1, 0,0,40,08, "OKNO", winMove,0);
 Ins_String   (1, 1, 02,02,40,03, ofSelectable+ofFirstClick+ofFramed, 30)
 Ins_Label    (1, 2, 02,01,10,02,  "~N~ázev",1)
 Ins_Real     (1,20, 02,05,20,06,  ofSelectable+ofFirstClick+ofFramed, 0,0)
 Ins_Label    (1,21, 02,04,11,05,  "Čá~s~tka", 20)
 Ins_Button   (1,50, 01,07,22,09, "OK", cmOK, 1)
 Ins_Button   (1,51, 22,07,41,09, "Přeruš", cmCancel, 0)
 ChObjProc(1, Zmena)
 SelObject(1, 1)
 SetData(1, "Název", 2000)
 WOpen(1)
 if _Execute(1) = cmOK then
   GetData(1, Nazev, Castka)
 endif
 (* nebo lze použít: *)
 SetDataObj(1, 1, "Název_1")
 SetDataObj(1, 20, 2001)
 WOpen(1)
 if _Execute(1) = cmOK then
   GetDataObj(1, 1, Nazev)
   GetDataObj(1, 20, Castka)
 endif
 WDone(1)
 Exit
 Zmena:
   PrintUp("Naposledy zaostřený obj.: ", _LastObject,
           "  Zaostřený obj: ", _ActObject)
 return