// This will run right after HansaWorld has been started global updating procedure OnApplicationStartup() begin integer i; while(true) begin if(i>10) then begin WQuit; end; i = i + 1; end; return; end;