9000 REM ****** BEMDES **** ENGINEERING PROGRAM ****
9001 REM ******  VDRSION 1 ***7/31/69  REV JUN.,1972 A.J.R.  C.C.G.
9002 REM STEEL BEAM SELECTION PROGRAM
9003 DIM Q(4,4)
9004 PRINT"DO YOU WANT INSTRUCTIONS (YES OR NO)";
9005 INPUT A$
9006 IF A$="YES" THEN 9172
9007 DATA 1,2,3,4,5,6,7,8,10,11,12,13,9,0,0,0
9008 FOR I=1 TO 4
9009 FOR J=1 TO 4
9010 READ Q(I,J)
9011 NEXT J
9012 NEXT I
9013 W,P,A=0
9014 PRINT:PRINT"WHAT IS THE LOAD CODE(L)";
9015 INPUT C1
9016 PRINT:PRINT"WHAT IS THE SUPPORT CODE (B)";
9017 INPUT C2
9018 PRINT:PRINT"WHAT IS THE SPAN IN FEET(S)";
9019 INPUT L
9020 IF C1=2 OR C1=4 THEN 9023
9021 PRINT:PRINT"WHAT IS THE DISTRIBUTED LOAD (W)";
9022 INPUT W
9023 IF C=1 THEN 9029
9024 PRINT:PRINT"WHAT IS EACH CONCENTRATED LOAD (P)";
9025 INPUT P
9026 IF C1<>4 THEN 9029
9027 PRINT:PRINT"WHAT IS THE LOCATION OF THE LOADS (A)";
9028 INPUT A
9029 C=Q(C1,C2)
9030 IF C>0 THEN 9035
9031 PRINT
9032 PRINT"NOT PROGRAMMED TO SOLVE THAT CASE. FOR L=4,"
9033 PRINT"CAN COMPUTE RECOMMENDED BEAM ONLY FOR B=1."
9034 GOTO 9199
9035 PRINT
9036 IF C<3 THEN 9048
9037 IF C=3 THEN 9050
9038 IF C=4 THEN 9052
9039 IF C=5 THEN 9054
9040 IF C=6 THEN 9056
9041 IF C=7 THEN 9058 
9042 IF C=8 THEN 9060
9043 IF C=9 THEN 9062
9044 IF C=10THEN 9064
9045 IF C=11 THEN 9066
9046 IF C=12 THEN  9068
9047 IF C=13 THEN 9070
9048 M=W*L*L/8
9049 GOTO 9071
9050 M=W*L*L/12
9051 GOTO 9071
9052 M=W*L*L/2
9053 GOTO 9071
9054 M=P*L/4
9055 GOTO 9071
9056 M=3*P*L/16
9057 GOTO 9071
9058 M=P*L/8
9059 GOTO9071
9060 M=P*L/2
9061 GOTO 9071
9062 M=P*A
9063 GOTO 9071
9064 M=W*L*L/8+P*L/4
9065 GOTO 9071
9066 M=W*L*L/8+3*P*L/16
9067 GOTO 9071
9068 M=W*L*L/12+P*L/8
9069 GOTO 9071
9070 M=W*L*L/2+P*L/2
9071 S=12*M/20000
9072 DIM S(55),D(55),K(55),W(55)
9073 FOR I=1 TO 53
9074 READ S(I),D(I),K(I),W(I)
9075 NEXT I
9076 FOR I=1 TO 53
9077 IF S<S(I) THEN 9081
9078 NEXT I
9079 PRINT"LARGE ENOUGH BEAM DOES NOT EXIST--REDEFINE PROBLEM"
9080 GOTO 9199
9081 IF C<2 THEN 9093
9082 IF C=3 THEN 9095
9083 IF C=4 THEN 9097
9084 IF C=5 THEN 9093
9085 IF C=6 THEN 9093
9086 IF C=7 THEN 9095
9087 IF C=8 THEN 9097
9088 IF C=9 THEN 9093
9089 IF C=10 THEN 9093 
9090 IF C=11 THEN 9093
9091 IF C=12 THEN 9095
9092 IF C=13 THEN 9097
9093 M1=M+W(I)*L*L/8
9094 GOTO 9098
9095 M1=M+W(I)*L*L/12
9096 GOTO 9098
9097 M1=M+W(I)*L*L/2
9098 S2=12*M1/20000
9099 IF S(I) >=S2 THEN 9102
9100 S=S2
9101GO TO 9077
9102 PRINT"  RECOMMENDED BEAM IS A  ";D(I);
9103 IF K(I)=1 THEN 9108
9104 IF K(I)=2 THEN 9110
9105 IF K(I)=3 THEN 9112
9106 IF K(I)=4 THEN 9114
9107 IF K(I)=5 THEN 9116
9108 PRINT "U";
9109 GO TO 9117
9110 PRINT "JR";
9111GO TO 9117
9112 PRINT "JRU";
9113 GO TO 9117
9114 PRINT "B";
9115 GO TO 9117
9116 PRINT "WF";
9117 PRINT W(I)
9118 GO TO 9199
9119 DATA 1.1,3,1,4.1
9120 DATA 1.2,3,1,5
9121 DATA 2.4,6,2,4.4
9122 DATA 3.5,7,2,5.5
9123 DATA 4.7,8,2,6.5
9124 DATA 6.5,10,3,8.4
9125 DATA 7.8,10,2,9
9126 DATA 9.3,12,3,10.6
9127 DATA 10.5,10,4,11.5
9128 DATA 12,12,2,11.8
9129 DATA 14,8,12,4,14
9130 DATA 17.5,12,4,16.5
9131 DATA 18.8,10,4,19
9132 DATA 21.4,12,4,19
9133 DATA 21.5,10,5,21
9134 DATA 25.3,12,4,22
9135 DATA 26.4,10,5,25
9136 DATA 34.12,5,27
9137 DATA 41.8,14,5,30
9138 DATA 48.5,14,5,34
9139 DATA 56.3,16,5,36
9140 DATA 64.4,16,5,36
9141 DATA 72.4,16,5,40
9142 DATA 80.7,16,5,50
9143 DATA 89,18,5,50
9144 DATA 98.2,18,5,55
9145 DATA 107.8,18,5,60
9146 DATA 126.4,21,5,62
9147 DATA 139.9,21,5,68
9148 DATA 150.7,21,5,73
9149 DATA 175.4,24,5,76
9150 DATA 196.3,24,5,84
9151 DATA 220.9,24,5,94
9152 DATA 242.8,27,5,94
9153 DATA 248.9,24,5,100
9154 DATA 266.3,27,5,102
9155 DATA 299.2,30,5,108
9156 DATA 327.9,30,5,116
9157 DATA 354.6,30,5,124
9158 DATA 404.8,33,5,130
9159 DATA 446.8,33,5,141
9160 DATA 502.9,36,5,150
9161 DATA 541,36,5,160
9162 DATA 579.1,36,5,170
9163 DATA 621.2,36,5,182
9164 DATA 663.6,36,5,194
9165 DATA 669.6,33,5,200
9166 DATA 740.6,33,5,220
9167 DATA 835.5,36,5,230
9168 DATA 892.5,36,5,245
9169 DATA 951.1,36,5,260
9170 DATA 1031.2,36,5,280
9171 DATA 1105.1,36,5,300
9172 PRINT
9173 PRINT "THIS PROGRAM WILL RECOMMEND THE CORRECT STEEL BEAM"
9174 PRINT "TO USE FOR A NUMBER OF COMMON APPLICATIONS. TO USE,"
9175 PRINT "RESPOND TO THE QUESTIONS ABOUT THE APPLICATION"
9176 PRINT "ACCORDING TO THE FOLLOWING CODE:"
9177 PRINT
9178 PRINT "	L = 1 FOR UNIFORMLY DISTRIBUTED LOAD"
9179 PRINT "	  = 2 FOR SINGLE MIDPOINT LOAD"
9180 PRINT "	  = 3 FOR UNIFORM LOAD + SINGLE MIDPOINT LOAD"
9181 PRINT "	  = 4 FOR TWO EQUAL SYMMETRIC LOADS"
9182 PRINT 
9183 PRINT "	B = 1 FOR BEAM SUPPORTED AT BOTH ENDS"
9184 PRINT "	  = 2 FOR ONE END FIXED, OTHER END SUPPORTED"
9185 PRINT "	  = 3 FOR BEAM FIXED AT BOTH ENDS"
9186 PRINT "	  = 4 FOR ONE END FIXED (CANTILEVER)"
9187 PRINT 
9188 PRINT "	S = LENGTH OF THE SPAN IN FEET"
9189 PRINT
9190 PRINT "	W = DISTRIBUTED LOAD IN POUNDS PER FOOT"
9191 PRINT
9192 PRINT "	P = EACH CONCENTRATED LOAD IN POUNDS"
9193 PRINT
9194 PRINT "	A = LOACTION OF LOAD(S) IN FEET FROM END"
9195 PRINT:PRINT
9197 GO TO 9008
9198 DATA 1,1,1,1,1,1
9199 RESTORE
9200 INPUT "ARE YOU FINISHED (YES OR NO)";A$
9202 IF A$="NO" THEN 9008
9203 PRINT "DONE"
9999 END