diff options
Diffstat (limited to 'development/focal/beer.foc')
| -rw-r--r-- | development/focal/beer.foc | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/development/focal/beer.foc b/development/focal/beer.foc new file mode 100644 index 0000000000..13beb83ccf --- /dev/null +++ b/development/focal/beer.foc @@ -0,0 +1,24 @@ +01.10 c Focal-8 version of 99 Bottles of beer +01.20 c Hacked by Akira KIDA, <SDI00379@niftyserve.or.jp> +01.30 c Made to actually work by Dave Pitts <dpitts@cozx.com> +10.10 set bottles = 99 +10.20 do 20 +10.30 quit +20.10 for j=1,bottles; set i=bottles+1-j;do 30 +20.20 return +30.10 set b = i +30.20 do 40 ; type " on the wall, " +30.30 do 40 ; type ".", ! , "Take one down, pass it around.", ! +30.40 set b = i - 1 +30.50 do 40 ; type " on the wall.", !, ! +30.60 return +40.10 do 50 +40.20 type " of beer" +40.30 return +50.10 if (b - 1) 50.20, 50.40, 50.60 +50.20 type "No more bottles" +50.30 return +50.40 type %1.0, b, " bottle" +50.50 return +50.60 type %1.0, b, " bottles" +50.70 return |