$
P08=I8K31
DOF REST:I8K31
T3I(50)=/T4D
T4I(105)=/T3D
U100N1=T3D
U100N0=T4D
P07=U100N0
DOF:P07+P08
W13N0=249
W13N1=220
W13N2=221
W13N3=222
W14N0=223
W14N1=224
W14N2=225
W14N3=226
ENDF
P06=U100N1
DOF:P06
W13N0=220
ENDF
T48I(20)=/T49D
T49I(20)=/T48D
;
DOF:U100N0
DOF:T48U
W13N0=[W13N0+1]
DOF:[W14N3=255]
W14N3=248
ENDF
DOF:[W14N2=254]
W14N2=248
W14N3=255
ENDF
DOF:[W14N1=254]
W14N1=248
W14N2=254
ENDF
DOF:[W14N0=254]
W14N0=248
W14N1=254
ENDF
DOF:[W13N3=254]
W13N3=248
W14N0=254
ENDF
DOF:[W13N2=254]
W13N2=248
W13N3=254
ENDF
DOF:[W13N1=254]
W13N1=248
W13N2=254
ENDF
ENDF
;
DOF:[W13N0=255]
W13N0=248
W13N1=254
;W13N1=220
W13N2=221
W13N3=222
W14N0=223
W14N1=224
W14N2=225
W14N3=226
ENDF
ENDF
;
DOF:U100N1
DOF:T48U
W13N0=[W13N0+1]
ENDF
;
DOF:[W13N0>236]
W13N0=[W13N0-17]
ENDF
;
DOF:T48U
W13N1=[W13N0+8]
ENDF
;
DOF:[W13N1>236]
W13N1=[W13N1-17]
ENDF
;
DOF:T48U
W13N2=[W13N1+1]
ENDF
;
DOF:[W13N2>236]
W13N2=[W13N2-17]
ENDF
;
DOF:T48U
W13N3=[W13N2+5]
ENDF
;
DOF:[W13N3>236]
W13N3=[W13N3-17]
ENDF
;
DOF:T48U
W14N0=[W13N3+2]
ENDF
;
DOF:[W14N0>236]
W14N0=[W14N0-17]
ENDF
;
DOF:T48U
W14N1=[W14N0+10]
ENDF
;
DOF:[W14N1>236]
W14N1=[W14N1-17]
ENDF
;
DOF:T48U
W14N2=[W14N1+3]
ENDF
;
DOF:[W14N2>236]
W14N2=[W14N2-17]
ENDF
;
DOF:T48U
W14N3=[W14N2+4]
ENDF
;
DOF:[W14N3>236]
W14N3=[W14N3-17]
ENDF
;
ENDF
ENDF REST
