r v3 := dword [$40:6C]
if(!v2)then,rv2:=#16
rv1:=0
uninstall,paging
ext ifext.eld if not ext "quiet" then ext quiet.eld install
quiet on
:loop
?
?f
?r
?c
?run
?e
?v
?re
?b
?l
?source
r,v1,+=1
if(v1!=v2)then,goto:loop
quiet off
r v4 := dword [$40:6C]
h (v4 - v3) / #18