
.L9A4B
LD   A,(hyperSystem)
CALL decodeName
LD   HL,(systemCopy)
LD   DE,(systemCopy+2)
LD   A,H
XOR  D
LD   H,A
LD   A,L
XOR  E
LD   L,A
LD   (LEAD7),HL
LD   DE,(inhabitant)
LD   A,H
XOR  D
LD   H,A
LD   A,L
XOR  E
LD   L,A
LD   (LEAD9),HL
LD   HL,LE9D6
LD   (HL),&00
LD   DE,LE9D7
LD   BC,&00FF
LDIR
LD   BC,&050F
CALL csrBC
LD   IX,LA2EB
LD   IY,LE9D7
CALL L9AB9
LD   (IY+0),&00
LD   DE,LE9D7
.L9A93
LD   HL,&0021
ADD  HL,DE
LD   A,(HL)
OR   A
JR   NZ,L9A9E
EX   DE,HL
RST  &08                ; print it
RET
 
.L9A9E
LD   A,(HL)
CP   &20
JR   Z,L9AA6
DEC  HL
JR   L9A9E
 
.L9AA6
LD   (HL),&00
PUSH HL
EX   DE,HL
RST  &08                ; print it
LD   BC,(PrintAddr+1)
INC  C
LD   B,&05
CALL csrBC
POP  DE
INC  DE
JR   L9A93
 
.L9AB9
LD   A,(IX+0)
INC  IX
OR   A
RET  Z
CP   &20
JR   NC,L9ADA
ADD  A,A
LD   E,A
LD   D,&00
LD   HL,LA2F4-2
ADD  HL,DE
LD   A,(HL)
INC  HL
LD   H,(HL)
LD   L,A
PUSH IX
CALL L9B34
POP  IX
JP   L9AB9
 
.L9ADA
OR   A
JP   P,L9B0A
PUSH IX
AND  &7F
LD   L,A
LD   H,&00
ADD  HL,HL
LD   D,H
LD   E,L
ADD  HL,HL
ADD  HL,DE
LD   DE,Dictionary
ADD  HL,DE
LD   A,(HL)
DW   LD_IXL_A
INC  HL
LD   A,(HL)
DW   LD_IXH_A
CALL L9BB2
OR   A
JR   Z,L9B02
LD   E,A
LD   D,&00
ADD  HL,DE
LD   E,(HL)
ADD  IX,DE
.L9B02
CALL L9AB9
POP  IX
JP   L9AB9
 
.L9B0A
CP   &20
JR   NZ,L9B13
CP   (IY-1)
JR   Z,L9AB9
.L9B13
LD   C,A
LD   A,(LEAD6)
OR   A
JR   Z,L9B2C
LD   A,(IY-1)
CP   &20
JR   NZ,L9B2C
LD   A,C
CP   &61
JR   C,L9B2C
CP   &7B
JR   NC,L9B2C
RES  5,C
.L9B2C
LD   (IY+0),C
INC  IY
JP   L9AB9
 
.L9B34
JP   (HL)

.L9B35
LD   IX,decodeBuf
CALL L9AB9
LD   (IY+0),&20
INC  IY
RET
 
.L9B43
LD   DE,decodeBuf
.L9B46
LD   A,(DE)
OR   A
JR   Z,L9B4D
INC  DE
JR   L9B46
 
.L9B4D
DEC  DE
LD   A,(DE)
LD   HL,LA305
LD   BC,&0005
CPIR
JR   Z,L9B5A
INC  DE
.L9B5A
LD   HL,LA300
LD   C,&06
LDIR
LD   IX,decodeBuf
CALL L9AB9
LD   A,(hyperSystem)
JP   decodeName
 
.L9B6E
DEC  IY
RET

.L9B71 
LD   A,&FF
LD   (LEAD6),A
RET

.L9B77 
XOR  A
LD   (LEAD6),A
RET

.L9B7C 
LD   HL,(LEAD7)
LD   (systemInfo),HL
EX   DE,HL
LD   HL,(LEAD9)
LD   (systemInfo+2),HL
LD   A,H
XOR  D
LD   H,A
LD   A,L
.L9B8D
XOR  E
LD   L,A
LD   (systemInfo+4),HL
LD   IX,LEADB
CALL generateName
LD   HL,LEADB
CALL decodeFragment
LD   IX,decodeBuf
CALL L9AB9
LD   (IY+0),&20
INC  IY
LD   A,(hyperSystem)
JP   decodeName
 
.L9BB2
PUSH HL
LD   HL,(LEAD9)
LD   DE,(LEAD7)
LD   (LEAD7),HL
ADD  HL,DE
LD   (LEAD9),HL
LD   H,&00
LD   A,&34
CALL L2079
LD   A,L
POP  HL
RET
 
.word0
DZ   "fabled "
.word0opt1
DZ   "notable "
.word0opt2
DZ   "well known "
.word0opt3
DZ   "famous "
.word0opt4
DZ   "noted "

.word1
DZ   "very "
.word1opt1
DZ   "mildly "
.word1opt2
DZ   "most "
.word1opt3
DZ   "reasonably "
.word1opt4
DB   &00

.word2
DZ   "ancient "
.word2opt1
DB   &97,&00
.word2opt2
DZ   "great "
.word2opt3
DZ   "vast "
.word2opt4
DZ   "pink "


.word3
DB   &05,&9C,&20,&9B,&06
DZ   "plantations "
.word3opt1
DZ   "mountains "
.word3opt2
DB   &9A,&00
.word3opt3
DB   &A5
DZ   "forests "
.word3opt4
DZ   "oceans "


.word4
DB   &A6,&00
.word4opt1
DZ   "mountain "
.word4opt2
DZ   "edible "
.word4opt3
DZ   "tree "
.word4opt4
DZ   "spotted "

.word5
DB   &9D,&00
.word5opt1
DB   &9E,&00
.word5opt2
DB   &86,&04
DS   "oid "
DB   &00
.word5opt3
DB   &A4,&00
.word5opt4
DB   &A3,&00

.word6
DS   "walking "
DB   &8D,&00
.word6opt1
DZ   "crab "
.word6opt2
DZ   "bat "
.word6opt3
DZ   "lobst "
.word6opt4
DB   &03,&00

.word7
DZ   "ancient "
.word7opt1
DZ   "exceptional "
.word7opt2
DZ   "eccentric "
.word7opt3
DZ   "ingrained "
.word7opt4
DB   &97,&00

.word8
DZ   "shyness "
.word8opt1
DZ   "silliness "
.word8opt2
DZ   "mating traditions "
.word8opt3
DS   "loathing of "
DB   &89,&00
.word8opt4
DS   "love for "
DB   &89,&00

.word9
DZ   "food blenders "
.word9opt1
DZ   "tourists "
.word9opt2
DZ   "poetry "
.word9opt3
DZ   "discos "
.word9opt4
DB   &91,&00

.word10
DS   "its "
DB   &82,&83,&00
.word10opt1
DS   "the "
DB   &02,&84,&85,&00
.word10opt2
DS   "its inhabitant's "
DB   &87,&88,&00
.word10opt3
DB   &9F,&06,&00
.word10opt4
DS   "its "
DB   &90,&91,&00

.word11
DZ   "beset "
.word11opt1
DZ   "plagued "
.word11opt2
DZ   "ravaged "
.word11opt3
DZ   "cursed "
.word11opt4
DZ   "scourged "

.word12
DB   &96
DZ   "civil war "
.word12opt1
DB   &8D,&84,&85,&04,&73,&20,&00
.word12opt2
DB   &61,&20,&8D
DZ   "disease "
.word12opt3
DB   &96
DZ   "earth quakes "
.word12opt4
DB   &96
DZ   "solar activity "


.word13
DZ   "killer "
.word13opt1
DZ   "deadly "
.word13opt2
DZ   "evil "
.word13opt3
DZ   "lethal "
.word13opt4
DZ   "vicious "

.word14
DZ   "juice "
.word14opt1
DZ   "brandy "
.word14opt2
DZ   "water "
.word14opt3
DZ   "brew "
.word14opt4
DZ   "gargle blasters "

.word15
DB   &03,&00
.word15opt1
DB   &02,&85,&00
.word15opt2
DB   &02,&03,&00
.word15opt3
DB   &02,&8D,&00
.word15opt4
DB   &8D,&03,&00

.word16
DZ   "fabulous "
.word16opt1
DZ   "exotic "
.word16opt2
DZ   "hoopy "
.word16opt3
DZ   "unusual "
.word16opt4
DZ   "exciting "

.word17
DZ   "cuisine "
.word17opt1
DZ   "night life "
.word17opt2
DZ   "casinos "
.word17opt3
DZ   "sit comms "
.word17opt4
DB   &9F,&06,&00

.word18
DB   &01,&00
.word18opt1
DS   "The planet "
DB   &01,&00
.word18opt2
DS   "The world "
DB   &01,&00
.word18opt3
DZ   "This planet "
.word18opt4
DZ   "This world "

.word19
DB   &81,&80
DS   "for "
DB   &8A,&00
.word19opt1
DB   &81,&80
DS   "for "
DB   &8A
DS   "and "
DB   &8A,&00
.word19opt2
DB   &8B
DS   "by "
DB   &8C,&00
.word19opt3
DB   &81,&80
DS   "for "
DB   &8A
DS   "but is "
DB   &8B
DS   "by "
DB   &8C,&00
.word19opt4
DB   &61,&20,&94,&95,&00

.word20
DB   &04
DZ   "n unremarkable "
.word20opt1
DZ   "boring "
.word20opt2
DZ   "dull "
.word20opt3
DZ   "tedious "
.word20opt4
DZ   "revolting "

.word21
DZ   "planet "
.word21opt1
DZ   "world "
.word21opt2
DZ   "place "
.word21opt3
DZ   "little planet "
.word21opt4
DZ   "dump "

.word22
DZ   "frequent "
.word22opt1
DZ   "occasional "
.word22opt2
DZ   "unpredictable "
.word22opt3
DZ   "dreadful "
.word22opt4
DZ   "deadly "
  
.word23
DZ   "funny "
.word23opt1
DZ   "wierd "
.word23opt2
DZ   "unusual "
.word23opt3
DZ   "strange "
.word23opt4
DZ   "peculiar "

.word24
DZ   "son of a bitch "
.word24opt1
DZ   "scoundrel "
.word24opt2
DZ   "blackguard "
.word24opt3
DZ   "rougue "
.word24opt4
DZ   "whoreson beetle headed flap ear'd knave"

.word25
DB   &00
.word25opt1
DB   &00
.word25opt2
DB   &00
.word25opt3
DB   &00
.word25opt4
DB   &00

.word26
DZ   "parking meters "
.word26opt1
DZ   "dust clouds "
.word26opt2
DZ   "ice bergs "
.word26opt3
DZ   "rock formations"
.word26opt4
DZ   "volcanoes "

.word27
DZ   "plant "
.word27opt1
DZ   "tulip "
.word27opt2
DZ   "banana "
.word27opt3
DZ   "corn "
.word27opt4
DZ   "weed "

.word28
DB   &03,&00
.word28opt1
DB   &02,&03,&00
.word28opt2
DB   &02,&8D,&00
.word28opt3
DZ   "inhabitant "
.word28opt4
DB   &02,&03,&00

.word29
DZ   "shrew "
.word29opt1
DZ   "beast "
.word29opt2
DZ   "bison "
.word29opt3
DZ   "snake "
.word29opt4
DZ   "wolf "

.word30
DZ   "leopard "
.word30opt1
DZ   "cat "
.word30opt2
DZ   "monkey "
.word30opt3
DZ   "goat "
.word30opt4
DZ   "fish "

.word31
DB   &05,&8F,&8E,&00
.word31opt1
DB   &02,&05,&9D,&A0,&00
.word31opt2
DS   "its "
DB   &05,&90,&9E,&A0,&00
.word31opt3
DB   &A1,&A2,&00
.word31opt4
DB   &05,&8F,&8E,&00

.word32
DZ   "meat "
.word32opt1
DZ   "cutlet "
.word32opt2
DZ   "steak "
.word32opt3
DZ   "burgers "
.word32opt4
DZ   "soup "

.word33
DZ   "ice "
.word33opt1
DZ   "mud "
.word33opt2
DZ   "zero-G "
.word33opt3
DZ   "vacuum "
.word33opt4
DB   &02
DZ   "ultra "

.word34
DZ   "hockey "
.word34opt1
DZ   "cricket "
.word34opt2
DZ   "karate "
.word34opt3
DZ   "polo "
.word34opt4
DZ   "tennis "

.word35
DZ   "wasp "
.word35opt1
DZ   "moth "
.word35opt2
DZ   "grub "
.word35opt3
DZ   "ant "
.word35opt4
DB   &03,&00

.word36
DZ   "poet "
.word36opt1
DZ   "arts graduate "
.word36opt2
DZ   "yak "
.word36opt3
DZ   "snail "
.word36opt4
DZ   "slug "

.word37
DZ   "dense "
.word37opt1
DZ   "lush "
.word37opt2
DZ   "rain "
.word37opt3
DZ   "bamboo "
.word37opt4
DZ   "deciduous "

.word38
DZ   "green "
.word38opt1
DZ   "black "
.word38opt2
DZ   "yellow stripey "
.word38opt3
DZ   "pinky grey "
.word38opt4
DZ   "white "


.Dictionary
DW   word0
DB   word0opt1-word0
DB   word0opt2-word0
DB   word0opt3-word0
DB   word0opt4-word0

DW   word1
DB   word1opt1-word1
DB   word1opt2-word1
DB   word1opt3-word1
DB   word1opt4-word1

DW   word2
DB   word2opt1-word2
DB   word2opt2-word2
DB   word2opt3-word2
DB   word2opt4-word2

DW   word3
DB   word3opt1-word3
DB   word3opt2-word3
DB   word3opt3-word3
DB   word3opt4-word3

DW   word4
DB   word4opt1-word4
DB   word4opt2-word4
DB   word4opt3-word4
DB   word4opt4-word4

DW   word5
DB   word5opt1-word5
DB   word5opt2-word5
DB   word5opt3-word5
DB   word5opt4-word5

DW   word6
DB   word6opt1-word6
DB   word6opt2-word6
DB   word6opt3-word6
DB   word6opt4-word6

DW   word7
DB   word7opt1-word7
DB   word7opt2-word7
DB   word7opt3-word7
DB   word7opt4-word7

DW   word8
DB   word8opt1-word8
DB   word8opt2-word8
DB   word8opt3-word8
DB   word8opt4-word8

DW   word9
DB   word9opt1-word9
DB   word9opt2-word9
DB   word9opt3-word9
DB   word9opt4-word9

DW   word10
DB   word10opt1-word10
DB   word10opt2-word10
DB   word10opt3-word10
DB   word10opt4-word10

DW   word11
DB   word11opt1-word11
DB   word11opt2-word11
DB   word11opt3-word11
DB   word11opt4-word11

DW   word12
DB   word12opt1-word12
DB   word12opt2-word12
DB   word12opt3-word12
DB   word12opt4-word12

DW   word13
DB   word13opt1-word13
DB   word13opt2-word13
DB   word13opt3-word13
DB   word13opt4-word13

DW   word14
DB   word14opt1-word14
DB   word14opt2-word14
DB   word14opt3-word14
DB   word14opt4-word14

DW   word15
DB   word15opt1-word15
DB   word15opt2-word15
DB   word15opt3-word15
DB   word15opt4-word15

DW   word16
DB   word16opt1-word16
DB   word16opt2-word16
DB   word16opt3-word16
DB   word16opt4-word16

DW   word17
DB   word17opt1-word17
DB   word17opt2-word17
DB   word17opt3-word17
DB   word17opt4-word17

DW   word18
DB   word18opt1-word18
DB   word18opt2-word18
DB   word18opt3-word18
DB   word18opt4-word18

DW   word19
DB   word19opt1-word19
DB   word19opt2-word19
DB   word19opt3-word19
DB   word19opt4-word19

DW   word20
DB   word20opt1-word20
DB   word20opt2-word20
DB   word20opt3-word20
DB   word20opt4-word20

DW   word21
DB   word21opt1-word21
DB   word21opt2-word21
DB   word21opt3-word21
DB   word21opt4-word21

DW   word22
DB   word22opt1-word22
DB   word22opt2-word22
DB   word22opt3-word22
DB   word22opt4-word22

DW   word23
DB   word23opt1-word23
DB   word23opt2-word23
DB   word23opt3-word23
DB   word23opt4-word23

DW   word24
DB   word24opt1-word24
DB   word24opt2-word24
DB   word24opt3-word24
DB   word24opt4-word24

DW   word25
DB   word25opt1-word25
DB   word25opt2-word25
DB   word25opt3-word25
DB   word25opt4-word25

DW   word26
DB   word26opt1-word26
DB   word26opt2-word26
DB   word26opt3-word26
DB   word26opt4-word26

DW   word27
DB   word27opt1-word27
DB   word27opt2-word27
DB   word27opt3-word27
DB   word27opt4-word27

DW   word28
DB   word28opt1-word28
DB   word28opt2-word28
DB   word28opt3-word28
DB   word28opt4-word28

DW   word29
DB   word29opt1-word29
DB   word29opt2-word29
DB   word29opt3-word29
DB   word29opt4-word29

DW   word30
DB   word30opt1-word30
DB   word30opt2-word30
DB   word30opt3-word30
DB   word30opt4-word30

DW   word31
DB   word31opt1-word31
DB   word31opt2-word31
DB   word31opt3-word31
DB   word31opt4-word31

DW   word32
DB   word32opt1-word32
DB   word32opt2-word32
DB   word32opt3-word32
DB   word32opt4-word32

DW   word33
DB   word33opt1-word33
DB   word33opt2-word33
DB   word33opt3-word33
DB   word33opt4-word33

DW   word34
DB   word34opt1-word34
DB   word34opt2-word34
DB   word34opt3-word34
DB   word34opt4-word34

DW   word35
DB   word35opt1-word35
DB   word35opt2-word35
DB   word35opt3-word35
DB   word35opt4-word35

DW   word36
DB   word36opt1-word36
DB   word36opt2-word36
DB   word36opt3-word36
DB   word36opt4-word36

DW   word37
DB   word37opt1-word37
DB   word37opt2-word37
DB   word37opt3-word37
DB   word37opt4-word37

DW   word38
DB   word38opt1-word38
DB   word38opt2-word38
DB   word38opt3-word38
DB   word38opt4-word38


.LA2EB
DB   &06,&92
DS   "is "
DB   &93,&04
DB   "."
DB   &00

.LA2F4
DW   L9B35
DW   L9B43
DW   L9B7C
DW   L9B6E
DW   L9B71
DW   L9B77

.LA300
DZ   "ian "
.LA305
DS   "aeiou"

End