IF#901.item[0]==3GOTO1
IF#901.item[0]==2GOTO2
GOTO4
N1
#952.itemnum=#952*#952.permission
#11=952
GOTO3
N2
#953.itemnum=#953*#953.permission
#11=953
GOTO3
N3
#10=0
WHILE#10<^11.itemnumDO1
^11.itemtype[#10]=2
#10=#10+1
END1
N4

