/***********************************************************************/
/*                          BBS DOWNS! V2.0                            */
/***********************************************************************/
/* Read in the Horses file */
    open(file1, 'DHorses', 'R') 	
      NumOfHorses=readln(file1)
     do i = 1 to NumOfHorses
      RName.i = readln(file1)
      Say RName.i
      HRaces.i = readln(file1)
      HOdd.i = readln(file1)
      HOwner.i = readln(file1)
      HWins.i = readln(file1)
      HPlaces.i = readln(file1)
      HShows.i = readln(file1)
      HAge.i = readln(file1)
      HHurt.i = readln(file1)
      HLocal.i = readln(file1)
      HStatus.i = readln(file1)
      HTrain.i = readln(file1)
      HSitout.i = readln(file1)
     end
    close(file1)
    
    open(file1, 'DHorses', 'W')
      writeln(file1,NumOfHorses)
     do i = 1 to NumOfHorses
      writeln(file1,RName.i)
      writeln(file1,random(20,30,TIME('S')))
      writeln(file1,0)
      writeln(file1,0)
      temp=Random(1,10,Time('S'))
      if temp<=5 then writeln(file1,random(0,10,TIME('S')))
      	else writeln(file1,random(0,2,TIME('S')))
      writeln(file1,random(0,8,TIME('S')))
      writeln(file1,random(0,10,TIME('S')))
      writeln(file1,random(0,4,TIME('S')))
      writeln(file1,0)
      writeln(file1,0)
      writeln(file1,0)
      writeln(file1,1)
      writeln(file1,HSitout.i)
     end
    close(file1)
    Say 'DONE.'