11 lines
176 B
Text
11 lines
176 B
Text
100 GOSUB 120
|
|
110 END
|
|
120 REM Evaluation
|
|
130 LET A = 1
|
|
140 LET B = 100
|
|
150 LET T = 0
|
|
160 FOR I = A TO B
|
|
170 LET T = T + (1/I)
|
|
180 NEXT I
|
|
190 PRINT T
|
|
200 RETURN
|