Dav's Qbasic Site.

Dav's mug.

 

Main

News

Forum

Qbasic/QB45

QB64

QBKB

Projects

More...

 

Forum


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


Name
Subject
Message

No HTML code will be allowed in the message.
All SPAM and inappropriate material will be deleted.

Powered by FlatForum 1.4

© Copyright 2011 by Dav - All Rights Reserved.
Hosted by www.qbasicnews.com.
Users now online: 1
Hits: 16892