do lb1 x55=1,100
ud s,x55,x40
select
ud ic,x55,x21,x22,x23
prm0005
rt sq
unt{****x40}
rts/prj{****x40}
x21
x22,x23
lb1
en