99 Bottles Of Beer Basic
'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

Podobne strony

Podobne Strony
Table of Contents
O ile nie zaznaczono inaczej, treść tej strony objęta jest licencją Creative Commons Attribution-ShareAlike 3.0 License