alias add_horse {
  var %horse_name = $replace($?="Enter Horse Name",$chr(32), $chr(241))

write horses.txt hadd horses $+(%horse_name,.,name) %horse_name
write horses.txt hadd horses $+(%horse_name,.,owner) compact
write horses.txt hadd horses $+(%horse_name,.,cost) $?="Enter Horse Cost"
write horses.txt hadd horses $+(%horse_name,.,distance) $?="Enter Horse Distance"
write horses.txt hadd horses $+(%horse_name,.,jocky) $?="Enter Horse Jocky"
write horses.txt hadd horses $+(%horse_name,.,age) 1
write horses.txt hadd horses $+(%horse_name,.,active) Yes
write horses.txt hadd horses $+(%horse_name,.,fresh) 100
write horses.txt hadd horses $+(%horse_name,.,profit) 0
write horses.txt hadd horses $+(%horse_name,.,weight) $rand(50,60) $+ . $+ $rand(0,10)
write horses.txt hadd horses $+(%horse_name,.,runs) 0
write horses.txt hadd horses $+(%horse_name,.,first) 0
write horses.txt hadd horses $+(%horse_name,.,second) 0
write horses.txt hadd horses $+(%horse_name,.,third) 0
write horses.txt hadd horses $+(%horse_name,.,injuried) No
write horses.txt hadd horses $+(%horse_name,.,description) $?="Enter Horse Description"



  write horse_list.txt %horse_name
}