#Include("Groups.prg")
#Include ("Create.prg")
#Include("RanMin.prg")
#Include("Redraw.prg")
#BorderColor(0,0,0)
#ColorRGB(255,255,255)

*  EC is the enemy ID
#EC!=0

*Find a group
#While(Constant[Const!]!=0)

{
      #Random(11, Const!)
}

*Which Group is it?
#Group! = Constant[Const!]!

*Program to load goes here
*For now we're just going to load the training board
#Send("TrainingRoom.brd", 13, 14, 1)


*Alright now we have the player

#Group(Group!)
*They need to be put down somewhere.. This is a temporary Solution

#While(Place! < EC!)
{
      #EnemyX[Place!]! = Place!+1
      #EnemyY[Place!]! = 1   
      #X!=EnemyX[Place!]!
      #Y!=EnemyY[Place!]!
      #ItmNum!=EnemyItm[Place!]!
      #Name$=EnemyName[Place!]$
      #PutItem(ItmNum!,X!,Y!,1)      
      #Place! = Place! + 1
}

#Select!=1
#MenuX!=PlayerX[0]!*33.7
#MenuY!=PlayerY[0]!-3*32
#CursorX!=MenuX!-20
#CursorY!=MenuY!+10
#SetImage("Menu.bmp",MenuX!,MenuY!,114,150)
#SaveScreen()
:Choose
#Redraw
#Wait(Cursor$)
#If Cursor$ = "DOWN"
{	
	#If Select! ~= 5
	{
		#CursorY!=CursorY!+25
		#Select!=Select!+1
		#Branch(:Choose)
	}
}
#If Cursor$="UP"
{
	#If Select! ~= 1
	{
		#CursorY!=CursorY!-25
		#Select!=Select!-1
		#Branch(:Choose)
	}
} 
#If Cursor$="ENTER"
{
	#If Select! = 1
	{
		#Run("Move.prg")
	}
}
#Branch(:Choose)

    Source: geocities.com/the_dark_hawk