Korjattu Koperaki.bas
Aki Karppinen
REM ympyr�radoilla k�ytet��n OIKEAN ellpisiradan keskiarvoa...
REM Bugeja viel� l�ytynee, ja Efemeridit on pistetty 1956 vuoden maaliskuun
REM 12. p�iv�n mukaan...
REM Jotakin ihan ylim��r�ist�kin s�l�� koodista l�ytyy, joten ei ole ihan
REM optimaalinen koodi...
REM Agison = Kopernikus Ohjelma
REM Alustetaan taulukot
DIM kuukausi$(12), kk(12), huone$(12)
DIM plnimi$(12), Dp(12), Tp(12), ta(12), ap(12)
DIM xp(12), yp(12), xxp(12), yyp(12)
DIM xx1(12), yy1(12), huonek(12)
DIM Horkp$(12), col(12), plkulma(13)
REM Luetaan kuukauden nimet ja pituudet p"iviss"
FOR i = 1 TO 12
READ kuukausi$(i), kk(i)
NEXT
DATA "tammikuu",31,"helmikuu", 28
DATA "maaliskuu", 31,"huhtikuu",30
DATA "toukokuu",31,"kes"kuu", 30
DATA "hein"kuu",31, "elokuu", 31
DATA "syyskuu", 30, "lokakuu", 31
DATA "marraskuu", 30,"joulukuu", 31
REM K""nnet""n horisontti kauriin ja jousimiehen v"liin
akulma1 = -90
kuukulma = -68
REM Luetaan planeetannimi
REM Sen et"isyys Auringosta, vuoden pituus ja alkukulma
FOR i = 1 TO 12
READ plnimi$(i), Dp(i), Tp(i), ta(i)
ta(i) = ta(i) + akulma1
NEXT
REM Kalibroi n"m" arvot kohdalleen, jos tied"t paremmin!
DATA "Merkurius",57.9e9,0.2408,-74
DATA "Venus",108.2e9,0.6152,-9
DATA "Maa",149.6e9,1.0000,31
DATA "Mars",227.0e9,1.8809,99
DATA "Jupiter",778.4e9,11.863,-19
DATA "Saturnus",1425.6e9,29.41,-23
DATA "Uranus",2870e9,84.04,-138
DATA "Neptunus",4501e9,165.0,-143
DATA "Pluto",5885e9,246.8,122
DATA "Kuu",384.4e6,0,197
DATA "Aurinko",0,1,0
DATA "Nouseva",0,0,-69
REM Luetaan huonekuvaukset:
FOR i = 0 TO 11
READ huone$(i)
NEXT
DATA "Persoonallisuus, fysiikka","Omaisuus","Ihmissuhteet","Koti"
DATA "Huvit, synnytykset","Palvelu, ty"","Avioliitto,toveruus"
DATA "Kuolema, perint"","Filosofia, uskonto","Ty", kunnia"
DATA "Yst"v"t ja tuttavat","Karma, salaiset viholliset"
FOR i = 1 TO 8
READ VUOSIKONE$(i)
NEXT i
DATA "Salora Manager","Canon-MSX","Commodore Amiga","Amstrad-8086"
DATA "Trifunic-80386","TRD-Pentium","Fujizu-P","HP"
REM Asetetaan kuu ja nouseva merkki
REM Jos t"m" on v""rin, korjaa se! Ei ole en""?
REM kuun kiertoaika vuotta kohden p"iv"ss"
Tp(10) = 29.5306 / 365.2425
Dp(12) = 1E+07
REM Maan/Auringon kierto.
Tp(12) = 1 / 365.2425
REM Asetetaan viikonp"iv"t
vkpv$(0) = "sunnuntai"
vkpv$(1) = "maanantai"
vkpv$(2) = "tiistai"
vkpv$(3) = "keskiviikko"
vkpv$(4) = "torstai"
vkpv$(5) = "perjantai"
vkpv$(6) = "lauantai"
REM horoskooppimerkit
FOR i = 0 TO 12: READ Horkp$(i), col(i): NEXT
DATA "kauris",4,"vesimies",5, "kalat",6
DATA "oinas",7,"h"rk"",8,"kaksoset",9,"krapu",10
DATA "leijona",11,"neitsyt",12,"vaaka",1,"skorpioni",2
DATA "jousimies",3,"kauris",4
REM Aloitetaan!
alku:
SCREEN 0
CLS
PRINT
PRINT " AGISON = KOPERNIKUS"
PRINT " ___________________"
REM Kysyt""n nimi
INPUT "Mik" nimesi on"; nimi$
PRINT "Nimesi on "; nimi$
REM kysyt""n syntym"p"iv"
kysysyntyma:
virhe = 0
INPUT "Milloin olet syntynyt (pp,kk,vvvv)"; paiva, kuukausi, vuosi
INPUT "Syntym"kellonaikasi:(hh,mm)"; tunti, minuutti
tunti1 = tunti
minuutti1 = minuutti
IF vuosi < 0 OR vuosi > 100000 THEN virhe = 1
IF paiva < 0 OR paiva > 31 THEN virhe = 1
IF kuukausi < 0 OR kuukausi > 12 THEN virhe = 1
IF virhe = 1 THEN PRINT "Virhe, kysyn uudestaan!": GOTO kysysyntyma
PRINT "Olet syntynyt "; paiva; ". p"iv" "; kuukausi$(kuukausi); "ssa vuonna
";
PRINT vuosi; ". Kello:"; tunti; ":"; minuutti
REM Hyp"t""n viikonp"iv"n laskevaan aliohjelmaan
GOSUB laskepaiva
vk1 = vkpaiva
PRINT "Olet syntynyt "; vkpv$(vkpaiva); "na."
kuuka1 = kuukausi
paiva1 = paiva
vuosi1 = vuosi
REM kysyt""n nykyinen hetki
kysy2:
elinkuuka = 0
elinpaiva = 0
INPUT "Mik" p"iv" nyt on? (pp,kk,vvvv)"; paiva2, kuuka2, vuosi2
INPUT "Paljonko kello NYT on? (hh,min)"; tunti2, minuutti2
IF kuuka2 > 12 OR kuuka < 0 THEN PRINT "Virhe!": GOTO kysy2
elinvuosi = vuosi2 - vuosi
IF kuuka2 < kuukausi THEN elinvuosi = elinvuosi - 1: elinkuuka = 12
IF kuuka2 = kuukausi AND paiva > paiva2 THEN elinvuosi = elinvuosi - 1:
elinkuuka = 12
IF paiva2 < paiva THEN elinkuuka = elinkuuka - 1: elinpaiva = kk(kuukausi)
elinkuuka = kuuka2 - kuukausi + elinkuuka
elinpaiva = paiva2 - paiva + elinpaiva
IF kuuka2 <> kuukausi THEN
FOR i = kuukausi TO kuuka2 STEP SGN(kuukausi - kuuka2)
elinpaiva = elinpaiva + kk(i)
NEXT
END IF
kuukausi = kuuka2
paiva = paiva2
vuosi = vuosi2
tunti = tunti2
mimuutti = minuutti2
GOSUB laskepaiva
PRINT "Nyt on vuosi "; vuosi; " kuukausi: "; kuukausi$(kuukausi);
PRINT " paiva: "; paiva; vkpv$(vkpaiva)
PRINT "Olet el"nyt "; elinvuosi; " vuotta, "; elinkuuka; "kuukautta, ";
PRINT elinpaiva; "p"iv"""
PRINT "____________________________________________"
PRINT "<enter> = LOPETUS ja huonetaulukko"
PRINT "/ = v"henn" vuosia * = lis"" vuosia"
PRINT "+ = lis"" p"ivi" - = v"henn" p"ivi""
PRINT "6 = lis"" kuukausia 4 = v"henn" kuukausia"
PRINT "8 = lis"" tunteja 2 = v"henn" tunteja"
PRINT "0 = lis"" minuutteja <space> takaisin t"nne"
INPUT "Paina <Enter>"; k$
keskx = 400: kesky = 240
vuosi = vuosi2
kuukausi = kuuka2
paiva = paiva2
nayta:
SCREEN 12
pi = 3.141592654#
Dt = 7 * 10 ^ 12
C2 = 200 ^ 2
vkpaiva = vk1
looppi:
CLS
LOCATE 1, 50:
COLOR 15
GOSUB laskepaiva
PRINT "Vuosi: "; vuosi; " "; kuukausi$(kuukausi); "ssa"
LOCATE 2, 50: PRINT "P"iv":"; paiva; " Vkpaiva:"; vkpv$(vkpaiva)
LOCATE 16, 1: PRINT "Kello:"; tunti; ":"; minuutti
FOR i = 1 TO 12
LOCATE i, 1
COLOR i
PRINT plnimi$(i)
NEXT i
FOR i = 1 TO 12
LINE ((i - 1) * 20 + 5, 400)-(5 + i * 20, 420), i, BF
NEXT
akulma = 0
kulma = 2 * pi / 12
FOR ii = 0 TO 11
FOR jj = 0 TO 3
CIRCLE (keskx, kesky), 200 - jj, ii + 1, akulma + kulma *
ii, akulma + kulma * (ii + 1)
NEXT jj
NEXT ii
REM huonek1 = (elinpaiva + elinkuuka * 29,531 + elinvuosi * 365.2475) * 2 *
pi
huonek1 = (((tunti - tunti1) * (1 / 24) + (minuttti - minuutti1) * 1 / 24 /
60)) * 2 * pi
FOR i = 0 TO 11
kehto = 0
huonek(i) = huonek1 * 360 / 2 / pi + i * 30
xxh = COS(huonek1 + i * 2 * pi / 12 + pi / 2) * 195
yyh = -SIN(huonek1 + i * 2 * pi / 12 + pi / 2) * 195
huonek(i) = (huonek(i) / 360 - INT(huonek(i) / 360)) * 360
IF huonek(i) < 0 THEN huonek(i) = 360 - huonek(i)
LINE (keskx, kesky)-(keskx + xxh, kesky + yyh), 15
CIRCLE (keskx + xxh, kesky + yyh), 4, i + 1
PAINT (keskx + xxh, kesky + yyh), i + 1
NEXT
FOR i = 1 TO 12
kuukpaiva = 0
IF INT(vuosi / 4) = vuosi / 4 THEN kk(2) = 29 ELSE kk(2) = 28
IF INT(vuosi / 400) = vuosi / 400 THEN kk(2) = 28
IF kuukausi <> 1 THEN
FOR ii = 1 TO kuukausi - 1
kuukpaiva = kuukpaiva + kk(ii)
NEXT
END IF
REM lasketaan koordinaatteja
tm = (vuosi - 2001) * 365 + INT((vuosi - 2001) / 4) - INT((vuosi -
2001) / 100) + INT((vuosi - 2001) / 400) + kuukpaiva + paiva - 20 + (tunti -
14) / 24 + minuutti / 60 / 24
ap(i) = ta(i) / 360 * 2 * pi + (tm / (Tp(i) * 365.2475)) * 2 * pi
xp(i) = COS(ap(i)) * Dp(i)
yp(i) = SIN(ap(i)) * Dp(i)
xxp(i) = xp(i) / Dt * 220
yyp(i) = -yp(i) / Dt * 220
CIRCLE (keskx + xxp(i), kesky + yyp(i)), 5, i
PAINT (keskx + xxp(i), kesky + yyp(i)), i
NEXT i
ap10 = ap(10) * 360 / 2 / pi + kuukulma
xp(10) = xp(3) + xp(10)
yp(10) = yp(3) + yp(10)
xxp(10) = xp(10) / Dt * 220
yyp(10) = -yp(10) / Dt * 220
xp(12) = xp(3) + xp(12)
yp(12) = yp(3) + yp(12)
xxp(12) = xp(12) / Dt * 220
yyp(12) = -yp(12) / Dt * 220
ap12 = (ap(12) + ap(3)) * 360 / 2 / pi
ap(12) = ap(12) + ap(3)
ap(10) = ap(10) + ap(3)
kuuk = ap10
kuuk = INT(((kuuk / 360) - INT(kuuk / 360)) * 360)
ap12 = INT(((ap12 / 360) - INT(kuuk / 360)) * 360)
REM printataan kuu
COLOR 15: LOCATE 14, 1: PRINT kuuk
LOCATE 15, 1
IF kuuk > 88 AND kuuk < 92 THEN PRINT "Kuu:Pime" "
IF kuuk > 91 AND kuuk < 176 THEN PRINT "Kuu: T"yttyv" "
IF kuuk > 268 AND kuuk < 272 THEN PRINT "Kuu:T"ysi "
IF kuuk > 271 AND kuuk < 355 THEN PRINT "Kuu: V"henev" "
IF kuuk > 355 OR kuuk < 5 THEN PRINT "Kuu: Puolikas(V)"
IF kuuk > 1 AND kuuk < 89 THEN PRINT "Kuu:V"henev" "
IF kuuk > 175 AND kuuk < 185 THEN PRINT "Kuu: Puolikas(K)"
IF kuuk > 184 AND kuuk < 269 THEN PRINT "Kuu: T"yttyv" "
IF (kuuk > 88 AND kuuk < 92 AND tunti > 10 AND tunti < 18) THEN
LOCATE 14, 1: PRINT "Auringon pimennys"
END IF
CIRCLE (81, 300), 40, 15
PAINT (81, 300), 15
IF kuuk > 270 THEN kuuk = kuuk - 360
CIRCLE (81 - (kuuk - 90) * 40 / 90, 300), 40, 0
PAINT (81 + 39 - (kuuk - 90) * 40 / 90, 300), 0
PAINT (81 - 39 - (kuuk - 90) * 40 / 90, 300), 0
FOR j = 1 TO 12
ehto = 0
at = 0
IF j <> 3 THEN
xxx = xxp(j) - xxp(3)
yyy = yyp(j) - yyp(3)
vx2 = xxp(3) ^ 2
vy2 = yyp(3) ^ 2
uxvx = xxx * xxp(3)
uyvy = yyy * yyp(3)
k = (-2 * (uxvx + uyvy) + 2 * SQR((uxvx + uyvy) ^
2 - (xxx ^ 2 + yyy ^ 2) * (vx2 + vy2 - C2))) / (2 * xxx * xxx + 2 * yyy *
yyy)
xxp = xxx / SQR(xxx * xxx + yyy * yyy)
yyp = -yyy / SQR(xxx ^ 2 + yyy ^ 2)
xx1(j) = xxp(3) + k * xxx
yy1(j) = yyp(3) + k * yyy
LINE (keskx + xxp(3), kesky + yyp(3))-(keskx +
xx1(j), kesky + yy1(j)), j
END IF
NEXT j
FOR i = 1 TO 12
LOCATE i, 10
kehto = 0
IF i <> 3 THEN
xx1 = xx1(i): yy1 = yy1(i)
IF xx1 = 0 AND yy1 > 0 THEN kulma = 0: kehto = 1
IF xx1 = 0 AND yy1 < 0 THEN kulma = 180: kehto = 1
IF kehto = 0 THEN
IF yy1 <= 0 AND xx1 < 0 THEN klisa = 180
IF yy1 >= 0 AND xx1 < 0 THEN klisa = 180
IF yy1 <= 0 AND xx1 > 0 THEN klisa = 0
IF yy1 >= 0 AND xx1 > 0 THEN klisa = 0
kulma = akulma1 + klisa - ATN(yy1 / xx1) / 2 / pi *
360
END IF
kulma = (kulma / 360 - INT(kulma / 360)) * 360
IF kulma < 0 THEN kulma = 360 - kulma
plkulma(i) = kulma
kohta = INT(kulma / 30)
COLOR col(kohta)
PRINT INT(30 * (kulma / 30 - INT(kulma / 30))); ":"; Horkp$(kohta);
END IF
NEXT
REM kysyt""n merkki
inkeloop:
k$ = INKEY$
IF k$ = "" THEN GOTO inkeloop
k = ASC(k$)
IF k$ = "/" THEN vuosi = vuosi - 1
IF k$ = "*" THEN vuosi = vuosi + 1
IF k$ = "-" THEN paiva = paiva - 1
IF k$ = "+" THEN paiva = paiva + 1
IF k$ = "8" THEN tunti = tunti + 1
IF k$ = "2" THEN tunti = tunti - 1
IF k$ = "4" THEN kuukausi = kuukausi - 1
IF k$ = "6" THEN kuukausi = kuukausi + 1
IF k$ = "0" THEN minuutti = minuutti + 1
IF k = 13 THEN GOTO huoneet
IF k$ = " " THEN GOTO alku
IF minuutti = 60 THEN tunti = tunti + 1: minuutti = 0
IF tunti = 24 THEN tunti = 0: paiva = paiva + 1
IF tunti = -1 THEN tunti = 23: paiva = paiva - 1
IF vuosi / 4 = INT(vuosi / 4) THEN kk(2) = 29 ELSE kk(2) = 28
IF paiva = 0 THEN kuukausi = kuukausi - 1: paiva = kk(kuukausi)
IF kuukausi = 0 THEN kuukausi = 12: paiva = 31: vuosi = vuosi - 1
IF kuukausi = 13 THEN kuukausi = 1: paiva = 31: vuosi = vuosi + 1
IF paiva > kk(kuukausi) THEN paiva = 1: kuukausi = kuukausi + 1
IF kuukausi = 13 THEN kuukausi = 1: paiva = 31: vuosi = vuosi + 1
GOTO looppi
laskepaiva:
vkpaiva = vuosi * 365 + INT((vuosi - 2001) / 4) + INT((vuosi - 2001) /
400) - INT((vuosi - 2001) / 100) + 5
vkpaiva = vkpaiva + paiva + 3
IF (vuosi / 4) = INT(vuosi / 4) THEN kk(2) = 29 ELSE kk(2) = 28
IF (vuosi / 400) = INT(vuosi / 400) THEN kk(2) = 28
IF kuukausi > 1 THEN
FOR i = 1 TO kuukausi - 1
vkpaiva = vkpaiva + kk(i)
NEXT
END IF
vkpaiva = vkpaiva - INT(vkpaiva / 7) * 7
RETURN
huoneet:
SCREEN 0
CLS
REM Printtaa miss" huoneessa kukin on
PRINT "Huoneissa sijaitsevat planeetat:"
PRINT "A.D:"; paiva1; ","; kuuka1; ", "; vuosi1; " - ";
PRINT paiva2; ","; kuuka2; ","; vuosi2;
PRINT " klo:"; tunti1; "."; minuutti1; "-"; tunti2; ":"; minuutti2
PRINT "---------------------------------------------------------------"
plkulma(13) = plkulma(1)
huonek(12) = huonek(0)
FOR i = 0 TO 11
kohta1 = INT(huonek(i) / 30)
kohta2 = INT(huonek(i + 1) / 30)
kohta1aste = INT(((huonek(i) / 30) - kohta1) * 30)
kohta2aste = INT(((huonek(i + 1) / 30) - kohta2) * 30)
IF kohta1aste < 0 THEN kohta1aste = -kohta1aste
IF kohta2aste < 0 THEN kohta2aste = -kohta2aste
PRINT "Huone:"; i + 1; huone$(i); ".";
PRINT "->"; kohta1aste; "'"; Horkp$(kohta1);
PRINT "->"; kohta2aste; "'"; Horkp$(kohta2)
l = 0: l2 = 0
FOR j = 1 TO 12
l3 = 0
IF j <> 3 THEN
huo1 = huonek(i + 1) - plkulma(j)
IF huo1 >= 0 AND huo1 <= 30 THEN l3 = 1
IF huo1 <= -330 AND huo1 >= -360 THEN l3 = 1
IF l3 = 1 THEN
l = l + 1
l2 = 1
huplkulma = INT(plkulma(j) - huonek(i))
IF l > 1 THEN merkki$ = "," ELSE merkki$ =
"---"
IF huplkulma < 0 THEN huplkulma = 360 +
huplkulma
PRINT merkki$; plnimi$(j); ":"; huplkulma;
END IF
IF l > 2 THEN PRINT : l = 0
END IF
NEXT
IF l > 0 AND l2 = 1 THEN PRINT
NEXT
inkeloop2:
INPUT "Haluatko alkuun(A/a), kuvaan(K/k) vai pois(P/p)+enter"; a$
IF a$ = "A" OR a$ = "a" THEN GOTO alku:
IF a$ = "K" OR a$ = "k" THEN GOTO nayta:
IF a$ <> "P" AND a$ <> "p" THEN GOTO inkeloop2
END
Aki Karppinen
Mik� p�iv� se olikaan siell� Kiinassa ihan kokonainen?
Suomessa ilmeisesti PARI TUNTIA kuun ja auringon asemaeroissa esti
pimennyksen?
Aki Karppinen
bugeja koodiin, muttei ole vaikeaa korjata!
Aki Karppinen
menev�t hiukan v��rin!
Mutta t�ss� ne ovat kiinte�sti samassa alkukohdassa...
Ja alkavat siis syntym�hetkelt� v�h�n niin kuin "biorytmit"!
Se ei ole ihan "virallinen" k�sitys huonetaulukon m��r�ytymisest�
Nousevan merkin saa oikein, kun pist�� Tp(12) oikein eli joko suoraan dataan
tai sitten siihen erilliseen muutuja-asetukseen... My�s aloituskulmaa voi
joutua rukkaamaan...
Otin lainastosta juuri Astrologian k�sikirjan(Juhani Nummela) ja pit�nee
perehty� viel� huonetaulukoiden ja "nousevan merkin" m��r�ytymiseen...
Itse planeetta-arvot t�htikuviossa ohjelma laskee oikein, vaikkapa -5 +5
asteen heittoja vuoden mittaan tulee johtuen elliptisist� radoista
verratessa ympyr�ratoihin...
Aki Karppinen
REM huonek1 = (elinpaiva + elinkuuka * 29,531 + elinvuosi * 365.2475) * 2 *
pi
T�t� seuraavaakin voi joutua muokkaamaan, harvahan tiet�� oikein
syntym�hetkens� kellonajan:
huonek1 = (((tunti - tunti1) * (1 / 24) + (minuttti - minuutti1) * 1 / 24 /
60)) * 2 * pi
T�ss� minun "astrologisessa mallissani", lasketaan siis huoneiden alkukohta,
kellonajan erotuksesta, ja itse huonetaulukko kiert�� vuorokaudessa kaikki
asemat... Joten ei suurta merkityst� sill�, jos et tied�
syntym�ajankohtaasi, koskapa planeetat kiert�v�t kerran vuorokaudessa
KAIKKIEN huoneiden l�pi... Vuoden mittaan ei kuitenkaan itse huoneiden
alkukohta muutu minnek��n... Siksi voi joutua rukkaamaan "huonek1"-muuttujan
enempi sen REM lauseen n�k�iseksi...
Sill� tietysti on merkityst�, ett� mille kellonly�m�lle mitkin planeetat
osuvat mihinkin "huoneeseen", ainakin astrologisessa mieless��...
HUONEIDEN SIS�LL�T OVAT SAMAT JOKAP�IV� JOKAISELLE IHMISELLE, ELLEI OTETA
HUOMIOON SYNTYM�KELLONAIKAA!
Itse asiassa vain "syntym�kartta" on erilainen jokaisella ihmisell�!
Matti Lehtiniemi
> DATA "Trifunic-80386","TRD-Pentium","Fujizu-P","HP"
No jopas on ohjelmalla ik�� ! Salora Manager :-)
M
Aki Karppinen
"Matti Lehtiniemi" <matti.le...@remove-me.kolumbus.fi> kirjoitti
viestiss� news:738cm.29657$vi5....@uutiset.elisa.fi...
> > DATA "Salora Manager","Canon-MSX","Commodore Amiga","Amstrad-8086"
> > DATA "Trifunic-80386","TRD-Pentium","Fujizu-P","HP"
>
>
> M
- Siin� Salorassa oli parempi Basicci, kuin ajan "huippukoneessa" Commodore
64:ssa... Valitettavasti konekielikoodausmahdollisuutta ei juurikaan ollut,
vaikka sit�kin tosin yritin parin oppaan avulla..
+ MSX:lle tein jo muutaman konekieliohjelman, mutta BASIC oli MSX:ss� ihan
huippu!
* Amigan Basic oli hidas, mutta sill�kin tuli muutama ohjelma tehty�, ja
erityisesti makroassemblerkoodaus ja piraattikopiot olivat ajan sanat...
/ PC:ss� olen tehnyt sitten ohjelmia Pascalilla ja C++:lla, ja tietysti
sill� vanhalla kunnon Basicilla...
= Mutta mit��n "kaupallista" en ole ajatatellut ainakaan viel� tehd�, saas
n�hd� kuitenkin, teenk� koululle p��tt�ty�n� joko yht�l�nsievennysohjelman,
suurilla luvuilla laskevan ohjelman ja jos aika riitt�� - noiden
yhdistelm�n... Shakkiteko�lyohjelma on melkein valmis, ja olen siihen
kehitellyt UUSIA S��NT�J�KIN, tosin vanhoillakin voi pelata KONETTA
vastaan...
- Nyt on tosin kes� ollut ohjelmoinnin suhteen v�h�n "hedelm�t�n" kausi,
vaikkapa kotisivut tekaisin parissa tunnissa... Tosin editoriohjelman kanssa
sohlatessa meni hieman ylim��r�ist� aikaa, koska kaikki muutokset eiv�t aina
p�ivittyneet tiedostoihin, vaikka editoriruudussa muutokset olivat
voimassa...
+ En ehk� tied�, mik� hidastaa ja mik� rassaa, ja aina kun olisi aikaa
koodata - vie nyyssit tai tiede.fi voiton...
Matti Lehtiniemi
> 64:ssa... Valitettavasti konekielikoodausmahdollisuutta ei juurikaan ollut,
Siihen aikaan oli kova kilpailu ja Commodore s��sti ROM- chippikustannuksista.
Tuon kirjan ostin pari vuotta sitten:
http://www.amazon.com/Edge-Spectacular-Rise-Fall-Commodore/dp/0973864907
Kova kiire oli p��ll� ja muistiakin j�i enemm�n ohjelmille, kun kaikkia ominaisuuksia ei
tarvinnut laittaa BASICiin. 64 kb oli siihen aikaan kova sana.
Yll�tt�v�n v�h�n ty�ntekij�it� niiss� tiimeiss�, jotka rakensivat C64:sen Amigan jne...
Salora Manager oli muistaakseni kallis.Jaa ,ett� hyv� Basic.
> sohlatessa meni hieman ylim��r�ist� aikaa, koska kaikki muutokset eiv�t aina
> p�ivittyneet tiedostoihin, vaikka editoriruudussa muutokset olivat
> voimassa...
Nyyssiserveri saattaa palauttaa sinulle tiedoston,joka on vanhempi kuin uusin saatavilla oleva.
Paina control -n�pp�in pohjaan , kun painat "p�ivit�" -buttonia.T�ll�in serveri palauttaa uusimman
version.(vai oliko se control ?)
Matti
Aukino Agison
vanha Basic-tulkki), kun vierailette kotisivillani:
http://personal.inet.fi/koulu/karppi/Koperaki.html
Tuossa on jo MELKEIN oikea tapa laskea NOUSEVA merkki, eli kutakuinkin oikea
periaate laskea HUONETAULUKON "askendentti", eli huoneen 1 alku...
Seh�n on se, ett� lasketaan KOKONAISIA vuorokausia, eli vuorokausia, joissa
maapallo KOKONAAN kiert�� akselinsa ymp�ri, jolloin maapallon akseli pysyy
samassa asennossa aurinkoon n�hden, vaikka silloin tietysti aamu siirtyy
kokoajan... Aamu ei kuitenkaan siirry v��rin, varsinaisessa vuorokauden ajat
laskevassa kohdassa, mutta siis nousevassa merkiss� on oletettu p�iv�n
olevan 1/364-osa vuodesta... N�in siis vuorokausi on askendentille PITEMPI,
kun koko kierron akselin laskee... Itse asiassa oikea tulos saattaisi olla
jotain 1/364.25, mutta 364 vaikutti kivemmalta...