Sorry your browser is not supported!

REM File Input Opuput Function >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Function FileIO(FileMode)
	sync on
	esc = 0
		REM First sets up the window and get file names.
	gosub SetupFile
		REM Mode 2 is Game mode. Using only keyboard no mouse.
	if FileMode = 2 
		keySelect = 1
		KeyR = 1
		hide mouse
		FileSelect$ = file$(KeySelect-1)
		else
		keySelect = 0
		show mouse
	endif
	REM FileIO Loop
	do
			REM Mouse Input
		if FileMode < 2
			mx = mousex()
			my = mousey()
			mc = mouseclick()
			if mc =0 then KeyM = 0
		endif
		sprite 1,mx,my,101+mp
			REM Sub
		gosub UpdateFile
			REM Update the Screen
		bitmap = current bitmap()
		if bitmap > 0 then copy bitmap bitmap,0
		sync
			REM Exits this sub when variable esc is flaged.
				REM Also Change Directory back to Original path
		if esc = 1 then cd FilePath$: goto FileEsc
	loop

	SetupFile:
		REM Setting up the File Scanner Window.
			REM This searches for a usable Image number to store Images.
		dim FileImage(5)
		FileZ = 0
		for lpy = 0 to 5
			FileImage(lpy) = 0
			repeat
			FileZ = FileZ + 1
					if image exist(FileZ) = 0 then FileImage(lpy) = FileZ
			until FileImage(lpy) > 0
		next lpy
				REM Stores the background to FileImageBG.
		get image FileImage(0),0,0,screen width(),screen height()
		REM This section Loads up the Folder/File/FolderUP images.
			REM Images are stored into FileImage(3,4 and 5)
		cls 0
		x = 63:y = 1
		ink rgb(10,10,10),0:box 3+x,y,14+x,12+y
		ink rgb(255,255,255),0:box 3+x+1,y+1,14+x-1,12+y-1
		ink rgb(10,10,10),0:box 3+x+2,y+3,14+x-2,y+3
		box 3+x+2,y+5,14+x-2,y+5:box 3+x+2,y+7,14+x-2,y+7
		box 3+x+2,y+9,14+x-2,y+9
		x = 95:y = 1
		ink rgb(10,10,10),0:box x+1,y+2,x+14,y+12
		box x+1,y,x+5,y+2:ink rgb(155,155,0),0
		box x+2,y+3,x+13,y+11:box x+2,y+1,x+4,y+2
		ink rgb(10,10,10),0:box x+5,y+4,x+18,y+6
		box x+4,y+7,x+17,y+9:box x+3,y+10,x+16,y+12
		ink rgb(155,155,0),0:box x+6,y+5,x+17,y+6
		box x+5,y+7,x+16,y+9:box x+4,y+10,x+15,y+11
		x = 95+32:y = 1
		ink rgb(10,10,10),0:box x+1,y+2,x+14,y+12
		box x+1,y,x+5,y+2:ink rgb(155,155,0),0
		box x+2,y+3,x+13,y+11:box x+2,y+1,x+4,y+2
		ink rgb(10,10,10),0:box x+5,y+4,x+18,y+6
		box x+4,y+7,x+17,y+9:box x+3,y+10,x+16,y+12
		ink rgb(155,155,0),0:box x+6,y+5,x+17,y+6
		box x+5,y+7,x+16,y+9:box x+4,y+10,x+15,y+11
		ink rgb(10,10,10),0:dot x+13,y
		box x+13-1,y+1,x+13+1,y+1:box x+13-2,y+2,x+13+2,y+2
		box x+13-3,y+3,x+13+3,y+3:box x+13-1,y+4,x+13+1,y+10
		ink rgb(0,255,0),0:dot x+13,y+1
		box x+13-1,y+2,x+13+1,y+2:box x+13-2,y+3,x+13+2,y+3
		box x+13,y+4,x+13,y+9
				REM Grabing the images
		for lpx = 2 to 4
			get image FileImage(lpx+1),lpx*32,0,lpx*32+32,32,1
		next lpx
			REM Setting the default xy for the window cause it can be moved around.
		fileX = screen width()*.2
		fileY = screen height()*.2
			REM Setting path to /Maps and saving as String to print on screen.
		cls 0
		FilePath$ = get dir$()
		FileDir$ = ""
		FileSelect$ = ""
			REM Make folder "Maps" if it dont exist.
		if path exist(FilePath$+"/Maps") = 0 then make directory "Maps"
			REM Changing Directory to "/Maps". Changes back when exits Main Loop.
		cd FilePath$+"/Maps"
		FileDir$ = left$(FilePath$,1)+":/.../"+"Maps"
			REM Search for Files.
		dim file$(100)
		dim fileType(100)
		file = 0
				REM Search 2 times first for folders then second for files.
		for lp = 1 to 0 step -1
			find first
			repeat
				if get file type() = lp
					i$ = get file name$()
					if left$(i$,1) <> "."
						file$(file) = get file name$()
						fileType(file) = lp
						file = file + 1
					endif
				endif
				find next
			until get file type() = -1
		next lp
		c0 = rgb(10,10,10)
		c1	= rgb(255,255,255)
		c2 = rgb(70,70,70)
		REM Drawing the Window.
			REM OutLine Black Box.
		ink c0,0:box 0,0,384,288
			REM Light Blue near top.
		ink rgb(180,190,200),0:box 1,1,383,288-1
			REM Dark Blue.
		ink rgb(120,130,150),0:box 2,2,384-1,288-1
			REM Print Text OPEN FILE on Dark Blue.
		set cursor 3,2:ink c1,0
		if FileMode = 0 or FileMode = 2 then print "Opening File" else print "Saving File"
			REM Black Inside.
		ink c0,0:box 3,19,384-2,14*16+5
			REM Directory/Path Box.
		ink 16777215,0:box 4,1*16+4,384-3,2*16+4
		set cursor 4,1*16+4:ink c0,0:print FileDir$
		paste image FileImage(5),384-20,1*16+4,1
			REM Selected File name Box.
		ink c0,0:box 4*16+3,15*16-1,19*16-2,16*16+1
		ink 16777215,0:box 4*16+4,15*16,19*16-3,16*16
		set cursor 3,15*16:ink 16777215,0:print "File Name:"
			REM List Box.
		ink 0,0:box 4,2*16+6,380-16,14*16+4
		if FileMode < 2
				REM Grey OPEN/SAVE button.
			ink c0,0:box 20*16+3-5 ,15*16-1,24*16-5 ,16*16+1
			ink rgb(150,150,150),0:box 20*16+4-5 ,15*16,24*16-6 ,16*16
			set cursor 21*16-1,15*16:ink c0,0
			if FileMode = 0 or FileMode = 2 then print "Open" else print "Save"
				REM Grey CLOSE/CANCEL button.
			ink c0,0:box 20*16-2,16*16+7,24*16-5,17*16+8
			ink rgb(150,150,150),0:box 20*16-1,16*16+8,(24*16)-6,17*16+7
			set cursor 21*16-3,16*16+7:ink c0,0
			if FileMode = 0 or FileMode = 2 then print "Close" else print "Cancel"
		endif
			REM Saving the File Scanner Window skin into Image 13.
		get image FileImage(1),0,0,385,289,1
		cls 0
		REM Calculations for the Slider.
			REM The slider height is (PixelHeight/100) * ((WinHeight/FileNum)*100)
		if file < 12 then fpy = 100 else fpY = (12/abs(file)*100)
		fSliderY = ((12*16-1)/abs(100)) * fpY
	Return

	UpdateFile:
		REM File Selection list Clicked.
		if mc = 1 & KeyM = 0 & CheckArea(fileX+2,fileY+37,fileX+378-13,fileY+14*16+5) = 1
			if (my+fileScrY-fileY-7)/16-2 > 0 & (my+fileScrY-fileY-7)/16-2 < file+fileY/16
				FileSelect$ = file$((my+fileScrY-fileY-7)/16-2)
				KeyM=1
			endif
		endif
		REM Mode 2, Return key is pressed.
		if FileMode = 2 & returnkey() = 1
			if KeyR = 0
				FileSelect$ = FilePath$+"Maps"+FileSelect$
				esc = 1:KeyM=1:KeyR = 1:return
			endif
			KeyR = 1
			else
			KeyR = 0
		endif
		REM Open/Save button Clicked
		if mc = 1 & KeyM = 0 & CheckArea(fileX+20*16-2,fileY+15*16-1,fileX+24*16-5,fileY+16*16+1) = 1
				REM FileMode = 0 is to Open.
			if FileMode = 0
				if Len(FileSelect$) > 0
					if file exist(FileSelect$)
						FileSelect$ = FilePath$+"Maps"+FileSelect$
							REM Flaging the esc variable will exit File Scanner.
						esc = 1:KeyM=1:return
					endif
				endif
			endif
				REM FileMode = 1 is to Save.
			if FileMode = 1
				if Len(FileSelect$) > 0
					FileSelect$ = FilePath$+"Maps"+FileSelect$
						REM Flaging the esc variable will exit File Scanner.
					esc = 1:KeyM=1:return
				endif
			endif
		endif
		REM Close/Cancel button Clicked.
		if mc = 1 & KeyM = 0 & CheckArea(fileX+20*16-2,fileY+16*16+7,fileX+24*16-5,fileY+17*16+8) = 1
				REM Flaging the esc variable will exit File Scanner.
			esc = 1 : FileSelect$="":KeyM=1:return
		endif
		REM Slider Clicked
			REM Math is not really my subject, to hard to explain this.
		if mc = 1 & KeyM = 0 & file > 12 or mc = 1 & KeyM = 5
			y = (fileScrY/abs(16)) * (16/abs(100)) * fpY
			if CheckArea(fileX+367,fileY+y+2*16+7,fileX+380,fileY+y+2*16+6+fSliderY) = 1 or KeyM = 5
				if KeyM = 0
					mx2 = mx
					my2 = my
					scrX2 = filescrX
					scrY2 = filescrY
					KeyM = 5
				endif
				fileScrY = scrY2+(my-my2)*(file/abs(12))
			endif
		endif

		REM Arrow Keys pressed to Scroll up down.
		if upkey() = 1 & file > 12 
			if FileMode = 2 
				if KeyU = 0 & keySelect > 1
					if KeySelect < (filescrY/16)+2 then fileScrY = fileScrY - 16
					keySelect = KeySelect - 1
					FileSelect$ = file$(KeySelect-1)
					KeyC = 0
				endif		
				else
				fileScrY = fileScrY - 1
			endif
			KeyU = 1
			KeyC = KeyC + 1
			if KeyC > 10 then KeyU = 0
			else
			KeyU = 0
		endif
		if downkey() = 1 & file > 12 
			if FileMode = 2
				if KeyD = 0 & keySelect < file
					if KeySelect > (filescrY/16)+11 then fileScrY = fileScrY + 16
					keySelect = KeySelect + 1
					FileSelect$ = file$(KeySelect-1)
					KeyC = 0
				endif
				else
				fileScrY = fileScrY + 1
			endif
			KeyD = 1
			KeyC = KeyC + 1
			if KeyC > 10 then KeyD = 0
			else
			KeyD = 0
		endif
			REM Checks if Slider is up too far or down too low.
		if fileScrY < 0 then fileScrY = 0
		if fileScrY > (file-12)*16 & file > 11 then fileScrY = (file-12)*16

		REM Moving the File Scanner Window
			REM Checks if it's the first click or already clicked.
		if mc = 1 & KeyM = 0 or mc = 1 & KeyM = 6
				REM Checks if click is in Top Blue "Open/Save file" box
			if CheckArea(fileX,fileY,fileX+384,fileY+16) = 1 or KeyM = 6
					REM First Time Click will store old xy of Window.
				if KeyM = 0
					mx2 = mx-fileX
					my2 = my-fileY
					KeyM = 6
						REM Also store the Current Window as Image 8.
					get image FileImage(2),fileX,fileY,fileX+384,fileY+288
				endif
					REM CurrentXY = MouseXY - OldXY
				fileX = mx-mx2
				fileY = my-my2
					REM Checks for out of bounce.
				if fileX < 0 then fileX = 0
				if fileX > 640-384 then fileX = 640-384
				if fileY < 0 then fileY = 0
				if fileY > 480-288 then fileY = 480-288
					REM Restore the Background.
				paste image FileImage(0),0,0
					REM Restore the Window in new position.
						REM This is faster than re-drawing the whole thing again.
				paste image FileImage(2),fileX,fileY
			endif
		endif
		REM Input keys from Typing.
			REM Function Typing(String$,MaxLimit,Mode).
		g$ = Typing(FileSelect$,0,0)
			REM Flags the UpdateFileRefresh if Keyboard typing.
		if g$ <> FileSelect$ then FileSelect$ = g$
		REM Draws the Background
		paste image FileImage(0),0,0
		REM Draws the File Manager Window.
			REM Draw the File List or contents.
			y = fileScrY-fileScrY/16*16
		for lp = 0 to 12
				REM Checks lp for out of bounce. Has to be lower than files scaned.
			if file > 0 & lp < file+1
					REM Blue or White color select
				if file$(lp+(fileScrY/16)) = FileSelect$ then ufcolor=1 else ufcolor=0
				if ufcolor = 1 then ink 25855,0 else ink 16777215,0
				box fileX+4,fileY+lp*16+32+6-y,fileX+378-14,fileY+16+lp*16+32+6-y
				if ufcolor = 1 then ink 16777215,0 else ink 0,0
					REM Draw Box
				paste image FileImage(3+filetype(lp+(fileScrY/16))),fileX+7,fileY+lp*16+32+6-y,1
					REM File Name
				set cursor fileX+10+16,fileY+lp*16+32+6-y
				print file$(lp+(fileScrY/16))
					REM File Size
				if filetype(lp + (fileScrY/16)) = 0
					size = file size(file$(lp + fileScrY/16 ))
					if size/1000 = 0 
						filesize$ = str$(size)
						s$=" Bytes"
						else
						filesize$ = str$(size/1000)
						s$=" KB"
					endif
					set cursor fileX+326-len(filesize$)*7,fileY+lp*16+32+6-y
					print filesize$+s$
				endif
			 else
					REM While doing lp check, draw an empty white box if no files.
				ink 16777215,0
				box fileX+4,fileY+lp*16+16+6,fileX+378-14,fileY+lp*16+32+6
			endif
		next fY
		REM Draw the window skin.
		paste image FileImage(1),fileX,fileY,1
		REM Draws the Slider
		y = (fileScrY/abs(16)) * (16/abs(100)) * fpY
		ink 8224125,0:box fileX+366,fileY+2*16+6,fileX+381,fileY+14*16+4
		ink c2,0:box fileX+367,fileY+y+2*16+7,fileX+380,fileY+y+2*16+4+fSliderY
		REM Prints the Selected or Typed Filename onto the Filename box.
		ink 16777215,0:box fileX+4*16+4,fileY+15*16,fileX+19*16-3,fileY+16*16
		ink 0,0:set cursor fileX+4*16+6,fileY+15*16:print FileSelect$+Blinker()
	return

	FileEsc:
		REM Clearing Unused.
		for lpy = 0 to 5
			if image exist(FileImage(lpy)) then delete image FileImage(lpy)
		next lpy
		undim FileImage(5)
EndFunction FileSelect$

Function Typing(TypingMod$,TypingL,TypingMode)
	REM Inputs Keys from Keyboard to modify String$
		REM Typing Limit, Zero will make it unlimited suposively.
	if TypingL = 0 Then TypingL = 1000
		REM Typing Input.
	TypingI$ = inkey$()
		REM Reset TypingG$ if there's no input.
	if TypingI$ = "" then TypingG$ = ""
		REM Reset keyTyping if BackSpace is not pressed.
	if asc(TypingI$) <> 8 then KeyTyping = 0
		REM BackSpace is Pressed. Erase one off of TypingMod$.
	if asc(TypingI$) = 8
			REM If first time pressing BackSpace
		if KeyTyping = 0
				REM Resets the TypingCounter used to time the key repeat.
			TypingC = 0
				REM Checks if String$ has anything.
			if len(TypingMod$) > 0
					REM Erase the last letter in TypingMod$.
				TypingMod$ = left$(TypingMod$,len(TypingMod$)-1)		
			endif
		endif
			REM Flag this variable to not alow TypingMod$ erase.
		KeyTyping = 1
			REM Clear the input so it's not added to TypingG$
		TypingI$=""
			REM Handle the repeat of BackSpace
		inc TypingC,1
		if TypingC > 6 then KeyTyping = 0
	endif
	REM Setting up variable for checks. 
	z = asc(TypingI$)
		REM If anything other Numbers are pressed the clear TypingI$
	if TypingMode = 1 & z > 57 or TypingMode = 1 & z < 48 then TypingI$=""
		REM If anything other Numbers + Leters are pressed the clear TypingI$
	if TypingMode = 0 & z > 127 or TypingMode = 0 & z < 32 then TypingI$=""
		REM Checks if new/old Input are different and TypingMod$ is in Limit.
	if TypingG$ <> TypingI$ & len(TypingMod$) < TypingL then TypingMod$=TypingMod$+TypingI$
		REM Stores the last Input. Used for checking key repeat.
	TypingG$ = TypingI$
EndFunction	TypingMod$
REM File Input Opuput Function <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Function Blinker()
	Blink = Blink + 1
	if Blink > 3
		Blink = 0
		if Blinker$ = "" then Blinker$ = "|" else Blinker$ = ""
	endif
EndFunction Blinker$

Function CheckArea(x1,y1,x2,y2)
	retval = 0
	if mousex() > x1 & mousex() < x2 & mousey() > y1 & mousey() < y2 then retval = 1
EndFunction retval

REM File Input Opuput Function >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Function FileIO(FileMode)
	sync on
	esc = 0
		REM First sets up the window and get file names.
	gosub SetupFile
		REM Mode 2 is Game mode. Using only keyboard no mouse.
	if FileMode = 2 
		keySelect = 1
		KeyR = 1
		hide mouse
		FileSelect$ = file$(KeySelect-1)
		else
		keySelect = 0
		show mouse
	endif
	REM FileIO Loop
	do
			REM Mouse Input
		if FileMode < 2
			mx = mousex()
			my = mousey()
			mc = mouseclick()
			if mc =0 then KeyM = 0
		endif
		sprite 1,mx,my,101+mp
			REM Sub
		gosub UpdateFile
			REM Update the Screen
		bitmap = current bitmap()
		if bitmap > 0 then copy bitmap bitmap,0
		sync
			REM Exits this sub when variable esc is flaged.
				REM Also Change Directory back to Original path
		if esc = 1 then cd FilePath$: goto FileEsc
	loop

	SetupFile:
		REM Setting up the File Scanner Window.
			REM This searches for a usable Image number to store Images.
		dim FileImage(5)
		FileZ = 0
		for lpy = 0 to 5
			FileImage(lpy) = 0
			repeat
			FileZ = FileZ + 1
					if image exist(FileZ) = 0 then FileImage(lpy) = FileZ
			until FileImage(lpy) > 0
		next lpy
				REM Stores the background to FileImageBG.
		get image FileImage(0),0,0,screen width(),screen height()
		REM This section Loads up the Folder/File/FolderUP images.
			REM Images are stored into FileImage(3,4 and 5)
		cls 0
		x = 63:y = 1
		ink rgb(10,10,10),0:box 3+x,y,14+x,12+y
		ink rgb(255,255,255),0:box 3+x+1,y+1,14+x-1,12+y-1
		ink rgb(10,10,10),0:box 3+x+2,y+3,14+x-2,y+3
		box 3+x+2,y+5,14+x-2,y+5:box 3+x+2,y+7,14+x-2,y+7
		box 3+x+2,y+9,14+x-2,y+9
		x = 95:y = 1
		ink rgb(10,10,10),0:box x+1,y+2,x+14,y+12
		box x+1,y,x+5,y+2:ink rgb(155,155,0),0
		box x+2,y+3,x+13,y+11:box x+2,y+1,x+4,y+2
		ink rgb(10,10,10),0:box x+5,y+4,x+18,y+6
		box x+4,y+7,x+17,y+9:box x+3,y+10,x+16,y+12
		ink rgb(155,155,0),0:box x+6,y+5,x+17,y+6
		box x+5,y+7,x+16,y+9:box x+4,y+10,x+15,y+11
		x = 95+32:y = 1
		ink rgb(10,10,10),0:box x+1,y+2,x+14,y+12
		box x+1,y,x+5,y+2:ink rgb(155,155,0),0
		box x+2,y+3,x+13,y+11:box x+2,y+1,x+4,y+2
		ink rgb(10,10,10),0:box x+5,y+4,x+18,y+6
		box x+4,y+7,x+17,y+9:box x+3,y+10,x+16,y+12
		ink rgb(155,155,0),0:box x+6,y+5,x+17,y+6
		box x+5,y+7,x+16,y+9:box x+4,y+10,x+15,y+11
		ink rgb(10,10,10),0:dot x+13,y
		box x+13-1,y+1,x+13+1,y+1:box x+13-2,y+2,x+13+2,y+2
		box x+13-3,y+3,x+13+3,y+3:box x+13-1,y+4,x+13+1,y+10
		ink rgb(0,255,0),0:dot x+13,y+1
		box x+13-1,y+2,x+13+1,y+2:box x+13-2,y+3,x+13+2,y+3
		box x+13,y+4,x+13,y+9
				REM Grabing the images
		for lpx = 2 to 4
			get image FileImage(lpx+1),lpx*32,0,lpx*32+32,32,1
		next lpx
			REM Setting the default xy for the window cause it can be moved around.
		fileX = screen width()*.2
		fileY = screen height()*.2
			REM Setting path to /Maps and saving as String to print on screen.
		cls 0
		FilePath$ = get dir$()
		FileDir$ = ""
		FileSelect$ = ""
			REM Make folder "Maps" if it dont exist.
		if path exist(FilePath$+"/Maps") = 0 then make directory "Maps"
			REM Changing Directory to "/Maps". Changes back when exits Main Loop.
		cd FilePath$+"/Maps"
		FileDir$ = left$(FilePath$,1)+":/.../"+"Maps"
			REM Search for Files.
		dim file$(100)
		dim fileType(100)
		file = 0
				REM Search 2 times first for folders then second for files.
		for lp = 1 to 0 step -1
			find first
			repeat
				if get file type() = lp
					i$ = get file name$()
					if left$(i$,1) <> "."
						file$(file) = get file name$()
						fileType(file) = lp
						file = file + 1
					endif
				endif
				find next
			until get file type() = -1
		next lp
	REM File Arrangement -------------------------------------------------
		repeat
			order = 0
			for lp = 1 to file-1
				if len(file$(lp)) > len(file$(lp-1))
					length = len(file$(lp))
					else
					length = len(file$(lp-1))
				endif
				lpx=0				
				for lp2 = 1 to length-4
					file1 = asc(mid$(file$(lp),lp2))
					file2 = asc(mid$(file$(lp-1),lp2))
					if file1 > 47 & file1 < 58 & file2 > 47 & file2 < 58
						i$ = ""
						lp3 = lp2
						repeat
							g$=mid$(file$(lp),lp3)
							if asc(g$) >47 & asc(g$) < 58
								i$ = i$ + g$
								else
								g$ =""
							endif
							lp3=lp3+1
						until g$=""
						file1 = val(i$)
						i$ = ""
						lp3 = lp2
						repeat
							g$=mid$(file$(lp-1),lp3)
							if asc(g$) >47 & asc(g$) < 58
								i$ = i$ + g$
								else
								g$ =""
							endif
							lp3=lp3+1
						until g$=""
						file2 = val(i$)
					endif
					if file1 = file2 & lpx = 0 then lpx = 0
					if file1 < file2 & lpx = 0 then lpx = 1
					if file1 > file2 & lpx = 0 then lpx = 2
				next lp2

				if lpx = 1
					filebuffer$=file$(lp-1)
					file$(lp-1)=file$(lp)
					file$(lp)=filebuffer$
					filebuffer$ = ""
					order = 1
				endif
			next lp
		until order = 0
	REM End File Arrangement ------------------------------------------

		c0 = rgb(10,10,10)
		c1	= rgb(255,255,255)
		c2 = rgb(70,70,70)
		REM Drawing the Window.
			REM OutLine Black Box.
		ink c0,0:box 0,0,384,288
			REM Light Blue near top.
		ink rgb(180,190,200),0:box 1,1,383,288-1
			REM Dark Blue.
		ink rgb(120,130,150),0:box 2,2,384-1,288-1
			REM Print Text OPEN FILE on Dark Blue.
		set cursor 3,2:ink c1,0
		if FileMode = 0 or FileMode = 2 then print "Opening File" else print "Saving File"
			REM Black Inside.
		ink c0,0:box 3,19,384-2,14*16+5
			REM Directory/Path Box.
		ink 16777215,0:box 4,1*16+4,384-3,2*16+4
		set cursor 4,1*16+4:ink c0,0:print FileDir$
		paste image FileImage(5),384-20,1*16+4,1
			REM Selected File name Box.
		ink c0,0:box 4*16+3,15*16-1,19*16-2,16*16+1
		ink 16777215,0:box 4*16+4,15*16,19*16-3,16*16
		set cursor 3,15*16:ink 16777215,0:print "File Name:"
			REM List Box.
		ink 0,0:box 4,2*16+6,380-16,14*16+4
		if FileMode < 2
				REM Grey OPEN/SAVE button.
			ink c0,0:box 20*16+3-5 ,15*16-1,24*16-5 ,16*16+1
			ink rgb(150,150,150),0:box 20*16+4-5 ,15*16,24*16-6 ,16*16
			set cursor 21*16-1,15*16:ink c0,0
			if FileMode = 0 or FileMode = 2 then print "Open" else print "Save"
				REM Grey CLOSE/CANCEL button.
			ink c0,0:box 20*16-2,16*16+7,24*16-5,17*16+8
			ink rgb(150,150,150),0:box 20*16-1,16*16+8,(24*16)-6,17*16+7
			set cursor 21*16-3,16*16+7:ink c0,0
			if FileMode = 0 or FileMode = 2 then print "Close" else print "Cancel"
		endif
			REM Saving the File Scanner Window skin into Image 13.
		get image FileImage(1),0,0,385,289,1
		cls 0
		REM Calculations for the Slider.
			REM The slider height is (PixelHeight/100) * ((WinHeight/FileNum)*100)
		if file < 12 then fpy = 100 else fpY = (12/abs(file)*100)
		fSliderY = ((12*16-1)/abs(100)) * fpY
	Return

	UpdateFile:
		REM File Selection list Clicked.
		if mc = 1 & KeyM = 0 & CheckArea(fileX+2,fileY+37,fileX+378-13,fileY+14*16+5) = 1
			if (my+fileScrY-fileY-7)/16-2 > 0 & (my+fileScrY-fileY-7)/16-2 < file+fileY/16
				FileSelect$ = file$((my+fileScrY-fileY-7)/16-2)
				KeyM=1
			endif
		endif
		REM Mode 2, Return key is pressed.
		if FileMode = 2 & returnkey() = 1
			if KeyR = 0
				FileSelect$ = FilePath$+"\Maps\"+FileSelect$
				esc = 1:KeyM=1:KeyR = 1:return
			endif
			KeyR = 1
			else
			KeyR = 0
		endif
		REM Open/Save button Clicked
		if mc = 1 & KeyM = 0 & CheckArea(fileX+20*16-2,fileY+15*16-1,fileX+24*16-5,fileY+16*16+1) = 1
				REM FileMode = 0 is to Open.
			if FileMode = 0
				if Len(FileSelect$) > 0
					if file exist(FileSelect$)
						FileSelect$ = FilePath$+"\Maps\"+FileSelect$
							REM Flaging the esc variable will exit File Scanner.
						esc = 1:KeyM=1:return
					endif
				endif
			endif
				REM FileMode = 1 is to Save.
			if FileMode = 1
				if Len(FileSelect$) > 0
					FileSelect$ = FilePath$+"\Maps\"+FileSelect$
						REM Flaging the esc variable will exit File Scanner.
					esc = 1:KeyM=1:return
				endif
			endif
		endif
		REM Close/Cancel button Clicked.
		if mc = 1 & KeyM = 0 & CheckArea(fileX+20*16-2,fileY+16*16+7,fileX+24*16-5,fileY+17*16+8) = 1
				REM Flaging the esc variable will exit File Scanner.
			esc = 1 : FileSelect$="":KeyM=1:return
		endif
		REM Slider Clicked
			REM Math is not really my subject, to hard to explain this.
		if mc = 1 & KeyM = 0 & file > 12 or mc = 1 & KeyM = 5
			y = (fileScrY/abs(16)) * (16/abs(100)) * fpY
			if CheckArea(fileX+367,fileY+y+2*16+7,fileX+380,fileY+y+2*16+6+fSliderY) = 1 or KeyM = 5
				if KeyM = 0
					mx2 = mx
					my2 = my
					scrX2 = filescrX
					scrY2 = filescrY
					KeyM = 5
				endif
				fileScrY = scrY2+(my-my2)*(file/abs(12))
			endif
		endif

		REM Arrow Keys pressed to Scroll up down.
		if upkey() = 1 & file > 12 
			if FileMode = 2 
				if KeyU = 0 & keySelect > 1
					if KeySelect < (filescrY/16)+2 then fileScrY = fileScrY - 16
					keySelect = KeySelect - 1
					FileSelect$ = file$(KeySelect-1)
					KeyC = 0
				endif		
				else
				fileScrY = fileScrY - 1
			endif
			KeyU = 1
			KeyC = KeyC + 1
			if KeyC > 10 then KeyU = 0
			else
			KeyU = 0
		endif
		if downkey() = 1 & file > 12 
			if FileMode = 2
				if KeyD = 0 & keySelect < file
					if KeySelect > (filescrY/16)+11 then fileScrY = fileScrY + 16
					keySelect = KeySelect + 1
					FileSelect$ = file$(KeySelect-1)
					KeyC = 0
				endif
				else
				fileScrY = fileScrY + 1
			endif
			KeyD = 1
			KeyC = KeyC + 1
			if KeyC > 10 then KeyD = 0
			else
			KeyD = 0
		endif
			REM Checks if Slider is up too far or down too low.
		if fileScrY < 0 then fileScrY = 0
		if fileScrY > (file-12)*16 & file > 11 then fileScrY = (file-12)*16

		REM Moving the File Scanner Window
			REM Checks if it's the first click or already clicked.
		if mc = 1 & KeyM = 0 or mc = 1 & KeyM = 6
				REM Checks if click is in Top Blue "Open/Save file" box
			if CheckArea(fileX,fileY,fileX+384,fileY+16) = 1 or KeyM = 6
					REM First Time Click will store old xy of Window.
				if KeyM = 0
					mx2 = mx-fileX
					my2 = my-fileY
					KeyM = 6
						REM Also store the Current Window as Image 8.
					get image FileImage(2),fileX,fileY,fileX+384,fileY+288
				endif
					REM CurrentXY = MouseXY - OldXY
				fileX = mx-mx2
				fileY = my-my2
					REM Checks for out of bounce.
				if fileX < 0 then fileX = 0
				if fileX > 640-384 then fileX = 640-384
				if fileY < 0 then fileY = 0
				if fileY > 480-288 then fileY = 480-288
					REM Restore the Background.
				paste image FileImage(0),0,0
					REM Restore the Window in new position.
						REM This is faster than re-drawing the whole thing again.
				paste image FileImage(2),fileX,fileY
			endif
		endif
		REM Input keys from Typing.
			REM Function Typing(String$,MaxLimit,Mode).
		g$ = Typing(FileSelect$,0,0)
			REM Flags the UpdateFileRefresh if Keyboard typing.
		if g$ <> FileSelect$ then FileSelect$ = g$
		REM Draws the Background
		paste image FileImage(0),0,0
		REM Draws the File Manager Window.
			REM Draw the File List or contents.
			y = fileScrY-fileScrY/16*16
		for lp = 0 to 12
				REM Checks lp for out of bounce. Has to be lower than files scaned.
			if file > 0 & lp < file+1
					REM Blue or White color select
				if file$(lp+(fileScrY/16)) = FileSelect$ then ufcolor=1 else ufcolor=0
				if ufcolor = 1 then ink 25855,0 else ink 16777215,0
				box fileX+4,fileY+lp*16+32+6-y,fileX+378-14,fileY+16+lp*16+32+6-y
				if ufcolor = 1 then ink 16777215,0 else ink 0,0
					REM Draw Box
				paste image FileImage(3+filetype(lp+(fileScrY/16))),fileX+7,fileY+lp*16+32+6-y,1
					REM File Name
				set cursor fileX+10+16,fileY+lp*16+32+6-y
				print file$(lp+(fileScrY/16))
					REM File Size
				if filetype(lp + (fileScrY/16)) = 0
					size = file size(file$(lp + fileScrY/16 ))
					if size/1000 = 0 
						filesize$ = str$(size)
						s$=" Bytes"
						else
						filesize$ = str$(size/1000)
						s$=" KB"
					endif
					set cursor fileX+326-len(filesize$)*7,fileY+lp*16+32+6-y
					print filesize$+s$
				endif
			 else
					REM While doing lp check, draw an empty white box if no files.
				ink 16777215,0
				box fileX+4,fileY+lp*16+16+6,fileX+378-14,fileY+lp*16+32+6
			endif
		next fY
		REM Draw the window skin.
		paste image FileImage(1),fileX,fileY,1
		REM Draws the Slider
		y = (fileScrY/abs(16)) * (16/abs(100)) * fpY
		ink 8224125,0:box fileX+366,fileY+2*16+6,fileX+381,fileY+14*16+4
		ink c2,0:box fileX+367,fileY+y+2*16+7,fileX+380,fileY+y+2*16+4+fSliderY
		REM Prints the Selected or Typed Filename onto the Filename box.
		ink 16777215,0:box fileX+4*16+4,fileY+15*16,fileX+19*16-3,fileY+16*16
		ink 0,0:set cursor fileX+4*16+6,fileY+15*16:print FileSelect$+Blinker()
	return

	FileEsc:
		REM Clearing Unused.
		for lpy = 0 to 5
			if image exist(FileImage(lpy)) then delete image FileImage(lpy)
		next lpy
		undim FileImage(5)
EndFunction FileSelect$

Function Typing(TypingMod$,TypingL,TypingMode)
	REM Inputs Keys from Keyboard to modify String$
		REM Typing Limit, Zero will make it unlimited suposively.
	if TypingL = 0 Then TypingL = 1000
		REM Typing Input.
	TypingI$ = inkey$()
		REM Reset TypingG$ if there's no input.
	if TypingI$ = "" then TypingG$ = ""
		REM Reset keyTyping if BackSpace is not pressed.
	if asc(TypingI$) <> 8 then KeyTyping = 0
		REM BackSpace is Pressed. Erase one off of TypingMod$.
	if asc(TypingI$) = 8
			REM If first time pressing BackSpace
		if KeyTyping = 0
				REM Resets the TypingCounter used to time the key repeat.
			TypingC = 0
				REM Checks if String$ has anything.
			if len(TypingMod$) > 0
					REM Erase the last letter in TypingMod$.
				TypingMod$ = left$(TypingMod$,len(TypingMod$)-1)		
			endif
		endif
			REM Flag this variable to not alow TypingMod$ erase.
		KeyTyping = 1
			REM Clear the input so it's not added to TypingG$
		TypingI$=""
			REM Handle the repeat of BackSpace
		inc TypingC,1
		if TypingC > 6 then KeyTyping = 0
	endif
	REM Setting up variable for checks. 
	z = asc(TypingI$)
		REM If anything other Numbers are pressed the clear TypingI$
	if TypingMode = 1 & z > 57 or TypingMode = 1 & z < 48 then TypingI$=""
		REM If anything other Numbers + Leters are pressed the clear TypingI$
	if TypingMode = 0 & z > 127 or TypingMode = 0 & z < 32 then TypingI$=""
		REM Checks if new/old Input are different and TypingMod$ is in Limit.
	if TypingG$ <> TypingI$ & len(TypingMod$) < TypingL then TypingMod$=TypingMod$+TypingI$
		REM Stores the last Input. Used for checking key repeat.
	TypingG$ = TypingI$
EndFunction	TypingMod$
REM File Input Opuput Function <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Function Blinker()
	Blink = Blink + 1
	if Blink > 3
		Blink = 0
		if Blinker$ = "" then Blinker$ = "|" else Blinker$ = ""
	endif
EndFunction Blinker$

Function CheckArea(x1,y1,x2,y2)
	retval = 0
	if mousex() > x1 & mousex() < x2 & mousey() > y1 & mousey() < y2 then retval = 1
EndFunction retval

REM File Input Opuput Function >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Function FileIO(FileMode)
	sync on
	esc = 0
		REM First sets up the window and get file names.
	gosub SetupFile
		REM Mode 2 is Game mode. Using only keyboard no mouse.
	if FileMode = 2 
		keySelect = 1
		KeyR = 1
		hide mouse
		FileSelect$ = file$(KeySelect-1)
		else
		keySelect = 0
		show mouse
	endif
	REM FileIO Loop
	do
			REM Mouse Input
		if FileMode < 2
			mx = mousex()
			my = mousey()
			mc = mouseclick()
			if mc =0 then KeyM = 0
		endif
		sprite 1,mx,my,101+mp
			REM Sub
		gosub UpdateFile
			REM Update the Screen
		bitmap = current bitmap()
		if bitmap > 0 then copy bitmap bitmap,0
		sync
			REM Exits this sub when variable esc is flaged.
				REM Also Change Directory back to Original path
		if esc = 1 then cd FilePath$: goto FileEsc
	loop

	SetupFile:
		REM Setting up the File Scanner Window.
			REM This searches for a usable Image number to store Images.
		dim FileImage(5)
		FileZ = 0
		for lpy = 0 to 5
			FileImage(lpy) = 0
			repeat
			FileZ = FileZ + 1
					if image exist(FileZ) = 0 then FileImage(lpy) = FileZ
			until FileImage(lpy) > 0
		next lpy
				REM Stores the background to FileImageBG.
		get image FileImage(0),0,0,screen width(),screen height()
		REM This section Loads up the Folder/File/FolderUP images.
			REM Images are stored into FileImage(3,4 and 5)
		cls 0
		x = 63:y = 1
		ink rgb(10,10,10),0:box 3+x,y,14+x,12+y
		ink rgb(255,255,255),0:box 3+x+1,y+1,14+x-1,12+y-1
		ink rgb(10,10,10),0:box 3+x+2,y+3,14+x-2,y+3
		box 3+x+2,y+5,14+x-2,y+5:box 3+x+2,y+7,14+x-2,y+7
		box 3+x+2,y+9,14+x-2,y+9
		x = 95:y = 1
		ink rgb(10,10,10),0:box x+1,y+2,x+14,y+12
		box x+1,y,x+5,y+2:ink rgb(155,155,0),0
		box x+2,y+3,x+13,y+11:box x+2,y+1,x+4,y+2
		ink rgb(10,10,10),0:box x+5,y+4,x+18,y+6
		box x+4,y+7,x+17,y+9:box x+3,y+10,x+16,y+12
		ink rgb(155,155,0),0:box x+6,y+5,x+17,y+6
		box x+5,y+7,x+16,y+9:box x+4,y+10,x+15,y+11
		x = 95+32:y = 1
		ink rgb(10,10,10),0:box x+1,y+2,x+14,y+12
		box x+1,y,x+5,y+2:ink rgb(155,155,0),0
		box x+2,y+3,x+13,y+11:box x+2,y+1,x+4,y+2
		ink rgb(10,10,10),0:box x+5,y+4,x+18,y+6
		box x+4,y+7,x+17,y+9:box x+3,y+10,x+16,y+12
		ink rgb(155,155,0),0:box x+6,y+5,x+17,y+6
		box x+5,y+7,x+16,y+9:box x+4,y+10,x+15,y+11
		ink rgb(10,10,10),0:dot x+13,y
		box x+13-1,y+1,x+13+1,y+1:box x+13-2,y+2,x+13+2,y+2
		box x+13-3,y+3,x+13+3,y+3:box x+13-1,y+4,x+13+1,y+10
		ink rgb(0,255,0),0:dot x+13,y+1
		box x+13-1,y+2,x+13+1,y+2:box x+13-2,y+3,x+13+2,y+3
		box x+13,y+4,x+13,y+9
				REM Grabing the images
		for lpx = 2 to 4
			get image FileImage(lpx+1),lpx*32,0,lpx*32+32,32,1
		next lpx
			REM Setting the default xy for the window cause it can be moved around.
		fileX = screen width()*.2
		fileY = screen height()*.2
			REM Setting path to /Maps and saving as String to print on screen.
		cls 0
		FilePath$ = get dir$()
		FileDir$ = ""
		FileSelect$ = ""
			REM Make folder "Maps" if it dont exist.
		if path exist(FilePath$+"/Maps") = 0 then make directory "Maps"
			REM Changing Directory to "/Maps". Changes back when exits Main Loop.
		cd FilePath$+"/Maps"
		FileDir$ = left$(FilePath$,1)+":/.../"+"Maps"
			REM Search for Files.
		dim file$(100)
		dim fileType(100)
		file = 0
				REM Search 2 times first for folders then second for files.
		for lp = 1 to 0 step -1
			find first
			repeat
				if get file type() = lp
					i$ = get file name$()
					if left$(i$,1) <> "."
						file$(file) = get file name$()
						fileType(file) = lp
						file = file + 1
					endif
				endif
				find next
			until get file type() = -1
		next lp
	REM File Arrangement -------------------------------------------------
		repeat
			order = 0
			for lp = 1 to file-1
				if len(file$(lp)) > len(file$(lp-1))
					length = len(file$(lp))
					else
					length = len(file$(lp-1))
				endif
				lpx=0				
				for lp2 = 1 to length-4
					file1 = asc(mid$(file$(lp),lp2))
					file2 = asc(mid$(file$(lp-1),lp2))
					if file1 > 47 & file1 < 58 & file2 > 47 & file2 < 58
						i$ = ""
						lp3 = lp2
						repeat
							g$=mid$(file$(lp),lp3)
							if asc(g$) >47 & asc(g$) < 58
								i$ = i$ + g$
								else
								g$ =""
							endif
							lp3=lp3+1
						until g$=""
						file1 = val(i$)
						i$ = ""
						lp3 = lp2
						repeat
							g$=mid$(file$(lp-1),lp3)
							if asc(g$) >47 & asc(g$) < 58
								i$ = i$ + g$
								else
								g$ =""
							endif
							lp3=lp3+1
						until g$=""
						file2 = val(i$)
					endif
					if file1 = file2 & lpx = 0 then lpx = 0
					if file1 < file2 & lpx = 0 then lpx = 1
					if file1 > file2 & lpx = 0 then lpx = 2
				next lp2

				if lpx = 1
					filebuffer$=file$(lp-1)
					file$(lp-1)=file$(lp)
					file$(lp)=filebuffer$
					filebuffer$ = ""
					order = 1
				endif
			next lp
		until order = 0
	REM End File Arrangement ------------------------------------------

		c0 = rgb(10,10,10)
		c1	= rgb(255,255,255)
		c2 = rgb(70,70,70)
		REM Drawing the Window.
			REM OutLine Black Box.
		ink c0,0:box 0,0,384,288
			REM Light Blue near top.
		ink rgb(180,190,200),0:box 1,1,383,288-1
			REM Dark Blue.
		ink rgb(120,130,150),0:box 2,2,384-1,288-1
			REM Print Text OPEN FILE on Dark Blue.
		set cursor 3,2:ink c1,0
		if FileMode = 0 or FileMode = 2 then print "Opening File" else print "Saving File"
			REM Black Inside.
		ink c0,0:box 3,19,384-2,14*16+5
			REM Directory/Path Box.
		ink 16777215,0:box 4,1*16+4,384-3,2*16+4
		set cursor 4,1*16+4:ink c0,0:print FileDir$
		paste image FileImage(5),384-20,1*16+4,1
			REM Selected File name Box.
		ink c0,0:box 4*16+3,15*16-1,19*16-2,16*16+1
		ink 16777215,0:box 4*16+4,15*16,19*16-3,16*16
		set cursor 3,15*16:ink 16777215,0:print "File Name:"
			REM List Box.
		ink 0,0:box 4,2*16+6,380-16,14*16+4
		if FileMode < 2
				REM Grey OPEN/SAVE button.
			ink c0,0:box 20*16+3-5 ,15*16-1,24*16-5 ,16*16+1
			ink rgb(150,150,150),0:box 20*16+4-5 ,15*16,24*16-6 ,16*16
			set cursor 21*16-1,15*16:ink c0,0
			if FileMode = 0 or FileMode = 2 then print "Open" else print "Save"
				REM Grey CLOSE/CANCEL button.
			ink c0,0:box 20*16-2,16*16+7,24*16-5,17*16+8
			ink rgb(150,150,150),0:box 20*16-1,16*16+8,(24*16)-6,17*16+7
			set cursor 21*16-3,16*16+7:ink c0,0
			if FileMode = 0 or FileMode = 2 then print "Close" else print "Cancel"
		endif
			REM Saving the File Scanner Window skin into Image 13.
		get image FileImage(1),0,0,385,289,1
		cls 0
		REM Calculations for the Slider.
			REM The slider height is (PixelHeight/100) * ((WinHeight/FileNum)*100)
		if file < 12 then fpy = 100 else fpY = (12/abs(file)*100)
		fSliderY = ((12*16-1)/abs(100)) * fpY
	Return

	UpdateFile:
		REM File Selection list Clicked.
		if mc = 1 & KeyM = 0 & CheckArea(fileX+2,fileY+37,fileX+378-13,fileY+14*16+5) = 1
			if (my+fileScrY-fileY-7)/16-2 > 0 & (my+fileScrY-fileY-7)/16-2 < file+fileY/16
				FileSelect$ = file$((my+fileScrY-fileY-7)/16-2)
				KeyM=1
			endif
		endif
		REM Mode 2, Return key is pressed.
		if FileMode = 2 & returnkey() = 1
			if KeyR = 0
				FileSelect$ = FilePath$+"/Maps/"+FileSelect$
				esc = 1:KeyM=1:KeyR = 1:return
			endif
			KeyR = 1
			else
			KeyR = 0
		endif
		REM Open/Save button Clicked
		if mc = 1 & KeyM = 0 & CheckArea(fileX+20*16-2,fileY+15*16-1,fileX+24*16-5,fileY+16*16+1) = 1
				REM FileMode = 0 is to Open.
			if FileMode = 0
				if Len(FileSelect$) > 0
					if file exist(FileSelect$)
						FileSelect$ = FilePath$+"/Maps/"+FileSelect$
							REM Flaging the esc variable will exit File Scanner.
						esc = 1:KeyM=1:return
					endif
				endif
			endif
				REM FileMode = 1 is to Save.
			if FileMode = 1
				if Len(FileSelect$) > 0
					FileSelect$ = FilePath$+"/Maps/"+FileSelect$
						REM Flaging the esc variable will exit File Scanner.
					esc = 1:KeyM=1:return
				endif
			endif
		endif
		REM Close/Cancel button Clicked.
		if mc = 1 & KeyM = 0 & CheckArea(fileX+20*16-2,fileY+16*16+7,fileX+24*16-5,fileY+17*16+8) = 1
				REM Flaging the esc variable will exit File Scanner.
			esc = 1 : FileSelect$="":KeyM=1:return
		endif
		REM Slider Clicked
			REM Math is not really my subject, to hard to explain this.
		if mc = 1 & KeyM = 0 & file > 12 or mc = 1 & KeyM = 5
			y = (fileScrY/abs(16)) * (16/abs(100)) * fpY
			if CheckArea(fileX+367,fileY+y+2*16+7,fileX+380,fileY+y+2*16+6+fSliderY) = 1 or KeyM = 5
				if KeyM = 0
					mx2 = mx
					my2 = my
					scrX2 = filescrX
					scrY2 = filescrY
					KeyM = 5
				endif
				fileScrY = scrY2+(my-my2)*(file/abs(12))
			endif
		endif

		REM Arrow Keys pressed to Scroll up down.
		if upkey() = 1 & file > 12 
			if FileMode = 2 
				if KeyU = 0 & keySelect > 1
					if KeySelect < (filescrY/16)+2 then fileScrY = fileScrY - 16
					keySelect = KeySelect - 1
					FileSelect$ = file$(KeySelect-1)
					KeyC = 0
				endif		
				else
				fileScrY = fileScrY - 1
			endif
			KeyU = 1
			KeyC = KeyC + 1
			if KeyC > 10 then KeyU = 0
			else
			KeyU = 0
		endif
		if downkey() = 1 & file > 12 
			if FileMode = 2
				if KeyD = 0 & keySelect < file
					if KeySelect > (filescrY/16)+11 then fileScrY = fileScrY + 16
					keySelect = KeySelect + 1
					FileSelect$ = file$(KeySelect-1)
					KeyC = 0
				endif
				else
				fileScrY = fileScrY + 1
			endif
			KeyD = 1
			KeyC = KeyC + 1
			if KeyC > 10 then KeyD = 0
			else
			KeyD = 0
		endif
			REM Checks if Slider is up too far or down too low.
		if fileScrY < 0 then fileScrY = 0
		if fileScrY > (file-12)*16 & file > 11 then fileScrY = (file-12)*16

		REM Moving the File Scanner Window
			REM Checks if it's the first click or already clicked.
		if mc = 1 & KeyM = 0 or mc = 1 & KeyM = 6
				REM Checks if click is in Top Blue "Open/Save file" box
			if CheckArea(fileX,fileY,fileX+384,fileY+16) = 1 or KeyM = 6
					REM First Time Click will store old xy of Window.
				if KeyM = 0
					mx2 = mx-fileX
					my2 = my-fileY
					KeyM = 6
						REM Also store the Current Window as Image 8.
					get image FileImage(2),fileX,fileY,fileX+384,fileY+288
				endif
					REM CurrentXY = MouseXY - OldXY
				fileX = mx-mx2
				fileY = my-my2
					REM Checks for out of bounce.
				if fileX < 0 then fileX = 0
				if fileX > 640-384 then fileX = 640-384
				if fileY < 0 then fileY = 0
				if fileY > 480-288 then fileY = 480-288
					REM Restore the Background.
				paste image FileImage(0),0,0
					REM Restore the Window in new position.
						REM This is faster than re-drawing the whole thing again.
				paste image FileImage(2),fileX,fileY
			endif
		endif
		REM Input keys from Typing.
			REM Function Typing(String$,MaxLimit,Mode).
		g$ = Typing(FileSelect$,0,0)
			REM Flags the UpdateFileRefresh if Keyboard typing.
		if g$ <> FileSelect$ then FileSelect$ = g$
		REM Draws the Background
		paste image FileImage(0),0,0
		REM Draws the File Manager Window.
			REM Draw the File List or contents.
			y = fileScrY-fileScrY/16*16
		for lp = 0 to 12
				REM Checks lp for out of bounce. Has to be lower than files scaned.
			if file > 0 & lp < file+1
					REM Blue or White color select
				if file$(lp+(fileScrY/16)) = FileSelect$ then ufcolor=1 else ufcolor=0
				if ufcolor = 1 then ink 25855,0 else ink 16777215,0
				box fileX+4,fileY+lp*16+32+6-y,fileX+378-14,fileY+16+lp*16+32+6-y
				if ufcolor = 1 then ink 16777215,0 else ink 0,0
					REM Draw Box
				paste image FileImage(3+filetype(lp+(fileScrY/16))),fileX+7,fileY+lp*16+32+6-y,1
					REM File Name
				set cursor fileX+10+16,fileY+lp*16+32+6-y
				print file$(lp+(fileScrY/16))
					REM File Size
				if filetype(lp + (fileScrY/16)) = 0
					size = file size(file$(lp + fileScrY/16 ))
					if size/1000 = 0 
						filesize$ = str$(size)
						s$=" Bytes"
						else
						filesize$ = str$(size/1000)
						s$=" KB"
					endif
					set cursor fileX+326-len(filesize$)*7,fileY+lp*16+32+6-y
					print filesize$+s$
				endif
			 else
					REM While doing lp check, draw an empty white box if no files.
				ink 16777215,0
				box fileX+4,fileY+lp*16+16+6,fileX+378-14,fileY+lp*16+32+6
			endif
		next fY
		REM Draw the window skin.
		paste image FileImage(1),fileX,fileY,1
		REM Draws the Slider
		y = (fileScrY/abs(16)) * (16/abs(100)) * fpY
		ink 8224125,0:box fileX+366,fileY+2*16+6,fileX+381,fileY+14*16+4
		ink c2,0:box fileX+367,fileY+y+2*16+7,fileX+380,fileY+y+2*16+4+fSliderY
		REM Prints the Selected or Typed Filename onto the Filename box.
		ink 16777215,0:box fileX+4*16+4,fileY+15*16,fileX+19*16-3,fileY+16*16
		ink 0,0:set cursor fileX+4*16+6,fileY+15*16:print FileSelect$+Blinker()
	return

	FileEsc:
		REM Clearing Unused.
		for lpy = 0 to 5
			if image exist(FileImage(lpy)) then delete image FileImage(lpy)
		next lpy
		undim FileImage(5)
EndFunction FileSelect$

Function Typing(TypingMod$,TypingL,TypingMode)
	REM Inputs Keys from Keyboard to modify String$
		REM Typing Limit, Zero will make it unlimited suposively.
	if TypingL = 0 Then TypingL = 1000
		REM Typing Input.
	TypingI$ = inkey$()
		REM Reset TypingG$ if there's no input.
	if TypingI$ = "" then TypingG$ = ""
		REM Reset keyTyping if BackSpace is not pressed.
	if asc(TypingI$) <> 8 then KeyTyping = 0
		REM BackSpace is Pressed. Erase one off of TypingMod$.
	if asc(TypingI$) = 8
			REM If first time pressing BackSpace
		if KeyTyping = 0
				REM Resets the TypingCounter used to time the key repeat.
			TypingC = 0
				REM Checks if String$ has anything.
			if len(TypingMod$) > 0
					REM Erase the last letter in TypingMod$.
				TypingMod$ = left$(TypingMod$,len(TypingMod$)-1)		
			endif
		endif
			REM Flag this variable to not alow TypingMod$ erase.
		KeyTyping = 1
			REM Clear the input so it's not added to TypingG$
		TypingI$=""
			REM Handle the repeat of BackSpace
		inc TypingC,1
		if TypingC > 6 then KeyTyping = 0
	endif
	REM Setting up variable for checks. 
	z = asc(TypingI$)
		REM If anything other Numbers are pressed the clear TypingI$
	if TypingMode = 1 & z > 57 or TypingMode = 1 & z < 48 then TypingI$=""
		REM If anything other Numbers + Leters are pressed the clear TypingI$
	if TypingMode = 0 & z > 127 or TypingMode = 0 & z < 32 then TypingI$=""
		REM Checks if new/old Input are different and TypingMod$ is in Limit.
	if TypingG$ <> TypingI$ & len(TypingMod$) < TypingL then TypingMod$=TypingMod$+TypingI$
		REM Stores the last Input. Used for checking key repeat.
	TypingG$ = TypingI$
EndFunction	TypingMod$
REM File Input Opuput Function <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Function Blinker()
	Blink = Blink + 1
	if Blink > 3
		Blink = 0
		if Blinker$ = "" then Blinker$ = "|" else Blinker$ = ""
	endif
EndFunction Blinker$

Function CheckArea(x1,y1,x2,y2)
	retval = 0
	if mousex() > x1 & mousex() < x2 & mousey() > y1 & mousey() < y2 then retval = 1
EndFunction retval

Function NextFile(LastFile$)
			REM Setting path to /Maps and saving as String to print on screen.
		FilePath$ = get dir$()
		cd FilePath$+"/Maps"
			REM Search for Files.
		dim file$(100)
		dim fileType(100)
		file = 0
				REM Search 2 times first for folders then second for files.
		for lp = 1 to 0 step -1
			find first
			repeat
				if get file type() = lp
					i$ = get file name$()
					if left$(i$,1) <> "."
						file$(file) = get file name$()
						fileType(file) = lp
						file = file + 1
					endif
				endif
				find next
			until get file type() = -1
		next lp
	REM File Arrangement -------------------------------------------------
		repeat
			order = 0
			for lp = 1 to file-1
				if len(file$(lp)) > len(file$(lp-1))
					length = len(file$(lp))
					else
					length = len(file$(lp-1))
				endif
				lpx=0				
				for lp2 = 1 to length-4
					file1 = asc(mid$(file$(lp),lp2))
					file2 = asc(mid$(file$(lp-1),lp2))
					if file1 > 47 & file1 < 58 & file2 > 47 & file2 < 58
						i$ = "":lp3 = lp2
						repeat
							g$=mid$(file$(lp),lp3)
							if asc(g$) >47 & asc(g$) < 58 then i$ = i$ + g$ else g$ =""
							lp3=lp3+1
						until g$=""
						file1 = val(i$)
						i$ = "":lp3 = lp2
						repeat
							g$=mid$(file$(lp-1),lp3)
							if asc(g$) >47 & asc(g$) < 58 then i$ = i$ + g$ else g$ =""
							lp3=lp3+1
						until g$=""
						file2 = val(i$)
					endif
					if file1 < file2 & lpx = 0 then lpx = 1
					if file1 > file2 & lpx = 0 then lpx = 2
				next lp2
				if lpx = 1
					filebuffer$=file$(lp-1)
					file$(lp-1)=file$(lp)
					file$(lp)=filebuffer$
					filebuffer$ = ""
					order = 1
				endif
			next lp
		until order = 0
	REM End File Arrangement ------------------------------------------

	NextFile$ = ""
	for lp = 0 to file-2
		if FilePath$+"/Maps/"+file$(lp) = LastFile$ then NextFile$ = FilePath$+"/Maps/"+file$(lp+1): lp = file
	next lp
	cd FilePath$
EndFunction NextFile$

sync on
sync rate 0

do
	cls 0
	Check = Menu(100,100,100,"Settings")	
	if Check = 1 then text 0,0,"You clicked Settings"

	Check = Menu(100,164,100,"Quit")	
	if Check = 1 then text 0,0,"You clicked Quit"

	Check = Menu(100,228,100,"Resume")	
	if Check = 1 then text 0,0,"You clicked Resume"

	sync
loop

Function Menu(x,y,lenght,MenuT$)
		REM Draw Box
			REM Black outline
	ink rgb(10,10,10),0:box x-2,y-2,x+lenght+2,y+32+2
			REM Light Grey
	ink rgb(200,200,200),0:box x-1,y-1,x+lenght+1,y+32+1
			REM Grey text box
	ink rgb(150,150,150),0:box x,y,x+lenght,y+32
			REM Menu Text
	ink rgb(0,0,255),0:center text x+50,y+8,MenuT$
		REM Checks for mouse
			REM Reset return value
	retval = 0
	mx = mousex()
	my = mousey()
	mc = mouseclick()
			REM If mouse is inside box and clicked.
	if mx>x-2 & mx<x+lenght+2 & my>y-2 & my<y+32+2 & mc=1 then retval = 1
EndFunction retval

sync on:sync rate 0
hide mouse

gridwidth=640
gridheight=480

dim grid(gridwidth,gridheight)

startvalue=90
maxvalue=100
minvalue=20
variation=30

if variation>abs(maxvalue-minvalue) then variation=abs(maxvalue-minvalue)

for x=1 to gridwidth
   for y=1 to gridheight
      grid(x,y)=startvalue
   next y
next x

rem start
for i=1 to gridwidth*gridheight/10
   feild=abs(maxvalue-minvalue)
   x=rnd(gridwidth)
   y=rnd(gridheight)
   value=rnd(feild)
   grid(x,y)=value
next i
remend

for x=1 to gridwidth step 1
   for y=1 to gridheight
      otherpoints=0
      totalofothers=0
      if x>0
         value=grid(x-1,y)
         if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
      endif
      if y>0
         value=grid(x,y-1)
         if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
      endif
      if x<gridwidth
         value=grid(x+1,y)
         if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
      endif
      if y<gridheight
         value=grid(x,y+1)
         if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
      endif
      if otherpoints>0
         o#=otherpoints
         t#=totalofothers
         average#=t#/o#
      else
         average#=startvalue
      endif
      gridvalue=average#+(rnd(variation)-(variation/2))
      if gridvalue<minvalue then gridvalue=minvalue
      if gridvalue>maxvalue then gridvalue=maxvalue
      ink rgb(255,255,255),0
      grid(x,y)=gridvalue
      gv#=gridvalue
      rg#=gv#/100*90
      ink rgb(rg#,rg#,gridvalue),0
      dot x,y
   next y
next x
ink rgb(0,0,0),0
box 14,14,462,462
sync
for x=480 to 600
 for y=30 to 60
            otherpoints=0
      totalofothers=0
      if x>0
         value=grid(x-1,y)
         if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
      endif
      if y>0
         value=grid(x,y-1)
         if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
      endif
      if x<gridwidth
         value=grid(x+1,y)
         if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
      endif
      if y<gridheight
         value=grid(x,y+1)
         if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
      endif
      if otherpoints>0
         o#=otherpoints
         t#=totalofothers
         average#=t#/o#
      else
         average#=startvalue
      endif
            gridvalue=average#+(rnd(variation)-(variation/2))
      if gridvalue<minvalue then gridvalue=minvalue
      if gridvalue>maxvalue then gridvalue=maxvalue
      if gridvalue<minvalue then gridvalue=minvalue
      if gridvalue>maxvalue then gridvalue=maxvalue
      ink rgb(255,255,255),0
      grid(x,y)=gridvalue
      gv#=gridvalue
      rg#=gv#/100*90
      ink rgb(rg#+20,rg#+20,gridvalue+20),0
      dot x,y
 next y
next x
set text font "Impact"
set text size 20
ink rgb(255,255,255),0
center text 540,35,"Furious Pickaxe"
for x=480 to 600
 for y=100 to 200
            otherpoints=0
      totalofothers=0
      if x>0
         value=grid(x-1,y)
         if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
      endif
      if y>0
         value=grid(x,y-1)
         if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
      endif
      if x<gridwidth
         value=grid(x+1,y)
         if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
      endif
      if y<gridheight
         value=grid(x,y+1)
         if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
      endif
      if otherpoints>0
         o#=otherpoints
         t#=totalofothers
         average#=t#/o#
      else
         average#=startvalue
      endif
            gridvalue=average#+(rnd(variation)-(variation/2))
      if gridvalue<minvalue then gridvalue=minvalue
      if gridvalue>maxvalue then gridvalue=maxvalue
      if gridvalue<minvalue then gridvalue=minvalue
      if gridvalue>maxvalue then gridvalue=maxvalue
      ink rgb(255,255,255),0
      grid(x,y)=gridvalue
      gv#=gridvalue
      rg#=gv#/100*90
      ink rgb(rg#+20,rg#+20,gridvalue+20),0
      dot x,y
 next y
next x
ink rgb(200,200,200),0
set text font "Times New Roman"
set text size 15
text 480,100,"Gems Collected:"+str$(gemsc)
text 480,120,"Time Taken:"+str$(timet)
text 480,140,"Any Extra Info can be"
text 480,150,"placed here"


wait key

sync on:sync rate 0
hide mouse

gridwidth=640
gridheight=480

dim grid(gridwidth+200,gridheight+200)

startvalue=90
maxvalue=100
minvalue=20
variation=30

if variation>abs(maxvalue-minvalue) then variation=abs(maxvalue-minvalue)

for x=1 to gridwidth
   for y=1 to gridheight
      grid(x,y)=startvalue
   next y
next x

rem start
for i=1 to gridwidth*gridheight/10
   feild=abs(maxvalue-minvalue)
   x=rnd(gridwidth)
   y=rnd(gridheight)
   value=rnd(feild)
   grid(x,y)=value
next i
remend

for x=1 to gridwidth step 1
   for y=1 to gridheight
      otherpoints=0
      totalofothers=0
      if x>0
         value=grid(x-1,y)
         if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
      endif
      if y>0
         value=grid(x,y-1)
         if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
      endif
      if x<gridwidth
         value=grid(x+1,y)
         if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
      endif
      if y<gridheight
         value=grid(x,y+1)
         if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
      endif
      if otherpoints>0
         o#=otherpoints
         t#=totalofothers
         average#=t#/o#
      else
         average#=startvalue
      endif
      gridvalue=average#+(rnd(variation)-(variation/2))
      if gridvalue<minvalue then gridvalue=minvalue
      if gridvalue>maxvalue then gridvalue=maxvalue
      ink rgb(255,255,255),0
      grid(x,y)=gridvalue
      gv#=gridvalue
      rg#=gv#/100*90
      ink rgb(rg#,rg#,gridvalue),0
      dot x,y
   next y
next x
ink rgb(0,0,0),0
box 14,14,462,462
sync
for x=480 to 600
 for y=30 to 60
            otherpoints=0
      totalofothers=0
      if x>0
         value=grid(x-1,y)
         if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
      endif
      if y>0
         value=grid(x,y-1)
         if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
      endif
      if x<gridwidth
         value=grid(x+1,y)
         if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
      endif
      if y<gridheight
         value=grid(x,y+1)
         if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
      endif
      if otherpoints>0
         o#=otherpoints
         t#=totalofothers
         average#=t#/o#
      else
         average#=startvalue
      endif
            gridvalue=average#+(rnd(variation)-(variation/2))
      if gridvalue<minvalue then gridvalue=minvalue
      if gridvalue>maxvalue then gridvalue=maxvalue
      if gridvalue<minvalue then gridvalue=minvalue
      if gridvalue>maxvalue then gridvalue=maxvalue
      ink rgb(255,255,255),0
      grid(x,y)=gridvalue
      gv#=gridvalue
      rg#=gv#/100*90
      ink rgb(rg#+20,rg#+20,gridvalue+20),0
      dot x,y
 next y
next x
for x=480 to 600
 for y=100 to 200
            otherpoints=0
      totalofothers=0
      if x>0
         value=grid(x-1,y)
         if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
      endif
      if y>0
         value=grid(x,y-1)
         if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
      endif
      if x<gridwidth
         value=grid(x+1,y)
         if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
      endif
      if y<gridheight
         value=grid(x,y+1)
         if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
      endif
      if otherpoints>0
         o#=otherpoints
         t#=totalofothers
         average#=t#/o#
      else
         average#=startvalue
      endif
            gridvalue=average#+(rnd(variation)-(variation/2))
      if gridvalue<minvalue then gridvalue=minvalue
      if gridvalue>maxvalue then gridvalue=maxvalue
      if gridvalue<minvalue then gridvalue=minvalue
      if gridvalue>maxvalue then gridvalue=maxvalue
      ink rgb(255,255,255),0
      grid(x,y)=gridvalue
      gv#=gridvalue
      rg#=gv#/100*90
      ink rgb(rg#+20,rg#+20,gridvalue+20),0
      dot x,y
 next y
next x



for x=520 to 580
 for y=430 to 460
            otherpoints=0
      totalofothers=0
      if x>0
         value=grid(x-1,y)
         if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
      endif
      if y>0
         value=grid(x,y-1)
         if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
      endif
      if x<gridwidth
         value=grid(x+1,y)
         if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
      endif
      if y<gridheight
         value=grid(x,y+1)
         if value<>startvalue then otherpoints=otherpoints+1 : totalofothers=totalofothers+value
      endif
      if otherpoints>0
         o#=otherpoints
         t#=totalofothers
         average#=t#/o#
      else
         average#=startvalue
      endif
            gridvalue=average#+(rnd(variation)-(variation/2))
      if gridvalue<minvalue then gridvalue=minvalue
      if gridvalue>maxvalue then gridvalue=maxvalue
      if gridvalue<minvalue then gridvalue=minvalue
      if gridvalue>maxvalue then gridvalue=maxvalue
      ink rgb(255,255,255),0
      grid(x,y)=gridvalue
      gv#=gridvalue
      rg#=gv#/100*90
      ink rgb(rg#+20,rg#+20,gridvalue+20),0
      dot x,y
 next y
next x

get image 1,0,0,screen width(),screen height()

save image "DNGIngameGUI.bmp",1

REM Usage
REM FileIO(0) = Displays as "Opening"
REM FileIO(1) = Displays as "Saving"
REM FileIO(2) = Displays as "Opening" but only use the Arrow keys
				REM as this mode is used during the game.

FileName$ = FileIO(0)

print FileName$
	REM You can then call your Loading sub and use the filename$
	REM Note: If you press cancel/close on the window the filename$ = ""	
end

REM File Input Opuput Function >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Function FileIO(FileMode)
	sync on
	esc = 0
		REM First sets up the window and get file names.
	gosub SetupFile
		REM Mode 2 is Game mode. Using only keyboard no mouse.
	if FileMode = 2 
		keySelect = 1
		KeyR = 1
		hide mouse
		FileSelect$ = file$(KeySelect-1)
		else
		keySelect = 0
		show mouse
	endif
	REM FileIO Loop
	do
			REM Mouse Input
		if FileMode < 2
			mx = mousex()
			my = mousey()
			mc = mouseclick()
			if mc =0 then KeyM = 0
		endif
		if FileMode < 2 then sprite 1,mx,my,101+mp
			REM Sub
		gosub UpdateFile
			REM Update the Screen
		bitmap = current bitmap()
		if bitmap > 0 then copy bitmap bitmap,0
		sync
			REM Exits this sub when variable esc is flaged.
				REM Also Change Directory back to Original path
		if esc = 1 then cd FilePath$: goto FileEsc
	loop

	SetupFile:
		REM Setting up the File Scanner Window.
			REM This searches for a usable Image number to store Images.
		dim FileImage(5)
		FileZ = 0
		for lpy = 0 to 5
			FileImage(lpy) = 0
			repeat
			FileZ = FileZ + 1
					if image exist(FileZ) = 0 then FileImage(lpy) = FileZ
			until FileImage(lpy) > 0
		next lpy
				REM Stores the background to FileImageBG.
		get image FileImage(0),0,0,screen width(),screen height()
		REM This section Loads up the Folder/File/FolderUP images.
			REM Images are stored into FileImage(3,4 and 5)
		cls 0
		x = 63:y = 1
		ink rgb(10,10,10),0:box 3+x,y,14+x,12+y
		ink rgb(255,255,255),0:box 3+x+1,y+1,14+x-1,12+y-1
		ink rgb(10,10,10),0:box 3+x+2,y+3,14+x-2,y+3
		box 3+x+2,y+5,14+x-2,y+5:box 3+x+2,y+7,14+x-2,y+7
		box 3+x+2,y+9,14+x-2,y+9
		x = 95:y = 1
		ink rgb(10,10,10),0:box x+1,y+2,x+14,y+12
		box x+1,y,x+5,y+2:ink rgb(155,155,0),0
		box x+2,y+3,x+13,y+11:box x+2,y+1,x+4,y+2
		ink rgb(10,10,10),0:box x+5,y+4,x+18,y+6
		box x+4,y+7,x+17,y+9:box x+3,y+10,x+16,y+12
		ink rgb(155,155,0),0:box x+6,y+5,x+17,y+6
		box x+5,y+7,x+16,y+9:box x+4,y+10,x+15,y+11
		x = 95+32:y = 1
		ink rgb(10,10,10),0:box x+1,y+2,x+14,y+12
		box x+1,y,x+5,y+2:ink rgb(155,155,0),0
		box x+2,y+3,x+13,y+11:box x+2,y+1,x+4,y+2
		ink rgb(10,10,10),0:box x+5,y+4,x+18,y+6
		box x+4,y+7,x+17,y+9:box x+3,y+10,x+16,y+12
		ink rgb(155,155,0),0:box x+6,y+5,x+17,y+6
		box x+5,y+7,x+16,y+9:box x+4,y+10,x+15,y+11
		ink rgb(10,10,10),0:dot x+13,y
		box x+13-1,y+1,x+13+1,y+1:box x+13-2,y+2,x+13+2,y+2
		box x+13-3,y+3,x+13+3,y+3:box x+13-1,y+4,x+13+1,y+10
		ink rgb(0,255,0),0:dot x+13,y+1
		box x+13-1,y+2,x+13+1,y+2:box x+13-2,y+3,x+13+2,y+3
		box x+13,y+4,x+13,y+9
				REM Grabing the images
		for lpx = 2 to 4
			get image FileImage(lpx+1),lpx*32,0,lpx*32+32,32,1
		next lpx
			REM Setting the default xy for the window cause it can be moved around.
		fileX = screen width()*.2
		fileY = screen height()*.2
			REM Setting path to /Maps and saving as String to print on screen.
		cls 0
		FilePath$ = get dir$()
		FileDir$ = ""
		FileSelect$ = ""
			REM Make folder "Maps" if it dont exist.
		if path exist(FilePath$+"/Maps") = 0 then make directory "Maps"
			REM Changing Directory to "/Maps". Changes back when exits Main Loop.
		cd FilePath$+"/Maps"
		FileDir$ = left$(FilePath$,1)+":/.../"+"Maps"
			REM Search for Files.
		dim file$(100)
		dim fileType(100)
		file = 0
				REM Search 2 times first for folders then second for files.
		for lp = 1 to 0 step -1
			find first
			repeat
				if get file type() = lp
					i$ = get file name$()
					if left$(i$,1) <> "."
						file$(file) = get file name$()
						fileType(file) = lp
						file = file + 1
					endif
				endif
				find next
			until get file type() = -1
		next lp
	REM File Arrangement -------------------------------------------------
		repeat
			order = 0
			for lp = 1 to file-1
				if len(file$(lp)) > len(file$(lp-1))
					length = len(file$(lp))
					else
					length = len(file$(lp-1))
				endif
				lpx=0				
				for lp2 = 1 to length-4
					file1 = asc(mid$(file$(lp),lp2))
					file2 = asc(mid$(file$(lp-1),lp2))
					if file1 > 47 & file1 < 58 & file2 > 47 & file2 < 58
						i$ = ""
						lp3 = lp2
						repeat
							g$=mid$(file$(lp),lp3)
							if asc(g$) >47 & asc(g$) < 58
								i$ = i$ + g$
								else
								g$ =""
							endif
							lp3=lp3+1
						until g$=""
						file1 = val(i$)
						i$ = ""
						lp3 = lp2
						repeat
							g$=mid$(file$(lp-1),lp3)
							if asc(g$) >47 & asc(g$) < 58
								i$ = i$ + g$
								else
								g$ =""
							endif
							lp3=lp3+1
						until g$=""
						file2 = val(i$)
					endif
					if file1 = file2 & lpx = 0 then lpx = 0
					if file1 < file2 & lpx = 0 then lpx = 1
					if file1 > file2 & lpx = 0 then lpx = 2
				next lp2

				if lpx = 1
					filebuffer$=file$(lp-1)
					file$(lp-1)=file$(lp)
					file$(lp)=filebuffer$
					filebuffer$ = ""
					order = 1
				endif
			next lp
		until order = 0
	REM End File Arrangement ------------------------------------------

		c0 = rgb(10,10,10)
		c1	= rgb(255,255,255)
		c2 = rgb(70,70,70)
		REM Drawing the Window.
			REM OutLine Black Box.
		ink c0,0:box 0,0,384,288
			REM Light Blue near top.
		ink rgb(180,190,200),0:box 1,1,383,288-1
			REM Dark Blue.
		ink rgb(120,130,150),0:box 2,2,384-1,288-1
			REM Print Text OPEN FILE on Dark Blue.
		set cursor 3,2:ink c1,0
		if FileMode = 0 or FileMode = 2 then print "Opening File" else print "Saving File"
			REM Black Inside.
		ink c0,0:box 3,19,384-2,14*16+5
			REM Directory/Path Box.
		ink 16777215,0:box 4,1*16+4,384-3,2*16+4
		set cursor 4,1*16+4:ink c0,0:print FileDir$
		paste image FileImage(5),384-20,1*16+4,1
			REM Selected File name Box.
		ink c0,0:box 4*16+3,15*16-1,19*16-2,16*16+1
		ink 16777215,0:box 4*16+4,15*16,19*16-3,16*16
		set cursor 3,15*16:ink 16777215,0:print "File Name:"
			REM List Box.
		ink 0,0:box 4,2*16+6,380-16,14*16+4
		if FileMode < 2
				REM Grey OPEN/SAVE button.
			ink c0,0:box 20*16+3-5 ,15*16-1,24*16-5 ,16*16+1
			ink rgb(150,150,150),0:box 20*16+4-5 ,15*16,24*16-6 ,16*16
			set cursor 21*16-1,15*16:ink c0,0
			if FileMode = 0 or FileMode = 2 then print "Open" else print "Save"
				REM Grey CLOSE/CANCEL button.
			ink c0,0:box 20*16-2,16*16+7,24*16-5,17*16+8
			ink rgb(150,150,150),0:box 20*16-1,16*16+8,(24*16)-6,17*16+7
			set cursor 21*16-3,16*16+7:ink c0,0
			if FileMode = 0 or FileMode = 2 then print "Close" else print "Cancel"
		endif
			REM Saving the File Scanner Window skin into Image 13.
		get image FileImage(1),0,0,385,289,1
		cls 0
		REM Calculations for the Slider.
			REM The slider height is (PixelHeight/100) * ((WinHeight/FileNum)*100)
		if file < 12 then fpy = 100 else fpY = (12/abs(file)*100)
		fSliderY = ((12*16-1)/abs(100)) * fpY
	Return

	UpdateFile:
		REM File Selection list Clicked.
		if mc = 1 & KeyM = 0 & CheckArea(fileX+2,fileY+37,fileX+378-13,fileY+14*16+5) = 1
			if (my+fileScrY-fileY-7)/16-2 > 0 & (my+fileScrY-fileY-7)/16-2 < file+fileY/16
				FileSelect$ = file$((my+fileScrY-fileY-7)/16-2)
				KeyM=1
			endif
		endif
		REM Mode 2, Return key is pressed.
		if FileMode = 2 & returnkey() = 1
			if KeyR = 0
				FileSelect$ = FilePath$+"/Maps/"+FileSelect$
				esc = 1:KeyM=1:KeyR = 1:return
			endif
			KeyR = 1
			else
			KeyR = 0
		endif
		REM Open/Save button Clicked
		if mc = 1 & KeyM = 0 & CheckArea(fileX+20*16-2,fileY+15*16-1,fileX+24*16-5,fileY+16*16+1) = 1
				REM FileMode = 0 is to Open.
			if FileMode = 0
				if Len(FileSelect$) > 0
					if file exist(FileSelect$)
						FileSelect$ = FilePath$+"/Maps/"+FileSelect$
							REM Flaging the esc variable will exit File Scanner.
						esc = 1:KeyM=1:return
					endif
				endif
			endif
				REM FileMode = 1 is to Save.
			if FileMode = 1
				if Len(FileSelect$) > 0
					FileSelect$ = FilePath$+"/Maps/"+FileSelect$
						REM Flaging the esc variable will exit File Scanner.
					esc = 1:KeyM=1:return
				endif
			endif
		endif
		REM Close/Cancel button Clicked.
		if mc = 1 & KeyM = 0 & CheckArea(fileX+20*16-2,fileY+16*16+7,fileX+24*16-5,fileY+17*16+8) = 1
				REM Flaging the esc variable will exit File Scanner.
			esc = 1 : FileSelect$="":KeyM=1:return
		endif
		REM Slider Clicked
			REM Math is not really my subject, to hard to explain this.
		if mc = 1 & KeyM = 0 & file > 12 or mc = 1 & KeyM = 5
			y = (fileScrY/abs(16)) * (16/abs(100)) * fpY
			if CheckArea(fileX+367,fileY+y+2*16+7,fileX+380,fileY+y+2*16+6+fSliderY) = 1 or KeyM = 5
				if KeyM = 0
					mx2 = mx
					my2 = my
					scrX2 = filescrX
					scrY2 = filescrY
					KeyM = 5
				endif
				fileScrY = scrY2+(my-my2)*(file/abs(12))
			endif
		endif

		REM Arrow Keys pressed to Scroll up down.
		if upkey() = 1
			if FileMode = 2 
				if KeyU = 0 & keySelect > 1
					if KeySelect < (filescrY/16)+2 then fileScrY = fileScrY - 16
					keySelect = KeySelect - 1
					FileSelect$ = file$(KeySelect-1)
					KeyC = 0
				endif	
			endif
			if FileMode < 2 & file > 12 
				fileScrY = fileScrY - 1
			endif
			KeyU = 1
			KeyC = KeyC + 1
			if KeyC > 10 then KeyU = 0
			else
			KeyU = 0
		endif
		if downkey() = 1
			if FileMode = 2
				if KeyD = 0 & keySelect < file
					if KeySelect > (filescrY/16)+11 then fileScrY = fileScrY + 16
					keySelect = KeySelect + 1
					FileSelect$ = file$(KeySelect-1)
					KeyC = 0
				endif
			endif
			if FileMode < 2 & file > 12 
				fileScrY = fileScrY + 1
			endif
			KeyD = 1
			KeyC = KeyC + 1
			if KeyC > 10 then KeyD = 0
			else
			KeyD = 0
		endif
			REM Checks if Slider is up too far or down too low.
		if fileScrY < 0 then fileScrY = 0
		if fileScrY > (file-12)*16 & file > 11 then fileScrY = (file-12)*16

		REM Moving the File Scanner Window
			REM Checks if it's the first click or already clicked.
		if mc = 1 & KeyM = 0 or mc = 1 & KeyM = 6
				REM Checks if click is in Top Blue "Open/Save file" box
			if CheckArea(fileX,fileY,fileX+384,fileY+16) = 1 or KeyM = 6
					REM First Time Click will store old xy of Window.
				if KeyM = 0
					mx2 = mx-fileX
					my2 = my-fileY
					KeyM = 6
						REM Also store the Current Window as Image 8.
					get image FileImage(2),fileX,fileY,fileX+384,fileY+288
				endif
					REM CurrentXY = MouseXY - OldXY
				fileX = mx-mx2
				fileY = my-my2
					REM Checks for out of bounce.
				if fileX < 0 then fileX = 0
				if fileX > 640-384 then fileX = 640-384
				if fileY < 0 then fileY = 0
				if fileY > 480-288 then fileY = 480-288
					REM Restore the Background.
				paste image FileImage(0),0,0
					REM Restore the Window in new position.
						REM This is faster than re-drawing the whole thing again.
				paste image FileImage(2),fileX,fileY
			endif
		endif
		REM Input keys from Typing.
			REM Function Typing(String$,MaxLimit,Mode).
		g$ = Typing(FileSelect$,0,0)
			REM Flags the UpdateFileRefresh if Keyboard typing.
		if g$ <> FileSelect$ then FileSelect$ = g$
		REM Draws the Background
		paste image FileImage(0),0,0
		REM Draws the File Manager Window.
			REM Draw the File List or contents.
			y = fileScrY-fileScrY/16*16
		for lp = 0 to 12
				REM Checks lp for out of bounce. Has to be lower than files scaned.
			if file > 0 & lp < file+1
					REM Blue or White color select
				if file$(lp+(fileScrY/16)) = FileSelect$ then ufcolor=1 else ufcolor=0
				if ufcolor = 1 then ink 25855,0 else ink 16777215,0
				box fileX+4,fileY+lp*16+32+6-y,fileX+378-14,fileY+16+lp*16+32+6-y
				if ufcolor = 1 then ink 16777215,0 else ink 0,0
					REM Draw Box
				paste image FileImage(3+filetype(lp+(fileScrY/16))),fileX+7,fileY+lp*16+32+6-y,1
					REM File Name
				set cursor fileX+10+16,fileY+lp*16+32+6-y
				print file$(lp+(fileScrY/16))
					REM File Size
				if filetype(lp + (fileScrY/16)) = 0
					size = file size(file$(lp + fileScrY/16 ))
					if size/1000 = 0 
						filesize$ = str$(size)
						s$=" Bytes"
						else
						filesize$ = str$(size/1000)
						s$=" KB"
					endif
					set cursor fileX+326-len(filesize$)*7,fileY+lp*16+32+6-y
					print filesize$+s$
				endif
			 else
					REM While doing lp check, draw an empty white box if no files.
				ink 16777215,0
				box fileX+4,fileY+lp*16+16+6,fileX+378-14,fileY+lp*16+32+6
			endif
		next fY
		REM Draw the window skin.
		paste image FileImage(1),fileX,fileY,1
		REM Draws the Slider
		y = (fileScrY/abs(16)) * (16/abs(100)) * fpY
		ink 8224125,0:box fileX+366,fileY+2*16+6,fileX+381,fileY+14*16+4
		ink c2,0:box fileX+367,fileY+y+2*16+7,fileX+380,fileY+y+2*16+4+fSliderY
		REM Prints the Selected or Typed Filename onto the Filename box.
		ink 16777215,0:box fileX+4*16+4,fileY+15*16,fileX+19*16-3,fileY+16*16
		ink 0,0:set cursor fileX+4*16+6,fileY+15*16:print FileSelect$+Blinker()
	return

	FileEsc:
		REM Clearing Unused.
		for lpy = 0 to 5
			if image exist(FileImage(lpy)) then delete image FileImage(lpy)
		next lpy
		undim FileImage(5)
EndFunction FileSelect$

Function Typing(TypingMod$,TypingL,TypingMode)
	REM Inputs Keys from Keyboard to modify String$
		REM Typing Limit, Zero will make it unlimited suposively.
	if TypingL = 0 Then TypingL = 1000
		REM Typing Input.
	TypingI$ = inkey$()
		REM Reset TypingG$ if there's no input.
	if TypingI$ = "" then TypingG$ = ""
		REM Reset keyTyping if BackSpace is not pressed.
	if asc(TypingI$) <> 8 then KeyTyping = 0
		REM BackSpace is Pressed. Erase one off of TypingMod$.
	if asc(TypingI$) = 8
			REM If first time pressing BackSpace
		if KeyTyping = 0
				REM Resets the TypingCounter used to time the key repeat.
			TypingC = 0
				REM Checks if String$ has anything.
			if len(TypingMod$) > 0
					REM Erase the last letter in TypingMod$.
				TypingMod$ = left$(TypingMod$,len(TypingMod$)-1)		
			endif
		endif
			REM Flag this variable to not alow TypingMod$ erase.
		KeyTyping = 1
			REM Clear the input so it's not added to TypingG$
		TypingI$=""
			REM Handle the repeat of BackSpace
		inc TypingC,1
		if TypingC > 6 then KeyTyping = 0
	endif
	REM Setting up variable for checks. 
	z = asc(TypingI$)
		REM If anything other Numbers are pressed the clear TypingI$
	if TypingMode = 1 & z > 57 or TypingMode = 1 & z < 48 then TypingI$=""
		REM If anything other Numbers + Leters are pressed the clear TypingI$
	if TypingMode = 0 & z > 127 or TypingMode = 0 & z < 32 then TypingI$=""
		REM Checks if new/old Input are different and TypingMod$ is in Limit.
	if TypingG$ <> TypingI$ & len(TypingMod$) < TypingL then TypingMod$=TypingMod$+TypingI$
		REM Stores the last Input. Used for checking key repeat.
	TypingG$ = TypingI$
EndFunction	TypingMod$
REM File Input Opuput Function <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Function Blinker()
	Blink = Blink + 1
	if Blink > 3
		Blink = 0
		if Blinker$ = "" then Blinker$ = "|" else Blinker$ = ""
	endif
EndFunction Blinker$

Function CheckArea(x1,y1,x2,y2)
	retval = 0
	if mousex() > x1 & mousex() < x2 & mousey() > y1 & mousey() < y2 then retval = 1
EndFunction retval

set display mode 640,480,32
sync on
sync rate 0
cls 0

	REM It's faster to draw to bitmap 1 then copy over to bitmap 0 befor sync.
create bitmap 1,640,480

do
	cls 0

	Check = menu(200,200,100,5,"Play Game,Map Editor,Test3,Test4,Test5")

	if Check = 1 then text 0,0,"Play Game was selected"
	if Check = 2 then text 0,0,"Map Editor was selected"
	if Check = 3 then text 0,0,"Test3 selected"
	if Check = 4 then text 0,0,"Test4 selected"
	if Check = 5 then text 0,0,"Test5 selected"

	copy bitmap 1,0
	sync
loop


REM ------------------------------------------------------------------------
REM Functions Section

	REM Menus
Function Menu(x,y,length,rows,Menu$)
	dim MenuList$(rows-1)
	retval = 0
	z = 0

	for lp = 0 to rows-1
		g$ = ""
		i$ = ""
		repeat
			z = z + 1
			g$ = mid$(Menu$,z)
			if g$ <> "," then i$ = i$ + g$
		until g$ = "," or z > len(Menu$)
		MenuList$(lp) = i$
	next lp
	
	repeat

		keys = Keys(1)
		if keys = 1 then pointerY = pointerY - 1
		if keys = 4 then pointerY = pointerY + 1

		if pointerY < 0 then PointerY = rows-1
		if pointerY > rows-1 then PointerY = 0


		for lp = 0 to rows-1
			MenuBox(x,y+lp*32,length)
			ink rgb(0,0,0),0 : center text x+length/2,y+lp*32+7,MenuList$(lp)
			check = CheckArea(x,y+lp*32,x+length+2,y+lp*32+28+2)
			if check = 1 then pointerY = lp
		next lp

		pointer(x+PointerX,y+PointerY*32)

		copy bitmap 1,0
		sync

	until returnkey() = 1 or mouseclick() = 1

	retval = pointerY+1
EndFunction retval

	REM Pointer
Function Pointer(x,y)
	ink rgb(0,0,255),0
	box x,y,x+10,y+10
endFunction

	REM Menu Box
Function MenuBox(x,y,length)
	ink rgb(10,10,10),0 : box x-2,y-2,x+length+2,y+28+2
	ink rgb(230,230,230),0 : box x-1,y-1,x+length+1,y+28+1
	ink rgb(180,180,180),0 : box x,y,x+length,y+28
EndFunction

	REM Screen Fades
Function ScreenFade(Speed)
		for lpx = 255 to 0 step Speed
			set gamma lpx,lpx,lpx
			copy bitmap 1,0
			sync
		next lpx	
		cls 0
		set gamma 255,255,255
EndFunction

	REM Check Area
Function CheckArea(x1,y1,x2,y2)
	retval = 0
	mx = mousex()
	my = mousey()
	mc = mouseclick()
	if mx > x1 & mx < x2 & my > y1 & my < y2 & mc =1 then retval = 1
EndFunction retval

	REM Mode0 = normal, Mode1 = once per press.
Function Keys(mode)
	retval = 0
	if leftkey() = 1
		if mode = 0 then retval = 2
		if mode = 1 & KeyL = 0 then retval = 2
		KeyL = 1
		else 
		KeyL = 0
	endif
	if rightkey() = 1
		if mode = 0 then retval = 3
		if mode = 1 & KeyR = 0 then retval = 3
		KeyR = 1
		else 
		KeyR = 0
	endif	
	if upkey() = 1
		if mode = 0 then retval = 1
		if mode = 1 & KeyU = 0 then retval = 1
		KeyU = 1
		else 
		KeyU = 0
	endif	
	if downkey() = 1
		if mode = 0 then retval = 4
		if mode = 1 & KeyD = 0 then retval = 4
		KeyD = 1
		else 
		KeyD = 0
	endif
EndFunction retval

hide mouse
load image "cartoon_tree1.jpg",1
set text font "Arial"
sync on
set text opaque
for r=1 to 25 step 1
ink rgb(200,200,r*4),0
circle 320,240,r
ink rgb(0,100,200),0
set text size r
center text 320,240,"DarkNOOB Games"
if scancode()>0 or mouseclick() then gosub play
sync
next r
for waittime=1 to 100000
if scancode()>0 or mouseclick() then gosub play

next waittime
repeat
dec r,1
ink rgb(200,200,r*4),0
circle 320,240,r
ink rgb(0,100,200),0
set text size r
center text 320,240,"DarkNOOB Games"
if scancode()>0 or mouseclick() then gosub play
sync


until r=1
sprite 1,200,240,1
scale sprite 1,20
sprite 2,400,240,1
mirror sprite 2
scale sprite 2,21
ink rgb(100,100,100),0
set text size 32
set text transparent
set text to bold
text 288,240,"D"
set text size 37
text 308,240,"N"
set text size 32
text 328,240,"G"
sync
fade=255
repeat
dec fade,2
set gamma fade,fade,fade
if scancode()>0 or mouseclick() then gosub play
until fade=3
set gamma 1,1,1
cls
sync
play:
cls
set gamma 255,255,255
if sprite exist(1)=1 then delete sprite 1
if sprite exist(2)=1 then delete sprite 2
if image exist(1) then delete image 1
set text font "System"
set text to normal

set display mode 640,480,32
sync on
sync rate 0
cls 0

	REM It's faster to draw to bitmap 1 then copy over to bitmap 0 befor sync.
create bitmap 1,640,480

	REM Setting the first state we go to.
State = 0

do
	cls 0
	if State = 0 then gosub State0
	if State = 1 then gosub State1
	copy bitmap 1,0
	sync
loop

	REM This is the introduction and loads up media.
State0:
	if Check0 = 0
		Check0 = 1
		set text font "Impact"
		set text size 100
		ink rgb(100,100,100),0 : center text 320,100,"DarkNOOB"
		ink rgb(155,0,0),0 : center text 320,240,"Games"
		copy bitmap 1,0
		sync
		wait 200
		set text font "System"
		set text size 10
			REM Loads up the media here.

		dim map(100,100,10)

		for z = 0 to 2
			load image str$(z)+".png",z+1,1
			paste image z+1,0,0
			c=-1
			for y = 0 to 9
			for x = 0 to 9
				c=c+1
				get image (z+1)*100+c,x*32,y*32,x*32+32,y*32+32,1
			next x
			next y
		next z
	endif

	Check = menu(260,200,100,"Play Game,Map Editor",1)
	if Check = 1 then text 0,0,"Play Game was selected"
	if Check = 2 then State = 1
return

	REM Map Editor
State1:
	if Check1 = 0
		Check1 = 1
		mapX = 10
		mapY = 10
		for z = 0 to 0
		for y = 0 to mapY-1
		for x = 0 to mapX-1
			map(x,y,z)=100+rnd(10)
		next x
		next y
		next z
		KeyM = 1
		sTile = 100
		Layer = 0
	endif

	for z = 0 to 2
	for y = 0 to 9
	for x = 0 to 9
		t = map(x,y,z)
		x1 = (x+4)*32
		y1 = (y+1)*32
		if t > 99 then paste image t,x1,y1,1
		Check = CheckArea(x1,y1,x1+32,y1+32)
		if Layer = z & Check = 1 & KeyM = 0 then map(x,y,z) = sTile
	next x
	next y
	next z

	c=-1
	for y = 0 to 1
	for x = 0 to 9
		c=c+1
		x1 = (x+4)*32
		y1 = (y+12)*32
		t = (Layer+1)*100+c
		if image exist(t) = 1 then paste image t,x1,y1
		Check = CheckArea(x1,y1,x1+32,y1+32)
		if Check = 1 & KeyM = 0 then sTile = t
		if sTile = t then ink rgb(155,0,0),0: box x1,y1,x1+5,y1+5
	next x
	next y

	Check = menu(0,0,80,"Open,Save,Exit",1)
	Check = menu(0,4*32,80,"Walkable,Non-walkable,NPC,Dialog,Zone",1)
	if Check > 0 then Layer = Check-1: sTile = (Layer+1)*100

	if mouseclick() = 0 then KeyM = 0
return







REM ------------------------------------------------------------------------
REM Functions Section

	REM Menus, Mode0 = Keys only, Mode1 = Mouse only
Function Menu(x,y,length,Menu$,Mode)
	dim MenuList$(10)
	retval = 0
	count = 0
	rows = 0
	PointerY = 0

	repeat	
		g$ = ""
		i$ = ""
		repeat
			count = count + 1
			g$ = mid$(Menu$,count)
			if g$ <> "," then i$ = i$ + g$
		until g$ = "," or count > len(Menu$)
		MenuList$(rows) = i$
		rows = rows + 1
	until count > len(Menu$)

	if mode = 0
		repeat
			keys = Keys(1)
			if keys = 1 then pointerY = pointerY - 1
			if keys = 4 then pointerY = pointerY + 1
			if pointerY < 0 then PointerY = rows-1
			if pointerY > rows-1 then PointerY = 0
			for lp = 0 to rows-1
				MenuBox(x,y+lp*32,length)
				ink rgb(0,0,0),0 : center text x+length/2,y+lp*32+7,MenuList$(lp)
			next lp
			pointer(x+PointerX,y+PointerY*32)
			copy bitmap 1,0
			sync
		until returnkey() = 1
		retval = PointerY+1
	endif

	if mode = 1
		for lp = 0 to rows-1
			MenuBox(x,y+lp*32,length)
			ink rgb(0,0,0),0 : center text x+length/2,y+lp*32+7,MenuList$(lp)
			check = CheckArea(x,y+lp*32,x+length+2,y+lp*32+28+2)
			if check = 1 then retval = lp+1
		next lp
	endif

EndFunction retval

	REM Pointer
Function Pointer(x,y)
	ink rgb(0,0,255),0
	box x,y,x+10,y+10
endFunction

	REM Menu Box
Function MenuBox(x,y,length)
	ink rgb(10,10,10),0 : box x-2,y-2,x+length+2,y+28+2
	ink rgb(230,230,230),0 : box x-1,y-1,x+length+1,y+28+1
	ink rgb(180,180,180),0 : box x,y,x+length,y+28
EndFunction

	REM Check Area
Function CheckArea(x1,y1,x2,y2)
	retval = 0
	mx = mousex()
	my = mousey()
	mc = mouseclick()
	if mx > x1-1 & mx < x2+1 & my-1 > y1 & my+1 < y2 & mc = 1 then retval = 1
EndFunction retval

	REM Mode0 = normal, Mode1 = once per press.
Function Keys(mode)
	retval = 0
	if leftkey() = 1
		if mode = 0 then retval = 2
		if mode = 1 & KeyL = 0 then retval = 2
		KeyL = 1
		else 
		KeyL = 0
	endif
	if rightkey() = 1
		if mode = 0 then retval = 3
		if mode = 1 & KeyR = 0 then retval = 3
		KeyR = 1
		else 
		KeyR = 0
	endif	
	if upkey() = 1
		if mode = 0 then retval = 1
		if mode = 1 & KeyU = 0 then retval = 1
		KeyU = 1
		else 
		KeyU = 0
	endif	
	if downkey() = 1
		if mode = 0 then retval = 4
		if mode = 1 & KeyD = 0 then retval = 4
		KeyD = 1
		else 
		KeyD = 0
	endif
EndFunction retval