SCRIPT Sturc

        extern float    state;

	state = SIGASP_STOP;

SCRIPT KO_vlc

        extern float    state;
	extern float	block_state ();
	extern float	sig_feature ();

	if ( block_state () !=# BLOCK_CLEAR )
	{
             if ( sig_feature ( SIGFEAT_USER1 ) )
             state = SIGASP_STOP_AND_PROCEED;
             else
	     state = SIGASP_STOP;
	}
	else
	state = SIGASP_CLEAR_2;

SCRIPT N2_Pr

	extern float	def_draw_state ();
	extern float	next_sig_lr ();
	extern float	state;
	extern float	draw_state;
	
        float           x_state;
        
	x_state = next_sig_lr ( SIGFN_NORMAL );

	if ( x_state <=# SIGASP_APPROACH_1 )
	state = SIGASP_APPROACH_1;
	else
	state = SIGASP_CLEAR_2;
	
	draw_state = def_draw_state (state);

SCRIPT N3_vjezd

	extern float	block_state ();
	extern float	route_set ();
	extern float	def_draw_state ();
	extern float	state;
	extern float	enabled;
	extern float	draw_state;

	if ( !enabled || block_state () !=# BLOCK_CLEAR )
	state = SIGASP_STOP;
	else 
	if ( route_set () )
        state = SIGASP_APPROACH_3;
        else
     	state = SIGASP_APPROACH_1;

	draw_state = def_draw_state (state);

SCRIPT N3_odjezd

	extern float	block_state ();
	extern float	def_draw_state ();
	extern float	state;
	extern float	enabled;
	extern float	draw_state;

	if ( !enabled || block_state () !=# BLOCK_CLEAR )
	state = SIGASP_STOP;
	else
     	state = SIGASP_CLEAR_1;

	draw_state = def_draw_state (state);

SCRIPT T2_Posun

	extern float	block_state ();
	extern float	def_draw_state ();
	extern float	state;
	extern float	draw_state;

	if ( block_state () !=# BLOCK_CLEAR )
	state = SIGASP_STOP;
	else 
	state = SIGASP_STOP_AND_PROCEED;

	draw_state = def_draw_state (state);

SCRIPT N2_trpaslik

	extern float	block_state ();
	extern float	def_draw_state ();
	extern float	state;
	extern float	draw_state;

	if ( block_state () !=# BLOCK_CLEAR )
	state = SIGASP_STOP;
	else
	state = SIGASP_CLEAR_1;

	draw_state = def_draw_state (state);

