[dialog d_resizepics]
5,5
resizepic 0 0 <qval (<dargv[0]>)?<argv[0]>:3000> 420 180

args 9500,9400,9350,9300,9270,9200,5120,5100,3500,3200,3000,2620,2600,83
while <argv[<dlocal._while>]>
  button <eval ((<dlocal._while>*80)-((<dlocal._while>/5)*400))+20> <eval ((<dlocal._while>/5)*60)+20> 0845 0846 1 0 <eval <dlocal._while>+1>
  dtext <eval ((<dlocal._while>*80)-((<dlocal._while>/5)*400))+40> <eval ((<dlocal._while>/5)*60)+20> 55 <argv[<local._while>>
endwhile

[DIALOG d_resizepics BUTTON]
ON=1 15
local.argn <argn>
args 9500,9400,9350,9300,9270,9200,5120,5100,3500,3200,3000,2620,2600,83
dialogclose d_resizepics
sdialog d_resizepics,<argn>,<argv[<eval <dlocal.argn>-1>]>