Rem This is required at the start of your program
dim EntityData$(100,8)
dim noentities(1)



Rem This is the function
function LoadEntities(FName$)
open to read 1,FName$
Pos1=1: Pos2=1
while file end(1)=0
read string 1,a$
if a$"}"
if a$"{"
EntityData$(pos1,pos2)=a$
Pos2=Pos2+1
endif
else
EntityData$(pos1,0)=str$(pos2-1)
pos2=1
pos1=pos1+1
endif
endwhile
close file 1
NoEntities(1)=Pos1
endfunction