home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / formulas / prog2.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-12-26  |  807 b   |  31 lines
  1. 5000  CLS
  2. 5010  F$="******** SERIES RESISTOR CIRCUITS ********"
  3. 5020  F=40-LEN(F$)/2
  4. 5030  LOCATE 1,F
  5. 5040  PRINT F$:PRINT:GOSUB 5230:PRINT" ":PRINT
  6. 5050  LOCATE 6,50
  7. 5060  PRINT"RT=";CHR$(228);"R=R1+R2+R3....+Rn"
  8. 5070  A=0:R=0:SUMR=0:RT=0:RN=0
  9. 5080  PRINT:PRINT
  10. 5090  PRINT"PLEASE LIMIT THE AMOUNT OF RESISTORS TO BE TOTALED TO 7"
  11. 5100  INPUT"HOW MANY RESISTORS DO YOU HAVE IN SERIES";RN
  12. 5110  IF RN>7 THEN GOSUB 5240:IF RN>7 THEN 5000
  13. 5120  PRINT
  14. 5130  FOR RT=1 TO RN
  15. 5140  PRINT"ENTER THE VALUE OF #";RT;"RESISTOR";:INPUT R
  16. 5150  SUMR=R+SUMR
  17. 5160  NEXT RT
  18. 5170  PRINT:PRINT"THE SUM OF THE RESISTORS IS --------------------> ";SUMR;" OHMS"
  19. 5180  PRINT:GOSUB 5230:PRINT" "
  20. 5190  PRINT"HIT ANY KEY TO RETURN TO MAIN MENU OR (C) TO CONTINUE";
  21. 5200  Z$=INKEY$:IF Z$="" THEN 5200
  22. 5210  IF Z$="C" THEN 5000
  23. 5220  RUN"MAINMENU"
  24. 5230  FOR M=1 TO 80:PRINT CHR$(178);:NEXT M:RETURN
  25. 5240  CLS:F$="YOU ENTER TO LARGE A NUMBER"
  26. 5250  F=40-LEN(F$)/2:LOCATE 12,F:PRINT F$
  27. 5260  FOR I=1 TO 100
  28. 5270  SOUND 1200,0.5
  29. 5280  SOUND 1400,0.5
  30. 5290  NEXT:RETURN
  31.