Oh Hemska Tanke - BASIC på Svenska

[Mickecarlsson]

Jag hittade en artikel där det stod något om att BASIC skulle översättas så vem som helst utan kunskaper i engelska skulle lära sig koda i just BASIC. Tror det var ett nummer av MPU-laren från 80-talet.
Jämför med Excel och att det "språket" översattes till alla språk, på både gott och ont.
I alla fall, här är en svensk variant av ett Lottoprogram, det går givetvis inte att köras i en Basic-tolk, men om förslaget hade gått igenom hade vi sett denna kod:

Kod: Markera allt

10 ANM LOTTO
11 DIM A(36)
12 DIM B(36)
13 DIM C(36)
14 DIM D(36)
15 ANM INITIERA VEKTOR 1 TILL 36
20 FRÅN I=1 TILL 10
30 A(I)=0
40 NÄSTA I
50 FRÅN I=1 TILL 10
60 B(I)=0
70 NÄSTA I
80 FRÅN I=1 TILL 10
90 C(I)=0
100 NÄSTA I
110 FRÅN I=1 TILL 5
120 D(I)=0
130 NÄSTA I
140 ANM SLUMPA 7 TAL MELLAN 1 OCH 36
150 FRÅN J=1 TILL 7
160 Z=HELTAL(35*SLUMPA(0)+1)
170 OM Z<=10 SEDAN 200
180 OM Z<=20 SEDAN 250
190 OM Z<=30 SEDAN 300
195 GÅTILL 350
200 OM A(Z)=1 SEDAN 160
210 A(Z)=1
220 SKRIV  Z;
230 GÅTILL 400
250 Y=Z-10
260 OM B(Y)=1 SEDAN 160
270 B(Y)=1
280 SKRIV  Z;
290 GÅTILL 400
300 Y=Z-20
310 OM C(Y)=1 SEDAN 160
320 C(Y)=1
330 SKRIV  Z;
340 GÅTILL 400
350 Y=Z-30
360 OM D(Y)=1 SEDAN 160
370 D(Y)=1
380 SKRIV  Z;
400 NÄSTA J
410 SLUT

[rvl]

> Jämför med Excel och att det "språket" översattes till alla språk, på både gott och ont.
Min första association när jag såg inlägget och personligen hittar jag inget gott där...

[TomasL]

Hmm, någon som kommer ihåg UPPSALA-MASIC (METRIC-BASIC)?

[Glenn]

När jag fick (nåja) en hemdator 1982 eller nåt så sa min kompis föraktfullt att han minsan skulle vänta tills det fanns basic på svenska, för det skulle komma

[HUGGBÄVERN]

FORTRAN hade suttit fint. Tänk att inte bara kunna kalla en variabel '5' utan kunna GÖR (något) MEDAN 5 ÄR MINDRE ÄN 4 ....

[pi314]

Hmm, någon som kommer ihåg UPPSALA-MASIC (METRIC-BASIC)?

Menar du den som avdelningen för ADB vid institutionen för informationsbehandling gjorde? På uppdrag av Scandia Metric, för Alfa LSI?

Om det är den du menar så råkade jag bli påmind om den häromdagen av en udda orsak.

230726_Alpha_LSI.png

/Pi

[TomasL]

Ja, skrev mycket program i den, när det begav sig.

[pi314]

TomasL:

Jag och en kollega gjorde flyttalsfunktionerna till den.
I Alfa LSI assembler.

Hösten 1975 tror jag visst att det var.
Anledningen till att jag blev påmind om den var att jag hittade spår av detta, när jag röjde i garaget.

/Pi

[MadModder]

SEDAN istället för THEN var ett dåligt substitut. Även om ordet i sig kan översättas till det, så är det ju inte det det står för, utan DÅ.
UTFÖR hade funkat också.

En gång i tiden översatte jag Basic 2.0 i en C64 till svenska.
Det krångliga var bara att det var tvunget att vara samma längd på kommandona då jag helt enkelt bara bytte ut bokstäverna från ROM.
Det blev inte helt bra.

[Mickecarlsson]

Eller HOPPA:

Kod: Markera allt

10 ANM LOTTO
11 DIM A(36)
12 DIM B(36)
13 DIM C(36)
14 DIM D(36)
15 ANM INITIERA VEKTOR 1 TILL 36
20 FRÅN I=1 TILL 10
30 A(I)=0
40 NÄSTA I
50 FRÅN I=1 TILL 10
60 B(I)=0
70 NÄSTA I
80 FRÅN I=1 TILL 10
90 C(I)=0
100 NÄSTA I
110 FRÅN I=1 TILL 5
120 D(I)=0
130 NÄSTA I
140 ANM SLUMPA 7 TAL MELLAN 1 OCH 36
150 FRÅN J=1 TILL 7
160 Z=HELTAL(35*SLUMPA(0)+1)
170 OM Z<=10 HOPPA 200
180 OM Z<=20 HOPPA 250
190 OM Z<=30 HOPPA 300
195 GÅTILL 350
200 OM A(Z)=1 HOPPA 160
210 A(Z)=1
220 SKRIV  Z;
230 GÅTILL 400
250 Y=Z-10
260 OM B(Y)=1 HOPPA 160
270 B(Y)=1
280 SKRIV  Z;
290 GÅTILL 400
300 Y=Z-20
310 OM C(Y)=1 HOPPA 160
320 C(Y)=1
330 SKRIV  Z;
340 GÅTILL 400
350 Y=Z-30
360 OM D(Y)=1 HOPPA 160
370 D(Y)=1
380 SKRIV  Z;
400 NÄSTA J
410 SLUT

[pi314]

Det kunde vara värre...

Kod: Markera allt

процедура кмнматр = проц(а,в,с)
%умножение матриц а и в. Результат – с
%проверка согласованности для простоты опущены
начало
констm = читатр(а,1,длинизм),
n = читатр(а,2,длинизм),
k = читатр(b,2,длинизм),
для i до m-1 цикл(констai=формавм([s] = a[i,s]);
для j до k-1 цикл
(конст bj =формавм ([s] = b[s,j]);
ф64s:=0;
для t до n-1 цикл
s = * + ai[t] * dj[t]
повторить;
c[i,j]:=s)
повторить)
повторить
конец % - - умнматр - - %

Eller (Hello World i QALB, på arabiska)...

Kod: Markera allt

(قول "مرحبا يا عالم"‏)

/Pi

[4kTRB]

Islänningarna är mycket för att göra om till egna språket. Fast om de börjat rota i programspråk är jag tveksam till.

[MadModder]

Eller HOPPA:

Nej GOTO finns redan som GÅTILL, som t.ex på rad 195.
På engelska står det THEN, och efter THEN kan man förutom att skriva radnummer direkt (och därmed hoppa över GOTO) istället skriva andra kommandon eller uttryck, som t.ex X=X+1. Att då skriva "HOPPPA X=X+1" blir inte riktigt rätt.

[Glenn]

hur ska man översätta GOSUB då ?

[TomasL]

KÖRUP