!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