Hi,
I am unable to close a file in the subroutine. It gives compile error. 222 , I am using 2.0.7.6.
And afterwords, can not open any other file , on its first line.
-------------------------------------
Show_it:
Dim Ff As Byte, input_string as string * 20
Ff = Freefile()
Open File_now For Input As #ff
Do
Lineinput #ff , Input_string
Locate 2 , 1
Lcd Input_string
Wait 1
Locate 2 , 1
Lcd " "
Loop Until Eof(#ff) <> 0
'Close #ff ' this statement gives error
Kb_data = 0
Return
---------------------------------------------
Regards,
Devidas
↧