home *** CD-ROM | disk | FTP | other *** search
/ Game Killer / Game_Killer.bin / 288.NOTESTUF.INC < prev    next >
Text File  |  1991-07-08  |  1KB  |  53 lines
  1. procedure AddNote( var BaseChanged : boolean );
  2. var s : SectorIndex;
  3.     n : NoteIndex;
  4. begin
  5.   write('Add note for ');
  6.   s := GetSector;
  7.   if s = 0 then
  8.     exit;
  9.   n := noteNumber( s );
  10.   if (n=0) and (space.notes.top = MaxNote) then
  11.     begin
  12.       writeln('Sorry, notes full.  You must delete a note first');
  13.       exit;
  14.     end; {if}
  15.   BaseChanged := true;
  16.   if n = 0 then
  17.     begin
  18.       space.notes.top := space.notes.top + 1;
  19.       n := space.notes.top;
  20.     end; {if}
  21.   with space.notes.data[ n ] do
  22.     repeat
  23.       reference := s;
  24.       write('Note: ');
  25.       readln( info );
  26.       writeln('Sector ',reference : 5, ' ', info );
  27.     until prompt('Is this okay? ');
  28.   space.sectors[s].etc := space.sectors[s].etc or NoteExists;
  29. end; {Add Note}
  30.  
  31. procedure RemoveNote( var BaseChanged : boolean);
  32. var 
  33.   s : sectorIndex;
  34.   n : NoteIndex;
  35. begin
  36.   write('Remove note for ');
  37.   s := GetSector;
  38.   n := NoteNumber( s );
  39.   if n = 0 then
  40.     writeln('no note for sector ', s, ' was found!')
  41.   else
  42.     begin
  43.       writeln('Current note: ', space.notes.data[n].info );
  44.       if prompt('Remove it? ') then
  45.         begin
  46.           space.notes.data[n] := space.notes.data[ space.notes.top ];
  47.           space.notes.top := space.notes.top - 1;
  48.           space.sectors[s].etc := space.sectors[s].etc and ( not NoteExists);
  49.           BaseChanged := true;
  50.         end; {if}
  51.     end; {else}
  52. end; {RemoveNote}
  53.