@verb #1921:"r" this none none rdo #8940
@program #1921:"r" this none none
curloc = #9108.location
stops = #9108.stops
count = length($string_utils:words($string_utils:english_list(#9108.stops)))
x = 1
rt_start = stops[2]
player:tell(rt_start)
while (curloc != stops[x])
  player:tell(stops[x], "/", curloc)
  x = x + 1
endwhile
player:tell("<font color=yellow>", stops[x], "/", curloc, "</font>")
y = x + 1
if (curloc == stops[count - 2])
  y = 1
endif
#9108:go_go(stops[y])
if (curloc != stops[1])
  player:tell("On route.")
elseif (curloc == stops[1])
  player:tell("Train is at ", stops[2].name, " and is currently docked.")
endif
"Last modified by Trent_Reznor (#8940) on Tue Oct  5 13:14:41 2004 MDT."
.