1 files changed, 14 insertions, 0 deletions
diff --git a/tools/zap2app b/tools/zap2app
new file mode 100755
index 0000000..d57dc8b
--- /dev/null
+++ b/tools/zap2app
@@ -0,0 +1,14 @@
+#!/usr/bin/env perl
+
+open ZAP, "<", $ARGV[0];
+open APP, ">", $ARGV[1];
+
+while (<ZAP>) {
+    chop; chop; chop;
+    last if /^Timex Data Link 150 Watch$/;
+}
+while (<ZAP>) {
+    chop; chop; chop;
+    print APP pack 'H*', $_;
+    last;
+}