9000  REM  *****  BEMDES  *****  ENGINEERING PROGRAM  *****
9001  REM  *****  VERSION 1  *****  7/31/69  *****
9002  REM  STEEL BEAM SELECTION PROGRAM
9003  DIM A$[3],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  LET W=P=A=0
9014  PRINT '13'10"WHAT IS THE LOAD CODE (L)";
9015  INPUT C1
9016  PRINT '13'10"WHAT IS THE SUPPORT CODE (B)";
9017  INPUT C2
9018  PRINT '13'10"WHAT IS THE SPAN IN FEET (S)";
9019  INPUT L
9020  IF C1=2 OR C1=4 THEN 9023
9021  PRINT '13'10"WHAT IS THE DISTRIBUTED LOAD (W)";
9022  INPUT W
9023  IF C1=1 THEN 9029
9024  PRINT '13'10"WHAT IS EACH CONCENTRATED LOAD (P)";
9025  INPUT P
9026  IF C1#4 THEN 9029
9027  PRINT '13'10"WHAT IS THE LOCATION OF THE LOADS (A)";
9028  INPUT A
9029  LET 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=10 THEN 9064
9045  IF C=11 THEN 9066
9046  IF C=12 THEN 9068
9047  IF C=13 THEN 9070
9048  LET M=W*L*L/8
9049  GOTO 9071
9050  LET M=W*L*L/12
9051  GOTO 9071
9052  LET M=W*L*L/2
9053  GOTO 9071
9054  LET M=P*L/4
9055  GOTO 9071
9056  LET M=3*P*L/16
9057  GOTO 9071
9058  LET M=P*L/8
9059  GOTO 9071
9060  LET M=P*L/2
9061  GOTO 9071
9062  LET M=P*A
9063  GOTO 9071
9064  LET M=W*L*L/8+P*L/4
9065  GOTO 9071
9066  LET M=W*L*L/8+3*P*L/16
9067  GOTO 9071
9068  LET M=W*L*L/12+P*L/8
9069  GOTO 9071
9070  LET M=W*L*L/2+P*L/2
9071  LET 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  LET M1=M+W[I]*L*L/8
9094  GOTO 9098
9095  LET M1=M+W[I]*L*L/12
9096  GOTO 9098
9097  LET M1=M+W[I]*L*L/2
9098  LET S2=12*M1/20000
9099  IF S[I] >= S2 THEN 9102
9100  LET S=S2
9101  GOTO 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  GOTO 9117
9110  PRINT "JR";
9111  GOTO 9117
9112  PRINT "JRU";
9113  GOTO 9117
9114  PRINT "B";
9115  GOTO 9117
9116  PRINT "WF";
9117  PRINT W[I]
9118  GOTO 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.1,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,40
9141  DATA 72.4,16,5,45
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 = LOCATION OF LOAD(S) IN FEET FROM END"
9195  PRINT 
9196  PRINT 
9197  GOTO 9008
9198  DATA 1,1,1,1,1,1
9199  RESTORE 
9200  PRINT '13'10"ARE YOU FINISHED (YES OR NO)";
9201  INPUT A$
9202  IF A$="NO" THEN 9008
9203  STOP 
9999  END 
