## 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