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:
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
> 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...
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
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.
процедура кмнматр = проц(а,в,с)
%умножение матриц а и в. Результат – с
%проверка согласованности для простоты опущены
начало
конст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)
повторить)
повторить
конец % - - умнматр - - %
Mickecarlsson skrev: ↑26 juli 2023, 15:36:06
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.