home *** CD-ROM | disk | FTP | other *** search
/ Game Killer / Game_Killer.bin / 106.NOTESTUF.INC < prev    next >
Text File  |  1992-06-07  |  2KB  |  56 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.   else
  22.     writeln('wiping out old note: ', space.notes.data[n].info );
  23.   with space.notes.data[ n ] do
  24.     repeat
  25.       reference := s;
  26.       write('Note: ');
  27.       readln( info );
  28.       writeln('Sector ',reference : 5, ' ', info );
  29.     until prompt('Is this okay? ');
  30.   space.sectors[s].etc := space.sectors[s].etc or NoteExists;
  31. end; {Add Note}
  32.  
  33. procedure RemoveNote( var BaseChanged : boolean);
  34. var 
  35.   s : sectorIndex;
  36.   n : NoteIndex;
  37. begin
  38.   write('Remove note for ');
  39.   s := GetSector;
  40.   if s = 0 then exit;
  41.   n := NoteNumber( s );
  42.   if n = 0 then
  43.     writeln('no note for sector ', s, ' was found!')
  44.   else
  45.     begin
  46.       writeln('Current note: ', space.notes.data[n].info );
  47.       if prompt('Remove it? ') then
  48.         begin
  49.           space.notes.data[n] := space.notes.data[ space.notes.top ];
  50.           space.notes.top := space.notes.top - 1;
  51.           space.sectors[s].etc := space.sectors[s].etc and ( not NoteExists);
  52.           BaseChanged := true;
  53.         end; {if}
  54.     end; {else}
  55. end; {RemoveNote}
  56.