FName$="filenam.dat" 'Your file name
Open FName$ For random As 1
Seek #1,1

Do
a$=Input$(1,#1)
Print a$;
Loop While Not Eof(1)

START:
year$ = Right$(Date$,3)
month$ = Mid$(Date$,3,3)
days$ = Left$(Date$,2)
day = Val(days$)
OPEN tidetime.dat FOR input AS #1
Do 'look through the data for the year eg: "015"
input$ #1, year2$
If year2$ = year$ Then Exit
Loop

Do
input #1, month2$ 'look through the data for the month eg: -10
If month2$ = month$ Then Exit
Loop

Do ' look through the data for the correct day
input #1, day2$
If Len(day2$)= 1 Then
day2$ = "0"+day2$
EndIf
If day2$ = days$ Then Exit
Loop

START:
year$ = Right$(Date$,3)
month$ = Mid$(Date$,3,3)
days$ = Left$(Date$,2)
day = Val(days$)
Open "paul.dat" For input As #1
Print "DAY/MONTH/YEAR:"
Print days$,month$,year$
Print "Searching for year...";

Do 'look through the data for the year eg: "015"
Line Input #1,year2$
If Mid$(year2$,2,3) = year$ Then
Print "(OK)"
Exit Do
EndIf
Loop
Print "Searching for month...";
Do
Line Input #1,month2$ 'look through the data for the month eg: -10
If Mid$(month2$,2,3) = month$ Then
Print "(OK)"
Exit Do
EndIf
Loop
Print "Searching for day...";
Do ' look through the data for the correct day
Line Input #1,day2$
If Mid$(day2$,2,1)="," Then
daze$="0"+day2$
Else
daze$=day2$
EndIf
If Mid$(daze$,1,2)=days$ Then
Print "(OK)"
Exit Do
EndIf
Loop

'At this point, we should be at the right place in the datafile

For X=1 To 8
Line Input #1,L$
Print L$
Next
Print:Print "Done."
End