Voting
Category
real language
Bookmarking
Language HP 48 Calculator
(SysRPL)
| Date: | 04/28/06 |
| Author: | Kiyoshi Akima |
| URL: | http://kiyoshiakima.tripod.com |
| Comments: | 1 |
| Info: | http://www.hpcalc.org |
| Score: |  (2.95 in 21 votes) |
( 99 Bottles of Beer )
( HP 48 SysRPL Version )
( by Kiyoshi Akima )
( 2006.04.27 )
ASSEMBLE
NIBASC /HPHP48-B/
RPL
::
AtUserStack
RECLAIMDISP ClrDA1IsStat TURNMENUOFF
NULL$ SEVEN NDUPN DROP
' ::
3GETLAM 4GETLAM 5GETLAM 6GETLAM 7GETLAM 8GETLAM
9PUTLAM 8PUTLAM 7PUTLAM 6PUTLAM 5PUTLAM 4PUTLAM
3PUTLAM
3GETLAM 4GETLAM 5GETLAM 6GETLAM 7GETLAM 8GETLAM 9GETLAM
DISPROW1 DISPROW2 DISPROW3 DISPROW4 DISPROW5 DISPROW6 DISPROW7
;
99
NULLLAM NINE NDUPN {}N BIND
BEGIN
1GETLAM #>$
" bottle" &$
1GETLAM #1<> IT :: CHR_s >T$ ;
" of beer" &$
DUP 2GETEVAL
" on the wall," 2GETEVAL
CHR_. >T$ 2GETEVAL
"Take one down," 2GETEVAL
" pass it around." 2GETEVAL
1GETLAM #1- 1PUTLAM
1GETLAM #0=ITE
"No more"
:: 1GETLAM #>$ ;
" bottle" &$
1GETLAM #1<> IT :: CHR_s >T$ ;
" of beer" &$
2GETEVAL
" on the wall." 2GETEVAL
1GETLAM #0= UNTIL
TURNMENUON RECLAIMDISP ClrDAsOK
ABND
;
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