Procedure Write_RecNo;
Begin
    TextColor(Black);
    TextBackground(lightgray);
    GotoXY(75,25);
    Write('     ');
    GotoXY(75,25);
    Write(Current_File_Pos);
    Entry_Field:= 0;
    Tab;
End;




Procedure Review_Prev_Rec;
Begin
  If FileSize(Output_File) <> 0 Then Begin
    Blank_Fields;
    If Current_File_Pos <> 1 Then Begin
      Current_File_Pos:= Current_File_Pos-1;
      Read_Record_and_Write_It;
      Write_RecNo;
      End { if file pos <> 1 }
    Else Begin  { it does = 1 }
      Sound(1000);
      Delay(200);
      Nosound;
      Current_File_Pos:= 1;
      Read_Record_And_Write_It;
      Write_RecNo;
      End; { else }
    End { if filesize <> 0 }
  Else Begin  { filesize does = 0 }
    Sound(1000);
    Delay(200);
    Nosound;
    End;
  End; { procedure review_prev_rec }



