99 Bottles of Beer

Voting

Bookmarking

Language Basic for Casio FX 2

(Scientific calculator)

Date:	03/24/08
Author:	Jan Prazak
URL:	http://www.amarok.cz
Comments:	1
Info:	n/a
Score:	(2.33 in 33 votes)

'99 bottles of beer
'for
'Casio Algebra FX 2
'By Jan Prazak, www.amarok.cz
'Note: "->" is the assignment arrow, it's a special symbol;
'function "GetKey" returns key codes to the variable "Ans",
'0 = no key, 47 = ESC (escape)

For 99->B To 1 Step -1

ClrText

4->X
If B<10
Then 3->X
IfEnd

Locate 1,1,B
Locate X,1,"BOTTLE(S) OF BEER"
Locate 1,2,"ON THE WALL,"
Locate 1,3,B
Locate X,3,"BOTTLE(S) OF BEER"

Locate 1,4,"-- TAKE ONE DOWN"
Locate 1,5,"AND PASS IT AROUND,"

4->X
If B-1<10:Then 3->X
IfEnd

Locate 1,6,B-1
Locate X,6,"BOTTLE(S) OF BEER"
Locate 1,7,"ON THE WALL"

Do:GetKey
LpWhile Ans=0

If Ans=47:Then Break
IfEnd

Next

ClrText

Download Source | Write Comment

Alternative Versions

Comments

Eiyeron said on 08/09/10 15:00:13

What a language! Basic for Casio? What about thinking about programmers? That's not a part of joy, I can assure you!
For the Casio AFX (Graph 100+ for the European, i don't know the american version), we get ~200ko, when another FX get 65ko... No images, only F-Lines(x,y,x1,y1), Plot(x,y,x1,y1) or Drawstat, who uses two lists as x's and y's plots (best solution), and Black and White Only!

Join the team!

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!

one program in 1500 variations