OS/2 Shareware BBS: 10 Tools/10-Tools.zip/OL.LZH/IDOL.LZH/SINVKTST.IOL

Text File | 1991-07-18 | 252b | 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