home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / formulas / mainmenu.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-12-26  |  1.2 KB  |  43 lines
  1. 1500  CLS
  2. 1510  FOR M=1 TO 80:PRINT CHR$(178);:NEXT M
  3. 1520  FOR X=0 TO 4110 STEP 160
  4. 1530  POKE X,178:POKE X-2,178:NEXT X
  5. 1540  LOCATE 25,1:FOR X=1 TO 79:PRINT CHR$(178);:NEXT X
  6. 1550  GOSUB 1870
  7. 1560  LOCATE 6,5: PRINT"1. DC CIRCUITS"
  8. 1570  LOCATE 7,5:PRINT"2. SERIES (RESISTOR) CIRCUITS"
  9. 1580  LOCATE 8,5:PRINT"3. PARALLEL (RESISTOR) CIRCUITS"
  10. 1590  LOCATE 9,5:PRINT"4. SERIES (CAPACITOR) CIRCUITS"
  11. 1600  LOCATE 10,5:PRINT"5. PARALLEL (CAPACITOR) CIRCUITS"
  12. 1610  LOCATE 11,5:PRINT"6. SERIES (INDUCTOR) CIRCUITS"
  13. 1620  LOCATE 12,5:PRINT"7. PARALLEL (INDUCTOR) CIRCUITS"
  14. 1630  LOCATE 13,5:PRINT"8. RC CIRCUITS (SERIES)"
  15. 1640  LOCATE 14,5:PRINT"9. RC CIRCUITS (PARALLEL)"
  16. 1650  LOCATE 15,4:PRINT"10. RL CIRCUITS (SERIES)"
  17. 1660  LOCATE 16,4:PRINT"11. RL CIRCUITS (PARALLEL)"
  18. 1670  LOCATE 17,4:PRINT"12. RCL CIRCUITS (SERIES)"
  19. 1680  LOCATE 18,4:PRINT"13. RCL CIRCUITS (PARALLEL)"
  20. 1690  LOCATE 19,4:PRINT"14. RETURN TO MAIN MENU"
  21. 1695  LOCATE 20,4:PRINT"15. EXIT TO DOS
  22. 1700  LOCATE 22,5
  23. 1710  INPUT"PLEASE ENTER THE PROGRAM NUMBER";Z
  24. 1720  IF Z=1 THEN RUN"PROG1"
  25. 1730  IF Z=2 THEN RUN"PROG2"
  26. 1740  IF Z=3 THEN RUN"PROG3"
  27. 1750  IF Z=4 THEN RUN"PROG4"
  28. 1760  IF Z=5 THEN RUN"PROG5"
  29. 1770  IF Z=6 THEN RUN"PROG6"
  30. 1780  IF Z=7 THEN RUN"PROG7"
  31. 1790  IF Z=8 THEN RUN"PROG8"
  32. 1800  IF Z=9 THEN RUN"PROG9"
  33. 1810  IF Z=10 THEN RUN"PROG10"
  34. 1820  IF Z=11 THEN RUN"PROG11"
  35. 1830  IF Z=12 THEN RUN"PROG12"
  36. 1840  IF Z=13 THEN RUN"PROG13"
  37. 1850  IF Z=14 THEN RUN "topmenu"
  38. 1855  IF Z=15 THEN CLS:SYSTEM
  39. 1860  GOTO 1500
  40. 1870  E$="***** FORMULA SOLVER MENU *****"
  41. 1880  Y=40-LEN(E$)/2
  42. 1890  LOCATE 3,Y:PRINT E$:RETURN
  43.