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