Bug #804
Read doesn't work inside function if Data statement is outside of the function.
Start date:
07/15/2021
Due date:
% Done:
0%
Estimated time:
1:00 h
Affected version:
Description
An "Internal Error" is produced.
Example:
Dim X$(100),Z(100),X(100),Y(100) Global X$(),Z(),X(),Y() ' Program fails if Data is here ' Data "X",1,2,3,"Y",4,5,6,"Z",7,8,9,"END",0,0,0 itemsRead = ReadStuff() Print itemsRead Function "ReadStuff" ' Program works if data is here Data "X",1,2,3,"Y",4,5,6,"Z",7,8,9,"END",0,0,0 X$(0)="" : i=0 Repeat Read X$(i),Z(i),X(i),Y(i) Print X$(i),Z(i),X(i),Y(i) Inc i Until X$(i-1)="END" End Function(i-1)
No data to display