Openfile readline issues

Previous topic - Next topic

MrPlow

Hi Guys

Can anyone tell me what i have dont wrong in this function...
or did I stumble on a bug?


The prizes array is always the same size.

Code (glbasic) Select
FUNCTION savecoin:co%
LOCAL test$ //= GETCURRENTDIR$()+"Media/data/scr.txt"
test$ = PLATFORMINFO$("APPDATA") + "/g34222-g.dat"
LOCAL vv% = 0
LOCAL ok=TRUE

ok=OPENFILE(1,test$,FALSE)
IF ok=TRUE

WRITELINE 1,ENCRYPT$("mystuff",co%)

FOREACH pp IN prizes[]
vv% = pp.frm
WRITELINE 1,ENCRYPT$("mystuff",vv%)
DEBUG vv
NEXT

CLOSEFILE 1
ENDIF


ENDFUNCTION


FUNCTION loadcoin:

LOCAL test$ //= GETCURRENTDIR$()+"Media/data/scr.txt"
test$ = PLATFORMINFO$("APPDATA") + "/g34222-g.dat"

LOCAL hsc$ = ""
LOCAL ok
LOCAL line$=""
LOCAL pz$=""
LOCAL pz=0

//KILLFILE PLATFORMINFO$("APPDATA") + "/g34222-g.dat"

ok= OPENFILE(1, test$, TRUE)
//KILLFILE PLATFORMINFO$("APPDATA") + "/g34222-g.dat"

IF ok=TRUE
READLINE 1,line$
hsc$ = DECRYPT$("mystuff",line$)
IF hsc$ <> "" THEN RETURN hsc$

FOREACH pp IN prizes[]

READLINE 1,pz$
pz$ = DECRYPT$("mystuff",pz$)
DEBUG pz$
pz=pz$
pp.frm=pz
NEXT

CLOSEFILE 1
ENDIF



ENDFUNCTION



Basically the writing seems to work fine but the read version does not.
Comp:
Speccy-48k, Speccy-128k, Amigas, PCs

MrPlow

Doooh!

Please ignore I seen the problem!!! I had a RETURN too early :)
Comp:
Speccy-48k, Speccy-128k, Amigas, PCs