Part of the Samples Website. 8/16/97.

---

samples.basicStuff.readTextFile

«Reads a text file created by samples.basicStuff.writeTextFile

«the file should contain the 50 states, each on its own line

«see comment at head of samples.basicStuff.writeTextFile for details

path = file.getSystemDisk () + "textfile"

if not file.exists (path)

dialog.alert ("Run samples.basicStuff.writeTextFile first.")

return

count = 1

file.open (path)

while not file.endOfFile (path)

s = file.readLine (path)

msg (s)

if s [not equal] states.nthState (count++)

speaker.beep ()

file.close (path)

This page was last built on Sat, Aug 16, 1997 at 6:39:26 PM. You can download the current set of sample scripts from our FTP site. Dave