'===========================================================================
' Subject: LEMONADE STAND                     Date: 05-18-99 (12:28)       
'  Author: Kenneth Green                      Code: ASIC                   
'  Origin: Ken27@thegrid.net                Packet: ASIC.ABC
'===========================================================================
REM This program was made after midnight on May 17, 1999
REM It was created because about 10 years ago I played a similar
REM program when computer games had hardly any graphics on them.
REM This program has no graphics, but is really fun!
m=20
cls
print "               Lemonade Stand"
print
print "By Kenneth Green"
print
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, a"
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"
print "have."
print "Also, City Ordinances say no more than 4 advertisements per game."
print "Press enter to begin.";
input a$
l=0
go:
cls
print "              Lemonade Stand"
print
print "Money: ";
print m
if l<1 then lll:
print "Type your price per glass you will charge here:";
input ch
if ch>10 then
   print "Your price is way to high, I will set it at $10 per glass."
   ch=10
   endif
if ch<1 then
   print "Your price is under $1 which these days isn't very profitable."
   print "I will set it as $1."
   ch=1
   endif
print "Glasses Of Lemonade To Sell: ";
print l
print "Amount of Advertisements you have: ";
print aa
print "------------------------------------------------------------"
goto am:

REM Sorry for all the gotos, I had to shuffle this next section around.
lll:
if l<1 then
   print "You currently have no lemonade."
   if m<3 then
   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.";
   input qgg$
   goto done:
   endif
 print "Press enter to go buy lemonade.";
 input gb$
 goto buylemonade:
 endif

am:
randomize
r=rnd(0)
r=r mod 20
r=r+1
if ch>6 then
   w=7
   goto nex:
   endif
w=ch
nex:
r=r+s
r=r-w
if r<10 then
   r=0
   endif
print "You have ";
print r;
print " customers at the moment."
print "------------------------------------------------------------"

REM The next part was made because I didn't want to try and calculate
REM the difference of how many customers could get lemonade per group
REM and who does not. It makes hardly any difference in this game anyway.
if r>l then
   print "You just ran out of lemonade, but the group of customers were"
   print "kind and gave you what you charged for all of them."
   print "You thank them and gave the rest of the group water instead."
   l=0
   goto lll:
   endif
mm=ch*r
m=m+mm
l=l-r
print "Now you have: ";
print m;
print " dollars."
print "Now you have: ";
print l;
print " glasses of lemonade left."
check:
print "(1) Buy 1 Pitcher of Lemonade"
print "(2) Buy 1 Advertisement Sign"
print "(3) Keep Selling"
print "(4) End Game"
print "Type a number here and press enter:";
input num
if num=1 then buylemonade:
if num=2 then buyad:
if num=3 then go:
if num=4 then done:
goto check:
buylemonade:
le=rnd(0)
le=le mod 3
le=le+1
print "Currently, lemonade costs ";
print le;
print " dollars."
if le>m then
  print "Sorry, but you don't have enough money to buy any more."
  goto done:
  endif
print "You buy 1 pitcher of lemonade."
print "One pitcher equals 20 glasses."
m=m-le
print "Now you have ";
print m;
print " dollars."
print
l=l+20
print "You have ";
print l;
print " amounts of glasses to sell now."
print "Press enter to go back to main screen.";
input gb$
goto go:
buyad:
cls
if aa=4 then
  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.";
  input ag$
  goto go:
  endif
print "Advertisements costs $4 each."
print "They add your profit because you get more customer attention."
if m<4 then
   print "Sorry, currently you have less than $4."
   print "Press enter to go back to main menu.";
   input bs$
   goto go:
   endif
m=m-4
aa=aa+1
print "You just bought 1 advertisement. In the real world it would matter"
print "where you place the sign at, but here it won't matter."
print "You now have: ";
print m;
print " dollars left."
print "Press enter to go back to main screen.";
input gg$
s=s+1
goto go:
done:
cls
print "                Lemonade Stand"
print
print "Your total money: ";
print m;
print " dollars."
print "You started with 20 dollars."
ppr=m-20
if ppr<1 then
    print "You didn't make any money."
    print "Good luck next game!"
    goto ddone:
    endif
print "Your total profit is ";
print ppr;
print " dollars!"
print
ddone:
print "Come back soon!"
print
print "Press enter to quit program.";
input qp$
end