Help for this page

Select Code to Download


  1. or download this
    print $q->scrolling_list('htapes99',[@H99tapes],[$H99tapes[0]],10,-mul
+tiple=>'true',my %attributes);
  2. or download this
    my $tape_count = scalar @tape_imports;

...
{
   splice (@H99tapes,0,$tape_count,@H99tapes)
}
  3. or download this
    my @H99tapes =('H02043' .. 'H02999');

...
        (!grep /^$v$/, @tape_imports) ? $v : ();
        } @a;
};