Class: | environment |
*-- 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