$Q()BTC U/W-FOCAL:KBDACHNO/DA/TE?MV9BAZ ?MT BFS TG=2*H/L,S=FSQT(L*L/4+H*H),SI=H/S,CO=L/2*S,S1=S*AI,S2=S*BI?M]GBJA !"LAST KEHLB. ",GK;S WD=(1.2*SI-.4)*Q,WS=-.4*Q?MC6BLS A1=L*G/2,K1=G*L*(1+CI)/16*CI*TG,HG=G*L*(1+4*AI+CI)/16*AI*TG?MNR^T " HK =",K," KN"?MW7R(T %3"ERF. IX(",Z,") ="%7,X," CM4?MR^BD 2,5,1.45;T %4.02:23,A1,A1,K1,HG,HG,N1,N1,M1,M1?M"/B*D 2,5;T %3.01"SYSTEM";O (.1-D)10.1;F I=1,17;D 2?MTLB+D 5;T %4.02" L =",L," A =",A," LK =",BK*2;D 5;T " S =",S," S1 =",S1," S2 =",S2;D 5;T " H =",H," HU =",HU," H =",HO?M$CB6D 6;T "GU = ",GU/O;D 7;I (GK-.1)1.57;D 5?M\ B7D 5;T "KEHLBALKENLAST?MD L S KBDACH?M?MNLAST?;I (GK-.1)1.57;D 5?M;D 5;T " S =",S," S1 =",S1," S2 =",S2;D 5;T " H =",H," HU =",HU," HO =",HO?M,HS,HS,NS,NS,MS,MS?MV2CDD 5;T "WIND LINKS":23,A4,B4,K4,HA,HB,WA,WB,DW,EW?MI:CMS AA=L,AB=R?MJPCNS K=K1+K Note: Lines longer than 256 characters were wrapped