X-Git-Url: https://git.realraum.at/?p=svn42.git;a=blobdiff_plain;f=rf433rcv%2Fpc%2Fdata2sample.pl;fp=rf433rcv%2Fpc%2Fdata2sample.pl;h=0000000000000000000000000000000000000000;hp=20ae4604be63de8ccb042fd71d6e3cc4a66d1ebe;hb=fff7d88ae580a68519a3b9f590a2cf9cce21ef8b;hpb=5b00dab1a7d2ac2d8a593f0bd6e85a7194e2c9bd

diff --git a/rf433rcv/pc/data2sample.pl b/rf433rcv/pc/data2sample.pl
deleted file mode 100755
index 20ae460..0000000
--- a/rf433rcv/pc/data2sample.pl
+++ /dev/null
@@ -1,20 +0,0 @@
-#!/usr/bin/perl
-use strict;
-my $base=shift @ARGV;
-
-my @input= split //,<>;
-
-print 1 x $base;
-print 0 x (31 * $base);
-for my $current (@input)
-{
-  if ($current)
-  {
-    print 1 x (3*$base);
-    print 0 x $base;
-  } else {
-    print 1 x $base;
-    print 0 x (3*$base);
-  }
-}
-