Login

Tia · 03-02-2008, 11:56 AM

unless I have really screwed up this specific code (not part of the competition) gosubs I am using in a program am not working correctly.Â I do not believe I have used them wrong please correct me if I have.

Code:
'/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/

'/\Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Creating all of the gosubsÂ  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  /

'/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  /

CLS

GOSUB A100.Initialize

GOSUB B100.CreateMenu

'GOSUB C100.WrapUp

'/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/

'/\Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  InitializeÂ  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  /

'/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/

A100.Initialize:

RandomMoney = 0

Name$ = ""

Hours = 0

AmountEarned = 0

RETURN

'/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/

'/\Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â   Create MenuÂ  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  /

'/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/

B100.CreateMenu:

Â  Â  Â  Â  LOCATE 2, 25: PRINT "Freelancers"

Â  Â  Â  Â  LOCATE 4, 25: PRINT "Code"

Â  Â  Â  Â  LOCATE 4, 33: PRINT "Function"

Â  Â  Â  Â  LOCATE 5, 25: PRINT "----"

Â  Â  Â  Â  LOCATE 5, 33: PRINT "--------"

Â  Â  Â  Â  LOCATE 6, 27: PRINT "1"

Â  Â  Â  Â  LOCATE 7, 35: PRINT "2"

Â  Â  Â  Â  LOCATE 6, 33: PRINT "Run Program"

Â  Â  Â  Â  LOCATE 7, 33: PRINT "Exit Program"

RETURN

Mac · 03-02-2008, 02:20 PM

(03-02-2008, 11:56 AM)Tia link Wrote:CLS
GOSUB A100.Initialize
GOSUB B100.CreateMenu
'GOSUB C100.WrapUp

'/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
'/\Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â InitializeÂ Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â /
'/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/

A100.Initialize:
RandomMoney = 0
Name$ = ""
Hours = 0
AmountEarned = 0
RETURN

There is a need to terminate your main program after
'GOSUB C100.WrapUp
otherwise, the code will continue into A100.Initalize AGAIN!

And since you entered "A100.Initalize" without a GOSUB,Â it
will bomb out when it reaches RETURN. Nowhere to return to.

So code

CLS
GOSUB A100.Initialize
GOSUB B100.CreateMenu
'GOSUB C100.WrapUp
END

See the END? You must have that.

Tia · 03-02-2008, 10:55 PM

Ok thats what I thought at first.Â Man not using QBasic for awhile really is making a impact on my ability to do it lol.

Tia · 03-03-2008, 01:56 AM

I am having trouble making it a .exe it says it can't find a library.Â I am not sure what to enter when it says new file spec.Â Can anyone help me.

Mac · 03-03-2008, 06:49 AM

(03-03-2008, 01:56 AM)Tia link Wrote:I am having trouble making it a .exe it says it can't find a library.Â I am not sure what to enter when it says new file spec.Â Can anyone help me.

Assuming your program is z.bas, try starting QB like this

qb z.bas /L

Mac

LPG · 04-19-2008, 08:47 AM

You can enter the path of the file it asks for e.g c:\qbasic\bc.exe

zoasterboy · 04-22-2008, 10:07 PM

Quote:You can enter the path of the file it asks for e.g c:\qbasic\bc.exe

I usually do this by copying the Qbasic directory's contents into the C drive, and when it asks for the path I just enter : "C:\"

Makes it a little less time consuming I suppose.

Login
Username:
Password:	Lost Password?
	Remember me