AUTOSTAR INFORMATION
[Home!]
Last updated: 20 April 2008
Subject:	PocketPC TLE to Autostar
Sent:	Saturday, April 19, 2008 14:58:04
From:	John Farrant (johnfarrant@gmail.com)
Another program for the PocketPC that reads 2=line TLE satellite data
and displays it for easy entry into the Autostar. Hope it's of some use.
 
Kind regards,
John



2-line TLE Data below, ISS as example, should be copied to SD Card as "tledata.txt"
1 25544U 98067A   08110.15589395  .00017509  00000-0  10635-3 0  3337
2 25544 051.6409 320.6231 0001732 018.2917 081.0795 15.77615911539218
 
int handle,c;
string messa,y,d;
char byte1;
back()
{
fileseek(handle,-1,1);
do
{
  byte1=(fileread(handle,1));
}
while (byte1==" ")
fileseek(handle,-1,1);
}
read()
{
messa="";
do
{
  byte1=(fileread(handle,1));
  messa=messa+byte1;
}
while (byte1!=" ")
}
main()
{
handle = fileopen("SD Card/tledata.txt",0,0x00003002);
showconsole();
read();
putsl("            Autostar Satellite data");
putsl(" (2-line TLE Data in SD Card/tledata.txt)");
putsl("");
back();
read();
back();
read();
back();
read();
y=strleft(messa,2);
y="20"+y;
d=strright(messa,((strlen(messa))-2));
putsl("Epoch Year: "+y);
putsl("Epoch Day: "+d);
back();
read();
back();
read();
back();
read();
back();
read();
back();
read();
back();
read();
back();
read();
putsl("Inclination: "+messa);
back();
read();
putsl("RA Asc. Node: "+messa);
back();
read();
putsl("Eccentricity: 0."+messa);
back();
read();
putsl("Arg. of Perigee: "+messa);
back();
messa="";
c=0;
do
{
  byte1=(fileread(handle,1));
  messa=messa+byte1;
c++;
}
while (c<8)
putsl("Mean Anomaly: "+messa);
back();
read();
back();
messa="";
c=0;
do
{
  byte1=(fileread(handle,1));
  messa=messa+byte1;
c++;
}
while (c<8)
putsl("Mean Motion: "+messa);
getc();
fileclose(handle);
quit();
}

Go back to the Autostar Information page.

Go back to the ETX Home Page.


Copyright ©2008 Michael L. Weasner / etx@me.com
Submittals are Copyright © 2008 by the Submitter
URL = http://www.weasner.com/etx/autostar/2008/pocketpc_tle2as.html