#######################################################################################################################################
#                                                                                                                                     #
#         D E F I N I T I O N   D E   L A   S E Q U E N C E   A   G E N E R E R  :                                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirk/.REFM.f1.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20191228112728).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  unsetenv            PremiereA
$Z                  unsetenv            DerniereA

$Z                  if                  ($?tPremiereA == $NEXIST) then
$Z                                      SET                 tPremiereA=1
$Z                  else
$Z                  endif

$Z                  if                  ($?tDerniereA == $NEXIST) then
$Z                                      SET                 tDerniereA=512
$Z                  else
$Z                  endif
$Z
$Z                  EVAL                NimagesA = $tDerniereA - $tPremiereA
$Z                  EVAL                NimagesA = $NimagesA + 1
$Z
$Z
$Z                  SET                 Premiere=$tPremiereA
$Z                  SET                 Derniere=$tDerniereA
$Z
$Z                  SETENV              PremiereA $tPremiereA
$Z                  SETENV              DerniereA $tDerniereA