26 lines
593 B
Plaintext
26 lines
593 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
/*
|
|
Setting SoftSeek ON/OFF
|
|
*/
|
|
#include "sixapi.ch"
|
|
|
|
#include "simpleio.ch"
|
|
|
|
PROCEDURE MAIN()
|
|
|
|
? 'SYSTEM DEFAULT'
|
|
? 'sx_SetSoftSeek() =', sx_SetSoftSeek()
|
|
?
|
|
SET SOFTSEEK ON
|
|
? 'SET SOFTSEEK ON'
|
|
? 'sx_SetSoftSeek() =', sx_SetSoftSeek()
|
|
?
|
|
SET SOFTSEEK OFF
|
|
? 'SET SOFTSEEK OFF'
|
|
? 'sx_SetSoftSeek() =', sx_SetSoftSeek()
|
|
?
|
|
? 'Before :', sx_SetSoftSeek(), ', sx_SetSoftSeek(.T.) =', sx_SetSoftSeek( .T. ), ', Now :', sx_SetSoftSeek()
|
|
? 'Before :', sx_SetSoftSeek(), ', sx_SetSoftSeek(.F.) =', sx_SetSoftSeek( .F. ), ', Now :', sx_SetSoftSeek()
|