'***********************
' Eingabe Route:
'***********************
		(L.L.IBIS_mode) 2 =
		{if}
			(L.L.IBIS_input) s0 (S.L.IBIS_Route)
			0 =
			{if}
				-1 (S.L.IBIS_RouteIndex)
				0 (S.L.IBIS_Route)
				0 (S.L.IBIS_busstop_index)
				"" (S.$.IBIS_cabindisplay)
				0 (S.L.IBIS_busstop)
				"" (S.$.act_busstop)
				"" (S.$.IBIS)
				"" (S.$.IBIS_busstop_name)
				0 (S.L.IBIS_mode)
				"" (S.$.Haltestelle)
			{else}
' Das Folgende soll künftig erst nach "Route" gemacht werden!
				(L.L.IBIS_LinieKurs) 100 * l0 + (M.V.GetRouteIndex) s1
				0 <
				{if}
' Falls kleiner 0, also -1, dann fehlerhaft, dann nicht übernehmen sondern Fehlermeldung ausgeben:
					4 (S.L.IBIS_mode)
'		Blinker aktivieren:
					1 (S.L.IBIS_BlinkOn) (S.L.IBIS_BlinkInitial)
					(L.S.GetTime) (S.L.IBIS_BlinkTimer)
'		Fehler-piepen
					(T.L.ev_IBIS_pieperror)
				{else}
					(T.L.ev_IBIS_piep)
					(M.L.IBIS_SetRoute)
' Bushaltestellen zurücksetzen:
					0 (S.L.IBIS_busstop)
					(M.L.IBIS_RefreshBusstop)
'ANNAX-Test:
'					7 (S.L.IBIS_mode)
					0 (S.L.IBIS_modetimer)
					8 (S.L.IBIS_mode)

' Entwerter umstellen:
					(T.L.ev_IBIS_entwerter)
					(L.L.IBIS_busstop_entwerter_soll) (S.L.IBIS_busstop_entwerter_ist)
					(M.L.Fahrscheindrucker-Haltestelle)

' Fahrplantextur zuweisen:
					"..\..\Anzeigen\Umlaufplaene\" 0 (M.V.GetDepotStringGlobal) "\" $+ $+
					(L.L.IBIS_LinieKurs) "03" $IntToStrEnh $+ (L.L.IBIS_Linie_Suffix) l0 "02" $IntToStrEnh $+ "_" $+ (L.L.IBIS_Route) "02" $IntToStrEnh $+ ".tga" $+
					(S.$.schedule_texture)
				{endif}
			{endif}
		{else}