Listing of file='36A' on disk='vmedia/glbr_22.wvd.zip'
# Sector 878, program filename = '36A' 0005 DIM Q(4,4) 0014 DATA 1,2,3,4,5,6,7,8,10,11,12,13,9,0,0,0 0015 FOR I=1 TO 4 : FOR J=1 TO 4 : READ Q(I,J) : NEXT J : NEXT I 0020 PRINT : PRINT : PRINT : PRINT "L,B,S,W,P,A" 0022 INPUT C1,C2,L,W,P,A : PRINT 0024 C=Q(C1,C2) : IF C>0 THEN 30 0026 PRINT "CANNOT SOLVE THAT CASE. FOR L=4, CAN COMPUTE" 0027 PRINT "RECOMMENDED BEAM ONLY FOR B=1." 0028 GOTO 20 0030 IF C<3 THEN 42 0031 IF C>3 THEN 32 : M=W*L*L/12 : GOTO 65 0032 IF C>4 THEN 33 : M=W*L*L/2 : GOTO 65 0033 IF C>5 THEN 34 : M=P*L/4 : GOTO 65 0034 IF C>6 THEN 35 : M=3*P*L/16 : GOTO 65 0035 IF C>7 THEN 36 : M=P*L/8 : GOTO 65 0036 IF C>8 THEN 37 : M=P*L/2 : GOTO 65 0037 IF C>9 THEN 38 : M=P*A : GOTO 65 0038 IF C>10 THEN 39 : M=W*L*L/8+P*L/4 : GOTO 65 0039 IF C>11 THEN 40 : M=W*L*L/8+3*P*L/16 : GOTO 65 0040 IF C>12 THEN 41 : M=W*L*L/12+P*L/8 : GOTO 65 0041 M=W*L*L/2+P*L/2 : GOTO 65 0042 M=W*L*L/8 0065 S=12*M/20000 0067 FOR I=1 TO 53 : READ S9,D,K,W 0071 IF S<S9 THEN 76 0072 NEXT I 0073 PRINT "LARGE ENOUGH BEAM DOES NOT EXIST, REDEFINE PROBLEM" : GOTO 20 0076 IF C=3 THEN 89 : IF C=4 THEN 91 0080 IF C=7 THEN 89 : IF C=8 THEN 91 0085 IF C=12 THEN 89 : IF C=13 THEN 91 0087 M1=M+W*L*L/8 : GOTO 92 0089 M1=M+W*L*L/12 : GOTO 92 0091 M1=M+W*L*L/2 0092 S2=12*M1/20000 0093 IF S9>=S2 THEN 96 : S=S2 : GOTO 71 0096 PRINT "RECOMMENDED BEAM IS A ";D; 0097 IF K>1 THEN 98 : PRINT "U"; : GOTO 111 0098 IF K>2 THEN 99 : PRINT "JR"; : GOTO 111 0099 IF K>3 THEN 100 : PRINT "JRU"; : GOTO 111 0100 IF K>4 THEN 101 : PRINT "B"; : GOTO 111 0101 PRINT "WF"; 0111 PRINT W : PRINT "MORE INPUT (1=YES,0=NO)" : INPUT A7 : IF A7=1THEN 20 : END 0113 DATA 1.1,3,1,4.1 0114 DATA 1.2,3,1,5 0115 DATA 2.4,6,2,4.4 0116 DATA 3.5,7,2,5.5 0117 DATA 4.7,8,2,6.5 0118 DATA 6.5,10,3,8.4 0119 DATA 7.8,10,2,9 0120 DATA 9.3,12,3,10.6 0121 DATA 10.5,10,4,11.5 0122 DATA 12,12,2,11.8 0123 DATA 14.8,12,4,14 0124 DATA 17.5,12,4,16.5 0125 DATA 18.8,10,4,19 0126 DATA 21.4,12,4,19 0127 DATA 21.5,10,5,21 0128 DATA 25.3,12,4,22 0129 DATA 26.4,10,4,25 0130 DATA 34.1,12,5,27 0131 DATA 41.8,14,5,30 0132 DATA 48.5,14,5,34 0133 DATA 56.3,16,5,36 0134 DATA 64.4,16,5,40 0135 DATA 72.4,16,5,45 0136 DATA 80.7,16,5,50 0137 DATA 89,18,5,50 0138 DATA 98.2,18,5,55 0139 DATA 107.8,18,5,60 0140 DATA 126.4,21,5,62 0141 DATA 139.9,21,5,68 0142 DATA 150.7,21,5,73 0143 DATA 175.4,24,5,76 0144 DATA 196.3,24,5,84 0145 DATA 220.9,24,5,94 0146 DATA 242.8,27,5,94 0147 DATA 248.9,24,5,100 0148 DATA 266.3,27,5,102 0149 DATA 299.2,30,5,108 0150 DATA 327.9,30,5,116 0151 DATA 354.6,30,5,124 0152 DATA 404.8,33,5,130 0153 DATA 446.8,33,5,141 0154 DATA 502.9,36,5,150 0155 DATA 541,36,5,160 0156 DATA 579.1,36,5,170 0157 DATA 621.2,36,5,182 0158 DATA 663.6,36,5,194 0159 DATA 669.6,33,5,200 0160 DATA 740.6,33,5,220 0161 DATA 835.5,36,5,230 0162 DATA 892.5,36,5,245 0163 DATA 951.1,36,5,260 0164 DATA 1031.2,36,5,280 0165 DATA 1105.1,36,5,300