; writes all the angles psi,theta and phi into a document file.
do lb1 x19=1,507
ud x19,x20,x21
nmb001
ud s,124,x50,x51,x52
dcb{***x21}
ud x19,x14
prm0005
x14=-x14
x14=x14-x51
if(x14.gt.0.0)goto lb20
x14=x14+360.0
lb20
if(x14.lt.360.0)goto lb21
x14=x14-360.0
lb21
sd x19,x52,x50,x14
ang001
lb1
en