12 lines
176 B
Text
12 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
|