home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / tech / etronic2 / menu1.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-03-07  |  986 b   |  27 lines
  1. 10  KEY OFF: CLS
  2. 20  LOCATE 6,15: PRINT"THE FOLLOWING PROGRAMS WERE LISTED IN ELECTRICITY"
  3. 30  LOCATE 9,23:PRINT "PARALLEL RESISTORS           (1)"
  4. 40  LOCATE 10,23:PRINT "SIMULTANEOUS EQUATIONS       (2)"
  5. 50  LOCATE 11,23:PRINT "UNBALANCED BRIDGE            (3)"
  6. 60  LOCATE 12,23:PRINT "CAPACITIVE REACTANCE         (4)"
  7. 70  LOCATE 13,23:PRINT "R-C TIME CONSTANTS           (5)"
  8. 80  LOCATE 14,23:PRINT "INDUCTIVE REACTANCE          (6)"
  9. 90  LOCATE 15,23:PRINT "IMPEDANCE AND ANGLE THETA    (7)"
  10. 100  LOCATE 16,23:PRINT "RESONANCE                    (8)"
  11. 110  LOCATE 17,23:PRINT "METER MULTIPLIERS - SHUNTS   (9)"
  12. 115  LOCATE 18,23:PRINT "RETURN TO DOS                (R)"
  13. 200  LOCATE 20,23:PRINT "TYPE NUMBER OF DESIRED PROGRAM";
  14. 205  LOCATE 25,5:PRINT "TO USE EXPONENTS TYPE E3, E6, E9, E-3, E-6, E-12 etc FOLLOWING VALUES!";
  15. 210  K$=INKEY$:IF K$=""THEN 210 ELSE IF K$="R" OR K$="r" THEN 390 ELSE IF VAL(K$)<1 OR VAL(K$)>9 THEN 200 ELSE A=VAL(K$)
  16. 220  ON A GOTO 300,310,320,330,340,350,360,370,380
  17. 300  RUN "PROGR1"
  18. 310  RUN "PROGR2"
  19. 320  RUN "PROGR3"
  20. 330  RUN "PROGR4"
  21. 340  RUN "PROGR5"
  22. 350  RUN "PROGR6"
  23. 360  RUN "PROGR7"
  24. 370  RUN "PROGR8"
  25. 380  RUN "PROGR9"
  26. 390  CLS:SYSTEM
  27.