C. *. Kode, AC(1)=(Z+ZL/2.)*1000, EQ.3) THEN READ(8,*) ZL,BY WRITE)=AC(1) CALL CURVE(AC,BC,2,0) CALL ANGLE(0.) CALL RLMESS.) CALL RLREAL(AMASS,0,13.*GZMAX/75.,4.*GYMAX/5.) CALL ANGLE(90.) CALL RLMESS(SYMBOL0.52*GYMAX) CALL RLREAL(BY, p.ACAC