Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
USE c:\temp\temp EXCLUSIVE
DELETE ALL
INDEX ON Agent_Code UNIQUE TAG uniq
RECALL all
SET ORDER TO
INDEX ON Agent_Code UNIQUE TAG uniq2 FOR DELETED()
RECALL all
SET ORDER TO
INDEX ON Agent_Code TAG code
BROWSE
CREATE TABLE c:\temp\temp FREE (Name C(10),Address C(10))
* --- Populate Table with Test Values ---
FOR Cntr = 1 To 6
APPEND BLANK
IF MOD(RECNO(),2) = 0
* --- Even Records ---
REPLACE Name WITH "John";
Address WITH "Addr" + STR(Cntr,2)
ELSE
* --- Odd Records ---
REPLACE Name WITH "Bill";
Address WITH "Addr" + STR(Cntr,2)
ENDIF
ENDFOR
* --- Now Reverse The Sequence ---
FOR Cntr = 7 To 12
APPEND BLANK
IF MOD(RECNO(),2) = 0
* --- Even Records ---
REPLACE Name WITH "Bill";
Address WITH "Addr" + STR(Cntr,2)
ELSE
* --- Odd Records ---
REPLACE Name WITH "John";
Address WITH "Addr" + STR(Cntr,2)
ENDIF
ENDFOR
INDEX ON Name + STR(MOD(RECNO(),2)) UNIQUE TAG S1
BROWSE