home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / sysrelbl.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-10-07  |  768 b   |  31 lines
  1. 1  'SYStem RELiabBiLity
  2. 2  KEY OFF:SCREEN 0,1,0:WIDTH 40:COLOR 15,1,9:CLS
  3. 10   PRINT "SYSTEM RELIABILITY"
  4. 20   PRINT 
  5. 30   PRINT "(TO END PROGRAM ENTER 0)"
  6. 40   PRINT "OPERATING TIME IN HOURS";
  7. 50   INPUT T
  8. 60   IF T = 0 THEN 230
  9. 70   PRINT "NUMBER OF COMPONENTS";
  10. 80   INPUT N:IF N<1 THEN 80
  11. 90  Z = 0
  12. 100   FOR I = 1 TO N
  13. 110   PRINT "COMPONENT";I
  14. 120   PRINT "  AVERAGE WEAROUT TIME";
  15. 130   INPUT W
  16. 140   PRINT "  AVERAGE FAILURE RATE";
  17. 150   INPUT F
  18. 160  Z = Z + 1 / W + F
  19. 170   NEXT I
  20. 180   PRINT 
  21. 190  Z =  EXP ( - Z * T)
  22. 200   PRINT "SYSTEM RELIABILITY: ";Z
  23. 210   PRINT 
  24. 220   GOTO 40
  25. 230  PRINT:LOCATE 24,1:PRINT"PRESS <SPACE> TO RUN AGAIN";
  26. 240  LOCATE 25,1:PRINT"PRESS <ESC> TO EXIT";
  27. 250  K$=INKEY$:IF K$="" THEN 250
  28. 260  IF K$=" " THEN RUN
  29. 270  IF K$<>CHR$(27) THEN 250
  30. 10000  RUN"MENU
  31.