' This is a sample showing how to read a file
' using ScriptBasic
'
print "\n"
open "rdfile.txt" for input as 1
n = 1
while not eof(1)
 line input #1,a
 a = chomp(a)
 if a <> "" then
   print "Line ", n, " = ", a, "\n"
   n = n + 1
 endif
wend
close 1
print "\n"

