Voting
Category
real language
Bookmarking
Language TrueBASIC
(improved version)
| Date: | 06/02/05 |
| Author: | R. Nuzzo |
| URL: | n/a |
| Comments: | 1 |
| Info: | http://TrueBASIC.com |
| Score: |  (3.00 in 19 votes) |
!--------------------------------------------------------
! Say, what?
! A thoroughly demented way to
! render an old familliar tune. Roy M. Nuzzo
! Uses lesser worked bits of TrueBASIC's string library
!--------------------------------------------------------
declare def Say$, NotOne
let NTxt$ = " bottles of beer on the wall Take one down and pass it around"
let c1 = 16
let c2 = 28
let MaxBottles = 5
let English = 1
let Latin = 2
For L = English to Latin
let BottleCount = MaxBottles
clear
do
call SingPhrase(c2, "...")
call SingPhrase(c1, "...")
print NTxt$[c2+2:MAXNUM];"..."
let BottleCount = BottleCount-1
call SingPhrase(c2, "!")
print
pause .2
loop while BottleCount > 0
print "press any key"
get key kk
Next L
sub SingPhrase(p, p$)
print Say$(L,BottleCount);
NTxt$[1:7];"s"[NotOne(BottleCount):NotOne(BottleCount)];NTxt$[9:p];p$
end sub
END !-------------------------------------
DEF NotOne(n)
if n <> 1 then let NotOne = 1 else let NotOne = 0
END DEF
DEF Say$(L, BottleCount)
LIBRARY "..\TBLibs\StrLib.TRC"
declare def Roman$, EnglishNum$
if L = 1 then
let Say$ = EnglishNum$(BottleCount)
else
if BottleCount = 0 then let Say$ = "No more" else let Say$ = Roman$(BottleCount)
end if
END DEF
!====================================================================================
Output Samples
=========
ENGLISH
=========
Ninety-nine bottles of beer on the wall...
...
Five bottles of beer on the wall...
Five bottles of beer...
Take one down and pass it around...
Four bottles of beer on the wall!
Four bottles of beer on the wall...
Four bottles of beer...
Take one down and pass it around...
Three bottles of beer on the wall!
Three bottles of beer on the wall...
Three bottles of beer...
Take one down and pass it around...
Two bottles of beer on the wall!
Two bottles of beer on the wall...
Two bottles of beer...
Take one down and pass it around...
One bottle of beer on the wall!
One bottle of beer on the wall...
One bottle of beer...
Take one down and pass it around...
Zero bottles of beer on the wall!
=======
LATIN
=======
XCIX bottles of beer on the wall...
...
V bottles of beer on the wall...
V bottles of beer...
Take one down and pass it around...
IV bottles of beer on the wall!
IV bottles of beer on the wall...
IV bottles of beer...
Take one down and pass it around...
III bottles of beer on the wall!
III bottles of beer on the wall...
III bottles of beer...
Take one down and pass it around...
II bottles of beer on the wall!
II bottles of beer on the wall...
II bottles of beer...
Take one down and pass it around...
I bottle of beer on the wall!
I bottle of beer on the wall...
I bottle of beer...
Take one down and pass it around...
No more bottles of beer on the wall!
Download Source | Write Comment
Download Source | Write Comment
Add Comment
Please provide a value for the fields Name,
Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.
Please don't post large portions of code here! Use the form to submit new examples or updates instead!
Comments