pokered-arrays_diff.diff

diff --git a/constants.asm b/constants.asm
index 0b24ea0..58339bc 100644
--- a/constants.asm
+++ b/constants.asm
@@ -30,3 +30,8 @@ INCLUDE "constants/credits_constants.asm"
 INCLUDE "constants/music_constants.asm"
 INCLUDE "constants/tilesets.asm"
 INCLUDE "constants/starter_mons.asm"
+
+INCLUDE "constants/misc.asm"
+
+INCLUDE "constants/text/pokemon_names.asm"
+INCLUDE "constants/text/default_names.asm"
diff --git a/constants/misc.asm b/constants/misc.asm
new file mode 100644
index 0000000..81cb810
--- /dev/null
+++ b/constants/misc.asm
@@ -0,0 +1,56 @@
+TM_MOVES ARRAY [MEGA_PUNCH,
+    RAZOR_WIND,
+    SWORDS_DANCE,
+    WHIRLWIND,
+    MEGA_KICK,
+    TOXIC,
+    HORN_DRILL,
+    BODY_SLAM,
+    TAKE_DOWN,
+    DOUBLE_EDGE,
+    BUBBLEBEAM,
+    WATER_GUN,
+    ICE_BEAM,
+    BLIZZARD,
+    HYPER_BEAM,
+    PAY_DAY,
+    SUBMISSION,
+    COUNTER,
+    SEISMIC_TOSS,
+    RAGE,
+    MEGA_DRAIN,
+    SOLARBEAM,
+    DRAGON_RAGE,
+    THUNDERBOLT,
+    THUNDER,
+    EARTHQUAKE,
+    FISSURE,
+    DIG,
+    PSYCHIC_M,
+    TELEPORT,
+    MIMIC,
+    DOUBLE_TEAM,
+    REFLECT,
+    BIDE,
+    METRONOME,
+    SELFDESTRUCT,
+    EGG_BOMB,
+    FIRE_BLAST,
+    SWIFT,
+    SKULL_BASH,
+    SOFTBOILED,
+    DREAM_EATER,
+    SKY_ATTACK,
+    REST,
+    THUNDER_WAVE,
+    PSYWAVE,
+    EXPLOSION,
+    ROCK_SLIDE,
+    TRI_ATTACK,
+    SUBSTITUTE]
+
+HM_MOVES ARRAY [CUT,
+    FLY,
+    SURF,
+    STRENGTH,
+    FLASH]
diff --git a/constants/text/default_names.asm b/constants/text/default_names.asm
new file mode 100644
index 0000000..f9dfd5a
--- /dev/null
+++ b/constants/text/default_names.asm
@@ -0,0 +1,4 @@
+RED_NAMES     ARRAY ["RED", "ASH", "JACK"]
+BLUE_NAMES    ARRAY ["BLUE", "GARY", "JOHN"]
+YELLOW_NAMES  ARRAY ["YELLOW", "ASH", "JACK"]
+
diff --git a/constants/text/pokemon_names.asm b/constants/text/pokemon_names.asm
new file mode 100644
index 0000000..9cb8591
--- /dev/null
+++ b/constants/text/pokemon_names.asm
@@ -0,0 +1,193 @@
+POKEMON_NAMES  ARRAY [
+    "",
+	"RHYDON",
+	"KANGASKHAN",
+	"NIDORAN♂",
+	"CLEFAIRY",
+	"SPEAROW",
+	"VOLTORB",
+	"NIDOKING",
+	"SLOWBRO",
+	"IVYSAUR",
+	"EXEGGUTOR",
+	"LICKITUNG",
+	"EXEGGCUTE",
+	"GRIMER",
+	"GENGAR",
+	"NIDORAN♀",
+	"NIDOQUEEN",
+	"CUBONE",
+	"RHYHORN",
+	"LAPRAS",
+	"ARCANINE",
+	"MEW",
+	"GYARADOS",
+	"SHELLDER",
+	"TENTACOOL",
+	"GASTLY",
+	"SCYTHER",
+	"STARYU",
+	"BLASTOISE",
+	"PINSIR",
+	"TANGELA",
+	"MISSINGNO.",
+	"MISSINGNO.",
+	"GROWLITHE",
+	"ONIX",
+	"FEAROW",
+	"PIDGEY",
+	"SLOWPOKE",
+	"KADABRA",
+	"GRAVELER",
+	"CHANSEY",
+	"MACHOKE",
+	"MR.MIME",
+	"HITMONLEE",
+	"HITMONCHAN",
+	"ARBOK",
+	"PARASECT",
+	"PSYDUCK",
+	"DROWZEE",
+	"GOLEM",
+	"MISSINGNO.",
+	"MAGMAR",
+	"MISSINGNO.",
+	"ELECTABUZZ",
+	"MAGNETON",
+	"KOFFING",
+	"MISSINGNO.",
+	"MANKEY",
+	"SEEL",
+	"DIGLETT",
+	"TAUROS",
+	"MISSINGNO.",
+	"MISSINGNO.",
+	"MISSINGNO.",
+	"FARFETCH'D",
+	"VENONAT",
+	"DRAGONITE",
+	"MISSINGNO.",
+	"MISSINGNO.",
+	"MISSINGNO.",
+	"DODUO",
+	"POLIWAG",
+	"JYNX",
+	"MOLTRES",
+	"ARTICUNO",
+	"ZAPDOS",
+	"DITTO",
+	"MEOWTH",
+	"KRABBY",
+	"MISSINGNO.",
+	"MISSINGNO.",
+	"MISSINGNO.",
+	"VULPIX",
+	"NINETALES",
+	"PIKACHU",
+	"RAICHU",
+	"MISSINGNO.",
+	"MISSINGNO.",
+	"DRATINI",
+	"DRAGONAIR",
+	"KABUTO",
+	"KABUTOPS",
+	"HORSEA",
+	"SEADRA",
+	"MISSINGNO.",
+	"MISSINGNO.",
+	"SANDSHREW",
+	"SANDSLASH",
+	"OMANYTE",
+	"OMASTAR",
+	"JIGGLYPUFF",
+	"WIGGLYTUFF",
+	"EEVEE",
+	"FLAREON",
+	"JOLTEON",
+	"VAPOREON",
+	"MACHOP",
+	"ZUBAT",
+	"EKANS",
+	"PARAS",
+	"POLIWHIRL",
+	"POLIWRATH",
+	"WEEDLE",
+	"KAKUNA",
+	"BEEDRILL",
+	"MISSINGNO.",
+	"DODRIO",
+	"PRIMEAPE",
+	"DUGTRIO",
+	"VENOMOTH",
+	"DEWGONG",
+	"MISSINGNO.",
+	"MISSINGNO.",
+	"CATERPIE",
+	"METAPOD",
+	"BUTTERFREE",
+	"MACHAMP",
+	"MISSINGNO.",
+	"GOLDUCK",
+	"HYPNO",
+	"GOLBAT",
+	"MEWTWO",
+	"SNORLAX",
+	"MAGIKARP",
+	"MISSINGNO.",
+	"MISSINGNO.",
+	"MUK",
+	"MISSINGNO.",
+	"KINGLER",
+	"CLOYSTER",
+	"MISSINGNO.",
+	"ELECTRODE",
+	"CLEFABLE",
+	"WEEZING",
+	"PERSIAN",
+	"MAROWAK",
+	"MISSINGNO.",
+	"HAUNTER",
+	"ABRA",
+	"ALAKAZAM",
+	"PIDGEOTTO",
+	"PIDGEOT",
+	"STARMIE",
+	"BULBASAUR",
+	"VENUSAUR",
+	"TENTACRUEL",
+	"MISSINGNO.",
+	"GOLDEEN",
+	"SEAKING",
+	"MISSINGNO.",
+	"MISSINGNO.",
+	"MISSINGNO.",
+	"MISSINGNO.",
+	"PONYTA",
+	"RAPIDASH",
+	"RATTATA",
+	"RATICATE",
+	"NIDORINO",
+	"NIDORINA",
+	"GEODUDE",
+	"PORYGON",
+	"AERODACTYL",
+	"MISSINGNO.",
+	"MAGNEMITE",
+	"MISSINGNO.",
+	"MISSINGNO.",
+	"CHARMANDER",
+	"SQUIRTLE",
+	"CHARMELEON",
+	"WARTORTLE",
+	"CHARIZARD",
+	"MISSINGNO.",
+	"MISSINGNO.",
+	"MISSINGNO.",
+	"MISSINGNO.",
+	"ODDISH",
+	"GLOOM",
+	"VILEPLUME",
+	"BELLSPROUT",
+	"WEEPINBELL",
+	"VICTREEBEL"
+]
diff --git a/data/baseStats/bulbasaur.asm b/data/baseStats/bulbasaur.asm
index 5bf8a18..ccf8a14 100755
--- a/data/baseStats/bulbasaur.asm
+++ b/data/baseStats/bulbasaur.asm
@@ -27,3 +27,45 @@ db %00000011
 db %00001000
 db %00000110
 db 0 ; padding
+
+base: MACRO
+    POKEMON_\1[curmon] SET \2
+ENDM
+
+basearray: MACRO
+    POKEMON_\1[curmon] ARRAY \2
+ENDM
+
+curmon = DEX_BULBASAUR
+
+base HP,         45
+base ATTACK,     49
+base DEFENSE,    49
+base SPEED,      45
+base SPECIAL,    65
+base TYPE1,      GRASS
+base TYPE2,      POISON
+base CATCHRATE,  45
+base EXPYIELD,   64
+basearray LV0MOVES, [TACKLE, GROWL]
+base LEARNSET0,  %10100100
+base LEARNSET1,  %00000011
+base LEARNSET2,  %00111000
+base LEARNSET3,  %11000000
+base LEARNSET4,  %00000011
+base LEARNSET5,  %00001000
+base LEARNSET6,  %00000110
+
+POKEMON_LEARNSETS[BULBASAUR] ARRAY [
+	7,  LEECH_SEED,
+	13, VINE_WHIP,
+	20, POISONPOWDER,
+	27, RAZOR_LEAF,
+	34, GROWTH,
+	41, SLEEP_POWDER,
+	48, SOLARBEAM,
+]
+
+POKEMON_EVOLUTIONS[BULBASAUR] ARRAY [
+    EV_LEVEL, 16, IVYSAUR
+]
diff --git a/data/tms.asm b/data/tms.asm
index 2363069..c1a67d4 100755
--- a/data/tms.asm
+++ b/data/tms.asm
@@ -1,56 +1,2 @@
 TechnicalMachines: ; 13773 (4:7773)
-	db MEGA_PUNCH
-	db RAZOR_WIND
-	db SWORDS_DANCE
-	db WHIRLWIND
-	db MEGA_KICK
-	db TOXIC
-	db HORN_DRILL
-	db BODY_SLAM
-	db TAKE_DOWN
-	db DOUBLE_EDGE
-	db BUBBLEBEAM
-	db WATER_GUN
-	db ICE_BEAM
-	db BLIZZARD
-	db HYPER_BEAM
-	db PAY_DAY
-	db SUBMISSION
-	db COUNTER
-	db SEISMIC_TOSS
-	db RAGE
-	db MEGA_DRAIN
-	db SOLARBEAM
-	db DRAGON_RAGE
-	db THUNDERBOLT
-	db THUNDER
-	db EARTHQUAKE
-	db FISSURE
-	db DIG
-	db PSYCHIC_M
-	db TELEPORT
-	db MIMIC
-	db DOUBLE_TEAM
-	db REFLECT
-	db BIDE
-	db METRONOME
-	db SELFDESTRUCT
-	db EGG_BOMB
-	db FIRE_BLAST
-	db SWIFT
-	db SKULL_BASH
-	db SOFTBOILED
-	db DREAM_EATER
-	db SKY_ATTACK
-	db REST
-	db THUNDER_WAVE
-	db PSYWAVE
-	db EXPLOSION
-	db ROCK_SLIDE
-	db TRI_ATTACK
-	db SUBSTITUTE
-	db CUT
-	db FLY
-	db SURF
-	db STRENGTH
-	db FLASH
+	db *TM_MOVES, *HM_MOVES
diff --git a/engine/menu/bills_pc.asm b/engine/menu/bills_pc.asm
index d491cd3..0abad16 100644
--- a/engine/menu/bills_pc.asm
+++ b/engine/menu/bills_pc.asm
@@ -383,12 +383,7 @@ KnowsHMMove:: ; 2171b (8:571b)
 	ret
 
 HMMoveArray: ; 21745 (8:5745)
-	db CUT
-	db FLY
-	db SURF
-	db STRENGTH
-	db FLASH
-	db -1
+	db *HM_MOVES, -1
 
 DisplayDepositWithdrawMenu: ; 2174b (8:574b)
 	coord hl, 9, 10
diff --git a/engine/oak_speech2.asm b/engine/oak_speech2.asm
index bdc4d38..d113b43 100755
--- a/engine/oak_speech2.asm
+++ b/engine/oak_speech2.asm
@@ -190,48 +190,48 @@ DisplayIntroNameTextBox: ; 6a6c (1:6a6c)
 IF DEF(_RED)
 DefaultNamesPlayer: ; 6aa8 (1:6aa8)
 	db   "NEW NAME"
-	next "RED"
-	next "ASH"
-	next "JACK"
+	next *RED_NAMES[0]
+	next *RED_NAMES[1]
+	next *RED_NAMES[2]
 	db   "@"
 
 DefaultNamesRival: ; 6abe (1:6abe)
 	db   "NEW NAME"
-	next "BLUE"
-	next "GARY"
-	next "JOHN"
+	next *BLUE_NAMES[0]
+	next *BLUE_NAMES[1]
+	next *BLUE_NAMES[2]
 	db   "@"
 ENDC
 
 IF DEF(_BLUE)
 DefaultNamesPlayer: ; 6aa8 (1:6aa8)
 	db   "NEW NAME"
-	next "BLUE"
-	next "GARY"
-	next "JOHN"
+	next *BLUE_NAMES[0]
+	next *BLUE_NAMES[1]
+	next *BLUE_NAMES[2]
 	db   "@"
 
 DefaultNamesRival: ; 6abe (1:6abe)
 	db   "NEW NAME"
-	next "RED"
-	next "ASH"
-	next "JACK"
+	next *RED_NAMES[0]
+	next *RED_NAMES[1]
+	next *RED_NAMES[2]
 	db   "@"
 ENDC
 
 IF DEF(_YELLOW)
 DefaultNamesPlayer:
 	db   "NEW NAME"
-	next "YELLOW"
-	next "ASH"
-	next "JACK"
+	next *YELLOW_NAMES[0]
+	next *YELLOW_NAMES[1]
+	next *YELLOW_NAMES[2]
 	db   "@"
 
 DefaultNamesRival:
 	db   "NEW NAME"
-	next "BLUE"
-	next "GARY"
-	next "JOHN"
+	next *BLUE_NAMES[0]
+	next *BLUE_NAMES[1]
+	next *BLUE_NAMES[2]
 	db   "@"
 ENDC
 
@@ -261,21 +261,27 @@ GetDefaultName: ; 6ad6 (1:6ad6)
 
 IF DEF(_RED)
 DefaultNamesPlayerList: ; 6af2 (1:6af2)
-	db "NEW NAME@RED@ASH@JACK@"
+	db "NEW NAME@"
+	strjoin RED_NAMES
 DefaultNamesRivalList: ; 6b08 (1:6b08)
-	db "NEW NAME@BLUE@GARY@JOHN@"
+	db "NEW NAME@"
+	strjoin BLUE_NAMES
 ENDC
 IF DEF(_BLUE)
 DefaultNamesPlayerList: ; 6af2 (1:6af2)
-	db "NEW NAME@BLUE@GARY@JOHN@"
+	db "NEW NAME@"
+	strjoin BLUE_NAMES
 DefaultNamesRivalList: ; 6b08 (1:6b08)
-	db "NEW NAME@RED@ASH@JACK@"
+	db "NEW NAME@"
+	strjoin RED_NAMES
 ENDC
 IF DEF(_YELLOW)
 DefaultNamesPlayerList:
-	db "NEW NAME@YELLOW@ASH@JACK@"
+	db "NEW NAME@"
+	strjoin YELLOW_NAMES
 DefaultNamesRivalList:
-	db "NEW NAME@BLUE@GARY@JOHN@"
+	db "NEW NAME@"
+	strjoin BLUE_NAMES
 ENDC
 
 TextTerminator_6b20: ; 6b20 (1:6b20)
diff --git a/home.asm b/home.asm
index 69634a7..4a5c545 100644
--- a/home.asm
+++ b/home.asm
@@ -2027,8 +2027,7 @@ IsMoveHM:: ; 3049 (0:3049)
 	jp IsInArray
 
 HMMoves:: ; 3052 (0:3052)
-	db CUT,FLY,SURF,STRENGTH,FLASH
-	db $ff ; terminator
+	db *HM_MOVES, -1
 
 GetMoveName:: ; 3058 (0:3058)
 	push hl
diff --git a/macros.asm b/macros.asm
index ba83e73..a1685ad 100644
--- a/macros.asm
+++ b/macros.asm
@@ -621,3 +621,19 @@ EAST_MAP_CONNECTION: MACRO
 	db 0 ; x alignment
 	dw wOverworldMap + 7 + \2_WIDTH ; window (position of the upper left block after entering the map)
 ENDM
+
+strpad: MACRO
+    db \2
+rept (\1-STRLEN(STRMAP(\2)))-1
+    db "@"
+endr
+ENDM
+
+strjoin: MACRO
+str=0
+rept LEN(\1)
+    db *\1[str]
+    db "@"
+str=str+1
+endr
+ENDM
diff --git a/text.asm b/text.asm
index db3e57c..df59cce 100644
--- a/text.asm
+++ b/text.asm
@@ -14,8 +14,7 @@ TEXT_11 EQU $2a
 POKEDEX_TEXT EQU $2b
 MOVE_NAMES   EQU $2c
 
-INCLUDE "macros.asm"
-INCLUDE "hram.asm"
+INCLUDE "constants.asm"
 
 
 SECTION "Text 1", ROMX, BANK[TEXT_1]
diff --git a/text/maps/oaks_lab.asm b/text/maps/oaks_lab.asm
index 58f55b8..e3184b8 100644
--- a/text/maps/oaks_lab.asm
+++ b/text/maps/oaks_lab.asm
@@ -59,19 +59,19 @@ ENDC
 _OaksLabCharmanderText:: ; 94e06 (25:4e06)
 	text "So! You want the"
 	line "fire #MON,"
-	cont "CHARMANDER?"
+	cont *POKEMON_NAMES[STARTER1], "?"
 	done
 
 _OaksLabSquirtleText:: ; 94e2f (25:4e2f)
 	text "So! You want the"
 	line "water #MON,"
-	cont "SQUIRTLE?"
+	cont *POKEMON_NAMES[STARTER2], "?"
 	done
 
 _OaksLabBulbasaurText:: ; 94e57 (25:4e57)
 	text "So! You want the"
 	line "plant #MON,"
-	cont "BULBASAUR?"
+	cont *POKEMON_NAMES[STARTER3], "?"
 	done
 
 _OaksLabMonEnergeticText:: ; 94e80 (25:4e80)
diff --git a/text/monster_names.asm b/text/monster_names.asm
index c7e0226..1f1fddd 100755
--- a/text/monster_names.asm
+++ b/text/monster_names.asm
@@ -1,191 +1,7 @@
 MonsterNames: ; 1c21e (7:421e)
-	db "RHYDON@@@@"
-	db "KANGASKHAN"
-	db "NIDORAN♂@@"
-	db "CLEFAIRY@@"
-	db "SPEAROW@@@"
-	db "VOLTORB@@@"
-	db "NIDOKING@@"
-	db "SLOWBRO@@@"
-	db "IVYSAUR@@@"
-	db "EXEGGUTOR@"
-	db "LICKITUNG@"
-	db "EXEGGCUTE@"
-	db "GRIMER@@@@"
-	db "GENGAR@@@@"
-	db "NIDORAN♀@@"
-	db "NIDOQUEEN@"
-	db "CUBONE@@@@"
-	db "RHYHORN@@@"
-	db "LAPRAS@@@@"
-	db "ARCANINE@@"
-	db "MEW@@@@@@@"
-	db "GYARADOS@@"
-	db "SHELLDER@@"
-	db "TENTACOOL@"
-	db "GASTLY@@@@"
-	db "SCYTHER@@@"
-	db "STARYU@@@@"
-	db "BLASTOISE@"
-	db "PINSIR@@@@"
-	db "TANGELA@@@"
-	db "MISSINGNO."
-	db "MISSINGNO."
-	db "GROWLITHE@"
-	db "ONIX@@@@@@"
-	db "FEAROW@@@@"
-	db "PIDGEY@@@@"
-	db "SLOWPOKE@@"
-	db "KADABRA@@@"
-	db "GRAVELER@@"
-	db "CHANSEY@@@"
-	db "MACHOKE@@@"
-	db "MR.MIME@@@"
-	db "HITMONLEE@"
-	db "HITMONCHAN"
-	db "ARBOK@@@@@"
-	db "PARASECT@@"
-	db "PSYDUCK@@@"
-	db "DROWZEE@@@"
-	db "GOLEM@@@@@"
-	db "MISSINGNO."
-	db "MAGMAR@@@@"
-	db "MISSINGNO."
-	db "ELECTABUZZ"
-	db "MAGNETON@@"
-	db "KOFFING@@@"
-	db "MISSINGNO."
-	db "MANKEY@@@@"
-	db "SEEL@@@@@@"
-	db "DIGLETT@@@"
-	db "TAUROS@@@@"
-	db "MISSINGNO."
-	db "MISSINGNO."
-	db "MISSINGNO."
-	db "FARFETCH'D"
-	db "VENONAT@@@"
-	db "DRAGONITE@"
-	db "MISSINGNO."
-	db "MISSINGNO."
-	db "MISSINGNO."
-	db "DODUO@@@@@"
-	db "POLIWAG@@@"
-	db "JYNX@@@@@@"
-	db "MOLTRES@@@"
-	db "ARTICUNO@@"
-	db "ZAPDOS@@@@"
-	db "DITTO@@@@@"
-	db "MEOWTH@@@@"
-	db "KRABBY@@@@"
-	db "MISSINGNO."
-	db "MISSINGNO."
-	db "MISSINGNO."
-	db "VULPIX@@@@"
-	db "NINETALES@"
-	db "PIKACHU@@@"
-	db "RAICHU@@@@"
-	db "MISSINGNO."
-	db "MISSINGNO."
-	db "DRATINI@@@"
-	db "DRAGONAIR@"
-	db "KABUTO@@@@"
-	db "KABUTOPS@@"
-	db "HORSEA@@@@"
-	db "SEADRA@@@@"
-	db "MISSINGNO."
-	db "MISSINGNO."
-	db "SANDSHREW@"
-	db "SANDSLASH@"
-	db "OMANYTE@@@"
-	db "OMASTAR@@@"
-	db "JIGGLYPUFF"
-	db "WIGGLYTUFF"
-	db "EEVEE@@@@@"
-	db "FLAREON@@@"
-	db "JOLTEON@@@"
-	db "VAPOREON@@"
-	db "MACHOP@@@@"
-	db "ZUBAT@@@@@"
-	db "EKANS@@@@@"
-	db "PARAS@@@@@"
-	db "POLIWHIRL@"
-	db "POLIWRATH@"
-	db "WEEDLE@@@@"
-	db "KAKUNA@@@@"
-	db "BEEDRILL@@"
-	db "MISSINGNO."
-	db "DODRIO@@@@"
-	db "PRIMEAPE@@"
-	db "DUGTRIO@@@"
-	db "VENOMOTH@@"
-	db "DEWGONG@@@"
-	db "MISSINGNO."
-	db "MISSINGNO."
-	db "CATERPIE@@"
-	db "METAPOD@@@"
-	db "BUTTERFREE"
-	db "MACHAMP@@@"
-	db "MISSINGNO."
-	db "GOLDUCK@@@"
-	db "HYPNO@@@@@"
-	db "GOLBAT@@@@"
-	db "MEWTWO@@@@"
-	db "SNORLAX@@@"
-	db "MAGIKARP@@"
-	db "MISSINGNO."
-	db "MISSINGNO."
-	db "MUK@@@@@@@"
-	db "MISSINGNO."
-	db "KINGLER@@@"
-	db "CLOYSTER@@"
-	db "MISSINGNO."
-	db "ELECTRODE@"
-	db "CLEFABLE@@"
-	db "WEEZING@@@"
-	db "PERSIAN@@@"
-	db "MAROWAK@@@"
-	db "MISSINGNO."
-	db "HAUNTER@@@"
-	db "ABRA@@@@@@"
-	db "ALAKAZAM@@"
-	db "PIDGEOTTO@"
-	db "PIDGEOT@@@"
-	db "STARMIE@@@"
-	db "BULBASAUR@"
-	db "VENUSAUR@@"
-	db "TENTACRUEL"
-	db "MISSINGNO."
-	db "GOLDEEN@@@"
-	db "SEAKING@@@"
-	db "MISSINGNO."
-	db "MISSINGNO."
-	db "MISSINGNO."
-	db "MISSINGNO."
-	db "PONYTA@@@@"
-	db "RAPIDASH@@"
-	db "RATTATA@@@"
-	db "RATICATE@@"
-	db "NIDORINO@@"
-	db "NIDORINA@@"
-	db "GEODUDE@@@"
-	db "PORYGON@@@"
-	db "AERODACTYL"
-	db "MISSINGNO."
-	db "MAGNEMITE@"
-	db "MISSINGNO."
-	db "MISSINGNO."
-	db "CHARMANDER"
-	db "SQUIRTLE@@"
-	db "CHARMELEON"
-	db "WARTORTLE@"
-	db "CHARIZARD@"
-	db "MISSINGNO."
-	db "MISSINGNO."
-	db "MISSINGNO."
-	db "MISSINGNO."
-	db "ODDISH@@@@"
-	db "GLOOM@@@@@"
-	db "VILEPLUME@"
-	db "BELLSPROUT"
-	db "WEEPINBELL"
-	db "VICTREEBEL"
+mon = 1
+rept LEN(POKEMON_NAMES)-1
+       strpad 10, *POKEMON_NAMES[mon]
+mon=mon+1
+endr
+