proc main
   string sLine, sTemp1, sTemp2, sTemp3

   fopen 0 "foo.txt" READ TEXT            ;Open our data file
   while not feof 0                       ;While the file still has data
      fgets 0 sLine                       ;Read a line of data
      strtok sTemp1 sLine "`t" 1          ;Get the first field
      strtok sTemp2 sLine "`t" 1          ;Get the second field
      strtok sTemp3 sLine "`t" 1          ;Get the third field
   endwhile
   fclose 0
endproc