home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / formulas / topmenu.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-12-27  |  668 b   |  22 lines
  1. 10  CLS
  2. 20  FOR M=1 TO 80:PRINT CHR$(178);:NEXT M
  3. 30  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  GOSUB 190
  7. 70  LOCATE 6,10:PRINT"This is a collection of miscellaneous electronics formulas.
  8. 80  LOCATE 8,10:PRINT"Electronic Formula Solver was written by Rick Brumbaugh."
  9. 90  LOCATE 9,10:PRINT"Radio Shack's formulas was edited by Richard Brumbaugh.
  10. 100  LOCATE 12,10:PRINT "1) Electronic Formula Solver"
  11. 110  LOCATE 13,10:PRINT "2) Radio Shack's Formulas"
  12. 120  LOCATE 15,10:PRINT "3) EXIT TO DOS"
  13. 130  LOCATE 22,5
  14. 140  INPUT"PLEASE ENTER THE PROGRAM NUMBER";Z
  15. 150  IF Z=1 THEN RUN "beginnin"
  16. 160  IF Z=2 THEN RUN "mmenu"
  17. 170  IF Z=3 THEN CLS:SYSTEM
  18. 175  IF Z<1 OR Z>3 THEN BEEP
  19. 180  GOTO 10
  20. 190  E$="********** MAIN MENU **********"
  21. 200  LOCATE 3,25:PRINT E$:RETURN
  22.