home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1 / HamRadio.cdr / math / formulas / beginnin.bas (.txt) next >
Encoding:
GW-BASIC  |  1988-12-26  |  406 b   |  19 lines
  1. 20000  CLS
  2. 20002  DEF SEG=&HB000:SCREEN 0,1:KEY OFF
  3. 20003  GOSUB 20060:FOR X=0 TO 4110 STEP 160
  4. 20004  POKE X,178:POKE X-2,178:NEXT X
  5. 20006  S$="BY"
  6. 20007  T$="**********  RICK BRUMBAUGH  ***********"
  7. 20008  R$="*****  ELECTRONIC FORMULA SOLVER  *****"
  8. 20009  Y=40-LEN(R$)/2:W=40-LEN(S$)/2:V=40-LEN(T$)/2
  9. 20010  LOCATE 11,Y
  10. 20020  PRINT R$
  11. 20040  LOCATE 13,W
  12. 20041  PRINT S$
  13. 20047  LOCATE 15,V
  14. 20048  PRINT T$
  15. 20049  LOCATE 25,1:FOR X=1 TO 79:PRINT CHR$(178);:NEXT X
  16. 20050  FOR I=1 TO 3500:NEXT I
  17. 20052  RUN"MAINMENU"
  18. 20060  FOR M=1 TO 80:PRINT CHR$(178);:NEXT M:RETURN
  19.