2620 SUM»SUM/300.0»D 



2630 WRITE(6,14) SUM*LAMBDA 



2640 14 FORMAK/, IX, "EXPECTED ANNUAL LOSS IN MILLIONS OF DOLLARS IS",F14.7) 



2650 RETURN 



2660 END 



2670 



2680 



2690C SUBROUTINE TO ANSWER YES/NO QUESTIONS 



2700 SUBROUTINE ANS(L) 



2710 CHARACTER*! L 



2720 GO TO 25 



2730 30 PRINT, 'REINPUT RESPONSE' 



2740 25 READ(5,10) L 



2750 10 FORIiAT(Al) 



2760 IF( L .NE. 'Y' .AND. L .NE. 'N' ) GO TO 30 



2770 RETURN 



2780 END 



A10 



