10 REM > Delay
   20 REM Inputs numbers with a delay between them
   30 ON ERROR REPORT:PRINT " at line ";ERL:END
   40 INPUT "What is the first number",first%
   50 PROCtime_delay(2)
   60 INPUT "What is the second number",second%
   70 PROCtime_delay(3)
   80 PRINT "The sum of the numbers is ";first%+second%
   90 PROCtime_delay(4)
  100 END
  110 :
  120 DEFPROCtime_delay(t%)
  130 T=TIME
  140 PRINT '"I will now wait ";t%" seconds"'
  150 REPEAT UNTIL TIME-T>t%*100
  160 ENDPROC