Here some stuff that needs to be translated for your language. The following have already been done. English, German, French, Spanish, Italian, Greek
OK this is the "number one" file to translate. simply replace the name of the object with the one in your lingo. please keep the order of lines. leave the ones you don't know in english.... weekdays and jupiter-satellites are not used yet anyway.. -------------here it starts----------------------- Sun Mercury Venus Mars Jupiter Saturn Uranus Neptune Pluto Earth Moon January February March April May June July August September October November December Monday Tuesday Wednesday Thursday Friday Saturday Sunday n=small letter for north (translate just the 1st character in the line!) s=small letter for south " Notes Europa Ganymed Io Callisto Aquarius Pisces Aries Taurus Gemini Cancer Leo Virgo Libra Scorpio Sagittarius Capricorn N=capital letter for North (translate just the 1st character in the line!) E=capital letter for East " S=capital letter for South " W=capital letter for West " Time-format 23h59m59s like the spoken 23 hours 59 minutes and 59 seconds H=capital letter for hour(s) h=small letter for hour(s) m=letter for minute(s) s=letter for second(s) Charon Phobos Deimos Juno Vesta Pallas Ceres % here the sceme is somewhat different, from here starnames are read by % number... there must be an entry in the star-catalogue (NorStars.yo-) % with the coresponding number... in here behind the asteriks (*) ... % everything behind the # sign is ignored, #* means its one of the % standard navigational stars ... from the list in HPLANET by john % walker... % The hash-sign (#) must be flush behind the last proper character of % the star's name % * navigational star * 1Altair# Alpha Aquilae * 2Denebola# *Beta Leonis * 3Zosma# *Delta Leonis * 4Regulus# *Alpha Leonis * 5Betelgeuse# *Alpha Orionis * 6Rigel# *Beta Orionis * 7Bellatrix# *Gamma Orionis * 8Aldebaran# Alpha Tauri * 9Antares# *Alpha Scorpii * 10Zubeneschamali# Beta Librae * 11Zubenelgenubi# Alpha Librae * 12Castor# *Alpha Geminorum * 13Pollux# *Beta Geminorum * 14Mimosa# *Beta Crucis * 15Spica# *Alpha Virginis * 16Vega# *Alpha Lyrae * 17Fomalhaut# *Alpha Piscis Austrini * 18Deneb# *Alpha Cygni * 19Alpha Centauri# *Rigilkent * 20Beta Centauri# Hadar (Agena) * 21Canopus# *Alpha Carinae * 22Adhara# Epsilon Canis Majoris * 23Sirius# *Alpha Canis Majoris * 24Procyon# *Alpha Canis Minoris * 25Archernar# *Alpha Eridani * 26Capella# *Alpha Aurigae * 27Arcturus# *Alpha Bo�tis * 28Polaris# *Alpha Ursae Minoris * 29Suhail al Muhlif#*Lambda Velorum * 30Acrux# *Alpha 1 Crucis * 31Gacrux# *Gamma Crucis * 32Shaula# *Lambda Scorpii * 33Miaplacidus# *Beta Carinae * 34Regor# *Gamma 2 Velorum * 35Atria# *Alpha Trianguli Australis * 36Dubhe# *Alpha Ursae Majoris * 37Mirfak# *Alpha Persei * 38Nunki# *Sigma Sagittarii * 39Alpheratz# *Alpha Andromedae * 40Diphda# *Beta Ceti * 41Alphard# *Alpha Hydrae * 42Al Nair# *Alpha Gruis * 43Hamal# *Alpha Arietis * 44Schedar# *Alpha Cassiopeiae * 45Mirach# *Beta Andromedae * 46Merak# *Beta Ursae Majoris * 47Algieba# *Gamma Leonis * 48Markab# *Alpha Pegasi * 49Scheat# *Beta Pegasi % EOF * ------------------------------------------------------------------- * in here the names of bodies need to be entered (like in TC5.???)-- * between the quotation marks only !!! * ------------------------------------------------------------------- * needs whichobj * yields obj *?whichobj," ---- WHICHOBJ arrived at phen-obj" obj="NO OBJECT FOUND, stupid, eh ???" * from here: if upper(whichobj)="SU" obj="Sun" endif if upper(whichobj)="JU" obj="Jupiter" endif if upper(whichobj)="ME" obj="Mercury" endif if upper(whichobj)="VE" obj="Venus" endif if upper(whichobj)="MA" obj="Mars" endif if upper(whichobj)="SA" obj="Saturn" endif if upper(whichobj)="UR" obj="Uranus" endif if upper(whichobj)="NE" obj="Neptune" endif if upper(whichobj)="PL" obj="Pluto" endif if upper(whichobj)="JO" obj="Juno" endif if upper(whichobj)="VA" obj="Vesta" endif if upper(whichobj)="PA" obj="Pallas" endif if upper(whichobj)="CE" obj="Ceres" endif if upper(whichobj)="PO" obj="Pollux" endif if upper(whichobj)="AL" obj="Aldebaran" endif if upper(whichobj)="AN" obj="Antares" endif if upper(whichobj)="SP" obj="Spica" endif if upper(whichobj)="RE" obj="Regulus" endif if upper(whichobj)="MO" obj="Moon" endif *?"object found, it is: ",obj * --------------------------------------------------------------------- * -------end of phen-obj.int------------------------------------------- * --------------------------------------------------------------------- * PHENWHAT.INT a dbase prog to generate auto-diary of phenomena * * ------------------------------------------------------------------ * - Only the indicated parts (in quotes) need translation... * ^^^^^^^^^ only those.... * ------------------------------------------------------------------ * - try not to disturb the rest... :-) spaces are important * ------------------------------------------------------------------ * b1 and b0 switch bold-face printing on and off if degrees="degrees" * here enter the abbreviation for degrees in your language degr="deg" * ^^^ else * here enter the sign for degrees in your language (�=248) * the normal character is a little ring. If it doesn't show * properly in this email, but it is a little ring, ignore it, leave it. degr="�" * ^ <<<<<<<<<<<<< endif * the planet names will be put into obj1 and obj2 * there is a possibility to use mutated planet names as objg1 and objg2 * they were used for "Finnish"-language...for example, but if you * need special linguistic SPECIAL CASES .. this can be aranged * anyway .. you get a print-out ... to check ... angle1=ltrim(rtrim(str(abs(val(angle))))) wasdn="NOTTINGAPPND!!!!" if upper(phen_what)="CONJ" wasdn=obj1+" in conjunction" * ^^^^^^^^^^^^^^ * only the indicated bit above needs translating if obj1="Venus" .or. obj1="Merkur" * ^^^^^ ^^^^^^ ---- I already edited them, Norb wasdn=b1+wasdn+b0 endif endif if upper(phen_what)="INFC" wasdn=obj1+" in inferior conjunction" * ^^^^^^^^^^^^^^^^^^^^^^^ * only the indicated bit above needs translating * inferior conjunction can be replaced with "in front of the Sun" * if it is much shorter or the proper astronomical terms is either * dumb, too technical or you just don't know it. endif if upper(phen_what)="OPPO" wasdn=obj1+" at opposition" * ^^^^^^^^^^^^^ * only the indicated bit above needs translating if obj1="Jupiter" .or. obj1="Saturn" .or. obj1="Mars" wasdn=b1+wasdn+b0 endif endif if upper(phen_what)="SUPC" wasdn=obj1+" in superior conjunction" * ^^^^^^^^^^^^^^^^^^^^^^^ * only the indicated bit above needs translating * "in superior conjunction" may be replace with "behind Sun" endif if upper(phen_what)="EAST" wasdn=obj1+" furthest east from Sun "+angle1+degr * ^^^^^^^^^^^^^^^^^^^^^^translate! * ^ ^ leave those spaces! endif if upper(phen_what)="WEST" wasdn=obj1+" furthest west from Sun "+angle1+degr * ^^^^^^^^^^^^^^^^^^^^^^translate! endif if upper(phen_what)="S_OF" wasdn=obj1+" "+rtrim(angle)+degr+"S of "+obj2 * ^^^^ * example: Moon 5 degree's south of Venus. Might need to sound like * telegramme-style, because the different genders make providing * for all combinations a terrible task (maybe?) endif if upper(phen_what)="N_OF" wasdn=obj1+" "+rtrim(angle)+degr+"N of "+obj2 * ^^^^ endif if upper(phen_what)="NOCC" wasdn=obj1+" "+rtrim(angle)+degr+"N of "+obj2+"�Occultation" * ^^^^ ^^^^^^^^^^^ * ^ that character is a * really long hyphen (emdash), leave it! * "Occultation" means that the Moon's disks wanders over the object, * this is kind of rare... but beautiful. german: Bedeckung endif if upper(phen_what)="SOCC" wasdn=obj1+" "+angle1+degr"S of "+obj2+"�Occultation" * ^^^^ ^^^^^^^^^^^ endif if upper(phen_what)="STAF" wasdn=obj1+" stationary (fwd)" * ^^^^^^^^^^^^^^^^ fwd=forward, going forward from that date endif if upper(phen_what)="STA?" wasdn=obj1+" stationary " endif if upper(phen_what)="STAR" wasdn=obj1+" stationary (retro)" * ^^^^^^^^^^^^^^^^^^ retorgrade, going backwards from that date endif if upper(phen_what)="NEWM" wasdn=b1+"New Moon"+b0 * ^^^^^^^^ endif if upper(phen_what)="1STQ" wasdn=b1+"First Quarter"+b0 * ^^^^^^^^^^^^^ half moon, waxing (growing) endif if upper(phen_what)="FULL" wasdn=b1+"Full Moon"+b0 * ^^^^^^^^^ endif if upper(phen_what)="LAST" wasdn=b1+"Last Quarter"+b0 * ^^^^^^^^^^^^ half Moon, waning (shrinking!) endif if upper(phen_what)="SOL1" wasdn="Solstice" * ^^^^^^^^ the one around 21june endif if upper(phen_what)="SOL2" wasdn="Solstice" * ^^^^^^^^ the one around 21december endif if upper(phen_what)="EQU1" wasdn="Equinox" * ^^^^^^^ the one aroung 21march endif if upper(phen_what)="EQU2" wasdn="Equinox" * ^^^^^^^ the one around 20 September endif if upper(phen_what)="CLOA" wasdn=obj1+" closest approach to "+obj2+" "+angle1+degr * ^^^^^^^^^^^^^^^^^^^ * example: Mars closest approach to Venus 18� endif if upper(phen_what)="CLOS" wasdn=obj1+" closest to Earth" * ^^^^^^^^^^^^^^^^ Moon only (for now) endif if upper(phen_what)="FURT" wasdn=obj1+" furthest from Earth" * ^^^^^^^^^^^^^^^^^^^ Moon only (for now) endif if upper(phen_what)="VGBR" wasdn="Venus greatest brilliancy" * ^^^^^^^^^^^^^^^^^^^^^^^^^ best angle with respect to Sun (brightest) endif * EOF