' This program was made after midnight on May 17, 1999
' It was created because about 10 years before that I played a similar
' program when computer games had hardly any graphics on them.
' This program has no graphics, but is really fun!
' This game was adapted for QB64 on July 21, 2019.
m = 20
PRINT "This program is a business simulation for all ages." PRINT "Learn how to spend and keep money to make more money by" PRINT "selling lemonade. The buyers come mostly at random, but also" PRINT "are effected on how much advertising you do." PRINT "You are started out with $20, a table, a chair, free unlimited" PRINT "water to mix the lemonade, a fairly good street to sell to," PRINT "a glass pitcher, and a friend to help you go buy lemonade and put" PRINT "up ads on sign posts and to yell for customers." PRINT "Plus this is a pretend world so you can sell as long as you want or" PRINT "sell until your money runs out. At the end, it will total your money." PRINT "Hint: The more ad signs you put up, the more customers you will get." PRINT "If you don't get any customers for a long time, well sometimes" PRINT "people just don't want something to drink!" PRINT "Remember that the higher you charge, the less customers you will have." PRINT "Also, city ordinances say no more than 4 advertisements per game." INPUT "Press enter to begin.", a$
l = 0
go:
PRINT "A huge gust of wind just came and blew over 1 of your advertisements" PRINT "and a vehicle ran over it making it useless." aa = aa - 1
PRINT "You now have "; aa;
" advertisements left." PRINT "Type your price per glass you will charge here (only numbers):";
PRINT "Your price is way too high, I will set it at $10 per glass." ch = 10
PRINT "Your price is under $1 which these days isn't very profitable." PRINT "I will set it as $1." ch = 1
PRINT "Glasses Of Lemonade To Sell: ";
PRINT "Amount of Advertisements you have: ";
PRINT "------------------------------------------------------------"
lll:
PRINT "You currently have no lemonade." PRINT "You also don't have enough money to buy lemonade that could cost" PRINT "as much as $3 a pitcher." PRINT "Press enter to quit the game.";
PRINT "Press enter to go buy lemonade.";
am:
w = 7
w = ch
nex:
r = r + s
r = 0
PRINT "------------------------------------------------------------"
r = l
PRINT "You just ran out of lemonade, but you were able to sell" PRINT "to "; r;
" customers." mm = ch * r
m = m + mm
PRINT "You now have "; m;
l = 0
mm = ch * r
m = m + mm
PRINT " glasses of lemonade left." check:
PRINT "(1) Buy 1 Pitcher of Lemonade" PRINT "(2) Buy 1 Advertisement Sign" PRINT "Type a number here and press enter:";
buylemonade:
PRINT "Currently, a pitcher of lemonade costs ";
PRINT "Sorry, but you don't have enough money to buy any more." PRINT "You buy 1 pitcher of lemonade." PRINT "One pitcher equals 20 glasses." l = l + 20
PRINT " amounts of glasses to sell now." PRINT "Press enter to go back to main screen.";
buyad:
PRINT "Sorry but due to the enormous amount of garbage on the street," PRINT "the city says you have the limit number of advertisements." PRINT "Press enter to continue.";
PRINT "Advertisements costs $4 each." PRINT "They add your profit because you get more customer attention." PRINT "Sorry, currently you have less than $4." PRINT "Press enter to go back to main menu.";
m = m - 4
aa = aa + 1
PRINT "You just bought 1 advertisement." PRINT "Press enter to go back to main screen.";
s = s + 1
done:
PRINT "Your total money: ";
PRINT "You started with 20 dollars." ppr = m - 20
PRINT "You didn't make any money." PRINT "Good luck next game!" PRINT "Your total profit is ";
ddone:
PRINT "Press enter to quit program.";