träm, ma ei mäleta, mis versioon see oli, ma olin tollal ~12-13 aastane. _________________ 17/1/2023, Scart: "Selle sajandi senise möödunud aja üks suuremaid skandaale on hetkel lahti rullumas..."
6/4/2025, RFK Jr: "The most effective way to prevent the spread of measles is the MMR vaccines."
Minimal system requirements for KolibriOS:
* CPU 5x86: Pentium, AMD or Cyrix without MMX with frequency 90 MHz
* RAM: 8 MB
* Videocard: supporting VGA (640x480x16 mode) or VESA
* Keyboard: AT
* Mouse: COM, PS/2 or USB
xonix ja tetris ning paljud teised - snake ja miinid on kolibrios-il ka olemas vaikimisi peal:
Mis see KolibriOS täpsemalt on ja kas seal jooksevad Juku versioonid Xonixist või Tetrisest (neid mõlemat saab Elektroonikamuuseumi lehel veebiemulaatorist käivitada)?
Ei juku ei ole. FASM assamblery keeles ja väheke uuematele arvutitele - alates 586, PI-PIII, ja tänapäevaste 32bit masinateni välja.
Lihtsalt vanad mängud uues kuues, parema graafikaga.
Linux ka ei ole ja polegi kuhugile asetada- isegi juku on rokem commodore64 moodi.
Sorry!
träm, ma ei mäleta, mis versioon see oli, ma olin tollal ~12-13 aastane.
Olin 1991. aastal sama vana ja mäletan hägusalt tekstiversiooni, aga just mõne päeva eest ilmus välja üks ketas, kus ka see Pusher peal paistab olevat -- aga nii vigane, et sellest kahjuks elulooma ei saa. _________________ Buudi oma JUKU üles! (või loe saatesõna veebiemulaatorile)
Aga sel mängukonsoolil on ka võimalik peale mängude - programmeerida. Originaalsest commodorest pisut väiksem kuid samaväärne. HDMI-ga saab telekaga ühendada.
Viimati müüdi JUKU koos vanema venna JUSSiga oksjonil 9300 euro eest -- JUKU on küll huvitav ka paari tehnilise detaili poolest, nt hiire protokolli, kettavormingu ja vist ka MultiBus tööstussiini kasutamise poolest üheplaadi- või koduarvutis, aga peamiselt väärib ta siiski tähelepanu olulise osana Eesti infoühiskonna kujunemisloost. _________________ Buudi oma JUKU üles! (või loe saatesõna veebiemulaatorile)
Mina nägin viimati Juku arvuteid - 2 tükki - täiskomplekt - 1998 aastal pärnu endises hansagümaasiumis. Töötasid aga seisid. Ma ei tea, mis neist saanud on -
kui tahad võid pärida sellest koolist - kool on alles nimi muudetud - võib-olla on kuskil ruumis tolmu all või ära antud.
Pärnu kandis üldiselt neid oli - ja võib kuskil ruumides olla veel -tolmus.
10 RANDOMIZE
20 PRINT "MATRIXI KOOD: LÕPETAMISEKS CTRL+C"
30 DIM LINE(80)
40 FOR I=1 TO 80: LINE(I) = 32: NEXT I
50 FOR T=1 TO 1000
60 X = INT(RND(1)*80) + 1
70 C = INT(RND(1)*2)
80 IF C=0 THEN LINE(X) = INT(RND(1)*10) + 48
90 IF C=1 THEN LINE(X) = INT(RND(1)*26) + 65
100 FOR I=1 TO 80: PRINT CHR$(LINE(I)); : NEXT I
110 PRINT
120 FOR I=1 TO 80: IF RND(1) < 0.1 THEN LINE(I) = 32: NEXT I
130 NEXT T
Kuna jukul on dos ja basic, siis basic peaks olema kõigil üks - kui see kood töötab, siis on sama ka jukul, käsk run ja enter siis lõpuks jooksutab seda koodi
10 PRINT "NUMBER SQUARE"
20 FOR N=1 TO 10
30 PRINT N; " "; N*N
40 NEXT N
50 END
10 PRINT "ARVA ARV (1-100)"
20 A=INT(RND(1)*100)+1
30 INPUT "SISESTA OMA PAKKUMINE: "; G
40 IF G=A THEN PRINT "ÕIGE!": END
50 IF G<A THEN PRINT "SUUREM!"
60 IF G>A THEN PRINT "VÄIKSEM!"
70 GOTO 30
Mina nägin viimati Juku arvuteid - 2 tükki - täiskomplekt - 1998 aastal pärnu endises hansagümaasiumis. Töötasid aga seisid. Ma ei tea, mis neist saanud on -
kui tahad võid pärida sellest koolist - kool on alles nimi muudetud - võib-olla on kuskil ruumis tolmu all või ära antud.
Pärnu kandis üldiselt neid oli - ja võib kuskil ruumides olla veel -tolmus.
Pärnu 6.KK-s ehk hilisemas Hansagümnaasiumis sai kutseka ajal vist aastal 1990 isegi üks arvutitund Juku taga veeta. _________________
See kood JUKU peal täitsa teeb midagi, aga vähemalt B80 jaoks tuleb LINE tuleb asendada L-iga, sest LINE on ka käsk ja muutujaid käskude nimedega segada ei tohi. JUKU ekraani laius on 80 asemel 40, misttõtu iga 80 tuleb asendada, aga parem on see defineerida muutujana P. Kui trükitakse rida kogu ekraani laiuses, siis pole enam täiendavaid reavahetusi vaja ja vähemalt EKTA JBASICUS tulemus natuke MATRIXi efektile sarnaneb küll. Seal eraldi RANDOMIZE käsku seal pole, aga B80 BASICus on, samas see tundub lubavat viisakalt kuni 39 märki trükkida ja vajab ikkagi eraldi PRINT käske (ääreni trükkides hakkab ise reavahetusi lisama). Kuna JUKUl on ka teisi tekstirežiime, siis saab P väärtust nende jaoks muuta. Töötav kood on selline:
10 REM RANDOMIZE
20 PRINT "MATRIXI KOOD: L`PETAMISEKS CTRL+C"
30 P=40: DIM L(P)
40 FOR I=1 TO P: L(I)=32: NEXT I
50 FOR T=1 TO 1000
60 X=INT(RND(1)*P)+1
70 C=INT(RND(1)*2)
80 IF C=0 THEN L(X)=INT(RND(1)*10)+48
90 IF C=1 THEN L(X)=INT(RND(1)*26)+65
100 FOR I=1 TO P: PRINT CHR$(L(I));: NEXT I
110 REM PRINT
120 FOR I=1 TO P: IF RND(1)<.1 THEN L(I)=32: NEXT I
130 NEXT T
Pidasin nädala eest ettekande JUKU häkkeritest ja tarkvara ökosüsteemist, ka seal sai natuke JBASICut demotud:
Kuigi hiire tugi on esialgsel kujul valmis, siis seda ma praegu ametlikku versiooni ei lisanud. Ülejäänu peaks töötama enam-vähem nagu päris JUKU peal. _________________ Buudi oma JUKU üles! (või loe saatesõna veebiemulaatorile)
viimati muutis träm 05.12.2024 15:13:15, muudetud 3 korda
Esimene minu kirjutatud arvutimäng oli "T-KUK" ehk tähtede kukkumine ATARI BASICus. Hiljem portisin selle IBMi BASICusse ka. Mängul oli kolm levelit (maa, linn ja kuu) ja edetabel ning olin selle hoolega korporatiivselt brändinud. Kahjuks on sellest säilinud ainult üks hilisem remake:
Ilmselt pean millalgi selle ka JUKU jaoks kirjutama. Arvan, et olen seda kunagi juba teinud, aga kahtlustan, et sellega oli niisugune lugu, et kui selle kirjutasin, siis läks salvestamisega midagi nihu ja uuesti kirjutada polnud enam tuju. _________________ Buudi oma JUKU üles! (või loe saatesõna veebiemulaatorile)
10 PRINT "SATOSHI TO EURO CONVERTER"
20 PRINT "-------------------------"
30 INPUT "ENTER SATOSHI AMOUNT: "; S
40 INPUT "ENTER VALUE OF 1 SATOSHI IN CENTS (e.g., 1 FOR 1 CENT): "; C
50 V = S * (C / 100)
60 PRINT "VALUE IN EUROS: "; V
70 PRINT "-------------------------"
80 GOTO 30
----
Selle sain tööle SmallBASIC-us. Töötab ka vintage-basicus:
10 PRINT "ALGORTIMI V2LU"
20 PRINT "SISESTA ARV: ";
30 INPUT N
40 IF N <= 0 THEN PRINT "PALUN SISESTA POSITIIVNE ARV!": GOTO 20
50 PRINT "1. KAS ARV ON PAARIS V2I PAARITU?"
60 R = INT(N / 2) * 2
70 IF R = N THEN PRINT N; " ON PAARIS."
80 IF R <> N THEN PRINT N; " ON PAARITU."
90 PRINT "2. COLLATZI ALGORTIM:"
100 X = N
110 PRINT X;
120 IF X = 1 THEN PRINT " - VALMIS!" : GOTO 150
130 R = INT(X / 2) * 2
140 IF R = X THEN X = X / 2: GOTO 145
141 X = 3 * X + 1
145 GOTO 110
150 PRINT "VAJUTA ENTER, ET J2TKATA"
160 INPUT A$
170 PRINT "3. FAKTORITE SUMMA ARVUTAMINE:"
180 S = 0
190 FOR I = 1 TO N - 1
200 IF N - (INT(N / I) * I) = 0 THEN S = S + I
210 NEXT I
220 PRINT "FAKTORITE SUMMA ON "; S
260 PRINT "KAS PROOVID UUESTI? (J/E): ";
270 INPUT K$
280 IF K$ = "J" OR K$ = "j" THEN GOTO 20
290 PRINT "T2NAN, ET PROOVISID ALGORTIMI V2LU!"
300 END
Seal on paar asja, mida mujal pole, aga üldiselt on seal olemasolevad JUKU mängud sellisel kujul, et neid oleks võimalik suurema lisavaevata tööle panna. Hea koht, kust alustada, kui keegi peaks tahtma uuendada oma tutvust legendaarse kooliarvutiga. _________________ Buudi oma JUKU üles! (või loe saatesõna veebiemulaatorile)
Huvitav see MAME toetus on ka linuxi mängukonsoolis, et kas juku saab ka sinna MAME-ga toppida:
Üldiselt peaks JUKU süsteemi tugi tulema kaasa misatahes viimase MAMEga sõltumata opsüsteemist (see töötab ju isegi veebibrauseris), aga seal ei ole ilmselt vaikimisi meie eksootilise kooliarvuti tarkvara, mis tuleb ise lisada. JUKU tugi on olemas alates MAME versioonist 0.272.
MAMEs saab defineerida ka klahvide asemel muid sisendeid, seega ei tohiks JUKU mängude seadistamine olla ülejõukäiv, ka saab salvestada süsteemi seisundeid, mis tähendab, et mängud saab vajadusel panna tööle ka ilma eelneva opsüsteemi logimiseta ja käsureal toimetamiseta.
Detsembris jõudis tarkvara kataloogi kaks uut ketast Vakstu seeriast:
Millalgi hiljem jõuab ka kolmas, mis esialgu koosneb peamiselt halbadest sektoritest ja vajab seetõttu veel veidi putitamist. _________________ Buudi oma JUKU üles! (või loe saatesõna veebiemulaatorile)
40 ' Algväärtusta veerud
50 FOR I = 1 TO 80
60 C(I) = INT(RND * 24) + 1
70 NEXT I
100 ' Peatsükkel
110 CLS ' Kustuta ekraan
120 FOR I = 1 TO 80
130 X = C(I)
140 C(I) = X + INT(RND * 2) ' Liiguta alla 1-2 sammu
150 IF C(I) > 24 THEN C(I) = 1 ' Reset, kui jõuab alla
160 ' Genereeri juhuslik sümbol
170 R = INT(RND * 17)
180 IF R = 0 THEN S$ = "B"
190 IF R > 0 AND R < 10 THEN S$ = CHR$(48 + R) ' 0-9
200 IF R >= 10 THEN S$ = CHR$(55 + R) ' A-F
210 LOCATE C(I), I
220 PRINT S$;
230 NEXT I
240 FOR T = 1 TO 100: NEXT T ' Viivitus
250 GOTO 100
10 PRINT "KUI PALJU SA KOGUD KUUS (EURODES)?"
20 INPUT KUU
30 PRINT "MITU AASTAT SA TAHAD KOGUDA?"
40 INPUT AASTAD
50 SUMMA = KUU * 12 * AASTAD
60 PRINT "ILMA INFLATSIOONITA KOGU SUMMA: "; SUMMA; " EUROT"
70 REM --- INFLATSIOONI ARVUTUS (12% AASTAS VÄÄRTUSE VÄHENEMINE)
80 INF = 1
90 FOR I = 1 TO AASTAD
100 INF = INF * 0.88
110 NEXT I
120 REAALSUMMA = SUMMA * INF
130 PRINT "RAHA VÄÄRTUS INFLATSIOONIGA (12% AASTAS): "; INT(REAALSUMMA); " EUROT"
140 REM --- BITCOINI DEFALTSIOON (15% AASTAS KASV)
150 BTC = 1
160 FOR I = 1 TO AASTAD
170 BTC = BTC * 1.15
180 NEXT I
190 BTC_SUMMA = SUMMA * BTC
200 PRINT "KUI PANED BITCOINI (+15% AASTAS): "; INT(BTC_SUMMA); " EUROT"
mina634, see programm arvutab aiateibaid.
Oletame, et kogun 100€ iga kuu 20 aastat. Minu viimane 100€, mis panen 20. aastal sisse, ei saa pihta 20 aastase vääringuga inflatsiooniga. Tal on vaid 1 kuu aega üldse eksisteerida.
mina634, see programm arvutab aiateibaid.
Oletame, et kogun 100€ iga kuu 20 aastat. Minu viimane 100€, mis panen 20. aastal sisse, ei saa pihta 20 aastase vääringuga inflatsiooniga. Tal on vaid 1 kuu aega üldse eksisteerida.
Ma üldist konteksti ei hakka üldse kommenteerima.
See on hind praeguste hindadega. Et siis, mis inflatsioonist järgi jääb. 1861 EUR. Kogud 20 aastat (24000 eur) ja väärtus on sellest järgi (1861 EUR) tänaste hindadega. Julm hind 10, 20, 30 aastat niisama eurosi koguda. Krt! Koolis seda ei õpetatud - kuigi minu ajal oli juba NIXONi FIAT süsteem. Uuri ajalugu Fordi ostujõud enne 71-72 aastal ja pärast 1972 aastat.
(satoshi nakamoto selle põhjal lõi ka bitcoini valemi - osaliselt + 21 miljonit piiratud..)
Aga igal juhul ületab bitcoin igasugust inflatsiooni - täpseid ei saa andagi. See muutub. Aga plussis.
Tegin uue kogumisstrateegia (investoritele, pankadele ja eraisikutele, kes püüavad kuus vähemalt keskmist ~ 1-2 kasumiprotsenti (erinevast kohtadest) ja
saavad ka ise sisestada inflatsiooni protsendi. Soovitan seda ka eesti riigile. Soovitan panna suurem inflatsiooni number, mida te majandusuudistest kuulate, eriti siis kui soovite 20+ aastat koguda (sõjad, rahatrükk, pankade pankrott)
10 PRINT "SMARTSAVE - Smart Saving Simulation (Simple View)"
20 INPUT "Initial capital ($) ";C
30 INPUT "Monthly saving ($) ";S
40 INPUT "Annual inflation rate (%) ";I
50 I = I / 100
60 INPUT "Number of years to save? ";Y
70 T = Y * 12
80 DIM B(T)
90 SUMR = 0: SUMREAL = 0
100 R = 0.01
110 FOR M = 1 TO T
120 C = C + S
130 INF = (1 + I) ^ (M / 12)
140 IF R > 0.02 THEN STRAT = 2 ELSE IF R > 0.005 THEN STRAT = 1 ELSE STRAT = 0
150 IF STRAT = 0 THEN GOSUB 500
160 IF STRAT = 1 THEN GOSUB 600
170 IF STRAT = 2 THEN GOSUB 700
180 B(M) = C / INF
190 SUMR = SUMR + R
200 SUMREAL = SUMREAL + B(M)
210 NEXT M
220 AVGR = SUMR / T
230 AVGREAL = SUMREAL / T
240 PRINT "Average monthly return: "; INT(AVGR * 10000) / 100; "%"
250 PRINT "Final real value: $"; INT(B(T))
260 PRINT "Average real value per month (With Inflation): $"; INT(AVGREAL)
270 END
500 REM --- HOLDING IN CASH ---
510 R = 0.002
520 C = C * (1 + R)
530 RETURN
600 REM --- SAFE INVESTMENT ---
610 R = 0.01 + RND / 100
620 C = C * (1 + R)
630 RETURN
700 REM --- RISKY INVESTMENT ---
710 R = 0.03 * (RND - 0.3)
720 IF R < -0.02 THEN R = -0.02
730 C = C * (1 + R)
740 RETURN
jnt kirjutas:
mina634, kui ei saa pihta, siis ei saa pihta. Kõigile pole Jumala poolt ühtmoodi antud.
täiesti võid koodi muuta - endale usutavamaks kohendada - keegi ei keela.
sa ei või postitada uusi teemasid siia foorumisse sa ei või vastata selle foorumi teemadele sa ei või muuta oma postitusi selles foorumis sa ei või kustutada oma postitusi selles foorumis sa ei või vastata küsitlustele selles foorumis sa ei saa lisada manuseid selles foorumis sa võid manuseid alla laadida selles foorumis
Hinnavaatlus ei vastuta foorumis tehtud postituste eest.
:: KKK
:: otsing 
:: statistika
:: kasutajate nimekiri
:: kasutajate grupid
:: registreeri
teata moderaatorile
Spoiler 
