home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / formulas / mmenu.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-12-27  |  484 b   |  16 lines
  1. 10  CLS
  2. 20  DEF SEG=&HB000:SCREEN 0,1:KEY OFF
  3. 30  GOSUB 140: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 8,12:PRINT "THIS PROGRAM SHOULD BE USED WITH RADIO SHACK'S PUBLICATION:"
  7. 70  LOCATE 10,22:PRINT "Programs For Electronic Circuit Design
  8. 80  LOCATE 12,31:PRINT "by David Leithauser
  9. 90  LOCATE 14,25:PRINT "CAT. NO. 62-1054      ONLY $4.95"
  10. 100  FOR Y=1 TO 5000:NEXT Y
  11. 110  LOCATE 16,19:PRINT "Typed and edited by RICHARD BRUMBAUGH, W5MFD
  12. 120  FOR Z=1 TO 6000:NEXT Z
  13. 130  RUN "menu"
  14. 140  FOR M=1 TO 80:PRINT CHR$(178);:NEXT M
  15. 150  RETURN
  16.