10 REM Timber design 15 CLS 20 PRINT " " 30 COLOR YELLOW ,BLACK 40 PRINT " TIMBER DESIGN" 50 INPUT "SPAN ft?" ,L 60 INPUT "LOAD lbs / ft?" ,W 70 INPUT "ASSUMED WIDTH ins?" ,B 80 COLOR WHITE ,BLACK 90 PRINT " SPAN ft= " ,L 100 PRINT " LOAD lbs/ft= " ,W 110 LET E = 1650000 120 LET D = (180 * W * L * L / B / E * 12 * 12) 130 LET C = 0 140 LET C = C + 1 150 LET A = C * C * C 160 IF A < D THEN GOTO 140 170 COLOR MAGENTA ,YELLOW 180 PRINT " TIMBER SIZE COULD BE " ,B ," X " ,C 190 COLOR WHITE ,BLACK 200 LET V = W * L / 2 / C / B 210 LET Y = 3*W*L*L/4/B/C/C*12 220 LET Z = L * 12 / 360 230 IF Y < 2000 THEN PRINT " STRESS OK. " ,Y ," psi. " 240 IF Y > 1999 THEN PRINT " STRESS EXCESSIVE. " ,Y ," psi. " 245 IF Y>1999 THEN PRINT " INCREASE DEPTH TO REDUCE STRESS. " 247 IF Y>1999 THEN INPUT " TRY A DEEPER MEMBER?" ,C 248 IF Y>1999 THEN GOTO 170 250 PRINT " SHEAR OK. " ,V ," PSI. " 260 IF X><1 THEN PRINT " DEFLECTION OK AND <" ,Z ," ins. " 263 LET Z=L*12/180 267 IF X=1 THEN PRINT " DEFLECTION EXCESSIVE BUT <" ,Z ," ins. " 270 PRINT " " 280 INPUT " CHANGE WIDTH?" ,X 290 IF X = 1 THEN GOTO 70 300 COLOR MAGENTA ,BLACK 320 PRINT " Another HEC design." 330 END