Programmer 7500/MAX_PROGRAMMERS.iso/CLIPPER/MISC/BIPL.ZIP/IDOL.ZIP/SINVKTST.IOL

Text File | 1991-12-30 | 252 b | 14 lines

class sinvbuffer : strinvokable()
  method forward_char()
    write("success")
  end
  method eval(s,args[])
    suspend self$strinvokable.eval(map(s,"-","_"))
  end
end

procedure main()
  x := sinvbuffer()
  x $ eval("forward-char")
end