10 REM > Simple
   20 DEFPROCrx
   30 A%=&3000
   40 T%=TIME
   50 REPEAT
   60   REPEATUNTIL(?&FCF0)AND1
   70   !A%=TIME-T%
   80   A%?4=?&FCF1
   90   A%=A%+5
  100 UNTIL0
  110 ENDPROC
  120 :
  130 DEFPROCtx
  140 A%=&3000
  150 T%=TIME
  160 REPEAT
  170   REPEAT
  180   UNTILTIME-T%>!A%
  190   ?&FCF1=A%?4
  200   A%=A%+5
  210 UNTIL0
  220 ENDPROC

Download Simple1

BBC BASIC detokeniser and syntax highlighter by Ben Ryves.