home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / BEEHIVE / GAMES / STARSHIP.ARC / STARMAKE.PAS < prev    next >
Pascal/Delphi Source File  |  1989-09-27  |  2KB  |  71 lines
  1. Program MakeStarFile;
  2. {as is, this program writes the file STAR.DAT for STARSHIP. It can be
  3. modified to produce alternate star data files, but it is suggested that
  4. these also be given new names.}
  5.  
  6. (*  NOT IN COMPILABLE FORM---ADD DECLARATIONS FROM MAIN PROGRAM  *)
  7.  
  8.  
  9. type
  10.    startrade= record
  11.       starname: string[15];
  12.       r,p,i,ni,a,na: boolean;
  13.       end;
  14.  
  15. var
  16.    starfile: file of startrade;
  17.    galaxy: array[0..10] of startrade;
  18.    filename: string[14];
  19.    index: byte;
  20.  
  21.  
  22. begin                     {make orig file}
  23. filename:='star.dat';
  24. assign(starfile,filename);
  25. rewrite(starfile);
  26. for index:=1 to 10 do
  27.    begin
  28.       with galaxy[index] do
  29.          begin
  30.          number:=index;
  31.          r:=false;
  32.          p:=false;
  33.          i:=false;
  34.          ni:=false;
  35.          a:=false;
  36.          na:=false;
  37.          end;{with}
  38.    end;{fordo}
  39. galaxy[1].ni:=true;
  40. galaxy[1].p:=true;
  41. galaxy[2].na:=true;
  42. galaxy[2].i:=true;
  43. galaxy[3].a:=true;
  44. galaxy[4].i:=true;
  45. galaxy[4].p:=true;
  46. galaxy[5].r:=true;
  47. galaxy[6].ni:=true;
  48. galaxy[6].na:=true;
  49. galaxy[7].a:=true;
  50. galaxy[7].p:=true;
  51. galaxy[8].na:=true;
  52. galaxy[9].a:=true;
  53. galaxy[9].ni:=true;
  54. galaxy[9].p:=true;
  55. galaxy[10].a:=true;
  56. galaxy[10].i:=true;
  57. galaxy[1].starname:='Lalande 21185  ';
  58. galaxy[2].starname:='Alpha Centauri ';
  59. galaxy[3].starname:='Sirius         ';
  60. galaxy[4].starname:='Barnards Star  ';
  61. galaxy[5].starname:='Sol            ';
  62. galaxy[6].starname:='Ross 154       ';
  63. galaxy[7].starname:='Epsilon Eridani';
  64. galaxy[8].starname:='Luyten 726-8   ';
  65. galaxy[9].starname:='Luyten 789-6   ';
  66. galaxy[10].starname:='Ross 248       ';
  67. for index:=1 to 10 do write(starfile,galaxy[index]);
  68. close(starfile);
  69. end.
  70.  
  71.