کار هر یک از خط های برنامه زیر

[click.1387]

open "c:\a.txt" for input as #1
do while not eof(1)
input #1 , text1.text
loop
close #1

[.:KeihanCPU:.]

خط اول باز کردن فایل مذکور به صورت فقط خواندنی
خط دوم یعنی تا زمانی که به انتهای فایل نرسیده باشید،یه حلقه ست
خط سوم یک خط از فایل رو میخونه
loop هم انتهای حلقه رو نشون میده
و دستور آخر هم فایلی که باز کرده بودید رو میبنده