MPE CI Programming for 7.5

July 22, 2008
Page 37
hp e3000
strategy
filling variables arrays (cont)
• can we fill arrays (and read files) faster?
• example 4:
setvar rec0 0
setvar limit FINFO (HPSTDIN, ”eof”)
while setvar(rec0, rec0+1) <= limit and &
setvar(rec![rec0+1], input()) <> chr(1) do
endwhile
setvar rec0 rec0-1
• performance (:xeq exmpl4 <datafile):
• 100 records: 185 millisecs (twice as fast!)