Versteh ich das richtig, dass das von Basic nach Perl übersetzt wurde?
Wenn ja, dann poste doch bitte mal den Basic-Quelltext; den könnte man wahrscheinlich besser umschreiben als das, was da oben rausgekommen ist...