home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / formulas / menu.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-01-05  |  1.1 KB  |  41 lines
  1. 10  CLS
  2. 20  DEF SEG=&HB000:SCREEN 0,1:KEY OFF
  3. 30  GOSUB 420:FOR X=0 TO 4110 STEP 160
  4. 40  POKE X,178:POKE X-2,178::NEXT X
  5. 50  LOCATE 25,1:FOR X=1 TO 79:PRINT CHR$(178);:NEXT X
  6. 60  LOCATE 3,22:PRINT "ELECTRONIC CIRCUIT DESIGN MASTER MENU:"
  7. 70  LOCATE 4,7:PRINT
  8. 80  LOCATE 5,7:PRINT " 1) RESISTORS"
  9. 90  LOCATE 6,7:PRINT " 2) CAPACITORS"
  10. 100  LOCATE 7,7:PRINT " 3) INDUCTORS"
  11. 110  LOCATE 8,7:PRINT " 4) RESISTOR-CAPACITOR CIRCUITS"
  12. 120  LOCATE 9,7:PRINT " 5) RESISTOR-INDUCTOR CIRCUITS"
  13. 130  LOCATE 10,7:PRINT " 6) INDUCTOR-CAPACITOR CIRCUITS"
  14. 140  LOCATE 11,7:PRINT " 7) RESISTOR-INDUCTOR-CAPACITOR CIRCUITS"
  15. 150  LOCATE 12,7:PRINT " 8) OPERATIONAL AMPLIFIERS"
  16. 160  LOCATE 13,7:PRINT " 9) 555 TIMER CIRCUITS"
  17. 170  LOCATE 14,7:PRINT "10) FILTERS"
  18. 180  LOCATE 15,7:PRINT "11) TRANSISTOR CIRCUITS"
  19. 190  LOCATE 16,7:PRINT "12) GENERAL MATH FOR ELECTRONICS"
  20. 210  LOCATE 17,7:PRINT "13) RETURN TO MAIN MENU"
  21. 220  LOCATE 18,7:PRINT "14) EXIT TO DOS
  22. 240  LOCATE 20,7:PRINT "INPUT NUMBER OF YOUR CHOICE";
  23. 250  INPUT N
  24. 260  IF N=1 THEN RUN "res"
  25. 270  IF N=2 THEN RUN "cap"
  26. 280  IF N=3 THEN RUN "ind"
  27. 290  IF N=4 THEN RUN "rescap"
  28. 300  IF N=5 THEN RUN "resind"
  29. 310  IF N=6 THEN RUN "indcap"
  30. 320  IF N=7 THEN RUN "resincap"
  31. 330  IF N=8 THEN RUN "opamp"
  32. 340  IF N=9 THEN RUN "timers"
  33. 350  IF N=10 THEN RUN "filters"
  34. 360  IF N=11 THEN RUN "trans"
  35. 370  IF N=12 THEN RUN "genmath"
  36. 390  IF N=13 THEN RUN "TOPMENU"
  37. 400  IF N=14 THEN CLS:SYSTEM
  38. 410  IF N<1 OR N>15 THEN BEEP:GOTO 10
  39. 420  FOR M=1 TO 80:PRINT CHR$(178);:NEXT M
  40. 430  RETURN
  41.