%
% show vehicle info and any tracker assigned
%
execstr

_Sim.Track
<
|Images
%
% look up the vehicle license for all images related to vehicle
%
 *trakimgs
 _Continent
 dup !Sim.Tracker
 isnull not
 {
  ^"|" &" " _License quoter & &" !License" catcr
  "Sim.License" sval
  "Sim.Vehicle" sval
  "Sim.Tracker" sval
  "UserID" sval
  _Description quoter & &" !Description" catcr
 } if
 &"|" &_License catcr
 _Sim.Found
%%% "found " log)(
 {
 }
 {
  empty !Sim.License
  empty !Sim.Vehicle
 } ifelse
 "Sim.License" sval
 "Sim.Vehicle" sval
 "Sim.Tracker" sval
 "UserID" sval
 _Description quoter & &" !Description" catcr

 ^_jsbule !jsbule

|Vehicle
%
% matching vehicle and tracker
%
 _Sim.UniqueName _Continent
%%%"continent " &3 &" " log)(
 eq$
 {
%
% this is the vehicle we are seeking
% transfer the database info to the current Sim framework
%
  *trakvnrm
 } if
> not
{

%
% make up the vectors to vehicle
%

*trajvehs

*trajveht

*trajvehu

} if