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