'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) O