home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / formulas / prog6.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-12-26  |  809 b   |  31 lines
  1. 7000  CLS
  2. 7010  F$="******** SERIES INDUCTOR CIRCUITS ********"
  3. 7020  F=40-LEN(F$)/2
  4. 7030  LOCATE 1,F
  5. 7040  PRINT F$:PRINT:GOSUB 7230:PRINT" ":PRINT
  6. 7050  LOCATE 6,50
  7. 7060  PRINT"LT=";CHR$(228);"L=L1+L2+L3....+Ln"
  8. 7070  A=0:R=0:RN=0:RT=0:SUMR=0
  9. 7080  PRINT:PRINT
  10. 7090  PRINT"PLEASE LIMIT THE AMOUNT OF INDUCTORS TO BE TOTALED TO 7"
  11. 7100  INPUT"HOW MANY INDUCTORS DO YOU HAVE IN SERIES";RN
  12. 7110  IF RN>7 THEN GOSUB 7240:IF RN>7 THEN 7000
  13. 7120  PRINT
  14. 7130  FOR RT=1 TO RN
  15. 7140  PRINT"ENTER THE VALUE OF #";RT;"INDUCTOR";:INPUT R
  16. 7150  SUMR=R+SUMR
  17. 7160  NEXT
  18. 7170  PRINT:PRINT"THE SUM OF THE INDUCTORS IS --------------------> ";SUMR;" HENRYS"
  19. 7180  PRINT:GOSUB 7230:PRINT" "
  20. 7190  PRINT"HIT ANY KEY TO RETURN TO MAIN MENU OR (C) TO CONTINUE";
  21. 7200  Z$=INKEY$:IF Z$="" THEN 7200
  22. 7210  IF Z$="C" THEN 7000
  23. 7220  RUN "MAINMENU"
  24. 7230  FOR M=1 TO 80:PRINT CHR$(178);:NEXT M:RETURN
  25. 7240  CLS:F$="YOU ENTERED TO LARGE A NUMBER"
  26. 7250  F=40-LEN(F$)/2:LOCATE 12,F:PRINT F$
  27. 7260  FOR I=1 TO 100
  28. 7270  SOUND 1200,0.5
  29. 7280  SOUND 1400,0.5
  30. 7290  NEXT:RETURN
  31.