sub processSrcFile {
    my $robot = shift;
    my @src = @_;
    
    my @tmp = ();
    my $foldCounter = 0;
    
    foreach my $line (@src) {
        if ($line =~ /^\s*;\s*FOLD\s+[PTP|K?LIN|K?CIRC]/i) {
            @tmp = ();
            $foldCounter = 1;            
        }
        if ($line =~ /^\s*;\s*FOLD\s+[\d+|{H}]/i) {
            $foldCounter++;
        }
        if ($line =~ /^\s*;\s*ENDFOLD/i) {
            $foldCounter--;
            if ($foldCounter == 0) {
                # rufe sub zur Weiterverarbeitung auf
            }            
        }
        push @tmp, $line;
    }
}