12 lines
187 B
Text
12 lines
187 B
Text
100 GOSUB 120
|
|
110 GOTO 210
|
|
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
|
|
210 END
|