SET PATH TO c:\database\
 @ 1,1,10,10 BOX ORAMKA
 @ 10,10 say "Hello World"
 SET DATE BRITISH
 USE \Sklad\dbskl\JOUPL SHARED INDEX CUST, POSTI, ACCOU
 SET ORDER TO 2
 SET RELATION TO STR(NPOST,6) INTO POSTAV
 SUM NUM, SCHET, PARS TO x1,y1,z1
 SET FILTER TO
 SEEK STR(A->NOMER,10)
 go top
 DO WHILE x>1
  SKIP 3
 ENDDO
 LOCATE FOR Family = "Johnson"
 ? "Family:", Family, "--"
 REPLACE PARAM1 WITH 3, PARAM2 WITH "Hello", PARAM3 WITH PARAM4 * 2
 STORE 10 to x,y,z
return