diff --git a/modules/compiler_vm/languages/qbasic.pm b/modules/compiler_vm/languages/qbasic.pm
new file mode 100755
index 00000000..02a96a04
--- /dev/null
+++ b/modules/compiler_vm/languages/qbasic.pm
@@ -0,0 +1,26 @@
+#!/usr/bin/env perl
+
+use warnings;
+use strict;
+
+package qbasic;
+use parent '_default';
+
+sub initialize {
+  my ($self, %conf) = @_;
+
+  $self->{sourcefile}      = 'prog.bas';
+  $self->{execfile}        = 'prog';
+  $self->{default_options} = '';
+  $self->{cmdline}         = 'fbc -g -lang qb $options $sourcefile';
+
+  $self->{cmdline_opening_comment} = "/'\n=============== CMDLINE ===============\n";
+  $self->{cmdline_closing_comment} = "=============== CMDLINE ===============\n'/\n";
+
+  $self->{output_opening_comment} = "/'\n=============== OUTPUT ===============\n";
+  $self->{output_closing_comment} = "=============== OUTPUT ===============\n'/\n";
+
+  $self->{sprunge_lexer} = 'basic';
+}
+
+1;
diff --git a/modules/compiler_vm/languages/server/qbasic.pm b/modules/compiler_vm/languages/server/qbasic.pm
new file mode 100755
index 00000000..517134c7
--- /dev/null
+++ b/modules/compiler_vm/languages/server/qbasic.pm
@@ -0,0 +1,9 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+
+package qbasic;
+use parent '_c_base';
+
+1;