$TEXT (NAM=GDBPRC:TB_CALC, ATT=ASC) MEPLA (NAM=MAN$TB_PLA(T), CSY=CSY, MOD=NOE, ITY=GSS, DEL=Y) MECIR (NAM=MAN$TB_CIR(T), CSY=CSY, PRO=MAN$TB_PLA(T), MOD=NOE, PTY=EX, DEL=Y) BLDCSY (NAM=POST_CSY(T), TYP=CAR, SPA=MAN$TB_PLA(T), SDR=+Z, XZE=MAN$TB_CIR(T), YZE=MAN$TB_CIR(T), ZZE=MAN$TB_PLA(T)) GENCIR (NAM=TBA_PLA(T), XCO=0, YCO=0, ZCO=0, DIA=9/25.4, NPT=7, PLA=XY, INO=P, CSY=POST_CSY(T), ZVL=10, DEL=Y) GENCIR (NAM=TBA_PLA(T), XCO=0, YCO=0, ZCO=0, DIA=16/25.4, NPT=9, PLA=XY, INO=P, CSY=POST_CSY(T), ZVL=10, DEL=N) DELNPT (NAM=TBA_PLA(T), CNF=N, FRS=9, LST=10) CPYEVA (FRM=TBA_PLA(4), TO =TBA_PLA(T)) MEPLA (NAM=TBA_PLA(T), CSY=POST_CSY(T), ITY=GSS,CPY=TBA_PLA(4)) GENCYL (NAM=TBA_CYL(T), XCO=0, YCO=0, ZCO=-1.2/25.4, DIA=.250, NPT=21, PLA=XY, INO=I, LEN=-8/25.4, NPL=3, ZVL=10, DEL=Y) CPYEVA (FRM=TBA_CYL(4), TO =TBA_CYL(T)) MECYL (NAM=TBA_CYL(T), CSY=POST_CSY(T),CPY=TBA_CYL(T)) CPYEVA (FRM=PLA_BORE(4), TO =PLA_BORE(T)) SQRNES (NAM=PLA_BORE(T), OBJ=TBA_PLA(T), DAT=TBA_CYL(T), MMC=N, CPY=PLA_BORE(T), MOD=EVA) BLDCSY (NAM=TBA_CSY(T), TYP=CAR, SPA=TBA_CYL(T), SDR=+Z, XZE=TBA_CYL(T), YZE=TBA_CYL(T), ZZE=TBA_PLA(T)) DFNELE (NAM=PLA_25P4(T), TYP=PLA, CSY=TBA_CSY(T), DEL=N) PUTVALS (OBJ=PLA_25P4(T), RDS=(X,Y,Z,U,V,W), VAL=(0,0,25.4,0,0,1)) CPYEVA (FRM=TB_CALC(4), TO =TB_CALC(T)) INTPNT (NAM=TB_CALC(T), CSY=MAG_CSY, EL1=PLA_25P4(T), EL2=TBA_CYL(T).$AXI, PPI=NO,CPY=TB_CALC(4)) $TXTEND DO (NAM=T, BGN=1, END=4, DLT=1) MEPLA (NAM=MAN$TB_PLA(T), CSY=CSY, MOD=NOE, ITY=GSS, DEL=Y) MECIR (NAM=MAN$TB_CIR(T), CSY=CSY, PRO=MAN$TB_PLA(T), MOD=NOE, PTY=EX, DEL=Y) BLDCSY (NAM=POST_CSY(T), TYP=CAR, SPA=MAN$TB_PLA(T), SDR=+Z, XZE=MAN$TB_CIR(T), YZE=MAN$TB_CIR(T), ZZE=MAN$TB_PLA(T)) INDPRC (NAM=GDBPRC:TB_CALC) ENDDO