In here you will find the BASIC program for a contest used on
http://reddit.com/r/RetroBattlestations. The graphics are designed to
use sprites, or in the case of the Apple II, the hi-res shape table
routines. Graphics are not necessarily required, and the program could
be ported to a system that only uses text or character graphics.

  There's an old mansion out on Winchester Drive that you've heard
  many stories about. It's filled with many rooms that seem to be
  connected to each other completely at random. The design of the
  place is very bizarre. Some rooms even connect to each other through
  one-way trap doors, with no way back! You've heard stories that the
  house reconfigures itself as you walk through and that when you try
  to come back to a room, it suddenly re-arranges and a new room
  appears where you just came from.

  People have long rumored that the place is haunted, but they think
  hidden somewhere inside is the wealth of the last owner. It could be
  jewels, it could be money, it could be old stock
  certificates. No-one has ever found it! Maybe it's just a box full
  of worthless Confederate money. You have to know and you've found
  your way inside and you're going to search every room you can!

=== Typing Tips ===
When typing the program in you can leave off any lines which begin
with REM, they are not needed for the program to run. On many
platforms you can leave out the whitespace between keywords and
operators. IBM BASIC is not one of those however.

Note: On the TRS-80 Color Computer and BBC Micro you need to include
      the spaces around any IF, AND, OR, or THEN statement.

If you make a mistake and don't want to retype the entire line, most
of the BASICs have a way to make corrections.

Apple II computers:
  On an Apple II+ use LIST <line number> to print the line with an
  error, then use ESC followed by A/B/C/D to move the cursor one step
  at a time. Position the cursor at the beginning of the line, then
  use the right arrow to move over the line and fix the error. Be sure
  to arrow all the way to the end of the entire line before you hit
  RETURN!

  On an enhanced Apple IIe, Apple IIc, or Apple IIgs you can also use
  ESC with the arrow keys. In 80 column mode (enter with PR#3) the
  cursor will change to a white block with a + in it, push ESC to drop
  out of movement mode.

BBC Micro:
  Use LIST <line number> to print the line with a mistake, then use
  the arrow keys to move up to the beginning of the line. Each press
  of the copy key will type in the character under the cursor. Make
  any necessary edits by just typing on the keyboard and using copy to
  avoid retyping everything.

Commodore 64, Plus/4, and 128:
  Like the others, use LIST <line number> to display the line with
  problems, then use the arrow keys to move up and make any
  corrections. By pressing shift-INST you can insert a blank character
  if you missed something. Unlike the Apple II you don't need to arrow
  to the end of the line before pushing RETURN.

TRS-80 model 100:
  This has to be the best built-in BASIC editor I've seen so far! Just
  type EDIT and the entire BASIC program will be loaded into the
  built-in word processor where you can make any changes you
  want. Press F8 to exit the editor and go back to BASIC.

IBM Cassette BASIC, Disk BASIC, Advanced BASIC, GW-BASIC:
  Type EDIT <line number> and it will print the line on the screen and
  put your cursor at the beginning of the line. Arrow left/right and
  you can use Insert & Delete to make corrections. Like Commodore
  BASIC, you don't need to arrow to the end of the line before pushing
  RETURN.

TI-99/4A Extended BASIC
  Type the line number and then arrow up (FCTN+E) and it will enter
  edit mode with that line loaded.  You can move within the line with
  arrow left (FCTN+S) and arrow right (FCTN+D) and move to the
  previous or next line with arrow up (FCTN+E) or arrow down (FCTN+X).
  You can delete the character under the cursor with DEL (FCTN+1) or
  turn on insert mode to insert extra characters with INS (FCTN+2).
  You do not need to move to the end of the line before pressing
  ENTER.