to github

[svn42.git] / rf433rcv / pc / data2sample.pl

diff --git a/rf433rcv/pc/data2sample.pl b/rf433rcv/pc/data2sample.pl
deleted file mode 100755 (executable)
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);
-  }
-}
-