***************** THIS IS ONLY A BETA VERSION ********************
* FUTURE VERSIONS WILL BE BASED ON PUBLIC INTEREST IN THIS GAME! *
******************************************************************
CONTACT ME ABOUT THIS IF YOUR INTERESTED: Jon R. Johnson (jrjinfinity@hotmail.com)
					(http://www.welcome.to/gamecrazz)
					(http://www.geocities.com/ResearchTriangle/Thinktank/7083)

Program Information:
*******************************************************
Program: Dungeon
Type: Basic
Size: Dungeon.82g - 5569 bytes (on the p.c.)
Text Last updated: January 28, 1999
Version: 1 (Home Screen)
Programmer: Jon Johnson
Company: GamecrazZ
Calc: Ti-82
Uses Matrices: Yes
External Levels: Yes
*******************************************************
Dungeon is a basic program that us run from level sets.

*******************************************************
how it works:
 you simply Load it onto your calc, then you can open the included demo level set DLEVEL.82p
inside you will see how to make your own level set.

If for some reason you would rather read 5 pages of commented data then here you are:

PROGRAM:DLEVEL
::{3,1}->L2		(  {store total 3 levels, current level1} Sto-> List2  )
:If L2(2)=1
:[[0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1]
  [1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1]
  [1,0,1,2,1,2,1,0,1,1,1,1,1,1,0,1]		(Store an 8 row X 16 column matrix to Matrix [B])
  [1,0,1,2,1,0,0,0,0,0,0,1,0,1,0,1]
  [1,0,1,2,1,3,1,0,0,0,0,0,0,0,0,1]
  [1,0,1,2,1,1,1,1,1,1,1,1,1,1,0,1] 
  [1,0,0,2,0,0,0,0,0,0,0,0,0,0,0,1]
  [1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]]->[B]
:prgmDUNGEON					(Run Dungeon the engine)
:2->L2(2)		(store current level to Second entry in List2)
:If L2(2)=2
:[[0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1]
  [1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1]
  [1,0,1,2,1,2,1,0,1,1,1,1,1,1,0,1]		(Store an 8 row X 16 column matrix to Matrix [B])
  [1,0,1,2,1,0,0,0,0,0,0,1,0,1,0,1]
  [1,0,1,2,1,3,1,0,0,0,0,0,0,0,0,1]
  [1,0,1,2,1,1,1,1,1,1,1,1,1,1,0,1] 
  [1,0,0,2,0,0,0,0,0,0,0,0,0,0,0,1]
  [1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]]->[B]
:prgmDUNGEON
:3->L2(2)		(store current level to Second entry in List2)
If L2(2)=3
:[[0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1]
  [1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1]
  [1,0,1,2,1,2,1,0,1,1,1,1,1,1,0,1]		(Store an 8 row X 16 column matrix to Matrix [B])
  [1,0,1,2,1,0,0,0,0,0,0,1,0,1,0,1]
  [1,0,1,2,1,3,1,0,0,0,0,0,0,0,0,1]
  [1,0,1,2,1,1,1,1,1,1,1,1,1,1,0,1] 
  [1,0,0,2,0,0,0,0,0,0,0,0,0,0,0,1]
  [1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]]->[B]
:prgmDUNGEON
:4->L2(2)		(store current level to Second entry in List2)
:If L2(2)=4
:Then
:ClrHome
:Disp "CONGRATULATIONS,",		(output you're own message if they beat all of your levels!)
      "YOU HAVE PASSED",		(This way it says what you want not what I made it!)
      "THIS DUNGEON","",
      "MADE BY:","JON JOHNSON"
:Output(7,1,"11/19/98")			(The day this level set was made)
:
:0->dim L2			(setting list & matrix back to hardly anything so they don't waste as much mem!)
:{1,1}->dim [B]
:0->K
:Stop			(Stop Execution)
:End				(End of the IF, THEN statement)


Probably the Easiest way to make a level is to not type the matrix in the program editor, but to go to the matrix editor
edit Matrix [B], set size as 8x16 then start editing...

...when you have made your level goto the program editor, then edit your level as shown above, when you are ready to
add the matrix data to the program, then just simply position cursor on a blank line where the data should be, and 
press [2nd], [RCL], [MATRX], [2], [ENTER]
then after it gets done putting the info in your program then push [STO->], [MATRX], [2]
and you have recalled your data into your program, it's alot easier then typing it all in :)

*******************************************************
NOTE:
Before you screw up on your levels please note that sides, and bottoms must be filled with 1's for the level to work.
  I am currently developing a compression / decompression kit for this, however, it's not fully completed yet.

*******************************************************
KEY:
	in the matrix their are codes that make different things in your world.
	Currently the following are in effect...

	0 = Blank space to walk through :)
	1 = Wall or floor, or both :)
	2 = Latter to climb :)
	3 = Exit to exit the level :)

	if you would like anything else added please contact me  jrjinfinity@hotmail.com

*******************************************************
Disclaimer:
I am not in any way responsible for damage that occurs to your calc while this program is on it.
THis program never damaged mine or my beta testers! But I will only pity you a little if damage 
occurs.

*******************************************************
Future features:
If I get enough response/Suggestions I may add:
- Keys (To unlock doors, etc.)
- A Timer (60 Secs or so to pass level)
- Graph Screen = (Bigger levels, harder levels, much slower levels)
- Jumping  (Currenly their are several sever bugs with jumping as it's not yet implemented :)
- you suggest it i'm out of ideas already!

*******************************************************
The reason behind this program:
I was bored one Sunday Evening so I started screwin around on my calc, and the next thing I knew I had made this.
First it had internal levels, and external but that was quite buggy so I got rid of the internal levels
unfortunately some of the code is still in the engin itself, so I will have to exterminate it as well.
The next version will not have it (Gaurenteed. Maybe!)

why not edit the program?
  because any stupid person could easily wipe out the Engine and no more Dungeon Levels would work.
solution:
  Leave my program edit protected, and do not change the about section or the code without electronic or written consent
	if you have my consent do then send me the modified source :)

*******************************************************
Contacting the author:
E-mail:
jrjinfinity@hotmail.com