* Q.PRG If Type("_COUNT") # "N" Public _COUNT _COUNT=0 EndIf If _COUNT < 1000 _COUNT=_COUNT+1 Activate Window Puzzle _SHELL="DO Q.PRG" Else Release _COUNT EndIf