Select Code to Download

print $q->scrolling_list('htapes99',[@H99tapes],[$H99tapes[0]],10,-mul
+tiple=>'true',my %attributes);

my $tape_count = scalar @tape_imports;

...
{
   splice (@H99tapes,0,$tape_count,@H99tapes)
}

my @H99tapes =('H02043' .. 'H02999');

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