\ 2012-04-06  tempbuffer.fs

$40 constant #mybuf
variable mybuf #mybuf allot
variable >mybuf

: reset
  mybuf >mybuf !
  mybuf #mybuf 0 fill
;

: append ( c -- )
  >mybuf @ swap over !
  1+
  mybuf #mybuf + \ last addr of mybuf
  min >mybuf !
;
: show
  mybuf >mybuf @ over - 0 ?do
    dup i + @ emit
  loop
  drop
;