10 LET S=0
15 LET R=0
20 FOR N=1 TO 100
25 LET A=N
30 FOR I=1 TO 10
40 LET A=SQR(A)
45 LET R=R+RND(1)
50 NEXT I
60 FOR I=1 TO 10
70 LET A=A^2
75 LET R=R+RND(1)
80 NEXT I
90 LET S=S+A
95 NEXT N
100 PRINT ABS(1010-S/5)
110 PRINT ABS(1000-R)
120 END

900 REM 2025 JUN
910 REM FROM https://voidstar.blog/exploring-project-ahl-in-2024/
920 REM ADAPTED FOR HP SINGLE-USER BASIC '68
930 REM RUNTIME ON HP-2116: ~ 17 S
940 REM OUTPUT: 9.74121E-02
950 REM OUTPUT: 7.99609