Back to Messages
kanga85 (Wed Apr 23 2014 at 1:41 am)
Why does this not run in QB64?
This code, opening a data file in line 9010, returning to the main program to get a record # R, and then collecting data in line 9020 works perfectly in GWBasic but not in QB64. The values C,S,SG,DY returned are all zero in QB64.
I have change the open statement to:
OPEN "Moneyrec.dat" for random as #1 Len=32
but no improvement.
Any help is appreciated. Thanks
9010 OPEN "R", #1, "MONEYREC.DAT", 32: FIELD #1, 8 AS C$, 8 AS S$, 8 AS SG$, 8 AS DY$: LOR = LOF(1) / 32: RETURN
9020 GET #1, R: C = CVD(C$): S = CVD(S$): SG = CVD(SG$): DY = CVD(DY$): RETURN
Reply to this Message
Powered by FlatForum 1.4