; TestPat
; -------
; Display a test pattern of selected size
;
listbox Test Pattern,Select a screen size,640x480|1024x760|1280x1024,A
casemsg end|tp1|tp2|tp3
goto end
:tp1
setvar A,testpat1.bmp
goto tp
:tp2
setvar A,testpat2.bmp
goto tp
:tp3
setvar A,testpat3.bmp
:tp
picbox Test Pattern,,%A,B
:end