7 lines
120 B
Rexx
7 lines
120 B
Rexx
Say 'Interrupt this program after a short while'
|
|
Call on halt
|
|
Do i=1 To 10000000
|
|
j=i**2+1
|
|
End
|
|
halt: Say i j
|
|
Return
|