diff --git a/includes/Characters.inf b/includes/Characters.inf
index a6299dd..bb98e1f 100644
--- a/includes/Characters.inf
+++ b/includes/Characters.inf
@@ -1,38 +1,4 @@
-Object computer "Computer"
-    with name 'computer' 'ship',
-        description "The computer of the ship uses non-sentient artificial intelligence^
-            It can perform many tasks and answer questions.",
-        found_in [; rtrue; ],
-        orders [loc ;
-            loc = parent(player);
-            SetTo:
-                if (noun == lights && second == 'full') {
-                    give loc light;
-                    print_ret "Lights at full.";
-                }
-                if (noun == lights && (second == 'zero' || second == 'off')) {
-                    give loc ~light;
-                    print_ret "Lights are off.";
-                }
-                print_ret "I do not know how to set ", (the) noun, " to ", (address) second;
-            Open:
-                switch(noun) {
-                    bunk:
-                        give noun open;
-                        print_ret (The) noun, " is open.";
-                }
-            Close:
-                switch(noun) {
-                    bunk:
-                        give noun ~open;
-                        print_ret (The) noun, " is closed.";
-                }
-            Tell:
-                ! @todo fill this out for various things to talk about
-                print_ret "You want me to tell you about ", (string) second;
-            NotUnderstood: print_ret "I do not understand.";
-        ],
-    has animate scenery;
+Include "Computer.inf";
 
 Object lights "Lights"
     with name 'lights',
diff --git a/includes/Computer.inf b/includes/Computer.inf
new file mode 100644
index 0000000..150b545
--- /dev/null
+++ b/includes/Computer.inf
@@ -0,0 +1,35 @@
+Object computer "Computer"
+    with name 'computer' 'ship',
+        description "The computer of the ship uses non-sentient artificial intelligence^
+            It can perform many tasks and answer questions.",
+        found_in [; rtrue; ],
+        orders [loc ;
+            loc = parent(player);
+            SetTo:
+                if (noun == lights && second == 'full') {
+                    give loc light;
+                    print_ret "Lights at full.";
+                }
+                if (noun == lights && (second == 'zero' || second == 'off')) {
+                    give loc ~light;
+                    print_ret "Lights are off.";
+                }
+                print_ret "I do not know how to set ", (the) noun, " to ", (address) second;
+            Open:
+                switch(noun) {
+                    bunk:
+                        give noun open;
+                        print_ret (The) noun, " is open.";
+                }
+            Close:
+                switch(noun) {
+                    bunk:
+                        give noun ~open;
+                        print_ret (The) noun, " is closed.";
+                }
+            Tell:
+                ! @todo fill this out for various things to talk about
+                print_ret "You want me to tell you about ", (string) second;
+            NotUnderstood: print_ret "I do not understand.";
+        ],
+    has animate scenery;