' Weight Guess

again:

CLS
PRINT TAB(25); "** Weight Guess **"
PRINT : PRINT : PRINT
PRINT "Please answer each question correctly"
PRINT : PRINT
DO
PRINT "Are you a male or female (M/F)"
LINE INPUT "", sex$
LOOP UNTIL sex$ = "M" OR sex$ = "F" OR sex$ = "m" OR sex$ = "f"
PRINT "What is your shoe size"
INPUT ""; shoe%
PRINT
PRINT "HOW TALL DO YOU THINK YOU ARE"
INPUT "", ta%
IF sex$ = "m" OR sex$ = "M" THEN GOTO W2 ELSE
PRINT "Your Weight is "; ta% + shoe% + sex% + 50; " lbs"
GOTO again1
W2:
PRINT "Your Weight is "; ta% + shoe% + sex% + 100; " lbs"
again1:
PRINT : PRINT
PRINT "Play again"
DO
INPUT "", Ans$
LOOP UNTIL Ans$ = "Y" OR Ans$ = "N" OR Ans$ = "y" OR Ans$ = "n"
IF Ans$ = "Y" OR Ans$ = "y" THEN CHAIN "games\WEIGHT" ELSE PRINT "Please Wait...": CHAIN "moneycga"