public lg ,lognum,usName
ON ERROR DO err_hand with ERROR( ),MESSAGE( ),MESSAGE(1),PROGRAM( ),LINENO( )
clos all
clea
SET TALK OFF
SET NOTIFY OFF
SET CLOCK STATUS
SET BELL ON
SET BELL TO '', 1
SET SAFETY OFF
SET ESCAPE OFF
SET LOGERRORS ON
SET CARRY OFF
SET CONFIRM OFF
SET EXACT ON
SET NEAR OFF
SET ANSI ON
SET LOCK OFF
SET EXCLUSIVE OFF
SET DELETED ON
SET OPTIMIZE ON
SET UNIQUE ON
SET CPDIALOG ON
SET REFRESH TO 0,5
SET ODOMETER TO 100
SET BLOCKSIZE TO 64
SET REPROCESS TO 0
SET HELP OFF
SET RESOURCE OFF
SET SYSFORMATS OFF
SET SECONDS ON
SET CENTURY ON
SET CURRENCY LEFT
SET CURRENCY TO '¥'
SET HOURS TO 24
SET DATE TO YMD
SET DECIMALS TO 2
SET FDOW TO 1
SET FWEEK TO 1
SET MARK TO '-'
SET SEPARATOR TO ','
SET POINT TO '.'
SET SYSM TO
SET SYSM OFF
set defa to p:\yw_jh
set date to ymd
set cent on
set safe off
set dele on
set status off
set carry on