Ага , до сих пор выводится разгребай , если охота
//#################################################################
//################ ВЫБОР ОБЪЕКТА НАБЛЮДЕНИЙ ######################
//#################################################################
int q,num;string z;
function Object_mode()//
{int SSys,star,gal,zod,cons,neb,clu,na;q=0;var.mod=0;
SSys=0;star=2;gal=0;zod=0;cons=0;neb=0;clu=0;na=0;
lcd_.Print_LCD(1," OBJECT MODE ");
lcd_.Print_LCD(2," PRESS >> ");//
loop{
if not pcf.get(9,3) {var.mod=var.mod+1;q=0;if var.mod>19 var.mod=19;}
sleep 250;
if not pcf.get(9,1) {var.mod=var.mod-1;q=0;if var.mod<0 var.mod=1;}
sleep 250;
if not pcf.get(9,3)
or not pcf.get(9,1){pcflcd.clear();pcflcd.goto(1,0);
pcflcd.print(daten.mode[var.mod]);}

if not pcf.get(9,6)and q==0 {pcflcd.print(" OK");break;}//OK
}//..............здесь выбирается объект.........................
if var.mod-1 == 0 loop{//TEST.
if not pcf.get(9,3){SSys=SSys+1;num=SSys-1;q=1;if SSys>24{SSys=24;num=24;}}
if not pcf.get(9,1){SSys=SSys-1;num=SSys;q=1;if SSys<0{SSys=0;num=0;}}
if not pcf.get(9,3)
or not pcf.get(9,1){pcflcd.goto(1,0);pcflcd.print(z);
object(daten.SunSystem[num],daten.SunSustemRA[num]);
}
sleep 500;
if not pcf.get(9,5)break;//STOP
//......................................................................
if not pcf.get(9,6)and q==1{//
KOORD_KORREKTUR_AZ_ALT(daten.SunSustemRA[num],daten.SunSustemDEC[num]);return;
}
}//=================================================================
if var.mod-1 == 1 loop{//Zodiac
if not pcf.get(9,3){zod=zod+1;num=zod;q=2;if zod>12 {zod=12;num=12;}}
if not pcf.get(9,1){zod=zod-1;num=zod;q=2;if zod<0 {zod=0;num=0;}}
if not pcf.get(9,3)
or not pcf.get(9,1){pcflcd.goto(1,0);pcflcd.print(z);
object(daten.Zodiac[num],daten.ZodiacRA[num]);}
sleep 500;
if not pcf.get(9,5)break;//STOP
//........................................................................
if not pcf.get(9,6)and q==2{
KOORD_KORREKTUR_AZ_ALT(daten.ZodiacRA[num],daten.ZodiacDEC[num]);return;
}
}//==================================================================
if var.mod-1 == 2 loop{//Constellations
if not pcf.get(9,3){cons=cons+1;num=cons;q=3;if cons>77 {cons=77;num=77;}}
if not pcf.get(9,1){cons=cons-1;num=cons;q=3;if cons<0 {cons=0;num=0;}}
if not pcf.get(9,3)
or not pcf.get(9,1){pcflcd.goto(1,0);pcflcd.print(z);
object(daten.Constellations[num],daten.ConstellationsRA[num]);
}
sleep 500;
if not pcf.get(9,5)break;//STOP
//........................................................................
if not pcf.get(9,6)and q==3{
KOORD_KORREKTUR_AZ_ALT(daten.ConstellationsRA[num],daten.ConstellationsDEC[num]);
return;
}
}//=======================================
if var.mod-1 == 3 loop{//Nebula
if not pcf.get(9,3){neb=neb+1;num=neb;q=4;if neb>14 {neb=14;num=14;}}
if not pcf.get(9,1){neb=neb-1;num=neb;q=4;if neb<0 {neb=0;num=0;}}
if not pcf.get(9,3)
or not pcf.get(9,1){pcflcd.goto(1,0);pcflcd.print(z);
object(daten.Nebula[num],daten.NebulaRA[num]);
}
sleep 500;
if not pcf.get(9,5)break;//STOP
//........................................................................
if not pcf.get(9,6)and q==4{
KOORD_KORREKTUR_AZ_ALT(daten.NebulaRA[num],daten.NebulaDEC[num]);return;
}
}//==========================================
if var.mod-1 == 4 loop{//Clusters
if not pcf.get(9,3) {clu=clu+1;num=clu;q=5;if clu>8 {clu=8;num=8;}}
if not pcf.get(9,1) {clu=clu-1;num=clu;q=5;if clu<0 {clu=0;num=0;}}
if not pcf.get(9,3)
or not pcf.get(9,1) {pcflcd.goto(1,0);pcflcd.print(z);
object(daten.Clusters[num],daten.ClustersRA[num]);
}
sleep 500;
if not pcf.get(9,5)break;//STOP
//........................................................................
if not pcf.get(9,6)and q==5{
KOORD_KORREKTUR_AZ_ALT(daten.ClustersRA[num],daten.ClustersDEC[num]);return;
}
}//=========================================
if var.mod-1 == 5 loop{//Galaxy
if not pcf.get(9,3) {gal=gal+1;num=gal-1;q=6;if gal>13 {gal=13;num=13;}}
if not pcf.get(9,1) {gal=gal-1;num=gal;q=6;if gal<0 {gal=0;num=0;}}
if not pcf.get(9,3)
or not pcf.get(9,1) { pcflcd.goto(1,0);pcflcd.print(z);
object(daten.Galaxy[num],daten.GalaxyRA[num]);
}
sleep 500;
if not pcf.get(9,5)break;//STOP
//........................................................................
if not pcf.get(9,6)and q==6{
KOORD_KORREKTUR_AZ_ALT(daten.GalaxyRA[num],daten.GalaxyDEC[num]);return;
}
}//==========================================
if var.mod-1 == 6 loop{//NGC 81
if not pcf.get(9,3) {na=na+1;num=na-1;q=7;if na>82 {na=82;num=82;}}
if not pcf.get(9,1) {na=na-1;num=na-1;q=7;if na<0 {na=0;num=0;}}
if not pcf.get(9,1)
or not pcf.get(9,3) { pcflcd.goto(1,0);pcflcd.print(z);
object(daten.NGC[num],daten.NGC_RA[num]);
}
sleep 500;
if not pcf.get(9,5)break;//STOP
//........................................................................
if not pcf.get(9,6)and q==7{
KOORD_KORREKTUR_AZ_ALT(daten.NGC_RA[num],daten.NGC_DEC[num]);return;
}
}//==============================================
if var.mod-1 == 7 loop{//Stars
if not pcf.get(9,3) {star=star+1;num=star;q=8;}//>>
if not pcf.get(9,1) {star=star-1;num=star;q=8;}//<<
if not pcf.get(9,1)
or not pcf.get(9,3) {pcflcd.goto(1,0);pcflcd.print(z);
object(daten.Star_name[num],daten.STARS_RA[num]);
Ist_READ();
}
sleep 400;
if not pcf.get(9,5)break;//STOP
//........................................................................
if not pcf.get(9,6)and q==8{
KOORD_KORREKTUR_AZ_ALT(daten.STARS_RA[num],daten.STARS_DEC[num]);return;
}
}//====================================================
if var.mod-1 == 8 loop{//Latitude
if not pcf.get(9,3)//Taste >>
{pcflcd.goto(2,0);pcflcd.zahlpintf1(var.Latitude);
var.Latitude=var.Latitude+1;q=9;}
if not pcf.get(9,1)//Taste <<
{var.Latitude=var.Latitude-1;q=9;
pcflcd.goto(2,0);pcflcd.zahlpintf1(var.Latitude);}
sleep 500;if var.Latitude==91 var.Latitude=0;
if not pcf.get(9,6)and q==9{eeprom.writeint(0,3,var.Latitude);
lcd_.logo();Geschpeicherte_Daten();break;}
}//====================================================
if var.mod-1 == 9 loop{//Longitude
if not pcf.get(9,3)//Taste >>
{pcflcd.goto(2,0);pcflcd.zahlpintf1(var.Longitude);
var.Longitude=var.Longitude+1;q=10;}
if not pcf.get(9,1)//Taste <<
{var.Longitude=var.Longitude-1;q=10;
pcflcd.goto(2,0);pcflcd.zahlpintf1(var.Longitude);}
sleep 500;if var.Longitude==181 var.Longitude=0;
if not pcf.get(9,6)and q==10{eeprom.writeint(0,5,var.Longitude);
lcd_.logo();Geschpeicherte_Daten();break;}
}//====================================================
if var.mod-1 == 10 loop{//переключаем на зимнее - летнее время
if not pcf.get(9,3)//Taste >>
{pcflcd.goto(2,0);pcflcd.zahl4p(koordinaten.sommer_winter);
koordinaten.sommer_winter=koordinaten.sommer_winter+1;q=11;}
if not pcf.get(9,1)//Taste <<
{koordinaten.sommer_winter=koordinaten.sommer_winter-1;q=11;
pcflcd.goto(2,0);pcflcd.zahl4p(koordinaten.sommer_winter);}
sleep 500;if koordinaten.sommer_winter==5 koordinaten.sommer_winter=0;
if not pcf.get(9,6)and q==11{eeprom.writeint(0,34,koordinaten.sommer_winter);
lcd_.logo();break;}
}//====================================================
if var.mod-1 == 11 loop{//Настройка промежутка коррекции по оси DEC.
if not pcf.get(9,3)//Taste >> //от 0.1 до 100
{pcflcd.goto(2,0);pcflcd.zahl4n1(var.dec_tor);
var.dec_tor=var.dec_tor+1;q=12;}
if not pcf.get(9,1)//Taste <<
{var.dec_tor=var.dec_tor-1;q=12;
pcflcd.goto(2,0);pcflcd.zahl4n1(var.dec_tor);}
sleep 500;if var.dec_tor>=101 var.dec_tor=101;if var.dec_tor<=1 var.dec_tor=1;
if not pcf.get(9,6)and q==12{eeprom.writeint(0,44,var.dec_tor-1);
lcd_.logo();break;}
}//====================================================
if var.mod-1 == 12 loop{//Настройка пропорционального коэфициента RA
if not pcf.get(9,3)//Taste >> //от 0.1 до 100
{pcflcd.goto(2,0);pcflcd.zahl4n1(var.Pk_Ra);
var.Pk_Ra=var.Pk_Ra+1;q=13;}
if not pcf.get(9,1)//Taste <<
{var.Pk_Ra=var.Pk_Ra-1;q=13;
pcflcd.goto(2,0);pcflcd.zahl4n1(var.Pk_Ra);}
sleep 500;if var.Pk_Ra>=101 var.Pk_Ra=101;if var.Pk_Ra<=1 var.Pk_Ra=2;
if not pcf.get(9,6)and q==13{eeprom.writeint(0,46,var.Pk_Ra-1);
lcd_.logo();break;}
}//====================================================

if var.mod-1 == 13 loop{//Настройка интегральноко коэфф.RA.
if not pcf.get(9,3)//Taste >> //от 0.1 до 20
{pcflcd.goto(2,0);pcflcd.zahl4n1(cymku.Ik_RA);
cymku.Ik_RA=cymku.Ik_RA+1;q=14;}
if not pcf.get(9,1)//Taste <<
{cymku.Ik_RA=cymku.Ik_RA-1;q=14;
pcflcd.goto(2,0);pcflcd.zahl4n1(cymku.Ik_RA);}
sleep 500;if cymku.Ik_RA>=20 cymku.Ik_RA=20;if cymku.Ik_RA<=1 cymku.Ik_RA=1;
if not pcf.get(9,6)and q==14{eeprom.writeint(0,48,cymku.Ik_RA-1);
lcd_.logo();break;}
}//====================================================
if var.mod-1 == 14 loop{//Настройка дифференциального коэфф.RA.
if not pcf.get(9,3)//Taste >> //от 0.1 до 20
{pcflcd.goto(2,0);pcflcd.zahl4n1(cymku.Dk_RA);
cymku.Dk_RA=cymku.Dk_RA+1;q=15;}
if not pcf.get(9,1)//Taste <<
{cymku.Dk_RA=cymku.Dk_RA-1;q=15;
pcflcd.goto(2,0);pcflcd.zahl4n1(cymku.Dk_RA);}
sleep 500;if cymku.Ik_RA>=20 cymku.Dk_RA=20;if cymku.Dk_RA<=1 cymku.Dk_RA=1;
if not pcf.get(9,6)and q==15{eeprom.writeint(0,50,cymku.Dk_RA-1);
lcd_.logo();break;}
}//====================================================
if var.mod-1 == 15 loop{//Настройка пропорционального коэфициента DEC
if not pcf.get(9,3)//Taste >> //от 0.1 до 100
{pcflcd.goto(2,0);pcflcd.zahl4n1(var.Pk_Dec);
var.Pk_Dec=var.Pk_Dec+1;q=16;}
if not pcf.get(9,1)//Taste <<
{var.Pk_Dec=var.Pk_Dec-1;q=16;
pcflcd.goto(2,0);pcflcd.zahl4n1(var.Pk_Dec);}
sleep 500;if var.Pk_Dec>=101 var.Pk_Dec=101;if var.Pk_Dec<=1 var.Pk_Dec=2;
if not pcf.get(9,6)and q==16{eeprom.writeint(0,52,var.Pk_Dec-1);
lcd_.logo();break;}
}//====================================================
if var.mod-1 == 16 loop{//Настройка интегральноко коэфф.DEC.
if not pcf.get(9,3)//Taste >> //от 0.1 до 20
{pcflcd.goto(2,0);pcflcd.zahl4n1(cymku.Ik_DEC);
cymku.Ik_DEC=cymku.Ik_DEC+1;q=17;}
if not pcf.get(9,1)//Taste <<
{cymku.Ik_DEC=cymku.Ik_DEC-1;q=17;
pcflcd.goto(2,0);pcflcd.zahl4n1(cymku.Ik_DEC);}
sleep 500;if cymku.Ik_DEC>=20 cymku.Ik_DEC=20;if cymku.Ik_DEC<=1 cymku.Ik_DEC=1;
if not pcf.get(9,6)and q==17{eeprom.writeint(0,54,cymku.Ik_DEC-1);
lcd_.logo();break;}
}//====================================================
if var.mod-1 == 17 loop{//Настройка дифференциального коэфф.DEC.
if not pcf.get(9,3)//Taste >> //от 0.1 до 20
{pcflcd.goto(2,0);pcflcd.zahl4n1(cymku.Dk_DEC);
cymku.Dk_DEC=cymku.Dk_DEC+1;q=18;}
if not pcf.get(9,1)//Taste <<
{cymku.Dk_DEC=cymku.Dk_DEC-1;q=18;
pcflcd.goto(2,0);pcflcd.zahl4n1(cymku.Dk_DEC);}
sleep 500;if cymku.Dk_DEC>=20 cymku.Dk_DEC=20;if cymku.Dk_DEC<=1 cymku.Dk_DEC=1;
if not pcf.get(9,6)and q==18{eeprom.writeint(0,56,cymku.Dk_DEC-1);
lcd_.logo();break;}
}//====================================================
return;
}//--------------------------