Project

General

Profile

Bug #804

Read doesn't work inside function if Data statement is outside of the function.

Added by Brian Flanagan over 2 years ago.

Status:
New
Priority:
Normal
Assignee:
AOZ Developers
Target version:
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

Also available in: Atom PDF