---

Hej Gruppe,

Er der en venlig sjæl som vil hjælpe mig med at oversætte denne kodestump
fra Apple II til VB (Eller VBA til Excel)
Jeg ville blive meget glad

Mvh
John

10 home:input"hvor mange variabler har du?";v
20 dim v(v),r(v),v$(v)
30 for i=1 to v:v(i)=0:r(i)=0:next
40 print "nævn disse variabler"
50 for i=1 to v:input"variablelnavn";v$(i):next
60 "nævn udfaldene"
70 input"udfald 1";q1$
80 input"udfald 2"q2$
90 for i=1 to v:v(i)=0
100 print"variabel";v$(i)
110 input"er dette tilfællet?";a$
120 if a$="j"then:v(i)=1
130 next
140 d=0
150 for i=1 to v
160 d=d+v(i)*r(i)
170 next
180 if d>=0 then :print"udfaldet er";q1$:input"er dette rigtigt?;a$:if
a$="j"then:goto 90
190 if d<=0 then :print"udfaldet er";q2$:input"er dette rigtigt?;a$:if
a$="j"then:goto 90
200 if d>=0 and a$="n"then:for i =1 to v:r(i)=r(i)-v(i):next
210 if d<0 and a$="n"then:for i =1 to v:r(i)=r(i)+v(i):next
220 goto 90