home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Share Gallery 1
/
share_gal_1.zip
/
share_gal_1
/
LA
/
LA010.ZIP
/
EXTPROC2.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1986-02-01
|
855b
|
43 lines
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 }