Re: [HIP8.DAT]

BJORN GIMLE (b_gimle@usa.net)
1 Sep 98 12:35:35 MET DST

Cees Bassa <c.g.bassa@phys.uu.nl>; wrote:
  >       Can someone tell me how I should open the HIP8.DAT file which is
used by
  > Skymap 6.2?
  > I'm using QuickBASIC 4.5, and I would like to make a code that can read
the
  > different values for the stars.

  I looked at a dump of HIP8.DAT and came up with this possible
  QBASIC/QUICKBASIC 4.0 code which appears to do it ( for I! >1 )
  
  Of course you will have to change the hardcoded SkyMap path.

  TYPE HIP8
      RA AS DOUBLE
      Dec AS DOUBLE
      Mag AS SINGLE
      RAprec AS SINGLE
      DecPrec AS SINGLE
  END TYPE
  DIM Star AS HIP8
  Form$ = "###.########## ###.########## ##.######## ##.######## ###.##"
 
  F$ = "C:\386\D-DISK\SATPROG\SKYMAP\hip8.dat"

  OPEN F$ FOR RANDOM ACCESS READ AS #1 LEN = 28
  FOR i! = 44455 TO 44465
      GET #1, i!, Star
      PRINT USING Form$; Star.RA; Star.Dec; Star.RAprec; Star.DecPrec;
Star.Mag
  NEXT i!
  CLOSE



------------------------------------------------------------
-- bjorn@tt-tech.se (office)  b_gimle@algonet.se (home)
--                            b_gimle@usa.net (temp)
-- 59.2237N, 18.2286E, 44 m   http://www.algonet.se/~b_gimle
-- SeeSat-L / Visual Satellite Observer Home Page found at
-- http://www.satellite.eu.org/satintro.html


____________________________________________________________________
Get free e-mail and a permanent address at http://www.netaddress.com/?N=1