Pete's QBASIC Site

Code: Select all

DIM originalWeight AS DOUBLE, weight AS DOUBLE
DIM milesRanPerDay AS INTEGER, foodsEatenPerDay AS INTEGER
DIM day AS LONG

CLS

INPUT "Current weight (in pounds)"; originalWeight
INPUT "How many miles do you run per day"; milesRanPerDay
INPUT "How much food (in pounds) do you eat per day"; foodsEatenPerDay

CLS

weight = originalWeight
milesRanPerDay = milesRanPerDay + 100
foodsEatenPerDay = 0

PRINT "Here's your diet:"
PRINT "Eat " + LTRIM$(RTRIM$(STR$(foodsEatenPerDay))) + " pounds of food a day."
PRINT "RUN " + LTRIM$(RTRIM$(STR$(milesRanPerDay))) + " miles a day."
easy$ = INPUT$(1)
CLS

day = 0
DO
day = day + 1

CLS
PRINT "Day " + LTRIM$(RTRIM$(STR$(day)))
PRINT "Current Weight: " + LTRIM$(RTRIM$(STR$(INT(weight))))

weight = weight - INT(milesRanPerDay * .05) + INT((foodEatenPerDay - (milesRanPerDay * .02) * .05))

PRINT
PRINT "Running " + LTRIM$(RTRIM$(STR$(milesRanPerDay))) + " miles today";
SLEEP 1
FOR x = 0 TO 3
PRINT ".";
SLEEP 1
NEXT

LOOP UNTIL weight < 1
IF weight < 0 THEN weight = 0

CLS
PRINT "Tadaaaaa! You lost " + LTRIM$(RTRIM$(STR$(originalWeight))) + " pounds in only " + LTRIM$(RTRIM$(STR$(day))) + " days!"
PRINT "You now weigh a lean 0 pounds."
INPUT "Now wasn't that easy"; easy$
PRINT "Shut up. You're dead."
END