count_seconds (T1)
read_image (Image, ‘fabrik’)
get_image_size (Image, Width, Height)
dev_open_window (0, 0, Width, Height, ‘black’, WindowHandle)
count_seconds (T2)
RunTime := (T2 - T1)*1000
dev_display (Image)
disp_message (WindowHandle, ‘程序运行的时间: ‘+RunTime+’ ms’, ‘window’, 10, 10, ‘black’, ‘true’)