kanga85
Newbie
Posts: 4
|
|
« on: April 23, 2014, 01:21:55 am » |
|
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
|
|
|
|
|
|
|