Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!husc6!bloom-beacon!gatech!udel!rochester!PT!f.gp.cs.cmu.edu!dtw
From: dtw@f.gp.cs.cmu.edu (Duane Williams)
Newsgroups: comp.sys.mac
Subject: HyperCard file reading test
Message-ID: <100@f.gp.cs.cmu.edu>
Date: Sun, 30-Aug-87 14:15:52 EDT
Article-I.D.: f.100
Posted: Sun Aug 30 14:15:52 1987
Date-Received: Fri, 4-Sep-87 05:33:39 EDT
Distribution: na
Organization: Carnegie-Mellon University, CS/RI
Lines: 24
Keywords: How NOT to read files with HyperCard!

The following HyperCard script took 384 seconds (6.4 minutes) to read a text
file with 256 lines (17,770 chars) from a Photon 20 hard disk on a Mac Plus.

----------------
on mouseUp
  put cursor into saveCursor
  set cursor to 4 --watch cursor
  put the seconds into startTime
  open file "MacTutor"
  read from file "MacTutor" until return
  put 0 into N
  repeat until it is empty
    add 1 to N
    put it into line N of card field "MacTutor"
    read from file "MacTutor" until return
  end repeat
  close file "MacTutor"
  put "File reading took " & (the seconds - startTime) & " seconds"
  set cursor to saveCursor
end mouseUp
----------------

Duane Williams
dtw@me.ri.cmu.edu