Basic - Probabilidades

Amiogos, me corroe una duda. Por mas que trato no consigo hacer funcionar el siguiente còdigo. Tal vez puedan ayudarme:

Below is the code from the book....
If initially we have A =number of cards in deck, T =J =
up-card, W(I) = number of cards of denomination I, K = 0,
B = 1, and F(X) = probability of achieving a total of X, then
our program reads:
10 FOR I = 1 TO 10
20 IF W(I) = 0 THEN 270
30 B = B*W(I)/A
40 W(I) = W(I)-1
50 T = T+I
60 IF T>16 THEN 130
70 IF (T-ll)*(T-7)>O THEN 170
80 IF (I-l)*(J-l) = 0 THEN 150
90 FOR L =1 TO K
100 IF A(L) = 1 THEN 150
110 NEXT L
120 GO TO 170
130 F(T) = F(T)+B
140 GO TO 240
150 F(f+l0)=F(f+10)+B
160 GO TO 240
170A = A-I
180 K = K+1
190 A(K) = I
200 GO SUB 10
158
210 I = A(K)
220 K = K-1
230 A = A+1
240 W(I) = W(I)+l
250 T= T-I
260 B = B*A/W(I)
270 NEXT I
280 RETURN

Intenta reescribir la rutina sin tanto salto de linea.

El 158 ¿Que pinta?

En la linea 70 hay una O (letra) en lugar de un cero. ¿Es una variable o un error?

¿Que BASIC utilizas? ( es por curiosidad )

El RETURN y el GOSUB estan muy mal colocados.

Este codigo finaliza con un error.

Gracias Antoni, lo que sucede es que soy un programador novato.

Seguire sus sugerencias. Empleo QBasic. El codigo lo saque de un libro de matematicas. Y no consigo hacer que funcione y estoy obsesionado.
Saludos

El codigo que pusiste padece ser parte de otra más largo.
Las tablas estan vacias y no muestra ningun resultado.

Por ejemplo la A es el numero de cartas y vale CERO

Hay que dar un valor de entrada a la variable (w) 15 W = 1.2.3.4....etc)
Tambien (T) necesita un valor. Si en la primera linea limitas el valor de i a 10 y se lo asignas a T
en la línea 60 entiendo que T no puede se mayor de 10
Este fragmento parece ser parte de otro más largo, por eso te faltan datos

Saludos