diff --git a/src/sbbs3/gtkconvert.pl b/src/sbbs3/gtkconvert.pl
new file mode 100755
index 0000000000000000000000000000000000000000..ab1082677b316217763c86d38b6ffbeff4fe1530
--- /dev/null
+++ b/src/sbbs3/gtkconvert.pl
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+my $filename = shift or die "Usage: $0 FILENAME\n";
+
+open my $fh, "<", $filename || die "Cannot open $filename $!\n";
+my $char;
+my $newstr;
+my $count;
+while (read $fh,$char,1 ) {
+  $newstr .= ord($char) . ",";
+  $count++;
+}
+chop $newstr;
+close $fh;
+
+$filename =~ s/\./_/;
+$filename .= ".c";
+
+open my $fh2, ">" , $filename || die "Cannot open g $!\n";
+print $fh2 "const char builder_interface[" . $count ."] = {" . $newstr . "};";
+close $fh2;
+