Monday, November 08, 2010 at 12:02 AM.

---

system.verbs.builtins.betty.examples.farTest.test

local (adrtable = parentof (this^));
local (server = "betty.userland.com", port = 80);
local (params, s, i);
window.about ();
for i = 1 to 10 {
	params = {22, 23, 24, 25};
	s = betty.rpc.client (rpcServer:server, rpcPort:port, procedureName:"examples.getStateNames", adrparamlist:@params);
	msg (sizeof (s) + " characters in response #" + i + " at " + string.timestring () + ".");
	if s != adrtable^.correctResponse {
		scriptError ("Oooops, you got an incorrect response.")}};
dialog.alert (s);
<<save off debugging info

wp.newTextObject (params [1], @adrtable^.rpcRequest);
try {delete (@adrtable^.rpcReturn)};
adrtable^.rpcReturn = params [2]

---

This listing is for code that runs in the OPML Editor environment. I created these listings because I wanted the search engines to index it, so that when I want to look up something in my codebase I don't have to use the much slower search functionality in my object database. Dave Winer.