Listing of file='34A' on disk='vmedia/glbr_22.wvd.zip'
# Sector 195, program filename = '34A' 0010 PRINT 0020 PRINT "MODULUS OF ELASTICITY OF CONCRETE (PSI)?" 0030 INPUT E 0040 PRINT "TEMPERATURE DIFFERENTIAL?" 0050 INPUT T 0060 PRINT "COEFF. OF SLAB LENGTH IN DESIRED DIRECTION?" 0070 INPUT C1 0080 PRINT "COEFF. OF SLAB LENGTH NORMAL TO C1?" 0090 INPUT C2 0100 M=.15 0110 E1=.000005 0120 PRINT 0130 PRINT "WARPING STRESS=";E*E1*T/2*(C1+M*C2)/(1-M^2) 0140 PRINT 0150 PRINT "MORE INPUT? (1=YES,0=NO)" 0160 INPUT E 0170 IF E=1 THEN 10 0180 END