Listing of file='28A' on disk='vmedia/glbr_22.wvd.zip'
# Sector 775, program filename = '28A' 0010 PRINT "NO. OF COMPONENTS,OPERATING TIME" 0011 INPUT N,T 0035 LET S=0 0040 FOR I= 1TO N 0045 PRINT "MEAN WEAROUT TIME,CHANCE FAILURE RATE FOR COMPONENT";I 0050 INPUT M,L 0055 S=S+L+1/M 0060 NEXT I 0070 LET R=EXP(-S*T) 0075 PRINT 0080 PRINT "SYSTEM RELIABILITY=";R 0090 END