my file tribulations...
i got halfway there, but am baffled as to my problem.
this shows that at least some data is being read from the file:
rem
rem AGK Application
rem
setvirtualresolution(320,480)
print ("press space to begin")
sync()
repeat
until getrawkeypressed(32)=1
setprintsize(12)
dim d$[999] as string
do
Q=0
opentoread(1,"formdat.txt")
`do
repeat
a$=Readstring( 1 )
print(a$)
` d$[Q]=a$
Q=Q+1
until Q>99
sync()
closefile(1)
sync()
loop
`
`do
` for t=1 to 100
` print (d$[t])
` next t
` sync()
`loop
here i try to put the data i read into a variable d$[]
it displays no results when i try to print it.
rem
rem AGK Application
rem
setvirtualresolution(320,480)
print ("press space to begin")
sync()
repeat
until getrawkeypressed(32)=1
setprintsize(12)
dim d$[999] as string
`do
Q=0
opentoread(1,"formdat.txt")
`do
repeat
a$=Readstring( 1 )
d$[Q]=a$
Q=Q+1
until Q>99
`sync()
closefile(1)
` sync()
` loop
`
do
for t=1 to 100
print (d$[t])
next t
sync()
loop
here is " Formdat.txt "
(it is meaningless, but is an example:
xxxxxxxx
64
160
96
160
128
96
128
192
160
128
192
96
192
192
224
160
256
160
xxxxxxxx
32
160
64
160
96
160
128
160
160
160
192
160
224
160
256
160
288
160
xxxxxxxx
96
160
96
192
128
128
160
128
160
160
160
192
192
128
224
160
224
192
xxxxxxxx
32
128
64
128
96
256
128
192
160
192
192
192
224
256
256
128
288
128
xxxxxxxx
32
32
32
288
96
96
96
224
160
160
224
96
224
224
288
32
288
288
xxxxxxxx
96
96
128
96
128
128
160
96
160
128
160
160
192
96
192
128
224
96
xxxxxxxx
32
160
64
128
96
96
128
64
160
32
192
64
224
96
256
128
288
160