(change 30 to number of monsters you want)

To create the arrays:
-----
Dim monster_names$(30), monster_hits(30), monster_level(30)
-----

To add a monster: (replace # with the monsters number)
-----
monster_names$(#) = "a bright figure"
monster_hits(#) = 500
monster_level(#) = 10
-----

To modify it:
-----
if playerhitmonster = 1 then
	monster_hits(#) = monster_hits(#) - 5
end if
-----

Example on getting information on a monster.
-----
PRINT "You encounter a "; monster_names$(#); "."
if playerHP > $monster_hits(#) then
	PRINT "You currently have more HP than the monster."
end if
-----