set Method
Class: environment
Expand/Collapse source code of procedure set Source Code
*-- Set the SET and ON commands
SET SAFETY OFF
SET PROCEDURE TO UTILITY.PRG
SET CLASSLIB TO MAIN , TSBASE , TSGEN , LOGIN , ORDERS
SET MEMOWIDTH TO 120
SET MULTILOCKS ON               && For table buffering
SET HELP TO HELP\TTRADE.HLP
SET DELETED ON
SET EXCLUSIVE OFF
SET NOTIFY OFF
SET BELL OFF
SET NEAR OFF
SET EXACT OFF
SET INTENSITY OFF
SET CONFIRM ON
SET COMPATIBLE OFF
IF !DEBUGMODE
  SET ESCAPE OFF
ELSE
  SET ESCAPE ON
ENDIF

ON SHUTDOWN DO OnShutDown