25 lines
391 B
Tal
25 lines
391 B
Tal
|
|
|0100
|
|
;bottles-of-beer print
|
|
;on-the-wall print
|
|
( incrment num )
|
|
;bottles-of-beer print
|
|
BRK
|
|
|
|
|
|
%SP { 20 }
|
|
|
|
@bottles-of-beer "99_bottles_of_beer 00
|
|
@on-the-wall "on_the_wall 00
|
|
@take-one-down "take_one_down,_pass_it_around 00
|
|
|
|
|
|
@print ( str* -: )
|
|
( LDAk LIT "_ NEQk ?print/space )
|
|
LDAk DUP #5f NEQ
|
|
?{ POP #20 }
|
|
#18 DEO
|
|
INC2 LDAk ?print
|
|
( print newline )
|
|
#0a #18 DEO
|
|
POP2 JMP2r
|