;**	_init macro.
;**	Do not change this macro (always overwritten by Setup).
(macro _init
	(
		(extern	autosave				;**	External macro declarations
					toggle_re
		)
		(color 0 10 15 11 15 0x80)	;**	Set the screen colors
		(search_case 1)				;**	Case insensitive search
		(autosave)						;**	Automatic file save when idle
		(set_mouse_type 3 0)			;**	Set number of mouse buttons, button one location
		(set_ctrl_state 0 1)			;**	Enable close button
		(set_ctrl_state 1 1)			;**	Enable zoom button
		(set_ctrl_state 2 1)			;**	Enable vertical scroll bar
		(set_ctrl_state 3 1)			;**	Enable horizontal scroll bar
		(set_mouse_action "_mouse_action")	;**	Set mouse action macro
		(set_btn2_action 1)			;**	Set default action for mouse button two
	)
)

;**	Initials macro.
;**	Use this macro for additional customization.
(macro IO
	(
		(return)
	)
)


;**	File Extension Macros, etc.
;**	Macros marked "Overwritable" may be overwritten by SETUP.


;**	Overwritable by Setup
(macro default
	(
		(tabs 9 17)
	)
)

;**	Overwritable by Setup
(macro .doc
	(
		(tabs 9 17)
	)
)

;**	Overwritable by Setup
(macro .txt
	(
		(tabs 9 17)
	)
)

;**	Overwritable by Setup
(macro .odl
	(
		(tabs 9 17)
	)
)

;**	Overwritable by Setup
(macro .asm
	(
		(tabs 15 23 40 44)
	)
)

;**	Overwritable by Setup
(macro .658
	(
		(tabs 15 23 40 44)
	)
)

;**	Overwritable by Setup
(macro .pas
	(
		(tabs 4 8)
	)
)

;**	Overwritable by Setup
(macro .68k
	(
		(tabs 15 23 40 44)
	)
)

(macro .34
	(
		(tabs 15 23 40 44)
	)
)

(macro .34h
	(
		(tabs 15 23 40 44)
	)
)

(macro .hdr
	(
		(tabs 15 23 40 44)
	)
)

;**	Overwritable by Setup
(macro .h
	(
		(tabs 15 23 40 44)
	)
)

;**	Overwritable by Setup
(macro .z80
	(
		(tabs 15 23 40 44)
	)
)


;**	Overwritable by Setup
(macro .pas_next_error
	(returns (search_fwd "<*.[a-zA-Z]+(\\c[0-9]+): Error" 1 1))
)

;**	Overwritable by Setup
(macro .pas_prev_error
	(returns (search_back "<*.[a-zA-Z]+(\\c[0-9]+): Error" 1 1))
)

;**	Overwritable by Setup
(macro .pas_error_info
	(
		(string	error_text)

		(int		line
					ret_val
		)
		(string	buf_name
					error_msg
					file_name
					base_name
		)
		(extern _error_info)
		
		(get_parm 0 buf_name)
		(get_parm 5 base_name)
		(= ret_val (_error_info buf_name line NULL error_msg file_name base_name))
		(put_parm 1 line)
		(put_parm 4 file_name)
		(put_parm 3 error_msg)
		(put_parm 2 0)
		(returns ret_val)
	)
)