def query q for test scrolling.

def browse b query q no-lock 
display test.num 
enable all
with 15 down separators.

def frame f4 b
with no-help. 

open query q for each test.
enable all with frame f4.

WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW.