Gosub not working correctly

[Tia]

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