/* RTSTSTM.TXT : RTSTST menu
==============================================================================
RTSTST : Test RTSLIB
==============================================================================
                                               Options:
  RtsStart(1);
  for i:= 1 to K1 do begin                     <1> K1=',K1,'
    RtsStart(2);
    for j:= 1 to trunc(K2*Random) do begin     <2> K2=',K2,'
      RtsStart(3); RtsStop(3);
      for k:= 1 to K3 do;                      <3> K3=',K3,'
    end;
    RtsStop(2);
  end;
  RtsStop(1);
                                               <R> Run + Report

Option : @                                     <X> Exit


Report goes to ',RptFnm,'
/C
xTST1
xTST2
xTST3
xTSTgo
/E
