23 lines
378 B
Plaintext
23 lines
378 B
Plaintext
100 CLS
|
|
110 DIM A#(13)
|
|
120 FOR I = 0 TO UBOUND(A#) : A#(I) = 0 : NEXT I
|
|
130 N = 0
|
|
140 A#(0) = 1
|
|
150 GOSUB 280
|
|
160 WHILE N <= 13
|
|
170 A#(N) = A#(0)
|
|
180 J = N
|
|
190 WHILE J >= 1
|
|
200 JM1 = J-1
|
|
210 A#(JM1) = A#(JM1)+A#(J)
|
|
220 J = J-1
|
|
230 WEND
|
|
240 N = N+1
|
|
250 GOSUB 280
|
|
260 WEND
|
|
270 END
|
|
280 REM Display Row
|
|
290 PRINT "B(";
|
|
300 PRINT RIGHT$(STR$(N),2)") = " A#(0)
|
|
310 RETURN
|