file read(BASIC!)

snippet-fileread.txt

file.exists flxx,"fd01.txt"

if flxx=0 then
else
  irs=1 
  Text.open r, file_numbera, "fd01.txt"
  do
    Text.readln file_numbera, line$
    if line$="EOF" then
    else
      if line$="" then
      else
        split abc$[],line$,"@@@"
        
        rssname$[irs]=abc$[1]
        rsskey$[irs]=abc$[2]
        irs=irs+1

        array.delete abc$[]

    
      endif
    endif
  until line$="EOF"
  Text.close file_numbera
endif