!level_2a

*get,ar67,active,0,prkey
/nopr

a2=ar67

parsav,all,tpr_level_2a,out


*if,prkey_,eq,1,then
    /go
*endif