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