Files
harbour-core/harbour/source/hbpp/c.prg
1999-05-24 09:29:16 +00:00

16 lines
345 B
Plaintext

#include "std.ch"
@ 1,1,10,10 BOX ORAMKA
@ 2, 3 SAY "Hello,world"
SET DATE BRITISH
USE JOUPL SHARED INDEX JOUPI1
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