Path: utzoo!utgpu!news-server.csri.toronto.edu!rutgers!mcdchg!ddsw1!dattier
From: dattier@ddsw1.MCS.COM (David W. Tamkin)
Newsgroups: comp.sys.cbm
Subject: Re: Reading SEQ files
Message-ID: <1991Mar02.032753.23899@ddsw1.MCS.COM>
Date: 2 Mar 91 03:27:53 GMT
References: <13324@hubcap.clemson.edu> <1991Feb27.213545.18354@nntp-server.caltech.edu>
Organization: Contributor Account at ddsw1, Wheeling, Illinois
Lines: 20

rknop@nntp-server.caltech.edu (Robert Andrew Knop) wrote in
<1991Feb27.213545.18354@nntp-server.caltech.edu>:

| 10 open 1,8,1,"filename,s,r"
| 20 if st<>0 then 50  : rem this line may be wrong, somebody correct me
| 30 get#1,a$:printa$;
| 40 goto20
| 50 close 1

That won't work; the print statement (to the screen) in line 30 will re-zero
st and the loop will not break when the end of the disk file is reached.
Try something like this:

10 open1,8,1,"filename":forx=0to1:get#1,a$:x=st:printa$;:next:close1

The for-next loop will execute faster than an if structure with gotos; BASIC
is slow enough to need all the help it can get.

David Tamkin  Box 7002  Des Plaines IL  60018-7002  708 518 6769  312 693 0591
dattier@ddsw1.mcs.com   MCI Mail: 426-1818  CIS: 73720,1570  GEnie: D.W.TAMKIN