function pagebreak($filename)
  dim $i,$ffh,$rc,$folder,$ext,$file,$pages
  if exist($filename)
    $folder=left($filename,instrrev($filename,"\"))
    $ext=right($filename,4)
    $file=left(right($filename,(len($filename)-len($folder))),-4)
    $ffh=freefilehandle()
    $pages=loadfile($filename,chr(12))
    for $i= 0 to ubound($pages)
      if open($ffh,$folder +  $file + "_" + right("0000"+ ($i+1),5) + $ext,5)=0
        $rc=writeline($ffh,$pages[$i])
        $rc=close($ffh)
      endif
    next
  else
    exit 2
  endif
endfunction