!to "loop.prg", cbm

 *=$c000

 jmp start

 !source "stack.a"

start
 +initstp
 +lit 1
 +sto x
loop
 +lod x
 +lit 11
 jsr lss
 +jpc end
 +lod x
 jsr dup
 jsr outdec
 +lit 13
 jsr outchr
 jsr incr
 +sto x
 jmp loop
end
 rts


x
 !wo 0