![Smile :)](./images/smilies/icon_smile.gif)
Joey
vovchik,vovchik wrote:Dear Jemimah and Co.,
Please have a look at http://www.basic-converter.org/. Much has happened on the Bacon front in the past few months. It is a nice, structured language, and Peter, the author, keeps improving it almost daily. Some of my forays in Bacon are also posted there.
Truth.Doing anything with a GUI in C is brain damaging.
Code: Select all
\(-
Code: Select all
root$ [~]-> bash --version
bash --version
GNU bash, version 3.2.29(2)-release (i486-slackware-linux-gnu)
Copyright (C) 2007 Free Software Foundation, Inc.
Code: Select all
' *****************************************************
' PROGRAM: beer.bac
' PURPOSE: http://99-bottles-of-beer.net
' AUTHOR: vovchik (Puppy Linux forum)
' DEPENDS: gcc, bacon, bash
' PLATFORM: Puppy Linux (actually, any *nix)
' DATE: 15-11-2009
' COMMENTS: Not elegant - but works
' *****************************************************
' *********************
' INIT VARS
' *********************
beer_bottles = 100
stock$ = "bottles"
what$ = "of beer"
where$ = "on the wall"
action$ = "Take one down and pass it around, "
' *********************
' END INIT VARS
' *********************
' *********************
' MAIN
' *********************
REPEAT
beer_bottles = beer_bottles - 1
SELECT beer_bottles
CASE 0
stock$ = "No more bottles"
action$ = "Go to the store and buy some more, "
stock_depleted$ = CONCAT$(STR$(beer_bottles + 99)," ","bottles")
CASE 1
stock$ = CONCAT$(STR$(beer_bottles)," ","bottle")
stock_depleted$ = "no more bottles"
CASE 2
stock$ = CONCAT$(STR$(beer_bottles)," ","bottle")
stock_depleted$ = CONCAT$(STR$(beer_bottles-1)," ","bottle")
' stock_depleted$ = "no more bottles"
DEFAULT
stock$ = CONCAT$(STR$(beer_bottles)," ","bottles")
stock_depleted$ = CONCAT$(STR$(beer_bottles-1)," ","bottles")
END SELECT
PRINT
PRINT stock$," ", what$," ", where$, ", ", LCASE$(stock$), " ", what$, "."
PRINT action$, stock_depleted$, " ", what$," ", where$,"."
PRINT
UNTIL beer_bottles EQ 0
END
' *********************
' END MAIN
' *********************
Pizzasgood wrote: For kicks and giggles, type the following into a terminal and press enter (it won't hurt anything):Code: Select all
\(-
Code: Select all
# bash --version
GNU bash, version 4.1.0(1)-release (i686-pc-linux-gnu)
Copyright (C) 2009 Free Software Foundation, Inc.
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
Thanks vovchik,vovchik wrote:Dear seaside,
Barry K. has included Bacon in Quirky (devx), which is great, and a pet exists here: http://distro.ibiblio.org/pub/linux/dis ... es-quirky/. As for the Bash version, Bacon works perfectly with with: