99 Bottles of Beer/Assembly: Difference between revisions

=={{header|OASYS Assembler}}==

The following example demonstrates the use of pointer variables (the argument <tt>,^#</tt> to the <tt>&VERSE#</tt> method), and therefore may not be as efficient as one which does not use pointer variables.

<lang oasys_oaa>

; Beer program with OASYS assembler.

[&]

%@*>"Type 'beer' for beer.~Type 'quit' to quit.~"PS

['BEER]

,#99>:+,#&VERSE#/"No more bottles of beer on the wall.~"PS

[&VERSE#,^#]

,^#<<PI" bottles of beer on the wall.~"PS

,^#<<PI" bottles of beer.~Take one down and pass it around,~"PS

,^#<,^#<<DN>,^#<<\

,^#<<PI" bottles of beer on the wall.~"PS CR 1RF: 0RF

['QUIT]

GQ

</lang>