v$="$VER: ReFluX 1.0b (19.2.1998) James L Boyd"

; REMEMBER to put Blitzlibs:amigalibs.res into Compiler Options!

del.w=10

If NumPars=1

  a$=Par$(1)

  If a$="?" OR a$="help" OR a$="-h"
    a$="Usage : ReFlux <delay in 1-300 seconds>"
    PutStr_ &a$
    End
  EndIf

  del=Val(a$)
  If del<1 OR del>300 Then del=10

EndIf

del*50

WBStartup

loop
  If (SetSignal_(0,#SIGBREAKF_CTRL_C) & #SIGBREAKF_CTRL_C) Then End
  Delay_ del
  For a=1 To 10
    AllocMem_ $7ffffff0,#MEMF_PUBLIC
  Next a
Goto loop