home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / formulas / themenu.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1988-12-27  |  405 b   |  19 lines
  1. 10  CLS
  2. 20  DEF SEG=&HB000:SCREEN 0,1:KEY OFF
  3. 30  GOSUB 180:FOR X=0 TO 4110 STEP 160
  4. 40  POKE X,178:POKE X-2,178:NEXT X
  5. 50  S$="BY"
  6. 60  T$="***** Richard and Rick Brumbaugh ******"
  7. 70  R$="***** Electronic Formula Programs *****"
  8. 80  Y=40-LEN(R$)/2:W=40-LEN(S$)/2:V=40-LEN(T$)/2
  9. 90  LOCATE 11,Y
  10. 100  PRINT R$
  11. 110  LOCATE 13,W
  12. 120  PRINT S$
  13. 130  LOCATE 15,V
  14. 140  PRINT T$
  15. 150  LOCATE 25,1:FOR X=1 TO 79:PRINT CHR$(178);:NEXT X
  16. 160  FOR I=1 TO 3500:NEXT I
  17. 170  RUN"TOPMENU"
  18. 180  FOR M=1 TO 80:PRINT CHR$(178);:NEXT M:RETURN
  19.