Post by C128Man on Sept 8, 2017 19:59:41 GMT
Hi,
I'm trying to read the directory of a disk. Here is the code.
But, I read character per character. It's a little bit too slow. Do you know a better method?
C-128Man
I'm trying to read the directory of a disk. Here is the code.
1 fast:scnclr
5 dim n$(140)
9 print "reading directory"
10 open 1,8,0,"$0:*=p"
15 no$="":op%=0:i=0
20 get#1,a$
30 do while st=0
40 if asc(a$)=34 and op%=0 then no$="":op%=1:else if asc(a$)=34 and op%=1 then o
p%=0:i=i+1:n$(i)=no$
45 if op%=1 and asc(a$)<>34 then no$=no$+a$
50 get#1,a$
60 loop
70 close1
But, I read character per character. It's a little bit too slow. Do you know a better method?
C-128Man