require 'befunge93'

class ExtendedBefunge93 < Befunge93
  define_method :"=" do
    move
    move until @memory[@position] == "="
  end

  define_method :"d" do
    puts
    25.times do |a|
      80.times do |b|
        print @memory[[b,a]].to_s
      end
      puts
    end
    s; puts
  end

  define_method :"s" do
    print "[#{@stack.join(":")}]"
  end
end