1 REM ***** CALORI ***** PHYSICS PROGRAM 3 DIM Q$(9) 4 LET K=0 5 PRINT "THIS PROGRAM INVOLVES SIMULATION OF CALORIMETRY EXPERIMENTS." 120 PRINT"YOU HAVE TWO BEAKERS OF"; 130 GOSUB 590 140 PRINT "." 150 FOR J=1 TO 2 160 PRINT "WHAT IS THE MASS (IN GRAMS) AND THE TEMP (IN DEGREES) OF THE" 170 GOSUB 590 180 PRINT "IN THE"; 190 GOSUB 540 200 PRINT "BEAKER"; 210 INPUT M(J),T(J) 220 PRINT 230 NEXT J 240 LET T3=(M(1)*T(1)+M(2)*T(2))/(M(1)+M(2)) 250 PRINT"THE FINAL TEMPERATURE THE MIXTURE IS";T3;"DEGREES." 270 FOR J=1 TO 2 280 PRINT"HOW MANY CALORIES WERE INVOLVED IN CHANGING THE TEMPERATURE OF" 290 PRINT "THE "; 300 GOSUB 540 310 PRINT " BEAKER "; 320 PRINT "FROM";T(J);"TO";T3;"DEGREES"; 330 INPUT H 340 LET G=ABS(H) 350 LET T=ABS(T3-T(J)) 360 IF G<>0 THEN 390 370 IF S*M(J)*T=0 THEN 400 380 GOTO 430 390 IF ABS((G-S*M(J)*T)/G)>.03 THEN 430 400 PRINT :PRINT"YOU'RE CLOSE ENOUGH. THE CORRECT ANSWER IS"; 405 GOTO 440 410 PRINT 420 GOTO 460 430 PRT :PRINT"YOU'RE MORE THAN 3 PERCENT OFF. CORRECT ANSWER IS"; 440 PRINT INT(100*S*M(J)*T+.5)/100;"CALORIES." 450 PRINT 460 NEXT J 465 PRINT 470 PRINT "WOULD YOU LIKE TO TRY AGAIN"; 472 INPUT Q$ 474 IF Q$="YES" THEN 485 476 IF Q$="NO" THEN 9999 485 PRINT "CHOOSE A LIQUID: 0-WATER 1-ALCOHOL. WHICH"; 490 INPUT K 500 IF K*(K-1)<>0 THEN 485 510 GOTO 120 540 IF J=2 THEN 570 550 PRINT " FIRST "; 560 GOTO 580 570 PRINT " SECOND "; 580 RETURN 590 IF K=1 THEN 630 600 PRT " WATER "; 610 LET S=1 620 GOTO 650 630 PRINT " ALCOHOL "; 640 LET S=.6 650 RETURN 9999 END