'begin the teaprime.tea program written in the
'programming language Teapro utilizing the OpenTea technology
'People need computer software that actually works.
vari dg_pass1, dg_pass2, dg_pass3, dg_pass4
vari sg_pass1, sg_pass2, sg_pass3, sg_pass4
vari dg_now, sg_now, dg_endprogram, dg_at8pause
vari dg_length, sg_primequads, sg_fileout
vari dg_modprime, dg_resultprime
vari sg_totalhourlines, sg_hourdate, sg_hold2codelines
vari sg_build, sg_path, sg_interpreter, sg_memory, sg_lines
vari sg_loadprog, sg_math, dg_speedquick, sg_nothing
vari dg_xvalue, dg_yvalue, dg_zvalue, sg_xyzmath
vari dg_uvalue, dg_vvalue, dg_wvalue

sub_main
endp

subr sub_main
'updated 2005/10/21, 2004/03/30
'main subroutine
vari d_any, s_any, d_dot, s_dot
vari d_pick

dg_endprogram = 2

dwhi dg_endprogram <> 1
    sub_menu0
endw
ends sub_main


subr sub_menu0
'updated 2011/09/26
'2011/05/17, 2010/11/29, 2010/05/27, 2010/05/20, 2010/05/09
'2010/05/01, 2010/04/15, 2010/03/28, 2010/03/22, 2010/03/14
'2009/09/15, 2009/03/08, 2008/12/06, 2008/02/25, 2008/02/05
'2007/12/05, 2007/09/22, 2007/07/24, 2007/07/20, 2007/07/18
'2007/07/17, 2007/07/16, 2007/06/27, 2007/06/26, 2007/04/24
'2007/02/26, 2007/02/25, 2007/02/24, 2007/01/06, 2006/11/26
'2006/11/11, 2006/11/05, 2006/10/29, 2006/10/25, 2006/08/29
'2006/08/17, 2006/04/08, 2005/10/21, 2005/10/19, 2004/04/17
'menu of possibilities
vari d_any, s_any, d_dot, s_dot, s_aster
vari s_pick, d_pick, s_out, d_inp, d_seconds, s_speedquick

$trb sg_nothing, " "
$ch$ s_aster, "*", 70

$sys sg_interpreter, 3
$trb sg_interpreter, sg_interpreter
$sys sg_path, 1
$trb sg_path, sg_path

$sys sg_loadprog, 4

'make sg_build and add length of the program
sg_build = "teaprime.tea build=1241 2012/02/02"
dsys d_any, 3
$app sg_build, " " + d_any
$out sg_build + " " + sg_loadprog
$out "teaprime.tea copyright (c) 1998-2012 by D La Pierre Ballard"

$out "teaprime.tea may be used for free by anyone,"
$out "but there is no warranty of any kind on it."

$out s_aster
$out "written in the teapro programming language"
$out "teapro copyright (c) 1997-2011 by D La Pierre Ballard"
$out "teapro uses the opentea technology to be simple and solid"

$out s_aster

$out "People need computer software that actually works."
$out s_aster

sub_floating_point_test
sub_filename
sub_path_prog_memory

sub_speedquick
s_speedquick = sg_pass1
$out s_aster

'lines
dsys d_any, 2
ded$ sg_lines, d_any, 0, 0

'memory
dsys d_any, 1
ded$ sg_memory, d_any, 0, 0

$out "1 = duo teaquad 5TP39 begin again, 1quad"
$out "2 = duo teaquad 5TP39 choose file code and number"
$out "9 = sub_pause_file_build_delete"
$out "11 = sub_menu_5tp39"
$out "12 = sub_menu_pnq30"
$out "13 = sub_menu_primes"
$out "31 = sub_prime_numbers"
$out "42 = sub_prime_test_one_number"
$out "44 = sub_teaquad_primes_find"
$out "45 = sub_teaquad_primes_test_one_number"
$out "47 = sub_teaquad_5tp39_test_just_one"
$out "51 = sub_hour_lines_of_qtp20xx1"
$out "52 = sub_collect_5tp39xx " + sg_path + " " + sg_lines
$out "96 = sub_xyz_math     " + sg_interpreter + " " + sg_memory
$out "98 = sub_speed98_test " + sg_build + " " + sg_loadprog
$out "99 = sub_speed_test   " + s_speedquick

dsec d_any
s_out = "pick a number *=end " + " x=" + dg_xvalue
$app s_out, " " + d_any
$inp s_pick, s_out

$isd d_any, s_pick
d_pick = 0
dift d_any = 1: $tod d_pick, s_pick

$ift s_pick = "*": dg_endprogram = 1

'5tp39 find by modulus begin again 1quad
dift d_pick = 1
    dg_pass1 = 1
    sub_teaquad_5tp39_by_modulus_duo
endi

'5tp39 find by modulus choose file code, beg, end
dift d_pick = 2
    dg_pass1 = 2
    sub_teaquad_5tp39_by_modulus_duo
endi

'build or delete s_pausefile
dift d_pick = 9: sub_pause_file_build_delete

'menu for 5TP39
dift d_pick = 11: sub_menu_5tp39

'menu for PNQ30
dift d_pick = 12: sub_menu_pnq30

'sub_menu_primes
dift d_pick = 13: sub_menu_primes

'Primes
dift d_pick = 31: sub_prime_numbers

'prime number, test a particular number
dift d_pick = 42: sub_prime_test_one_number

'teaquad primes > 2^53
dift d_pick = 44: sub_teaquad_primes_find
dift d_pick = 45: sub_teaquad_primes_test_one_number
dift d_pick = 47: sub_teaquad_5tp39_test_just_one

dift d_pick = 51: sub_hour_lines_of_qtp20xx1
dift d_pick = 52: sub_collect_5tp39xx

dift d_pick = 96
    sg_pass1 = "x=x"
    sub_xyz_math
endi
dift d_pick = 98: sub_speed98_test
dift d_pick = 99: sub_speed_test

sg_pass1 = s_pick
sub_xyz_math
ends sub_menu0


subr sub_menu_5tp39
'updated 2010/11/08, 2010/06/23, 2010/03/14
'2010/02/19, 2010/02/16, 2008/04/07, 2007/08/30, 2007/07/31
'2007/07/06, 2007/06/13, 2007/04/06, 2007/03/19, 2007/02/25
'2006/10/26, 2006/09/23, 2006/09/04, 2005/10/21, 2004/05/06
'menu of possibilities
vari d_any, s_any, d_dot, s_dot
vari s_pick, d_pick, s_out, d_inp, d_seconds

$out "12 = sub_5TP39_validate_in_a_file"
$out "13 = sub_5tp39_two_files_compare"
$out "21 = sub_5tp39_teaquad_next_primes"
$out "22 = sub_teaquad_prime_quads_dduo"
$out "31 = sub_getgaps_begin_again"
$out "42 = sub_teaquad_5tp39_analyze_an_a_file"
$out "52 = sub_5tp39_rolling_test_primes"
$out "62 = sub_test_primes31_to_teaquad"
$out "63 = sub_file_primes31_to_teaquad"
$out "71 = sub_write_teapro_lines_test_teaquad_5tp39"
$out "72 = sub_test_dift_loop_5tp39"
s_out = "enter number,*=end, x=" + dg_xvalue
$inp s_pick, s_out

$isd d_any, s_pick
d_pick = 0
dift d_any = 1: $tod d_pick, s_pick

$ift s_pick = "*": dg_endprogram = 1

'test 5TP39 primes marked 5TP39= in a file
dift d_pick = 12: sub_5TP39_validate_in_a_file

'compare two files for 5TP39
dift d_pick = 13: sub_5tp39_two_files_compare

'5TP39 teaquad find next primes
dift d_pick = 21: sub_5tp39_teaquad_next_primes

'teaquad find prime quads using dduo
dift d_pick = 22: sub_teaquad_prime_quads_dduo

dift d_pick = 31: sub_getgaps_begin_again
dift d_pick = 42: sub_teaquad_5tp39_analyze_an_a_file
dift d_pick = 52: sub_5tp39_rolling_test_primes
dift d_pick = 62: sub_test_primes31_to_teaquad
dift d_pick = 63: sub_file_primes31_to_teaquad
dift d_pick = 71: sub_write_teapro_lines_test_teaquad_5tp39
dift d_pick = 72: sub_test_dift_loop_5tp39

sg_pass1 = s_pick
sub_xyz_math
ends sub_menu_5tp39


subr sub_menu_pnq30
'updated 2005/10/22, 2004/01/01
'menu of possibilities
vari d_any, s_any, d_dot, s_dot
vari s_pick, d_pick, s_out, d_inp, d_seconds

$out "34 = big PNQ30s"
$out "35 = PNQ30 by jumping 210"
$out "36 = PNQ30 by PIVCOM"
$out "37 = PNQ30 by Modulus, begin anywhere"
$out "38 = PNQ30 by Modulus, begin again"
$out "41 = test a number for PNQ30"
$out "51 = test PNQ30s marked 'PNQ30=' or 'PNQ30:' in a file"

s_out = "enter number,*=end, x=" + dg_xvalue
$inp s_pick, s_out

$isd d_any, s_pick
d_pick = 0
dift d_any = 1: $tod d_pick, s_pick

$ift s_pick = "*": dg_endprogram = 1

'big prime quads thirty apart
dift d_pick = 34: sub_big_pnq30s

'find PNQ30 by jumping 210
dift d_pick = 35: sub_pnq30_by_210

'find PNQ30 by PIVCOM
dift d_pick = 36: sub_pnq30_by_pivcom

'find PNQ30 by modulus
dift d_pick = 37
    dg_pass1 = 1
    sub_pnq30_by_modulus
endi

'find PNQ30 by modulus begin anywhere
dift d_pick = 38
    dg_pass1 = 2
    sub_pnq30_by_modulus
endi

'test a prime number for PNQ30
dift d_pick = 41: sub_test_for_pnq30

'test PNQ30 primes marked PNQ30= in a file
dift d_pick = 51: sub_pnq30_file_test

sg_pass1 = s_pick
sub_xyz_math
ends sub_menu_pnq30


subr sub_menu_primes
'updated 2010/11/08, 2007/08/07, 2007/05/28, 2007/02/25, 2006/09/04
'2006/04/16, 2005/10/21, 2005/10/15, 2005/10/12, 2005/08/23
'2005/07/21, 2005/07/02, 2005/06/15, 2005/06/07, 2005/06/05
'2005/05/17, 2005/05/06, 2005/05/02, 2005/05/01, 2005/03/31
'2005/03/29, 2005/03/16, 2005/03/13, 2005/02/24, 2005/02/15
'2005/02/13, 2005/02/12, 2005/02/09, 2004/11/14
vari s_any, d_any, s_dot, d_dot
vari d_loop, s_pick, d_pick

d_loop = 1
dwhi d_loop = 1
    $out "2. prime numbers"
    $out "4. prime gaps simple"
    $out "5. prime gaps dfac"
    $out "6. sub_teaquad_primes_test_in_file"
    $out "21. sub_teaquad_primes_1101"
    $out "31. sub_compare_dfac_and_dfak"
    $out "51. sub_dfac_speed_test"
    $out "52. sub_teaquad_mod_test"
    $out "61. test every 10^14 number for times"
    $inp s_pick, "pick a number, * to end"

    d_pick = 0
    $isd d_any, s_pick
    dift d_any = 1: $tod d_pick, s_pick

    'asterisk is char 42
    $ift s_pick = "*": d_loop = 2

    'prime numbers
    dift d_pick = 2: sub_primes_find

    'prime gaps simple
    dift d_pick = 4: sub_prime_gaps_simple

    'prime gaps simple
    dift d_pick = 5: sub_prime_gaps_dfac

    'teaquad test primes in a file
    dift d_pick = 6: sub_teaquad_primes_test_in_file

    dift d_pick = 21: sub_teaquad_primes_1101

    dift d_pick = 31: sub_compare_dfac_and_dfak

    'dfac speed test
    dift d_pick = 51: sub_dfac_speed_test

    dift d_pick = 52: sub_teaquad_mod_test

    'test every 10^14th number for times
    dift d_pick = 61: sub_primes_time_test
endw
ends sub_menu_primes


subr sub_primes_find
'updated 2006/07/29, 2005/03/31, 2005/02/17,
'2005/02/13, 2005/02/12, 2005/02/11, 2005/02/09,
'2005/02/05, 2005/01/31, 2005/01/30, 2004/12/04
'prime numbers
vari s_any, d_any, s_dot, d_dot, s_out
vari d_yesfile, s_filename, d_begin, d_tofindct,d_count
vari d_time1, d_time2, d_time3
vari d_maxdiff, d_maxprime, d_prevprime
vari d_totprimes, d_yesdfac

'get current subroutine name
$sys s_any, 2
$out s_any

d_yesdfac = 2
$inp s_any, "1 = use dfac"
$ift s_any = "1": d_yesdfac = 1

$inp s_any, "1 = save in file"

d_yesfile = 2
$isd d_any, s_any
dift d_any = 1: $tod d_yesfile, s_any

dift d_yesfile = 1
    $inp s_filename, "enter filename"
    fdel d_any,  s_filename
endi

$out "12345678901234567890"
$inp s_any, "enter number to start with"

d_begin = 1
$isd d_any, s_any
dift d_any = 1: $tod d_begin, s_any

ded$ s_any, d_begin, 0, 0
$out "number entered=" + s_any

'make sure number is odd and an integer
d_begin = d_begin \ 1
d_any = d_begin % 2
dift d_any = 0: d_begin = d_begin + 1

ded$ s_any, d_begin, 0, 0
$out "begin=" + s_any

'test d_begin for primeness
d_begin = d_begin - 2

$inp s_any, "how many to find"

d_tofindct = 10
$isd d_any, s_any
dift d_any = 1: $tod d_tofindct, s_any

$out "number to find=" + d_tofindct

'get the begin seconds in d_time1
dsec d_time1
d_time2 = d_time1

'd_maxdiff is for max difference at prime d_maxprime
d_maxdiff = 0
d_maxprime = 0

'd_prevprime is for previous prime
d_prevprime = d_begin

'd_totprimes is for totalling the primes
d_totprimes = 0

'd_count is for counting the primes
d_count = 0

'is count d_count still less than total wanted d_tofindct
dwhi d_count < d_tofindct

    'test d_begin for primeness
    d_begin = d_begin + 2
    $sho d_begin

    dift d_yesdfac = 1
        dfac d_dot, d_begin
    else
        'prime test, dg_pass1=1 means prime
        dg_pass1 = d_begin
        sub_prime_test_simple
        d_dot = dg_pass1
    endi

    dift d_dot = 1
        'we have a prime
        'output of prime in d_begin and info
        'increment count d_count
        d_count = d_count + 1

        'get seconds into d_time2, begin in d_time1
        dsec d_any
        d_time3 = d_any - d_time2
        d_time2 = d_any

        'find difference with previous in d_prevprime
        d_any = d_begin - d_prevprime
        dift d_any > d_maxdiff
            dift d_prevprime > 0
                d_maxdiff = d_any
                d_maxprime = d_prevprime
            endi
        endi

        ded$ s_any, d_begin, 0, 0

        s_out = "count=" + d_count + ", prime=" + s_any
        $app s_out, ", seconds=" + d_time3
        $app s_out, ", diff=" + d_any

        $out s_out

        'do we save to file s_filename
        dift d_yesfile = 1
            fapp d_any, s_filename, s_out
            dbad d_any = 0
        endi

        'save to d_time1 for previous prime
        d_prevprime = d_begin


        'd_totprimes is for totalling the primes
        d_totprimes = d_totprimes + d_begin
    endi
endw

'begin seconds are in d_time1
dsec d_any
d_any = d_any - d_time1
s_out = "seconds=" + d_any
$out s_out

'do we save to file s_filename
dift d_yesfile = 1
    fapp d_any, s_filename, s_out
    dbad d_any = 0
endi

'output maximum d_maxdiff at d_maxprime
ded$ s_any, d_maxprime, 0, 0
s_out = "max=" + d_maxdiff + ", at=" + s_any
$out s_out

'do we save to file s_filename
dift d_yesfile = 1
    fapp d_any, s_filename, s_out
    dbad d_any = 0
endi

ded$ s_any, d_totprimes, 0, 0
s_out = "total of primes=" + s_any
$out s_out

'do we save to file s_filename
dift d_yesfile = 1
    fapp d_any, s_filename, s_out
    dbad d_any = 0
endi

$inp s_any, "done"
ends sub_primes_find


subr sub_prime_gaps_simple
'updated 2006/05/20, 2006/05/09, 2006/05/03, 2006/05/01, 2006/04/18
'2006/04/17, 2006/04/16, 2005/03/31, 2005/02/23, 2005/02/19
vari s_any, d_any, s_dot, d_dot, s_out
vari d_yesfile, s_filename, d_number, d_tofindct, d_count
vari s_date, s_prevhour, d_prevhour, d_factor, d_yesdfac
vari d_gap, d_maxgap, d_prevprime, d_pause, d_loop
vari d_process, d_seconds1, d_seconds2, s_seconds

'get current subroutine name
$sys s_any, 2
$out s_any

d_process = 1
dift d_process = 1
    $inp s_any, "1 = pause after each"
    $ift s_any = "*": dinc d_process
    d_pause = 2
    $isd d_any, s_any
    dift d_any = 1: $tod d_pause, s_any
endi
dift d_process = 1
    $out "12345678901234567890"
    $inp s_any, "enter number to start with"
    $ift s_any = "*": dinc d_process

    d_number = 3
    $isd d_any, s_any
    dift d_any = 1: $tod d_number, s_any
endi
dift d_process = 1
    $inp s_any, "enter max gap so far"
    $ift s_any = "*": dinc d_process

    d_maxgap = 2
    $isd d_any, s_any
    dift d_any = 1: $tod d_maxgap, s_any
endi
dift d_process = 1
    ded$ s_any, d_number, 0, 0
    $out "number entered=" + s_any
    $out "begin gap=" + d_maxgap

    'make sure number is odd and an integer
    d_number = d_number \ 1
    d_any = d_number % 2
    dift d_any = 0: d_number = d_number + 1
    s_prevhour = "99"

    ded$ s_any, d_number, 0, 0
    $out "begin=" + s_any
    $out "gap=" + d_maxgap
    $out "d_yesdfac=" + d_yesdfac

    'd_prevprime is for previous prime
    d_prevprime = d_number
    d_number = d_number + 2
endi

'd_count is for counting the primes
d_count = 0

'is count d_count still less than total wanted d_tofindct
dsec d_seconds1
d_loop = d_process

dwhi d_loop = 1
    dg_pass1 = d_number
    sub_prime_test_simple
    d_factor = dg_pass1

    dift d_factor = 1
        'd_number is prime
        $sho d_number

        'increment count d_count
        d_count = d_count + 1

        'find difference with previous in d_prevprime
        d_gap = d_number - d_prevprime

        dift d_gap >= d_maxgap
            dsec d_seconds2
            d_any = d_seconds2 - d_seconds1
            dto$ s_seconds, d_any, 0, 3

            d_maxgap = d_gap

            ded$ s_any, d_prevprime, 0, 0
            s_out = d_count + ". prime=" + s_any
            $app s_out, ", gap=" + d_gap
            $app s_out, ", max=" + d_maxgap
            $app s_out, ", sec=" + s_seconds
            $out s_out

            dift d_pause = 1
                $inp s_any, "return, go=go, * to end"
                $ift s_any = "*": d_loop = 2
                $tup s_any, s_any
                $ift s_any = "GO": dinc d_pause
            endi
            d_seconds1 = d_seconds2
        endi

        'save to d_time1 for previous prime
        d_prevprime = d_number
    endi

    'next number to test
    d_number = d_number + 2
endw
ends sub_prime_gaps_simple


subr sub_prime_gaps_dfac
'updated 2008/09/13, 2006/05/20, 2006/04/19, 2006/04/18
'2006/04/17, 2006/04/16, 2005/03/31, 2005/02/23, 2005/02/19
vari s_any, d_any, s_dot, d_dot, s_out
vari d_yesfile, s_filename1, s_filename2
vari d_number, d_prevprime, d_factor
vari s_date, s_prevhour, d_prevhourprime
vari d_gap, d_maxgap, d_loop
vari d_process, d_halfmax, d_big
vari d_sec1, d_sec2, d_sec3

'get current subroutine name
$sys s_any, 2
$out s_any

d_big = 2
d_process = 1
dift d_process = 1
    $inp s_any, "1 = append to files GAPS1.TXT,GAPS2.TXT"
    $ift s_any = "*": dinc d_process

    d_yesfile = 2
    $isd d_any, s_any
    dift d_any = 1: $tod d_yesfile, s_any
    s_filename1 = "gaps1.txt"
    s_filename2 = "gaps2.txt"
endi
dift d_process = 1
'1,693,182,318,746,371 PRIME GAP AFTER THIS OF 1132
'FOUND 1999 BY Be Nyman
    $out "first prime gap over 1000 found 1999 by Be Nyman"
    $out "big=1,693,182,318,746,371"
    $out "12345678901234567890"
    $inp s_any, "enter number to start with"
    $ift s_any = "*": dinc d_process
    $tup s_any, s_any
    $ift s_any = "BIG"
        s_any = "1,693,182,318,746,371"
        d_big = 1
    endi

    d_number = 3
    $isd d_any, s_any
    dift d_any = 1: $tod d_number, s_any
endi
dift d_process = 1
    dift d_big <> 1
        $inp s_any, "enter max gap so far"
    else
        s_any = "2"
    endi
    $ift s_any = "*": dinc d_process

    d_maxgap = 2
    $isd d_any, s_any
    dift d_any = 1: $tod d_maxgap, s_any
endi
dift d_process = 1
    ded$ s_any, d_number, 0, 0
    $out "number entered=" + s_any
    $out "begin gap=" + d_maxgap

    'make sure number is odd and an integer
    d_number = d_number \ 1
    d_any = d_number % 2
    dift d_any = 0: d_number = d_number + 1
    s_prevhour = "99"

    ded$ s_any, d_number, 0, 0
    $out "begin=" + s_any
    $out "gap=" + d_maxgap
    d_halfmax = d_maxgap \ 2

    'd_prevprime is for previous prime
    d_prevprime = d_number
endi

dsec d_sec1
d_loop = d_process

dwhi d_loop = 1
    'next number to test
    d_number = d_number + 2

    dfac d_factor, d_number
    dwhi d_factor <> 1
        'next number to test
        d_number = d_number + 2

        dfac d_factor, d_number
    endw

    'd_number is prime

    'find difference with previous in d_prevprime
    d_gap = d_number - d_prevprime

    dift d_gap >= d_maxgap
        dsec d_sec2
        d_sec3 = d_sec2 - d_sec1
        d_sec1 = d_sec2

        $dat s_date
        $cut s_date, s_date, 1, 20

        d_maxgap = d_gap
        d_halfmax = d_maxgap \ 2

        ded$ s_any, d_prevprime, 0, 0

        s_out = "prime=" + s_any
        $app s_out, " gap=" + d_gap
        $app s_out, " max=" + d_maxgap
        $app s_out, " dat=" + s_date
        $app s_out, " sec=" + d_sec3
        $out s_out

        'do we save to file s_filename
        dift d_yesfile = 1
            fapp d_any, s_filename1, s_out
            dbad d_any = 0

            fapp d_any, s_filename2, s_out
            dbad d_any = 0
        endi
    endi

    d_prevprime = d_number

    dift d_gap > d_halfmax
        $sho d_number

        '12345678901234567890
        '23-FEB-2005 08:25:03
        $dat s_date
        $cut s_any, s_date, 13, 2

        $ift s_any <> s_prevhour
            s_prevhour = s_any

            $cut s_date, s_date, 1, 20

            d_dot = d_prevprime - d_prevhourprime
            ded$ s_dot, d_dot, 0, 0
            d_prevhourprime = d_prevprime

            ded$ s_any, d_prevprime, 0, 0

            s_out = s_any + " " + "max=" + d_maxgap
            $app s_out, "  " + s_date + " " + s_dot

            $out s_out

            'do we save to file s_filename
            dift d_yesfile = 1
                fapp d_any, s_filename1, s_out
                dbad d_any = 0
            endi
        endi
    endi
    dift d_big = 1
        dinc d_loop
        $inp s_any, "done"
    endi
endw
ends sub_prime_gaps_dfac


'HERE sub_teaquad_5tp39_by_modulus_duo

subr sub_teaquad_5tp39_by_modulus_duo
'updated 2012/02/02, 2012/02/01, 2012/01/27
'2012/01/26, 2012/01/24, 2012/01/21, 2012/01/19, 2012/01/15
'2012/01/13, 2012/01/11, 2012/01/08, 2012/01/06, 2011/12/30
'2011/12/29, 2011/12/26, 2011/12/24, 2011/12/12, 2011/12/10
'2011/12/06, 2011/12/01, 2011/11/29, 2011/11/28, 2011/11/27
'2011/11/26, 2011/11/24, 2011/11/22, 2011/11/18, 2011/11/17
'2011/11/15, 2011/11/14, 2011/11/13, 2011/11/12, 2011/11/11
'2011/11/10, 2011/11/09, 2011/11/07, 2011/11/06, 2011/11/03
'2011/10/21, 2011/10/17, 2011/10/10, 2011/10/01, 2011/09/27
'2011/09/19, 2011/09/08, 2011/09/04, 2011/08/24, 2011/08/08
'2011/08/05, 2011/07/27, 2011/07/23, 2011/07/20, 2011/07/18
'2011/07/16, 2011/06/26, 2011/06/20, 2011/06/12, 2011/05/30
'2011/05/24, 2011/05/20, 2011/05/17, 2011/05/16, 2011/05/15
'2011/05/13, 2011/05/12, 2011/05/10, 2011/05/06, 2011/05/05
'2011/05/01, 2011/04/28, 2011/04/27, 2011/04/26, 2011/04/25
'2011/04/24, 2011/04/20, 2011/04/18, 2011/04/12, 2011/04/01
'2011/03/29, 2011/03/10, 2011/03/09, 2011/03/08, 2011/03/07
'2011/03/05, 2011/03/04, 2011/03/03, 2011/02/28, 2011/02/27
'2011/02/23, 2011/02/22, 2011/02/09, 2011/02/06, 2011/02/04
'2011/01/31, 2011/01/29, 2011/01/28, 2011/01/25, 2011/01/23
'2011/01/22, 2011/01/21, 2011/01/20, 2011/01/19, 2011/01/18
'2011/01/16, 2011/01/07, 2011/01/04, 2011/01/01, 2010/12/30
'2010/12/19, 2010/12/14, 2010/12/13, 2010/12/10, 2010/12/06
'2010/12/04, 2010/12/02, 2010/11/27, 2010/11/25, 2010/11/24
'2010/11/23, 2010/11/22, 2010/11/20, 2010/11/19, 2010/11/17
'2010/11/16, 2010/11/15, 2010/11/13, 2010/11/11, 2010/11/10
'2010/11/08, 2010/11/07, 2010/11/05, 2010/11/04, 2010/10/25
'2010/10/23, 2010/10/22, 2010/10/20, 2010/10/19, 2010/10/18
'2010/10/17, 2010/10/16, 2010/10/14, 2010/10/13, 2010/10/12
'2010/10/11, 2010/10/07, 2010/10/06, 2010/10/04, 2010/10/03
'2010/10/02, 2010/10/01, 2010/09/30, 2010/09/28, 2010/09/27
'2010/09/22, 2010/09/20, 2010/09/17, 2010/09/14, 2010/09/10
'2010/09/08, 2010/09/04, 2010/08/31, 2010/08/25, 2010/08/24
'2010/08/23, 2010/08/22, 2010/08/21, 2010/08/20, 2010/08/16
'2010/08/13, 2010/08/12, 2010/08/11, 2010/08/10, 2010/08/03
'2010/08/02, 2010/08/01, 2010/07/30, 2010/07/28, 2010/07/15
'2010/07/07, 2010/06/22, 2010/06/21, 2010/06/17, 2010/06/09
'2010/06/04, 2010/06/01, 2010/05/31, 2010/05/29, 2010/05/28
'2010/05/21, 2010/05/19, 2010/05/09, 2010/05/04, 2010/05/02
'2010/04/29, 2010/04/25, 2010/04/23, 2010/04/22, 2010/04/21
'2010/04/20, 2010/04/19, 2010/04/16, 2010/04/15, 2010/04/10
'2010/04/09, 2010/04/07, 2010/04/06, 2010/04/04, 2010/04/02
'2010/04/01, 2010/03/29, 2010/03/27, 2010/03/23, 2010/03/22
'2010/03/21, 2010/03/20, 2010/03/19, 2010/03/14, 2010/03/06
'2010/02/28, 2010/02/27, 2010/02/26, 2010/02/23, 2010/02/22
'2010/02/21, 2010/02/19, 2010/02/18, 2010/02/17, 2010/02/15
'2010/02/14, 2010/02/13, 2010/02/12, 2010/02/11, 2010/02/09
'2010/02/07, 2010/02/06, 2010/01/28, 2010/01/27, 2010/01/25
'2010/01/24, 2010/01/22, 2010/01/21, 2010/01/20, 2010/01/19
'2010/01/18, 2010/01/14, 2010/01/13, 2010/01/12, 2010/01/08
'2010/01/07, 2010/01/06, 2010/01/04, 2010/01/02, 2009/12/29
'2009/12/26, 2009/12/24, 2009/12/16, 2009/12/15, 2009/12/14
'2009/12/06, 2009/12/03, 2009/12/02, 2009/11/30, 2009/11/28
'2009/11/26, 2009/11/25, 2009/11/24, 2009/11/22, 2009/11/21
'2009/11/20, 2009/11/18, 2009/11/17, 2009/11/12, 2009/11/10
'2009/11/09, 2009/10/20, 2009/10/13, 2009/10/12, 2009/10/09
'2009/10/08, 2009/10/07, 2009/10/06, 2009/09/23, 2009/09/17
'2009/09/16, 2009/09/15, 2009/09/14, 2009/09/11, 2009/09/10
'2009/09/07, 2009/09/02, 2009/08/30, 2009/08/29, 2009/08/27
'2009/08/21, 2009/08/20, 2009/08/19, 2009/08/18, 2009/08/17
'2009/08/16, 2009/08/15, 2009/08/14, 2009/08/12, 2009/08/10
'2009/08/09, 2009/08/08, 2009/08/05, 2009/08/04, 2009/08/02
'2009/07/29, 2009/07/20, 2009/07/19, 2009/07/14, 2009/07/12
'2009/07/11, 2009/07/10, 2009/07/09, 2009/07/07, 2009/07/06
'2009/07/05, 2009/07/04, 2009/07/03, 2009/07/02, 2009/06/29
'2009/06/17, 2009/06/12, 2009/06/11, 2009/06/10, 2009/06/09
'2009/06/06, 2009/05/15, 2009/05/12, 2009/04/27, 2009/04/26
'2009/04/25, 2009/04/24, 2009/04/21, 2009/04/19, 2009/04/18
'2009/04/16, 2009/04/11, 2009/04/10, 2009/04/09, 2009/04/08
'2009/04/07, 2009/04/04, 2009/04/02, 2009/04/01, 2009/03/29
'2009/03/24, 2009/03/22, 2009/03/18, 2009/03/17, 2009/03/16
'2009/03/12, 2009/03/11, 2009/03/09, 2009/03/08, 2009/03/05
'2009/03/04, 2009/03/03, 2009/03/02, 2009/03/01, 2009/02/26
'2009/02/24, 2009/02/22, 2009/02/20, 2009/02/19, 2009/02/14
'2009/02/13, 2009/02/01, 2009/01/29, 2009/01/25, 2009/01/24
'2009/01/19, 2008/12/22, 2008/12/06, 2008/11/23, 2008/11/09
'2008/10/27, 2008/10/20, 2008/09/27, 2008/09/21, 2008/09/16
'2008/09/13, 2008/09/08, 2008/08/27, 2008/08/14, 2008/07/18
'2008/07/16, 2008/07/15, 2008/07/13, 2008/07/12, 2008/07/09
'2008/07/08, 2008/07/07, 2008/07/06, 2008/07/05, 2008/07/03
'2008/07/02, 2008/06/09, 2008/06/02, 2008/05/31, 2008/05/30
'2008/05/15, 2008/05/14, 2008/05/12, 2008/05/10, 2008/04/29
'2008/04/15, 2008/04/10, 2008/04/07, 2008/04/06, 2008/03/17
'2008/03/15, 2008/03/13, 2008/03/06, 2008/02/29, 2008/02/28
'2008/02/21, 2008/02/14, 2008/02/07, 2008/01/08, 2008/01/06
'2008/01/03, 2008/01/02, 2007/12/22, 2007/12/21, 2007/12/09
'2007/11/12, 2007/11/05, 2007/11/03, 2007/10/29, 2007/10/19
'2007/10/18, 2007/10/17, 2007/10/13, 2007/10/08, 2007/10/07
'2007/09/18, 2007/09/16, 2007/09/06, 2007/08/26, 2007/08/25
'2007/08/21, 2007/08/09, 2007/08/02, 2007/07/19, 2007/07/18
'2007/07/17, 2007/07/16, 2007/07/15, 2007/07/07, 2007/07/06
'2007/07/05, 2007/07/01, 2007/06/30, 2007/06/28, 2007/06/13
'2007/06/12, 2007/06/06, 2007/06/02, 2007/05/31, 2007/05/28
'2007/05/21, 2007/05/20, 2007/05/17, 2007/05/11, 2007/05/10
'2007/05/09, 2007/04/25, 2007/04/24, 2007/04/21, 2007/04/20
'2007/04/19, 2007/04/16, 2007/04/11, 2007/04/10, 2007/04/04
'2007/04/03, 2007/04/02, 2007/03/30, 2007/03/29, 2007/03/27
'2007/03/23, 2007/03/22, 2007/03/21, 2007/03/20, 2007/03/17
'2007/03/14, 2007/02/24, 2007/02/22, 2007/01/27, 2007/01/11
'2006/12/21, 2006/12/12, 2006/11/30, 2006/11/24, 2006/11/19
'2006/11/18, 2006/11/16, 2006/11/12, 2006/10/29, 2006/10/27
'2006/10/26, 2006/10/12, 2006/09/30, 2006/09/28, 2006/09/04
'2006/08/22, 2006/08/17, 2006/07/27, 2006/07/23, 2006/07/06
'2006/05/23, 2006/04/23, 2006/03/14, 2006/03/13, 2006/02/27
'2006/02/24, 2006/01/29, 2005/11/29, 2005/08/07, 2005/06/11
'2005/06/07, 2005/06/05, 2005/05/31, 2005/05/17, 2005/05/16
'2005/05/14, 2005/05/11, 2005/05/06, 2005/05/02, 2005/04/29
'2005/04/27, 2005/04/24, 2005/04/23, 2005/04/04, 2005/04/02
'2005/03/31, 2005/03/21, 2005/03/14, 2005/03/10, 2005/03/09
'2005/03/08, 2005/03/03, 2005/03/02, 2005/02/27, 2005/02/24
'find 5TP39s by modulus
'for speed this subroutine uses GTAG and GOTO
vari d_any, s_any, d_dot, s_dot, d_tap, s_tap, s_out
vari d_ask, s_ask, s_datebegin17, s_datebegin20
vari d_good, s_beginnumber, d_begseconds, d_beglines
vari s_dateduo17, s_dateduoprev17, s_date35, s_date17
vari s_pausefile, s_dashline
vari d_2hournew, d_2hourprev, d_seconds

vari d_tpdpart01, d_tpdpart02, d_tpdpart03, d_tpdpart04
vari d_tpdpart05, d_tpdpart06, d_tpdpart07, d_tpdpart08
vari d_tpdpart09, d_tpdpart10, d_tpdpart11, d_tpdpart12
vari s_tpddelta, d_tpddelta, d_tpdrate, s_tpdrate

vari d_qtpcount, d_tothourct, s_sholine, s_hrline, s_qtpline
vari d_tpdallpart, d_tpdallmult, d_tpdallhourct, d_dduopassct
vari d_billion, d_trillion

vari d_primetest, s_primetest
vari d_pivcompart, s_pivcom, d_process, d_y630, d_begin
vari d_number, s_number, d_div, d_duofactor, d_filenametest

vari d_index, d_qtpmaxindex, d_maxarrayprime, d_maxprime
vari d_pstringct, d_pstringmax, d_pstringlong, s_pstring
vari d_filebyte, d_loop, s_record, s_file5tp39, s_line
vari s_afile, s_bfile
vari s_2all, s_2code, d_long, d_which
vari d_teaquadone, d_mod1, d_mod2, d_mod3
vari d_teaquad11part, d_teaquad49part
vari d_teaquadpart, d_teaquadmult
vari d_runct1, d_runct2, d_runct3, d_runct4
'below two lines are for testing
vari d_qtptestctloop1, d_qtptestctlooppre2, d_qtptestctloop2
vari d_qtptestdduonotct, d_qtptestdduonottot, s_qtptestbeg
vari d_qtptestctdduo1, d_qtptestctdduo2, d_qtptestctdduo3
vari d_qtptestctdduo4, d_qtptestctdduo5

vari d_qtptestct41, d_qtptestct42
vari d_qtptestct43, d_qtptestct44

vari d_qtptestsecbeg, d_qtptestsecend, d_qtptestsecdif
vari d_qtptestsec41, d_qtptestsec42
vari d_qtptestsec43, d_qtptestsec44

vari d_qtptestmod, d_qtptesttyp, s_qtptestfile
vari d_qtptestsecall, d_qtptestpick, d_qtptestlines
vari d_qtptestsecstd

'HERE sub_teaquad_5tp39_by_modulus_duo

'd_which=1 for begin again get number from file,qtp20
'd_which=2 for enter file code, beg, end
d_which = dg_pass1

$ch$ s_dashline, "-", 70

'get current subroutine name
$sys s_any, 2
$out s_any
d_process = 1
'd_teaquadone is always E15 or 10^15
dpow d_teaquadone, 10, 15
d_teaquadmult = 1
dg_at8pause = 2

d_qtptestmod = 99999
dift d_which = 2
    'yesno output test line after 5TP39
    s_out = "1=output test info after 5TP39, at8pause=" + dg_at8pause
    $inp s_any, s_out
    $tup s_any, s_any
    $ift s_any = "*"
        dinc d_process
        d_which = 99999
    endi
    $ift s_any = "1": d_qtptestmod = 1
    $ift s_any = "AT8PAUSE": dg_at8pause = 1
endi

'make d_pstringct negative for first time through
d_pstringct = - 2000 * 1000
dift d_which = 2
    'get d_pstringct
    s_out = "primes in string: 1=1E6,2=2E6,3=3E6,4=4E6,5=5E6 return=2.0"
    $inp s_any, s_out
    $ift s_any = "*"
        dinc d_process
        d_which = 99999
    endi
    $isd d_any, s_any
    dift d_any = 1
        $tod d_any, s_any

        'min is 10,000
        dift d_any <= 0: d_any = 1 / 100

        'max is 5.7 for under 100E6 primes
        d_dot = 57 / 10
        dift d_any > d_dot: d_any = d_dot

        d_pstringct = d_any * 1000 * 1000
        dtru d_pstringct, d_pstringct

        'make negative for first time through
        d_pstringct = - d_pstringct
    endi
endi

'which filename do we want in s_afile
s_2all = "a0,a1,a2,a3,a4,a5,a6,a7,a8,a9,"
$app s_2all, "g0,g1,g2,g3,g4,g5,g6,g7,g8,g9,"
$app s_2all, "n0,n1,n2,n3,n4,n5,n6,n7,n8,n9,"
$app s_2all, "j0,j1,j2,j3,j4,j5,j6,j7,j8,j9,"
$app s_2all, "t0,t1,t2,t3,t4,t5,t6,t7,t8,t9,"
$app s_2all, "u0,u1,u2,u3,u4,u5,u6,u7,u8,u9,"
s_2code = sg_nothing
d_dot = 1
d_loop = d_process

d_filenametest = 1
dwhi d_loop = 1
    $par s_dot, s_2all, ",", d_dot
    $len d_any, s_dot
    dift d_any = 2
        s_afile = "qtp20" + s_dot + "a.txt"
        s_bfile = s_afile
        $rep s_bfile, 8, "b"

        flen d_any, s_afile
        dift d_any > 10
            s_2code = s_dot
            dinc d_loop
            dinc d_filenametest
        endi

        dinc d_dot
    else
        dinc d_loop
    endi
endw

dift d_qtptestmod = 1: d_filenametest = 1
dift d_filenametest = 1
    'we did not find a file so zz
    s_2code = "z" + "z"
    s_afile = "qtp20zza.txt"
    s_bfile = "qtp20zzb.txt"
endi

'd_which=1 for begin again get number from file,qtp20
'd_which=2 for enter file code, beg, end
d_ask = 2
dift d_which = 2: d_ask = 1
dift d_process <> 1: d_ask = 99999

dift d_process <> 1: d_ask = 99999

d_any = 1
dift d_process <> 1: dinc d_any
dift d_any = 1
    $out s_dashline

    'ask for file code
    $out "t0,t1,t2,t3,t4,t5,t6,t7,t8,t9,"
    $out "a0,a1,a2,a3,a4,a5,a6,a7,a8,a9,"
    $out "g0,g1,g2,g3,g4,g5,g6,g7,g8,g9,"
    $out "u0,u1,u2,u3,u4,u5,u6,u7,u8,u9,"
    $out "n0,n1,n2,n3,n4,n5,n6,n7,n8,n9,"
    $out "j0,j1,j2,j3,j4,j5,j6,j7,j8,j9,"
    $out "default files=" + s_afile + " and " + s_bfile

    s_any = "enter different two letter file code, "
    $app s_any, "return for default, zz=test"
    $inp s_any, s_any
    $ift s_any = "*"
        dinc d_process
        dinc d_ask
    endi
    $tlo s_any, s_any
    $len d_any, s_any
    dift d_any = 2: s_2code = s_any
'here s_2code now determined
endi
dift d_process = 1
    $out s_dashline + s_2code

    s_afile = "qtp20" + s_2code + "a.txt"
    s_bfile = s_afile
    $rep s_bfile, 8, "b"

    $out "looking at files=" + s_afile + " and " + s_bfile

    'get beginning number from file
    d_teaquad11part = 0
    d_teaquadmult = 0
    d_filebyte = 1
    d_loop = 1

    dwhi d_loop = 1
        'sip through file to get last number for restart
        fsip s_record, s_afile, d_filebyte

        dift d_filebyte = 0
            dinc d_loop
        else
            $tup s_record, s_record
            $ift s_record = "STOP"
                $inp s_any, "STOP for " + s_2code
                dinc d_loop
                dinc d_process
                dinc d_ask
            endi

            $app s_record, " "
            $cut s_any, s_record, 1, 4
            $clo s_any, s_any
            $ift s_any = "duo="
                'take off duo=
                $cut s_record, s_record, 5, 99999
            endi
            $lok d_any, s_record, 1, " "
            $cut s_any, s_record, 1, d_any

            'do we have a number
            sg_pass1 = s_any
            sub_teaquad_from_string
            d_any = 2
            dift dg_pass1 > 0: d_any = 1
            dift dg_pass2 > 0: d_any = 1
            dift d_any = 1
                'we did get a number
                s_line = s_record
                d_teaquad11part = dg_pass1
                d_teaquadmult = dg_pass2
            endi
        endi
    endw
endi
dift d_process = 1
    'show d_teaquadmult,d_teaquad11part
    ded$ s_any, d_teaquad11part, 0, 0
    s_out = "file mult=" + d_teaquadmult + " part=" + s_any
    $app s_out, " " + s_2code
    $out s_out

    dift d_teaquad11part > 0: $out "last=" + s_line
    dift d_which = 1: d_ask = 2
    dift d_teaquad11part = 0: d_ask = 1
    $ift s_2code = "zz": d_ask = 1
endi

dift d_process <> 1: d_ask = 99999

dift d_ask = 1
    'ask for beginning number

    'enter beginning number
    s_out = "E15=in quadrillions, E18=in quintillions"
    $out s_out
    dift d_qtptestmod = 1
        $out "1. 1E15 sec=912 0"
        $out "2. 2E15 sec=268 0"
        $out "3. 3E15 sec=61 0"
        $out "4. 6E15 sec=967 1"
        $out "5. 7E15 sec=319 0"
        $out "6. 12E15 sec=74 0"
        $out "7. 14E15 sec=308 0"
        $out "8. 19E15 sec=1284 3"
        $out "9. 28E15 sec=55 0"
        $out "10. 30E15 sec=672 1"
        $out "11. 36E15 sec=528 2"
        $out "12. 38E15 sec=166 0"
        $out "13. 39E15 sec=384 0"
        $out "14. 63E15 sec=90 0"
        $out "15. 84E15 sec=117 0"
        $out "16. 2E18 sec=1351 1"
        $out "17. 4E18 sec=3232 6"
        $out "18. 5E18 sec=3613 7"
        $out "19. 7E18 sec=2983 8"
        $out "20. 11E18 sec=3171 8"
        $out "21. 12E18 sec=9000 23"
        $out "22. 20E18 sec=6752 7"
        $out "23. 50E18 sec=2732 8"
        $out "24. 57E18 sec=2898 4"
        $out "25. 94E18 sec=2694 3"
        $out "50. all above"

        $out "71. 1E18 sec=12800 26"
        $out "72. 3E18 sec=20587 35"
    endi
'HERE sub_teaquad_5tp39_by_modulus_duo
    dg_pass1 = d_teaquad11part
    dg_pass2 = d_teaquadmult
    sub_teaquad_to_string
    s_number = sg_pass1
    $out "beg=" + s_number + " " + s_2code

    s_out = "12345678901234567890123456"
    $inp s_ask, s_out

    $tup s_ask, s_ask
    $ift s_ask = "*": dinc d_process

'HERE sub_teaquad_5tp39_by_modulus_duo
    dift d_qtptestmod = 1
        d_qtptestlines = 0
        d_qtptestsecall = 0
        d_qtptestsecstd = 0
        d_qtptestdduonottot = 0
        d_qtptestpick = 0
        $len d_any, s_ask
        dift d_any < 3
            $isd d_any, s_ask
            dift d_any = 1: $tod d_qtptestpick, s_ask
        endi
        dift d_qtptestpick = 50
            'we have an qtptestall
            d_qtptestmod = 2
            d_qtptestpick = 1
        endi
gtag tag_qtptestall

        d_qtptestdduonotct = 0
        s_qtptestbeg = s_ask
        dift d_qtptestpick = 1: s_qtptestbeg = "1E15 sec=912 0"
        dift d_qtptestpick = 2: s_qtptestbeg = "2E15 sec=268 0"
        dift d_qtptestpick = 3: s_qtptestbeg = "3E15 sec=61 0"
        dift d_qtptestpick = 4: s_qtptestbeg = "6E15 sec=967 1"
        dift d_qtptestpick = 5: s_qtptestbeg = "7E15 sec=319 0"
        dift d_qtptestpick = 6: s_qtptestbeg = "12E15 sec=74 0"
        dift d_qtptestpick = 7: s_qtptestbeg = "14E15 sec=308 0"
        dift d_qtptestpick = 8: s_qtptestbeg = "19E15 sec=1284 3"
        dift d_qtptestpick = 9: s_qtptestbeg = "28E15 sec=55 0"
        dift d_qtptestpick = 10: s_qtptestbeg = "30E15 sec=672 1"
        dift d_qtptestpick = 11: s_qtptestbeg = "36E15 sec=528 2"
        dift d_qtptestpick = 12: s_qtptestbeg = "38E15 sec=166 0"
        dift d_qtptestpick = 13: s_qtptestbeg = "39E15 sec=384 0"
        dift d_qtptestpick = 14: s_qtptestbeg = "63E15 sec=90 0"
        dift d_qtptestpick = 15: s_qtptestbeg = "84E15 sec=117 0"
        dift d_qtptestpick = 16: s_qtptestbeg = "2E18 sec=1351 1"
        dift d_qtptestpick = 17: s_qtptestbeg = "4E18 sec=3232 6"
        dift d_qtptestpick = 18: s_qtptestbeg = "5E18 sec=3613 7"
        dift d_qtptestpick = 19: s_qtptestbeg = "7E18 sec=2983 8"
        dift d_qtptestpick = 20: s_qtptestbeg = "11E18 sec=3171 8"
        dift d_qtptestpick = 21: s_qtptestbeg = "12E18 sec=9000 23"
        dift d_qtptestpick = 22: s_qtptestbeg = "20E18 sec=6752 7"
        dift d_qtptestpick = 23: s_qtptestbeg = "50E18 sec=2732 8"
        dift d_qtptestpick = 24: s_qtptestbeg = "57E18 sec=2898 4"
        dift d_qtptestpick = 25: s_qtptestbeg = "94E18 sec=2694 3"
        dift d_qtptestpick = 71: s_qtptestbeg = "1E18 sec=12800 26"
        dift d_qtptestpick = 72: s_qtptestbeg = "3E18 sec=20587 35"
'11,000,002,514,388,602,381
        $par s_ask, s_qtptestbeg, " ", 1
    endi

    'do we have a "E15" for quadrillions
    $lok d_any, s_ask, 1, "E15"
    dift d_any > 0
        ddec d_any
        $cut s_ask, s_ask, 1, d_any
        $app s_ask, ",000,000,000,000,000"
        $out s_ask
    endi

    'do we have a "E18" for quintillions
    $lok d_any, s_ask, 1, "E18"
    dift d_any > 0
        ddec d_any
        $cut s_ask, s_ask, 1, d_any
        $app s_ask, ",000,000,000,000,000,000"
        $out s_ask
    endi

    $trb s_ask, s_ask
    $len d_any, s_ask
    dift d_any > 0
        sg_pass1 = s_ask
        sub_teaquad_from_string
        d_teaquad11part = dg_pass1
        d_teaquadmult = dg_pass2
    endi
endi
dift d_process = 1
    $out s_dashline + s_2code

    $out "files=" + s_afile + " and " + s_bfile + " " + s_2code

    'minimum is 1,000,000
    dift d_teaquadmult = 0
        d_any = 10 ^ 6
        dift d_teaquad11part < d_any: d_teaquad11part = d_any
    endi

    'maximum is 100,000,000,000,000,000,000 or 100E18
    d_any = 100 * 1000
    dift d_teaquadmult > d_any
        $inp s_any, "too big=" + d_teaquadmult
        dinc d_process
    endi
endi
dift d_process = 1
    'show d_teaquadmult,d_teaquad11part
    ded$ s_any, d_teaquad11part, 0, 0
    s_out = "mult=" + d_teaquadmult + " part=" + s_any
    $app s_out, " " + s_2code
    $out s_out

    'find the PIVCOM of d_teaquadmult,d_teaquad11part
    'term PIVCOM was invented by Roger Hargrave on 2002/08/11
    'find d_pivcompart for d_teaquadmult, d_teaquad11part

    'first drop back a bit for conservatism.
    d_teaquad11part = d_teaquad11part - 90000

    'old method PIVCOM
    dpow d_teaquadone, 10, 15
    d_mod1 = d_teaquad11part % 210
    d_mod2 = d_teaquadone % 210 * d_teaquadmult
    d_mod3 = d_mod1 + d_mod2 % 210
    d_pivcompart = d_teaquad11part - d_mod3

    'new method PIVCOM
    d_mod1 = d_teaquadone % 210
    d_mod2 = d_mod1 * d_teaquadmult + d_teaquad11part % 210
    d_pivcompart = d_teaquad11part - d_mod2

    'show the PIVCOM in d_teaquadmult,d_pivcompart
    dg_pass1 = d_pivcompart
    dg_pass2 = d_teaquadmult
    sub_teaquad_to_string
    s_pivcom = sg_pass1
    $out "pivcom=" + s_pivcom + " " + s_2code

    'find the place to begin
    d_teaquad11part = d_pivcompart - 19
    dift d_teaquad11part < 0
        d_teaquad11part = d_teaquad11part + 210
    endi

    'show begin in d_teaquadmult,d_teaquad11part
    ded$ s_any, d_teaquad11part, 0, 0
    s_out = "beg mult=" + d_teaquadmult + " part=" + s_any
    $app s_out, " " + s_2code
    $out s_out

    $out s_dashline + s_2code

'12345678901234567890
'05-MAR-2009 01:05:26
    'output beginning numbers to file
    $dat s_date35
    $cut s_date17, s_date35, 1, 17

    dg_pass1 = d_teaquad11part
    dg_pass2 = d_teaquadmult
    sub_teaquad_to_string
    s_beginnumber = sg_pass1

    'output beginning number
    s_out = "begin=" + s_beginnumber + " " + s_date17
    $app s_out, " " + s_afile + " " + s_2code
    $out s_out

    'output name of afile to file
    fapp d_any, s_afile, s_out
    dbad d_any < 10

    'output interpreter name and build
    s_out = sg_interpreter + " " + sg_path + " " + s_2code

    fapp d_any, s_afile, s_out
    dbad d_any < 10

    s_out = sg_interpreter + " " + sg_path + " " + s_2code
    $out s_out
    fapp d_any, s_afile, s_out
    dbad d_any < 10

    'output current program name and build
    'get the total lines
    dsys d_any, 2
    ded$ s_any, d_any, 0, 0
    s_out = sg_build + " " + sg_loadprog + " " + s_any
    $app s_out, " " + s_2code
    $out s_out
    fapp d_any, s_afile, s_out
    dbad d_any < 10

    'put d_qtpmaxindex primes in decimal array
    dsec d_tap
    d_qtpmaxindex = 20000
    d_number = 2081
    d_index = 1
    dwhi d_index <= d_qtpmaxindex
        'get the lowest factor
        dfac d_mod1, d_number
        dift d_mod1 = 1
            'we have a prime
            dtoi d_index, d_number
            dinc d_index
        endi
        d_number = d_number + 2
    endw

    itod d_any, 1
    ded$ s_any, d_any, 0, 0
    itod d_maxarrayprime, d_qtpmaxindex
    ded$ s_dot, d_maxarrayprime, 0, 0
    s_out = "decimal array from=" + s_any + " to=" + s_dot

    ded$ s_any, d_qtpmaxindex, 0, 0
    $app s_out, " ct=" + s_any

    dsec d_any
    d_tap = d_any - d_tap
    $app s_out, " sec=" + d_tap + " " + s_afile + " " + s_2code
    $out s_out

    d_maxprime = d_maxarrayprime

'put d_pstringct primes in s_pstring
    dsec d_tap
'd_pstringct is negative the first time though
    dift d_pstringct < 0
        d_pstringct = - d_pstringct
        ded$ s_any, d_pstringct, 0, 0
        $out "building prime string ct=" + s_any

        d_any = d_pstringct * 8
        $ch$ s_pstring, "0", d_any
        $ch$ s_tap, "0", 10
        d_number = d_maxarrayprime + 2

'HERE sub_teaquad_5tp39_by_modulus_duo
        d_index = 1
        dwhi d_index <= d_pstringct
            'get the lowest factor
            dfac d_mod1, d_number
            dift d_mod1 = 1
                'we have a prime
                s_any = s_tap + d_number
                $off s_any, s_any, 8
                d_any = d_index * 8 - 7
                $rep s_pstring, d_any, s_any

                d_any = d_index % 40000
                dift d_any = 0
                    ded$ s_any, d_index, 0, 0
                    ded$ s_dot, d_number, 0, 0
                    $sho s_any + " " + " " + s_dot
                endi
                dinc d_index
            endi
            d_number = d_number + 2
        endw
    endi

    $len d_pstringlong, s_pstring
    d_any = d_pstringct * 8 - 7
    dcut d_pstringmax, s_pstring, d_any, 8

    'get the seconds into d_tap
    dsec d_any
    d_tap = d_any - d_tap

    dcut d_any, s_pstring, 1, 8
    ded$ s_any, d_any, 0, 0
    s_out = "string primes from=" + s_any

    ded$ s_any, d_pstringmax, 0, 0
    $app s_out, " to=" + s_any

    ded$ s_any, d_pstringct, 0, 0
    $app s_out, " ct=" + s_any

    $app s_out, " sec=" + d_tap + " " + s_2code
    $out s_out

'HERE sub_teaquad_5tp39_by_modulus_duo
endi
dift d_process = 1
    $out s_dashline + s_2code

    $out "last=" + s_line
    $out "inp= " + s_ask + " " + s_2code

    'output beginning number
    $out "beg= " + s_beginnumber + " " + s_2code

    'get the maximum number to go to
    dg_pass1 = 0
    dg_pass2 = d_teaquadmult \ 10 + 1 * 10
    sub_teaquad_to_string
    s_number = sg_pass1
    $out "max= " + s_number + " " + s_2code
endi

'HERE sub_teaquad_5tp39_by_modulus_duo

'p49 is d_teaquad49part, d_teaquadmult not p11
d_teaquad49part = d_teaquad11part - 210 + 38

'adjust d_teaquad49part to make d_pivcompart mod 11 = 4 or 7
d_pivcompart = d_teaquad49part - 19
d_mod1 = d_teaquadone % 11 * d_teaquadmult + d_pivcompart % 11

'p49%11 must be 1 or 4
dift d_mod1 <= 4
    d_any = 4 - d_mod1 * 210
    d_teaquad49part = d_teaquad49part + d_any
    d_y630 = 1
else
    dift d_mod1 <= 7
        d_any = 7 - d_mod1 * 210
        d_teaquad49part = d_teaquad49part + d_any
        d_y630 = 2
    else
        d_any = 15 - d_mod1 * 210
        d_teaquad49part = d_teaquad49part + d_any
        d_y630 = 1
    endi
endi

'12345678901234567890123456789012345
'17-DEC-2002 03:56:22 20021217035622
'get s_date35 and s_date17
$dat s_date35
$cut s_date17, s_date35, 1, 17

dift d_process = 1
    'output begin date to file
    s_out = "date=" + s_date17
    $app s_out, " " + s_afile + " " + s_2code

    $out s_out
    fapp d_any, s_afile, s_out
    dbad d_any < 10

    'build name s_pausefile and test to see if it exists
    s_pausefile = "PAUSE_" + s_2code + ".TXT"
    $cup s_pausefile, s_pausefile
    flen d_any, s_pausefile
    dift d_any >= 0
        $out sg_interpreter + " " + sg_path + " " + s_2code

        'lines
        dsys d_any, 2
        ded$ sg_lines, d_any, 0, 0
        s_out = sg_build + " " + sg_loadprog + " " + sg_lines
        $app s_out, " " + s_2code
        $out s_out

        s_out = "beg= " + s_beginnumber + " " + s_datebegin17
        $app s_out, " " + s_2code
        $out s_out

        'do we want to purge s_pausefile
        s_out = "y=purge " + s_pausefile + " or n=not "
        $app s_out, s_2code
        $out s_out
        sub_input_yes_no_asterisk

        dift dg_pass1 = 1: fdel d_any, s_pausefile
        dift dg_pass1 = 3: goto tag_endsubr
    endi
endi

'final initialization before running
'12345678901234567890123456789012345
'17-DEC-2002 03:56:22 20021217035622
'get d_2hourprev to test for hour change
$dat s_date35
$cut s_dateduoprev17, s_date35, 1, 17
$cut s_datebegin17, s_date35, 1, 17
$cut s_datebegin20, s_date35, 1, 20
dcut d_2hournew, s_date35, 13, 2
d_2hourprev = d_2hournew
d_qtpcount = 0
d_tothourct = 0
d_billion = 10 ^ 9
d_trillion = 10 ^ 12

d_dduopassct = 0
d_tpdallhourct = 0
d_tpdallpart = d_teaquad49part - 38
d_tpdallmult = d_teaquadmult
d_tpdpart01 = d_teaquad49part - 38
d_tpdpart02 = d_tpdpart01
d_tpdpart03 = d_tpdpart01
d_tpdpart04 = d_tpdpart01
d_tpdpart05 = d_tpdpart01
d_tpdpart06 = d_tpdpart01
d_tpdpart07 = d_tpdpart01
d_tpdpart08 = d_tpdpart01
d_tpdpart09 = d_tpdpart01
d_tpdpart10 = d_tpdpart01
d_tpdpart11 = d_tpdpart01
d_tpdpart12 = d_tpdpart01

d_qtptestctdduo1 = 0
d_qtptestctdduo2 = 0
d_qtptestctdduo3 = 0
d_qtptestctdduo4 = 0
d_qtptestctdduo5 = 0
d_qtptestct41 = 0
d_qtptestct42 = 0
d_qtptestct43 = 0
d_qtptestct44 = 0
d_qtptestsec41 = 0
d_qtptestsec42 = 0
d_qtptestsec43 = 0
d_qtptestsec44 = 0

d_runct1 = 0
d_runct2 = 0
d_runct3 = 0
d_runct4 = 0

'HERE sub_teaquad_5tp39_by_modulus_duo

dift d_process = 1
    $out sg_interpreter + " " + sg_path + " " + s_2code

    'lines
    dsys d_any, 2
    ded$ sg_lines, d_any, 0, 0
    s_out = sg_build + " " + sg_loadprog + " " + sg_lines
    $app s_out, " " + s_2code
    $out s_out

    s_out = "beg= " + s_beginnumber + " " + s_datebegin17
    $app s_out, " " + s_2code
    $out s_out

    s_any = " "
    flen d_any, s_pausefile
    dift d_any >= 0: $app s_any, s_pausefile + " exists"
    dift d_qtptestmod <= 2: $app s_any, "qtptest " + s_qtptestbeg
    $out "now running " + s_2code + " " + s_datebegin17 + s_any

    'put begin lines in d_beglines
    dsys d_beglines, 2
    dsec d_begseconds

'main loop gtag here
gtag tag_nextnumber

'next number
'HERE sub_teaquad_5tp39_by_modulus_duo

'qtptest dsec d_qtptestsecend
'qtptest d_qtptestsecdif = d_qtptestsecend - d_qtptestsecbeg
'qtptest dift d_qtptesttyp = 41
'qtptest   dinc d_qtptestct41
'qtptest   d_qtptestsec41 = d_qtptestsec41 + d_qtptestsecdif
'qtptest endi
'qtptest dift d_qtptesttyp = 42
'qtptest   dinc d_qtptestct42
'qtptest   d_qtptestsec42 = d_qtptestsec42 + d_qtptestsecdif
'qtptest endi
'qtptest dift d_qtptesttyp = 43
'qtptest   dinc d_qtptestct43
'qtptest   d_qtptestsec43 = d_qtptestsec43 + d_qtptestsecdif
'qtptest endi
'qtptest dift d_qtptesttyp = 44
'qtptest   dinc d_qtptestct44
'qtptest   d_qtptestsec44 = d_qtptestsec44 + d_qtptestsecdif
'qtptest endi

'qtptest d_qtptestsecbeg = d_qtptestsecend
'qtptest d_qtptesttyp = 41

    'increment d_primetest = first prime
    'd_teaquad49part = d_teaquad49part + 210

    'p49%11 must be 1 or 4
    dift d_y630 = 1
        'increment by 210 * 3 = 630
        d_teaquad49part = d_teaquad49part + 630
        dinc d_y630
    else
        'increment by 210 * 8 = 1680
        d_teaquad49part = d_teaquad49part + 1680
        ddec d_y630
    endi

    'mod 13
    'p49%13 must be 1, 3, 9, or 11 to be good
'd_teaquadone % 13 = 12
'd_mod1 = d_teaquadone % 13 * d_teaquadmult + d_teaquad49part % 13
    d_mod1 = 12 * d_teaquadmult + d_teaquad49part % 13
    dift d_mod1 <> 1
        dift d_mod1 <> 3
            dift d_mod1 <> 9
                dift d_mod1 <> 11: goto tag_nextnumber
            endi
        endi
    endi

    'mod 17
    'p49%17 must not be <5, 6, 8, 13, 15 to be good
'd_teaquadone % 17 = 12
'd_mod1 = d_teaquadone % 17 * d_teaquadmult + d_teaquad49part % 17
    d_mod1 = 12 * d_teaquadmult + d_teaquad49part % 17
    dift d_mod1 < 5: goto tag_nextnumber
    dift d_mod1 = 6: goto tag_nextnumber
    dift d_mod1 = 8: goto tag_nextnumber
    dift d_mod1 = 13: goto tag_nextnumber
    dift d_mod1 = 15: goto tag_nextnumber

    'mod 19
    'p49%19 must not be <3, 6, 8, 11, 13, >16 to be good
'd_teaquadone % 19 = 8
'd_mod1 = d_teaquadone % 19 * d_teaquadmult + d_teaquad49part % 19
    d_mod1 = 8 * d_teaquadmult + d_teaquad49part % 19
    dift d_mod1 < 3: goto tag_nextnumber
    dift d_mod1 = 6: goto tag_nextnumber
    dift d_mod1 = 8: goto tag_nextnumber
    dift d_mod1 = 11: goto tag_nextnumber
    dift d_mod1 = 13: goto tag_nextnumber
    dift d_mod1 > 16: goto tag_nextnumber

    'mod 23
    'p49%23 must not be 0, 2, >5 and <10, 13, 15, 18, 20 to be good
'd_teaquadone % 23 = 5
'd_mod1 = d_teaquadone % 23 * d_teaquadmult + d_teaquad49part % 23
    d_mod1 = 5 * d_teaquadmult + d_teaquad49part % 23
    dift d_mod1 = 0: goto tag_nextnumber
    dift d_mod1 = 2: goto tag_nextnumber
    dift d_mod1 > 5
        dift d_mod1 < 10: goto tag_nextnumber
    endi
    dift d_mod1 = 13: goto tag_nextnumber
    dift d_mod1 = 15: goto tag_nextnumber
    dift d_mod1 = 18: goto tag_nextnumber
    dift d_mod1 = 20: goto tag_nextnumber

    'mod 29
    'p49%29 must not be <4, >5 and <10, 18, 20 to be good
'd_teaquadone % 29 = 19
'd_mod1 = d_teaquadone % 29 * d_teaquadmult + d_teaquad49part % 29
    d_mod1 = 19 * d_teaquadmult + d_teaquad49part % 29
    dift d_mod1 < 4: goto tag_nextnumber
    dift d_mod1 > 5
        dift d_mod1 < 10: goto tag_nextnumber
    endi
    dift d_mod1 = 18: goto tag_nextnumber
    dift d_mod1 = 20: goto tag_nextnumber

    'mod 31
    'p49%31 must not be <3, >4 and <9, 18, 20, 30 to be good
'd_teaquadone % 31 = 1
'd_mod1 = d_teaquadone % 31 * d_teaquadmult + d_teaquad49part % 31
    d_mod1 = d_teaquadmult + d_teaquad49part % 31
    dift d_mod1 < 3: goto tag_nextnumber
    dift d_mod1 > 4
        dift d_mod1 < 9: goto tag_nextnumber
    endi
    dift d_mod1 = 18: goto tag_nextnumber
    dift d_mod1 = 20: goto tag_nextnumber
    dift d_mod1 = 30: goto tag_nextnumber

    'mod 37
    'p49%37 must not be <3, 6, 8, 18, 20, 30, 32, 36 to be good
'd_teaquadone % 37 = 1
'd_mod1 = d_teaquadone % 37 * d_teaquadmult + d_teaquad49part % 37
    d_mod1 = d_teaquadmult + d_teaquad49part % 37
    dift d_mod1 < 3: goto tag_nextnumber
    dift d_mod1 = 6: goto tag_nextnumber
    dift d_mod1 = 8: goto tag_nextnumber
    dift d_mod1 = 18: goto tag_nextnumber
    dift d_mod1 = 20: goto tag_nextnumber
    dift d_mod1 = 30: goto tag_nextnumber
    dift d_mod1 = 32: goto tag_nextnumber
    dift d_mod1 = 36: goto tag_nextnumber

'HERE sub_teaquad_5tp39_by_modulus_duo
    'beginning with 41 the bad are as follows:
    'p49%41 bad are 0,2,6,8,18,20,30,32,36,38

'qtptest dsec d_qtptestsecend
'qtptest d_qtptestsecdif = d_qtptestsecend - d_qtptestsecbeg
'qtptest d_qtptestsec41 = d_qtptestsec41 + d_qtptestsecdif
'qtptest dinc d_qtptestct41

'qtptest d_qtptestsecbeg = d_qtptestsecend
'qtptest d_qtptesttyp = 42

    'd_runct1 at dift2
    dinc d_runct1

'prime=41 count=1. E15 % 41 = 1, next prime=43
    d_mod1 = d_teaquadmult + d_teaquad49part % 41
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=43 count=2. E15 % 43 = 16, next prime=47
    d_mod1 = 16 * d_teaquadmult + d_teaquad49part % 43
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=47 count=3. E15 % 47 = 40, next prime=53
    d_mod1 = 40 * d_teaquadmult + d_teaquad49part % 47
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=53 count=4. E15 % 53 = 47, next prime=59
    d_mod1 = 47 * d_teaquadmult + d_teaquad49part % 53
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=59 count=5. E15 % 59 = 52, next prime=61
    d_mod1 = 52 * d_teaquadmult + d_teaquad49part % 59
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=61 count=6. E15 % 61 = 50, next prime=67
    d_mod1 = 50 * d_teaquadmult + d_teaquad49part % 61
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=67 count=7. E15 % 67 = 24, next prime=71
    d_mod1 = 24 * d_teaquadmult + d_teaquad49part % 67
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=71 count=8. E15 % 71 = 37, next prime=73
    d_mod1 = 37 * d_teaquadmult + d_teaquad49part % 71
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=73 count=9. E15 % 73 = 22, next prime=79
    d_mod1 = 22 * d_teaquadmult + d_teaquad49part % 73
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=79 count=10. E15 % 79 = 21, next prime=83
    d_mod1 = 21 * d_teaquadmult + d_teaquad49part % 79
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=83 count=11. E15 % 83 = 28, next prime=89
    d_mod1 = 28 * d_teaquadmult + d_teaquad49part % 83
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=89 count=12. E15 % 89 = 69, next prime=97
    d_mod1 = 69 * d_teaquadmult + d_teaquad49part % 89
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=97 count=13. E15 % 97 = 45, next prime=101
    d_mod1 = 45 * d_teaquadmult + d_teaquad49part % 97
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=101 count=14. E15 % 101 = 91, next prime=103
    d_mod1 = 91 * d_teaquadmult + d_teaquad49part % 101
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=103 count=15. E15 % 103 = 69, next prime=107
    d_mod1 = 69 * d_teaquadmult + d_teaquad49part % 103
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=107 count=16. E15 % 107 = 39, next prime=109
    d_mod1 = 39 * d_teaquadmult + d_teaquad49part % 107
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=109 count=17. E15 % 109 = 55, next prime=113
    d_mod1 = 55 * d_teaquadmult + d_teaquad49part % 109
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=113 count=18. E15 % 113 = 101, next prime=127
    d_mod1 = 101 * d_teaquadmult + d_teaquad49part % 113
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=127 count=19. E15 % 127 = 63, next prime=131
    d_mod1 = 63 * d_teaquadmult + d_teaquad49part % 127
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=131 count=20. E15 % 131 = 71, next prime=137
    d_mod1 = 71 * d_teaquadmult + d_teaquad49part % 131
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=137 count=21. E15 % 137 = 96, next prime=139
    d_mod1 = 96 * d_teaquadmult + d_teaquad49part % 137
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=139 count=22. E15 % 139 = 76, next prime=149
    d_mod1 = 76 * d_teaquadmult + d_teaquad49part % 139
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=149 count=23. E15 % 149 = 23, next prime=151
    d_mod1 = 23 * d_teaquadmult + d_teaquad49part % 149
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=151 count=24. E15 % 151 = 59, next prime=157
    d_mod1 = 59 * d_teaquadmult + d_teaquad49part % 151
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=157 count=25. E15 % 157 = 56, next prime=163
    d_mod1 = 56 * d_teaquadmult + d_teaquad49part % 157
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=163 count=26. E15 % 163 = 61, next prime=167
    d_mod1 = 61 * d_teaquadmult + d_teaquad49part % 163
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=167 count=27. E15 % 167 = 135, next prime=173
    d_mod1 = 135 * d_teaquadmult + d_teaquad49part % 167
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=173 count=28. E15 % 173 = 43, next prime=179
    d_mod1 = 43 * d_teaquadmult + d_teaquad49part % 173
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=179 count=29. E15 % 179 = 170, next prime=181
    d_mod1 = 170 * d_teaquadmult + d_teaquad49part % 179
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=181 count=30. E15 % 181 = 7, next prime=191
    d_mod1 = 7 * d_teaquadmult + d_teaquad49part % 181
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=191 count=31. E15 % 191 = 160, next prime=193
    d_mod1 = 160 * d_teaquadmult + d_teaquad49part % 191
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=193 count=32. E15 % 193 = 13, next prime=197
    d_mod1 = 13 * d_teaquadmult + d_teaquad49part % 193
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=197 count=33. E15 % 197 = 137, next prime=199
    d_mod1 = 137 * d_teaquadmult + d_teaquad49part % 197
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=199 count=34. E15 % 199 = 140, next prime=211
    d_mod1 = 140 * d_teaquadmult + d_teaquad49part % 199
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=211 count=35. E15 % 211 = 210, next prime=223
    d_mod1 = 210 * d_teaquadmult + d_teaquad49part % 211
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=223 count=36. E15 % 223 = 95, next prime=227
    d_mod1 = 95 * d_teaquadmult + d_teaquad49part % 223
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=227 count=37. E15 % 227 = 76, next prime=229
    d_mod1 = 76 * d_teaquadmult + d_teaquad49part % 227
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=229 count=38. E15 % 229 = 54, next prime=233
    d_mod1 = 54 * d_teaquadmult + d_teaquad49part % 229
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=233 count=39. E15 % 233 = 54, next prime=239
    d_mod1 = 54 * d_teaquadmult + d_teaquad49part % 233
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=239 count=40. E15 % 239 = 10, next prime=241
    d_mod1 = 10 * d_teaquadmult + d_teaquad49part % 239
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=241 count=41. E15 % 241 = 240, next prime=251
    d_mod1 = 240 * d_teaquadmult + d_teaquad49part % 241
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=251 count=42. E15 % 251 = 231, next prime=257
    d_mod1 = 231 * d_teaquadmult + d_teaquad49part % 251
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=257 count=43. E15 % 257 = 151, next prime=263
    d_mod1 = 151 * d_teaquadmult + d_teaquad49part % 257
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=263 count=44. E15 % 263 = 77, next prime=269
    d_mod1 = 77 * d_teaquadmult + d_teaquad49part % 263
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=269 count=45. E15 % 269 = 29, next prime=271
    d_mod1 = 29 * d_teaquadmult + d_teaquad49part % 269
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=271 count=46. E15 % 271 = 1, next prime=277
    d_mod1 = d_teaquadmult + d_teaquad49part % 271
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=277 count=47. E15 % 277 = 27, next prime=281
    d_mod1 = 27 * d_teaquadmult + d_teaquad49part % 277
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=281 count=48. E15 % 281 = 271, next prime=283
    d_mod1 = 271 * d_teaquadmult + d_teaquad49part % 281
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=283 count=49. E15 % 283 = 181, next prime=293
    d_mod1 = 181 * d_teaquadmult + d_teaquad49part % 283
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=293 count=50. E15 % 293 = 132, next prime=307
    d_mod1 = 132 * d_teaquadmult + d_teaquad49part % 293
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=307 count=51. E15 % 307 = 4, next prime=311
    d_mod1 = 4 * d_teaquadmult + d_teaquad49part % 307
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=311 count=52. E15 % 311 = 89, next prime=313
    d_mod1 = 89 * d_teaquadmult + d_teaquad49part % 311
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=313 count=53. E15 % 313 = 231, next prime=317
    d_mod1 = 231 * d_teaquadmult + d_teaquad49part % 313
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=317 count=54. E15 % 317 = 36, next prime=331
    d_mod1 = 36 * d_teaquadmult + d_teaquad49part % 317
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=331 count=55. E15 % 331 = 257, next prime=337
    d_mod1 = 257 * d_teaquadmult + d_teaquad49part % 331
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=337 count=56. E15 % 337 = 35, next prime=347
    d_mod1 = 35 * d_teaquadmult + d_teaquad49part % 337
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=347 count=57. E15 % 347 = 159, next prime=349
    d_mod1 = 159 * d_teaquadmult + d_teaquad49part % 347
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=349 count=58. E15 % 349 = 343, next prime=353
    d_mod1 = 343 * d_teaquadmult + d_teaquad49part % 349
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=353 count=59. E15 % 353 = 247, next prime=359
    d_mod1 = 247 * d_teaquadmult + d_teaquad49part % 353
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=359 count=60. E15 % 359 = 94, next prime=367
    d_mod1 = 94 * d_teaquadmult + d_teaquad49part % 359
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=367 count=61. E15 % 367 = 358, next prime=373
    d_mod1 = 358 * d_teaquadmult + d_teaquad49part % 367
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=373 count=62. E15 % 373 = 31, next prime=379
    d_mod1 = 31 * d_teaquadmult + d_teaquad49part % 373
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=379 count=63. E15 % 379 = 240, next prime=383
    d_mod1 = 240 * d_teaquadmult + d_teaquad49part % 379
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=383 count=64. E15 % 383 = 97, next prime=389
    d_mod1 = 97 * d_teaquadmult + d_teaquad49part % 383
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=389 count=65. E15 % 389 = 233, next prime=397
    d_mod1 = 233 * d_teaquadmult + d_teaquad49part % 389
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=397 count=66. E15 % 397 = 171, next prime=401
    d_mod1 = 171 * d_teaquadmult + d_teaquad49part % 397
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=401 count=67. E15 % 401 = 366, next prime=409
    d_mod1 = 366 * d_teaquadmult + d_teaquad49part % 401
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=409 count=68. E15 % 409 = 51, next prime=419
    d_mod1 = 51 * d_teaquadmult + d_teaquad49part % 409
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=419 count=69. E15 % 419 = 308, next prime=421
    d_mod1 = 308 * d_teaquadmult + d_teaquad49part % 419
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=421 count=70. E15 % 421 = 6, next prime=431
    d_mod1 = 6 * d_teaquadmult + d_teaquad49part % 421
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=431 count=71. E15 % 431 = 81, next prime=433
    d_mod1 = 81 * d_teaquadmult + d_teaquad49part % 431
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=433 count=72. E15 % 433 = 390, next prime=439
    d_mod1 = 390 * d_teaquadmult + d_teaquad49part % 433
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=439 count=73. E15 % 439 = 98, next prime=443
    d_mod1 = 98 * d_teaquadmult + d_teaquad49part % 439
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=443 count=74. E15 % 443 = 55, next prime=449
    d_mod1 = 55 * d_teaquadmult + d_teaquad49part % 443
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=449 count=75. E15 % 449 = 404, next prime=457
    d_mod1 = 404 * d_teaquadmult + d_teaquad49part % 449
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=457 count=76. E15 % 457 = 377, next prime=461
    d_mod1 = 377 * d_teaquadmult + d_teaquad49part % 457
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=461 count=77. E15 % 461 = 57, next prime=463
    d_mod1 = 57 * d_teaquadmult + d_teaquad49part % 461
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=463 count=78. E15 % 463 = 414, next prime=467
    d_mod1 = 414 * d_teaquadmult + d_teaquad49part % 463
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=467 count=79. E15 % 467 = 158, next prime=479
    d_mod1 = 158 * d_teaquadmult + d_teaquad49part % 467
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=479 count=80. E15 % 479 = 393, next prime=487
    d_mod1 = 393 * d_teaquadmult + d_teaquad49part % 479
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=487 count=81. E15 % 487 = 37, next prime=491
    d_mod1 = 37 * d_teaquadmult + d_teaquad49part % 487
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=491 count=82. E15 % 491 = 200, next prime=499
    d_mod1 = 200 * d_teaquadmult + d_teaquad49part % 491
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=499 count=83. E15 % 499 = 32, next prime=503
    d_mod1 = 32 * d_teaquadmult + d_teaquad49part % 499
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=503 count=84. E15 % 503 = 272, next prime=509
    d_mod1 = 272 * d_teaquadmult + d_teaquad49part % 503
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=509 count=85. E15 % 509 = 349, next prime=521
    d_mod1 = 349 * d_teaquadmult + d_teaquad49part % 509
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=521 count=86. E15 % 521 = 55, next prime=523
    d_mod1 = 55 * d_teaquadmult + d_teaquad49part % 521
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=523 count=87. E15 % 523 = 177, next prime=541
    d_mod1 = 177 * d_teaquadmult + d_teaquad49part % 523
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=541 count=88. E15 % 541 = 451, next prime=547
    d_mod1 = 451 * d_teaquadmult + d_teaquad49part % 541
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=547 count=89. E15 % 547 = 247, next prime=557
    d_mod1 = 247 * d_teaquadmult + d_teaquad49part % 547
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=557 count=90. E15 % 557 = 135, next prime=563
    d_mod1 = 135 * d_teaquadmult + d_teaquad49part % 557
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=563 count=91. E15 % 563 = 360, next prime=569
    d_mod1 = 360 * d_teaquadmult + d_teaquad49part % 563
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=569 count=92. E15 % 569 = 128, next prime=571
    d_mod1 = 128 * d_teaquadmult + d_teaquad49part % 569
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=571 count=93. E15 % 571 = 477, next prime=577
    d_mod1 = 477 * d_teaquadmult + d_teaquad49part % 571
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=577 count=94. E15 % 577 = 536, next prime=587
    d_mod1 = 536 * d_teaquadmult + d_teaquad49part % 577
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=587 count=95. E15 % 587 = 488, next prime=593
    d_mod1 = 488 * d_teaquadmult + d_teaquad49part % 587
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=593 count=96. E15 % 593 = 263, next prime=599
    d_mod1 = 263 * d_teaquadmult + d_teaquad49part % 593
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=599 count=97. E15 % 599 = 3, next prime=601
    d_mod1 = 3 * d_teaquadmult + d_teaquad49part % 599
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=601 count=98. E15 % 601 = 185, next prime=607
    d_mod1 = 185 * d_teaquadmult + d_teaquad49part % 601
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=607 count=99. E15 % 607 = 70, next prime=613
    d_mod1 = 70 * d_teaquadmult + d_teaquad49part % 607
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=613 count=100. E15 % 613 = 583, next prime=617
    d_mod1 = 583 * d_teaquadmult + d_teaquad49part % 613
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=617 count=101. E15 % 617 = 467, next prime=619
    d_mod1 = 467 * d_teaquadmult + d_teaquad49part % 617
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=619 count=102. E15 % 619 = 538, next prime=631
    d_mod1 = 538 * d_teaquadmult + d_teaquad49part % 619
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=631 count=103. E15 % 631 = 458, next prime=641
    d_mod1 = 458 * d_teaquadmult + d_teaquad49part % 631
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=641 count=104. E15 % 641 = 64, next prime=643
    d_mod1 = 64 * d_teaquadmult + d_teaquad49part % 641
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=643 count=105. E15 % 643 = 451, next prime=647
    d_mod1 = 451 * d_teaquadmult + d_teaquad49part % 643
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=647 count=106. E15 % 647 = 535, next prime=653
    d_mod1 = 535 * d_teaquadmult + d_teaquad49part % 647
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=653 count=107. E15 % 653 = 9, next prime=659
    d_mod1 = 9 * d_teaquadmult + d_teaquad49part % 653
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=659 count=108. E15 % 659 = 532, next prime=661
    d_mod1 = 532 * d_teaquadmult + d_teaquad49part % 659
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=661 count=109. E15 % 661 = 476, next prime=673
    d_mod1 = 476 * d_teaquadmult + d_teaquad49part % 661
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=673 count=110. E15 % 673 = 80, next prime=677
    d_mod1 = 80 * d_teaquadmult + d_teaquad49part % 673
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=677 count=111. E15 % 677 = 58, next prime=683
    d_mod1 = 58 * d_teaquadmult + d_teaquad49part % 677
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=683 count=112. E15 % 683 = 146, next prime=691
    d_mod1 = 146 * d_teaquadmult + d_teaquad49part % 683
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=691 count=113. E15 % 691 = 246, next prime=701
    d_mod1 = 246 * d_teaquadmult + d_teaquad49part % 691
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=701 count=114. E15 % 701 = 563, next prime=709
    d_mod1 = 563 * d_teaquadmult + d_teaquad49part % 701
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=709 count=115. E15 % 709 = 13, next prime=719
    d_mod1 = 13 * d_teaquadmult + d_teaquad49part % 709
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=719 count=116. E15 % 719 = 464, next prime=727
    d_mod1 = 464 * d_teaquadmult + d_teaquad49part % 719
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=727 count=117. E15 % 727 = 663, next prime=733
    d_mod1 = 663 * d_teaquadmult + d_teaquad49part % 727
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=733 count=118. E15 % 733 = 206, next prime=739
    d_mod1 = 206 * d_teaquadmult + d_teaquad49part % 733
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=739 count=119. E15 % 739 = 296, next prime=743
    d_mod1 = 296 * d_teaquadmult + d_teaquad49part % 739
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=743 count=120. E15 % 743 = 316, next prime=751
    d_mod1 = 316 * d_teaquadmult + d_teaquad49part % 743
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=751 count=121. E15 % 751 = 481, next prime=757
    d_mod1 = 481 * d_teaquadmult + d_teaquad49part % 751
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=757 count=122. E15 % 757 = 673, next prime=761
    d_mod1 = 673 * d_teaquadmult + d_teaquad49part % 757
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=761 count=123. E15 % 761 = 420, next prime=769
    d_mod1 = 420 * d_teaquadmult + d_teaquad49part % 761
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=769 count=124. E15 % 769 = 85, next prime=773
    d_mod1 = 85 * d_teaquadmult + d_teaquad49part % 769
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=773 count=125. E15 % 773 = 54, next prime=787
    d_mod1 = 54 * d_teaquadmult + d_teaquad49part % 773
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=787 count=126. E15 % 787 = 435, next prime=797
    d_mod1 = 435 * d_teaquadmult + d_teaquad49part % 787
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=797 count=127. E15 % 797 = 73, next prime=809
    d_mod1 = 73 * d_teaquadmult + d_teaquad49part % 797
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=809 count=128. E15 % 809 = 549, next prime=811
    d_mod1 = 549 * d_teaquadmult + d_teaquad49part % 809
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=811 count=129. E15 % 811 = 32, next prime=821
    d_mod1 = 32 * d_teaquadmult + d_teaquad49part % 811
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=821 count=130. E15 % 821 = 431, next prime=823
    d_mod1 = 431 * d_teaquadmult + d_teaquad49part % 821
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=823 count=131. E15 % 823 = 475, next prime=827
    d_mod1 = 475 * d_teaquadmult + d_teaquad49part % 823
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=827 count=132. E15 % 827 = 265, next prime=829
    d_mod1 = 265 * d_teaquadmult + d_teaquad49part % 827
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=829 count=133. E15 % 829 = 481, next prime=839
    d_mod1 = 481 * d_teaquadmult + d_teaquad49part % 829
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=839 count=134. E15 % 839 = 30, next prime=853
    d_mod1 = 30 * d_teaquadmult + d_teaquad49part % 839
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=853 count=135. E15 % 853 = 585, next prime=857
    d_mod1 = 585 * d_teaquadmult + d_teaquad49part % 853
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=857 count=136. E15 % 857 = 789, next prime=859
    d_mod1 = 789 * d_teaquadmult + d_teaquad49part % 857
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=859 count=137. E15 % 859 = 759, next prime=863
    d_mod1 = 759 * d_teaquadmult + d_teaquad49part % 859
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=863 count=138. E15 % 863 = 268, next prime=877
    d_mod1 = 268 * d_teaquadmult + d_teaquad49part % 863
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=877 count=139. E15 % 877 = 124, next prime=881
    d_mod1 = 124 * d_teaquadmult + d_teaquad49part % 877
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=881 count=140. E15 % 881 = 605, next prime=883
    d_mod1 = 605 * d_teaquadmult + d_teaquad49part % 881
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=883 count=141. E15 % 883 = 69, next prime=887
    d_mod1 = 69 * d_teaquadmult + d_teaquad49part % 883
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=887 count=142. E15 % 887 = 248, next prime=907
    d_mod1 = 248 * d_teaquadmult + d_teaquad49part % 887
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=907 count=143. E15 % 907 = 502, next prime=911
    d_mod1 = 502 * d_teaquadmult + d_teaquad49part % 907
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=911 count=144. E15 % 911 = 226, next prime=919
    d_mod1 = 226 * d_teaquadmult + d_teaquad49part % 911
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=919 count=145. E15 % 919 = 68, next prime=929
    d_mod1 = 68 * d_teaquadmult + d_teaquad49part % 919
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=929 count=146. E15 % 929 = 800, next prime=937
    d_mod1 = 800 * d_teaquadmult + d_teaquad49part % 929
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=937 count=147. E15 % 937 = 812, next prime=941
    d_mod1 = 812 * d_teaquadmult + d_teaquad49part % 937
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=941 count=148. E15 % 941 = 490, next prime=947
    d_mod1 = 490 * d_teaquadmult + d_teaquad49part % 941
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=947 count=149. E15 % 947 = 293, next prime=953
    d_mod1 = 293 * d_teaquadmult + d_teaquad49part % 947
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=953 count=150. E15 % 953 = 792, next prime=967
    d_mod1 = 792 * d_teaquadmult + d_teaquad49part % 953
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=967 count=151. E15 % 967 = 903, next prime=971
    d_mod1 = 903 * d_teaquadmult + d_teaquad49part % 967
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=971 count=152. E15 % 971 = 716, next prime=977
    d_mod1 = 716 * d_teaquadmult + d_teaquad49part % 971
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=977 count=153. E15 % 977 = 844, next prime=983
    d_mod1 = 844 * d_teaquadmult + d_teaquad49part % 977
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=983 count=154. E15 % 983 = 405, next prime=991
    d_mod1 = 405 * d_teaquadmult + d_teaquad49part % 983
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=991 count=155. E15 % 991 = 580, next prime=997
    d_mod1 = 580 * d_teaquadmult + d_teaquad49part % 991
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=997 count=156. E15 % 997 = 243, next prime=1009
    d_mod1 = 243 * d_teaquadmult + d_teaquad49part % 997
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1009 count=157. E15 % 1009 = 482, next prime=1013
    d_mod1 = 482 * d_teaquadmult + d_teaquad49part % 1009
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1013 count=158. E15 % 1013 = 478, next prime=1019
    d_mod1 = 478 * d_teaquadmult + d_teaquad49part % 1013
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1019 count=159. E15 % 1019 = 71, next prime=1021
    d_mod1 = 71 * d_teaquadmult + d_teaquad49part % 1019
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1021 count=160. E15 % 1021 = 920, next prime=1031
    d_mod1 = 920 * d_teaquadmult + d_teaquad49part % 1021
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1031 count=161. E15 % 1031 = 688, next prime=1033
    d_mod1 = 688 * d_teaquadmult + d_teaquad49part % 1031
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1033 count=162. E15 % 1033 = 845, next prime=1039
    d_mod1 = 845 * d_teaquadmult + d_teaquad49part % 1033
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1039 count=163. E15 % 1039 = 483, next prime=1049
    d_mod1 = 483 * d_teaquadmult + d_teaquad49part % 1039
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1049 count=164. E15 % 1049 = 520, next prime=1051
    d_mod1 = 520 * d_teaquadmult + d_teaquad49part % 1049
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1051 count=165. E15 % 1051 = 182, next prime=1061
    d_mod1 = 182 * d_teaquadmult + d_teaquad49part % 1051
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1061 count=166. E15 % 1061 = 17, next prime=1063
    d_mod1 = 17 * d_teaquadmult + d_teaquad49part % 1061
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1063 count=167. E15 % 1063 = 454, next prime=1069
    d_mod1 = 454 * d_teaquadmult + d_teaquad49part % 1063
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1069 count=168. E15 % 1069 = 102, next prime=1087
    d_mod1 = 102 * d_teaquadmult + d_teaquad49part % 1069
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1087 count=169. E15 % 1087 = 1023, next prime=1091
    d_mod1 = 1023 * d_teaquadmult + d_teaquad49part % 1087
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1091 count=170. E15 % 1091 = 1078, next prime=1093
    d_mod1 = 1078 * d_teaquadmult + d_teaquad49part % 1091
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1093 count=171. E15 % 1093 = 99, next prime=1097
    d_mod1 = 99 * d_teaquadmult + d_teaquad49part % 1093
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1097 count=172. E15 % 1097 = 974, next prime=1103
    d_mod1 = 974 * d_teaquadmult + d_teaquad49part % 1097
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1103 count=173. E15 % 1103 = 1033, next prime=1109
    d_mod1 = 1033 * d_teaquadmult + d_teaquad49part % 1103
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1109 count=174. E15 % 1109 = 944, next prime=1117
    d_mod1 = 944 * d_teaquadmult + d_teaquad49part % 1109
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1117 count=175. E15 % 1117 = 111, next prime=1123
    d_mod1 = 111 * d_teaquadmult + d_teaquad49part % 1117
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1123 count=176. E15 % 1123 = 641, next prime=1129
    d_mod1 = 641 * d_teaquadmult + d_teaquad49part % 1123
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1129 count=177. E15 % 1129 = 889, next prime=1151
    d_mod1 = 889 * d_teaquadmult + d_teaquad49part % 1129
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1151 count=178. E15 % 1151 = 1132, next prime=1153
    d_mod1 = 1132 * d_teaquadmult + d_teaquad49part % 1151
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1153 count=179. E15 % 1153 = 386, next prime=1163
    d_mod1 = 386 * d_teaquadmult + d_teaquad49part % 1153
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1163 count=180. E15 % 1163 = 1146, next prime=1171
    d_mod1 = 1146 * d_teaquadmult + d_teaquad49part % 1163
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1171 count=181. E15 % 1171 = 223, next prime=1181
    d_mod1 = 223 * d_teaquadmult + d_teaquad49part % 1171
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1181 count=182. E15 % 1181 = 476, next prime=1187
    d_mod1 = 476 * d_teaquadmult + d_teaquad49part % 1181
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1187 count=183. E15 % 1187 = 950, next prime=1193
    d_mod1 = 950 * d_teaquadmult + d_teaquad49part % 1187
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1193 count=184. E15 % 1193 = 363, next prime=1201
    d_mod1 = 363 * d_teaquadmult + d_teaquad49part % 1193
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1201 count=185. E15 % 1201 = 890, next prime=1213
    d_mod1 = 890 * d_teaquadmult + d_teaquad49part % 1201
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1213 count=186. E15 % 1213 = 562, next prime=1217
    d_mod1 = 562 * d_teaquadmult + d_teaquad49part % 1213
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1217 count=187. E15 % 1217 = 105, next prime=1223
    d_mod1 = 105 * d_teaquadmult + d_teaquad49part % 1217
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1223 count=188. E15 % 1223 = 1111, next prime=1229
    d_mod1 = 1111 * d_teaquadmult + d_teaquad49part % 1223
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1229 count=189. E15 % 1229 = 62, next prime=1231
    d_mod1 = 62 * d_teaquadmult + d_teaquad49part % 1229
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1231 count=190. E15 % 1231 = 121, next prime=1237
    d_mod1 = 121 * d_teaquadmult + d_teaquad49part % 1231
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1237 count=191. E15 % 1237 = 524, next prime=1249
    d_mod1 = 524 * d_teaquadmult + d_teaquad49part % 1237
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1249 count=192. E15 % 1249 = 1159, next prime=1259
    d_mod1 = 1159 * d_teaquadmult + d_teaquad49part % 1249
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1259 count=193. E15 % 1259 = 176, next prime=1277
    d_mod1 = 176 * d_teaquadmult + d_teaquad49part % 1259
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1277 count=194. E15 % 1277 = 1069, next prime=1279
    d_mod1 = 1069 * d_teaquadmult + d_teaquad49part % 1277
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1279 count=195. E15 % 1279 = 612, next prime=1283
    d_mod1 = 612 * d_teaquadmult + d_teaquad49part % 1279
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1283 count=196. E15 % 1283 = 204, next prime=1289
    d_mod1 = 204 * d_teaquadmult + d_teaquad49part % 1283
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1289 count=197. E15 % 1289 = 1059, next prime=1291
    d_mod1 = 1059 * d_teaquadmult + d_teaquad49part % 1289
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1291 count=198. E15 % 1291 = 373, next prime=1297
    d_mod1 = 373 * d_teaquadmult + d_teaquad49part % 1291
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1297 count=199. E15 % 1297 = 390, next prime=1301
    d_mod1 = 390 * d_teaquadmult + d_teaquad49part % 1297
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1301 count=200. E15 % 1301 = 930, next prime=1303
    d_mod1 = 930 * d_teaquadmult + d_teaquad49part % 1301
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1303 count=201. E15 % 1303 = 405, next prime=1307
    d_mod1 = 405 * d_teaquadmult + d_teaquad49part % 1303
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1307 count=202. E15 % 1307 = 598, next prime=1319
    d_mod1 = 598 * d_teaquadmult + d_teaquad49part % 1307
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1319 count=203. E15 % 1319 = 682, next prime=1321
    d_mod1 = 682 * d_teaquadmult + d_teaquad49part % 1319
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1321 count=204. E15 % 1321 = 1074, next prime=1327
    d_mod1 = 1074 * d_teaquadmult + d_teaquad49part % 1321
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1327 count=205. E15 % 1327 = 701, next prime=1361
    d_mod1 = 701 * d_teaquadmult + d_teaquad49part % 1327
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1361 count=206. E15 % 1361 = 1023, next prime=1367
    d_mod1 = 1023 * d_teaquadmult + d_teaquad49part % 1361
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1367 count=207. E15 % 1367 = 503, next prime=1373
    d_mod1 = 503 * d_teaquadmult + d_teaquad49part % 1367
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1373 count=208. E15 % 1373 = 642, next prime=1381
    d_mod1 = 642 * d_teaquadmult + d_teaquad49part % 1373
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1381 count=209. E15 % 1381 = 18, next prime=1399
    d_mod1 = 18 * d_teaquadmult + d_teaquad49part % 1381
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1399 count=210. E15 % 1399 = 459, next prime=1409
    d_mod1 = 459 * d_teaquadmult + d_teaquad49part % 1399
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1409 count=211. E15 % 1409 = 1268, next prime=1423
    d_mod1 = 1268 * d_teaquadmult + d_teaquad49part % 1409
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1423 count=212. E15 % 1423 = 1245, next prime=1427
    d_mod1 = 1245 * d_teaquadmult + d_teaquad49part % 1423
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1427 count=213. E15 % 1427 = 1036, next prime=1429
    d_mod1 = 1036 * d_teaquadmult + d_teaquad49part % 1427
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1429 count=214. E15 % 1429 = 151, next prime=1433
    d_mod1 = 151 * d_teaquadmult + d_teaquad49part % 1429
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1433 count=215. E15 % 1433 = 1070, next prime=1439
    d_mod1 = 1070 * d_teaquadmult + d_teaquad49part % 1433
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1439 count=216. E15 % 1439 = 821, next prime=1447
    d_mod1 = 821 * d_teaquadmult + d_teaquad49part % 1439
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1447 count=217. E15 % 1447 = 615, next prime=1451
    d_mod1 = 615 * d_teaquadmult + d_teaquad49part % 1447
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1451 count=218. E15 % 1451 = 903, next prime=1453
    d_mod1 = 903 * d_teaquadmult + d_teaquad49part % 1451
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1453 count=219. E15 % 1453 = 806, next prime=1459
    d_mod1 = 806 * d_teaquadmult + d_teaquad49part % 1453
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1459 count=220. E15 % 1459 = 501, next prime=1471
    d_mod1 = 501 * d_teaquadmult + d_teaquad49part % 1459
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1471 count=221. E15 % 1471 = 113, next prime=1481
    d_mod1 = 113 * d_teaquadmult + d_teaquad49part % 1471
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1481 count=222. E15 % 1481 = 80, next prime=1483
    d_mod1 = 80 * d_teaquadmult + d_teaquad49part % 1481
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1483 count=223. E15 % 1483 = 1065, next prime=1487
    d_mod1 = 1065 * d_teaquadmult + d_teaquad49part % 1483
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1487 count=224. E15 % 1487 = 1231, next prime=1489
    d_mod1 = 1231 * d_teaquadmult + d_teaquad49part % 1487
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1489 count=225. E15 % 1489 = 393, next prime=1493
    d_mod1 = 393 * d_teaquadmult + d_teaquad49part % 1489
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1493 count=226. E15 % 1493 = 69, next prime=1499
    d_mod1 = 69 * d_teaquadmult + d_teaquad49part % 1493
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1499 count=227. E15 % 1499 = 105, next prime=1511
    d_mod1 = 105 * d_teaquadmult + d_teaquad49part % 1499
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1511 count=228. E15 % 1511 = 70, next prime=1523
    d_mod1 = 70 * d_teaquadmult + d_teaquad49part % 1511
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1523 count=229. E15 % 1523 = 194, next prime=1531
    d_mod1 = 194 * d_teaquadmult + d_teaquad49part % 1523
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1531 count=230. E15 % 1531 = 129, next prime=1543
    d_mod1 = 129 * d_teaquadmult + d_teaquad49part % 1531
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1543 count=231. E15 % 1543 = 59, next prime=1549
    d_mod1 = 59 * d_teaquadmult + d_teaquad49part % 1543
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1549 count=232. E15 % 1549 = 1473, next prime=1553
    d_mod1 = 1473 * d_teaquadmult + d_teaquad49part % 1549
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1553 count=233. E15 % 1553 = 893, next prime=1559
    d_mod1 = 893 * d_teaquadmult + d_teaquad49part % 1553
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1559 count=234. E15 % 1559 = 593, next prime=1567
    d_mod1 = 593 * d_teaquadmult + d_teaquad49part % 1559
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1567 count=235. E15 % 1567 = 1043, next prime=1571
    d_mod1 = 1043 * d_teaquadmult + d_teaquad49part % 1567
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1571 count=236. E15 % 1571 = 612, next prime=1579
    d_mod1 = 612 * d_teaquadmult + d_teaquad49part % 1571
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1579 count=237. E15 % 1579 = 1425, next prime=1583
    d_mod1 = 1425 * d_teaquadmult + d_teaquad49part % 1579
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1583 count=238. E15 % 1583 = 1035, next prime=1597
    d_mod1 = 1035 * d_teaquadmult + d_teaquad49part % 1583
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1597 count=239. E15 % 1597 = 379, next prime=1601
    d_mod1 = 379 * d_teaquadmult + d_teaquad49part % 1597
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1601 count=240. E15 % 1601 = 212, next prime=1607
    d_mod1 = 212 * d_teaquadmult + d_teaquad49part % 1601
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1607 count=241. E15 % 1607 = 1540, next prime=1609
    d_mod1 = 1540 * d_teaquadmult + d_teaquad49part % 1607
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1609 count=242. E15 % 1609 = 416, next prime=1613
    d_mod1 = 416 * d_teaquadmult + d_teaquad49part % 1609
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1613 count=243. E15 % 1613 = 1397, next prime=1619
    d_mod1 = 1397 * d_teaquadmult + d_teaquad49part % 1613
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1619 count=244. E15 % 1619 = 1307, next prime=1621
    d_mod1 = 1307 * d_teaquadmult + d_teaquad49part % 1619
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1621 count=245. E15 % 1621 = 74, next prime=1627
    d_mod1 = 74 * d_teaquadmult + d_teaquad49part % 1621
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1627 count=246. E15 % 1627 = 437, next prime=1637
    d_mod1 = 437 * d_teaquadmult + d_teaquad49part % 1627
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1637 count=247. E15 % 1637 = 525, next prime=1657
    d_mod1 = 525 * d_teaquadmult + d_teaquad49part % 1637
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1657 count=248. E15 % 1657 = 250, next prime=1663
    d_mod1 = 250 * d_teaquadmult + d_teaquad49part % 1657
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1663 count=249. E15 % 1663 = 1474, next prime=1667
    d_mod1 = 1474 * d_teaquadmult + d_teaquad49part % 1663
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1667 count=250. E15 % 1667 = 335, next prime=1669
    d_mod1 = 335 * d_teaquadmult + d_teaquad49part % 1667
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1669 count=251. E15 % 1669 = 1505, next prime=1693
    d_mod1 = 1505 * d_teaquadmult + d_teaquad49part % 1669
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1693 count=252. E15 % 1693 = 461, next prime=1697
    d_mod1 = 461 * d_teaquadmult + d_teaquad49part % 1693
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1697 count=253. E15 % 1697 = 742, next prime=1699
    d_mod1 = 742 * d_teaquadmult + d_teaquad49part % 1697
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1699 count=254. E15 % 1699 = 540, next prime=1709
    d_mod1 = 540 * d_teaquadmult + d_teaquad49part % 1699
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1709 count=255. E15 % 1709 = 374, next prime=1721
    d_mod1 = 374 * d_teaquadmult + d_teaquad49part % 1709
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1721 count=256. E15 % 1721 = 1626, next prime=1723
    d_mod1 = 1626 * d_teaquadmult + d_teaquad49part % 1721
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1723 count=257. E15 % 1723 = 1478, next prime=1733
    d_mod1 = 1478 * d_teaquadmult + d_teaquad49part % 1723
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1733 count=258. E15 % 1733 = 1136, next prime=1741
    d_mod1 = 1136 * d_teaquadmult + d_teaquad49part % 1733
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1741 count=259. E15 % 1741 = 1430, next prime=1747
    d_mod1 = 1430 * d_teaquadmult + d_teaquad49part % 1741
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1747 count=260. E15 % 1747 = 597, next prime=1753
    d_mod1 = 597 * d_teaquadmult + d_teaquad49part % 1747
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1753 count=261. E15 % 1753 = 446, next prime=1759
    d_mod1 = 446 * d_teaquadmult + d_teaquad49part % 1753
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1759 count=262. E15 % 1759 = 131, next prime=1777
    d_mod1 = 131 * d_teaquadmult + d_teaquad49part % 1759
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1777 count=263. E15 % 1777 = 249, next prime=1783
    d_mod1 = 249 * d_teaquadmult + d_teaquad49part % 1777
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1783 count=264. E15 % 1783 = 1081, next prime=1787
    d_mod1 = 1081 * d_teaquadmult + d_teaquad49part % 1783
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1787 count=265. E15 % 1787 = 235, next prime=1789
    d_mod1 = 235 * d_teaquadmult + d_teaquad49part % 1787
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1789 count=266. E15 % 1789 = 1583, next prime=1801
    d_mod1 = 1583 * d_teaquadmult + d_teaquad49part % 1789
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1801 count=267. E15 % 1801 = 1448, next prime=1811
    d_mod1 = 1448 * d_teaquadmult + d_teaquad49part % 1801
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1811 count=268. E15 % 1811 = 1545, next prime=1823
    d_mod1 = 1545 * d_teaquadmult + d_teaquad49part % 1811
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1823 count=269. E15 % 1823 = 1382, next prime=1831
    d_mod1 = 1382 * d_teaquadmult + d_teaquad49part % 1823
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1831 count=270. E15 % 1831 = 1338, next prime=1847
    d_mod1 = 1338 * d_teaquadmult + d_teaquad49part % 1831
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1847 count=271. E15 % 1847 = 489, next prime=1861
    d_mod1 = 489 * d_teaquadmult + d_teaquad49part % 1847
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1861 count=272. E15 % 1861 = 1796, next prime=1867
    d_mod1 = 1796 * d_teaquadmult + d_teaquad49part % 1861
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1867 count=273. E15 % 1867 = 1224, next prime=1871
    d_mod1 = 1224 * d_teaquadmult + d_teaquad49part % 1867
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1871 count=274. E15 % 1871 = 1111, next prime=1873
    d_mod1 = 1111 * d_teaquadmult + d_teaquad49part % 1871
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1873 count=275. E15 % 1873 = 1868, next prime=1877
    d_mod1 = 1868 * d_teaquadmult + d_teaquad49part % 1873
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1877 count=276. E15 % 1877 = 1276, next prime=1879
    d_mod1 = 1276 * d_teaquadmult + d_teaquad49part % 1877
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1879 count=277. E15 % 1879 = 1287, next prime=1889
    d_mod1 = 1287 * d_teaquadmult + d_teaquad49part % 1879
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1889 count=278. E15 % 1889 = 259, next prime=1901
    d_mod1 = 259 * d_teaquadmult + d_teaquad49part % 1889
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1901 count=279. E15 % 1901 = 1120, next prime=1907
    d_mod1 = 1120 * d_teaquadmult + d_teaquad49part % 1901
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1907 count=280. E15 % 1907 = 861, next prime=1913
    d_mod1 = 861 * d_teaquadmult + d_teaquad49part % 1907
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1913 count=281. E15 % 1913 = 1094, next prime=1931
    d_mod1 = 1094 * d_teaquadmult + d_teaquad49part % 1913
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1931 count=282. E15 % 1931 = 499, next prime=1933
    d_mod1 = 499 * d_teaquadmult + d_teaquad49part % 1931
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1933 count=283. E15 % 1933 = 1812, next prime=1949
    d_mod1 = 1812 * d_teaquadmult + d_teaquad49part % 1933
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1949 count=284. E15 % 1949 = 232, next prime=1951
    d_mod1 = 232 * d_teaquadmult + d_teaquad49part % 1949
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1951 count=285. E15 % 1951 = 113, next prime=1973
    d_mod1 = 113 * d_teaquadmult + d_teaquad49part % 1951
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1973 count=286. E15 % 1973 = 594, next prime=1979
    d_mod1 = 594 * d_teaquadmult + d_teaquad49part % 1973
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1979 count=287. E15 % 1979 = 1034, next prime=1987
    d_mod1 = 1034 * d_teaquadmult + d_teaquad49part % 1979
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1987 count=288. E15 % 1987 = 1730, next prime=1993
    d_mod1 = 1730 * d_teaquadmult + d_teaquad49part % 1987
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1993 count=289. E15 % 1993 = 1584, next prime=1997
    d_mod1 = 1584 * d_teaquadmult + d_teaquad49part % 1993
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1997 count=290. E15 % 1997 = 70, next prime=1999
    d_mod1 = 70 * d_teaquadmult + d_teaquad49part % 1997
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=1999 count=291. E15 % 1999 = 1062, next prime=2003
    d_mod1 = 1062 * d_teaquadmult + d_teaquad49part % 1999
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=2003 count=292. E15 % 2003 = 55, next prime=2011
    d_mod1 = 55 * d_teaquadmult + d_teaquad49part % 2003
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=2011 count=293. E15 % 2011 = 1063, next prime=2017
    d_mod1 = 1063 * d_teaquadmult + d_teaquad49part % 2011
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=2017 count=294. E15 % 2017 = 1075, next prime=2027
    d_mod1 = 1075 * d_teaquadmult + d_teaquad49part % 2017
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=2027 count=295. E15 % 2027 = 1654, next prime=2029
    d_mod1 = 1654 * d_teaquadmult + d_teaquad49part % 2027
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=2029 count=296. E15 % 2029 = 254, next prime=2039
    d_mod1 = 254 * d_teaquadmult + d_teaquad49part % 2029
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=2039 count=297. E15 % 2039 = 1514, next prime=2053
    d_mod1 = 1514 * d_teaquadmult + d_teaquad49part % 2039
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=2053 count=298. E15 % 2053 = 853, next prime=2063
    d_mod1 = 853 * d_teaquadmult + d_teaquad49part % 2053
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=2063 count=299. E15 % 2063 = 533, next prime=2069
    d_mod1 = 533 * d_teaquadmult + d_teaquad49part % 2063
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi

'prime=2069 count=300. E15 % 2069 = 72, next prime=2081
    d_mod1 = 72 * d_teaquadmult + d_teaquad49part % 2069
    dift d_mod1 < 39
        dift d_mod1 < 20
            dift d_mod1 < 7
                dift d_mod1 = 0: goto tag_nextnumber
                dift d_mod1 = 2: goto tag_nextnumber
                dift d_mod1 = 6: goto tag_nextnumber
            else
                dift d_mod1 = 8: goto tag_nextnumber
                dift d_mod1 = 18: goto tag_nextnumber
            endi
        else
            dift d_mod1 < 32
                dift d_mod1 = 20: goto tag_nextnumber
                dift d_mod1 = 30: goto tag_nextnumber
            else
                dift d_mod1 = 32: goto tag_nextnumber
                dift d_mod1 = 36: goto tag_nextnumber
                dift d_mod1 = 38: goto tag_nextnumber
            endi
        endi
    endi


'sieve dift=300
'sieve loop=20000
'prime=2081 this is the next prime
'big mod loop below
'HERE sub_teaquad_5tp39_by_modulus_duo

'qtptest dsec d_qtptestsecend
'qtptest d_qtptestsecdif = d_qtptestsecend - d_qtptestsecbeg
'qtptest d_qtptestsec42 = d_qtptestsec42 + d_qtptestsecdif
'qtptest dinc d_qtptestct42

'qtptest d_qtptestsecbeg = d_qtptestsecend
'qtptest d_qtptesttyp = 43

    'd_runct2 at pre-loop1
    dinc d_runct2

    '2081 is in the array with index=1 with 99000 to d_qtpmaxindex
    d_index = 1

gtag tag_nextindex
    itod d_div, d_index

'qtptest dinc d_qtptestctloop1

'd_teaquadone is 10^15
d_mod1=d_teaquadone % d_div * d_teaquadmult + d_teaquad49part % d_div

    dift d_mod1 < 39
        '$out "dift06 sec=63.313 lines=900,000,023 2011/01/04"
        dift d_mod1 < 21
            dift d_mod1 < 9
                dift d_mod1 < 5
                    dift d_mod1 = 0: goto tag_nextnumber
                    dift d_mod1 = 2: goto tag_nextnumber
                else
                    dift d_mod1 = 6: goto tag_nextnumber
                    dift d_mod1 = 8: goto tag_nextnumber
                endi
            else
                dift d_mod1 = 18: goto tag_nextnumber
                dift d_mod1 = 20: goto tag_nextnumber
            endi
        else
            dift d_mod1 > 29
                dift d_mod1 < 35
                    dift d_mod1 = 30: goto tag_nextnumber
                    dift d_mod1 = 32: goto tag_nextnumber
                else
                    dift d_mod1 = 36: goto tag_nextnumber
                    dift d_mod1 = 38: goto tag_nextnumber
                endi
            endi
        endi
    endi

    dinc d_index
    dift d_index <= d_qtpmaxindex: goto tag_nextindex

'qtptest dinc d_qtptestctlooppre2

    'd_runct3 at pre-loop2
    dinc d_runct3

'test with primes in s_pstring,d_pstringct
    d_dot = 1

gtag tag_nextprimestring
    dcut d_div, s_pstring, d_dot, 8

'qtptest dinc d_qtptestctloop2

'd_teaquadone is 10^15
d_mod1=d_teaquadone % d_div * d_teaquadmult + d_teaquad49part % d_div

    dift d_mod1 < 39
        '$out "dift06 sec=63.313 lines=900,000,023 2011/01/04"
        dift d_mod1 < 21
            dift d_mod1 < 9
                dift d_mod1 < 5
                    dift d_mod1 = 0: goto tag_nextnumber
                    dift d_mod1 = 2: goto tag_nextnumber
                else
                    dift d_mod1 = 6: goto tag_nextnumber
                    dift d_mod1 = 8: goto tag_nextnumber
                endi
            else
                dift d_mod1 = 18: goto tag_nextnumber
                dift d_mod1 = 20: goto tag_nextnumber
            endi
        else
            dift d_mod1 > 29
                dift d_mod1 < 35
                    dift d_mod1 = 30: goto tag_nextnumber
                    dift d_mod1 = 32: goto tag_nextnumber
                else
                    dift d_mod1 = 36: goto tag_nextnumber
                    dift d_mod1 = 38: goto tag_nextnumber
                endi
            endi
        endi
    endi

    d_dot = d_dot + 8
    dift d_dot <= d_pstringlong: goto tag_nextprimestring

'qtptest dsec d_qtptestsecend
'qtptest d_qtptestsecdif = d_qtptestsecend - d_qtptestsecbeg
'qtptest d_qtptestsec43 = d_qtptestsec43 + d_qtptestsecdif
'qtptest dinc d_qtptestct43

'qtptest d_qtptestsecbeg = d_qtptestsecend
'qtptest d_qtptesttyp = 44

    'd_runct4 at pre-dduo1
    dinc d_runct4

'big mod loop above
'HERE sub_teaquad_5tp39_by_modulus_duo

'test the p11,p13 duo
    d_teaquad11part = d_teaquad49part - 38

'qtptest dinc d_qtptestctdduo1

    dduo d_duofactor, d_teaquad11part, d_teaquadmult

    dift d_duofactor <> 1
        dift d_duofactor <= d_pstringmax
            s_out = "duofactor=" + d_duofactor
            $app s_out, " less than=" + d_pstringmax
            $app s_out, " num=" + d_teaquadmult + " "
            $app s_out, d_teaquad11part
            $out s_out
            fapp d_any, s_afile, s_out
        endi
'qtptest dinc d_qtptestdduonotct
'qtptest ded$ s_any, d_duofactor, 20, 0
'qtptest ded$ s_dot, d_teaquad11part, 25, 0
'qtptest s_any = d_qtptestdduonotct + ". 11=" + s_any + s_dot
'qtptest $out s_any + " " + s_qtptestbeg

        goto tag_nextnumber
    endi

    'count dduo passes d_dduopassct
    dinc d_dduopassct

    'get s_dateduo17 since we have a duo
    $dat s_date35
    $cut s_dateduo17, s_date35, 1, 17

    'output the d_teaquad11part plus the date
    ded$ s_any, d_teaquad11part, 30, 0
    $sho s_any + " " + s_dateduo17 + " " + s_2code

'12345678901234567890123456789012345
'17-DEC-2002 03:56:22 20021217035622
    'get d_2hournew to test for hour change
    dcut d_2hournew, s_dateduo17, 13, 2

'qtptest d_2hournew = d_2hourprev

    dift d_2hournew <> d_2hourprev
'new hour
'HERE sub_teaquad_5tp39_by_modulus_duo

        'have we skipped an hour
        d_any = d_2hourprev + 1
        dift d_any = 24: d_any = 0
        dift d_any <> d_2hournew
            s_out = "time skip from=" + s_dateduoprev17
            $app s_out, " to=" + s_dateduo17 + " " + s_2code
            $out s_out
            fapp d_any, s_afile, s_out
        endi
        s_dateduoprev17 = s_dateduo17

        'put d_2hournew into d_2hourprev
        d_2hourprev = d_2hournew

        'increment d_tothourct,d_tpdallhourct
        dinc d_tothourct
        dinc d_tpdallhourct

        dg_pass1 = d_teaquad11part
        dg_pass2 = d_teaquadmult
        sub_teaquad_to_string
        s_primetest = sg_pass1

        'find exact s_tpddelta diff from previous hour
        d_tpddelta = d_teaquad11part - d_tpdpart01 / d_trillion
        dift d_tpddelta < 0: d_tpddelta = d_tpddelta + 1000
        d_tpddelta = d_tpddelta * 24
        dto$ s_tpddelta, d_tpddelta, 3, 2

        'find exact per hour average over last twelve hours
        d_tap = d_teaquad11part - d_tpdpart12 / d_trillion
        dift d_tap < 0: d_tap = d_tap + 1000

        'roll d_teaquad11part for next hour
        d_tpdpart12 = d_tpdpart11
        d_tpdpart11 = d_tpdpart10
        d_tpdpart10 = d_tpdpart09
        d_tpdpart09 = d_tpdpart08
        d_tpdpart08 = d_tpdpart07
        d_tpdpart07 = d_tpdpart06
        d_tpdpart06 = d_tpdpart05
        d_tpdpart05 = d_tpdpart04
        d_tpdpart04 = d_tpdpart03
        d_tpdpart03 = d_tpdpart02
        d_tpdpart02 = d_tpdpart01
        d_tpdpart01 = d_teaquad11part

        'if less than twelve hours prorate to twelve hours
        dift d_tothourct < 12
            d_tap = d_tap / d_tothourct * 12
        endi

        'd_tap is delta for twelve hours so mult by two
        d_tpdrate = d_tap * 2

        'change d_tpdrate to s_tpdrate with 2 decimals
        dto$ s_tpdrate, d_tpdrate, 3, 2

        'build up hour output line in s_hrline
        s_hrline = "duo=" + s_primetest + " " + s_dateduo17
        $app s_hrline, " " + s_2code
        $app s_hrline, " " + s_tpdrate + " " + s_tpddelta
        $app s_hrline, " " + d_dduopassct
        $app s_hrline, " " + d_tothourct + " " + d_qtpcount

        fapp d_any, s_afile, s_hrline
        dbad d_any < 10

        $out s_hrline

        'save s_hrline in s_sholine
        s_sholine = s_hrline

        'initialize d_dduopassct for next hour
        d_dduopassct = 0

'12345678901234567890123456789012345
'17-DEC-2002 03:56:22 20021217035622
        'is it the hour to output the once a day info
        dcut d_any, s_dateduo17, 13, 2
'qtptest d_any = 99
        dift d_any = 8
'HERE sub_teaquad_5tp39_by_modulus_duo

            'output various info at hour 06:00
            $out s_dashline + s_2code

            'find tpdall average from d_tpdallhourct,d_tpdallpart
            d_any = d_teaquadmult - d_tpdallmult * 1000
            d_tap = d_teaquad11part - d_tpdallpart / d_trillion
            d_tap = d_any + d_tap

            dift d_tpdallhourct > 0
                'average tpdall since begin of run
                d_tap = d_tap / d_tpdallhourct * 24
            else
                d_tap = 0
            endi
            dto$ s_tap, d_tap, 3, 2

            'output begin info
            s_out = "beg=" + s_datebegin17
            $app s_out, " at=" + s_beginnumber
            $app s_out, " all=" + s_tap + " " + d_tothourct
            $app s_out, " " + d_qtpcount + " " + s_2code
            $out s_out
            fapp d_any, s_afile, s_out
            dbad d_any < 10

            '12345678901234567890
            'oklatea.exe build 523 2008/03/17
            'teaprime.tea build=532 2008/03/15

            'get the memory
            dsys d_any, 1
            ded$ sg_memory, d_any, 0, 0

            'include interpreter path and name with array size
            s_out = sg_interpreter + " " + sg_path
            $app s_out, " " + sg_memory
            fapp d_any, s_afile, s_out
            dbad d_any < 10
            $out s_out

            'output teaprime.tea build, memory and lines

            'get the lines of Teapro
            dsys d_any, 2
            ded$ sg_lines, d_any, 0, 0

            s_out = sg_build + " " + sg_loadprog + " " + sg_lines
            $out s_out
            fapp d_any, s_afile, s_out
            dbad d_any < 10

            'd_runct1 and pstring
            ded$ s_any, d_runct1, 0, 0
            s_out = "1=" + s_any
            ded$ s_any, d_runct2, 0, 0
            $app s_out, " " + "2=" + s_any
            ded$ s_any, d_runct3, 0, 0
            $app s_out, " " + "3=" + s_any
            ded$ s_any, d_runct4, 0, 0
            $app s_out, " " + "4=" + s_any
            d_any = d_qtpmaxindex + d_pstringct
            ded$ s_any, d_any, 0, 0
            $app s_out, " " + "sieve=" + s_any
            ded$ s_any, d_pstringmax, 0, 0
            $app s_out, " " + s_any + " " + s_2code
            $out s_out
            fapp d_any, s_afile, s_out
            dbad d_any < 10

'12345678901234567890123456789012345
'17-DEC-2002 03:56:22 20021217035622
            'initialize d_runct1 once per day
            d_runct1 = 0
            d_runct2 = 0
            d_runct3 = 0
            d_runct4 = 0

            $out s_dashline + s_2code
            $out s_hrline

            dift dg_at8pause = 1
                'ask continue y=yes or *=end or at8pause
                $out "at8pause continue?"
                sub_input_yes_no_asterisk
                dift dg_pass1 = 3: goto tag_endsubr
            endi

            'above is if hour = 08
        endi

'12345678901234567890123456789012345
'17-DEC-2002 03:56:22 20021217035622

        'pause if s_pausefile exists
        flen d_any, s_pausefile
'HERE sub_teaquad_5tp39_by_modulus_duo

        dift d_any >= 0
            's_pausefile exists
            $out sg_interpreter + " " + sg_path + " " + s_2code

            'memory
            dsys d_any, 1
            ded$ sg_memory, d_any, 0, 0

            'lines
            dsys d_any, 2
            ded$ sg_lines, d_any, 0, 0

            s_out = sg_build + " " + sg_loadprog + " " + sg_memory
            $app s_out, " " + sg_lines + " " + s_2code
            $out s_out

            'd_runct1 and pstring
            ded$ s_any, d_runct1, 0, 0
            s_out = "1=" + s_any
            ded$ s_any, d_runct2, 0, 0
            $app s_out, " " + "2=" + s_any
            ded$ s_any, d_runct3, 0, 0
            $app s_out, " " + "3=" + s_any
            ded$ s_any, d_runct4, 0, 0
            $app s_out, " " + "4=" + s_any
            d_any = d_qtpmaxindex + d_pstringct
            ded$ s_any, d_any, 0, 0
            $app s_out, " " + "sieve=" + s_any
            ded$ s_any, d_pstringmax, 0, 0
            $app s_out, " " + s_any + " " + s_2code

            $out s_out
            fapp d_any, s_afile, s_out
            dbad d_any < 10

            $out s_sholine

            $dat s_date35
            $cut s_date17, s_date35, 1, 17

            s_out = s_pausefile + " exists " + s_date17
            $app s_out, " " + s_2code
            $out s_out

            $out "y=purge " + s_pausefile + " or n=not"

            'ask continue y=yes or *=end
            sub_input_yes_no_asterisk

            'purge s_pausefile if y entered
            dift dg_pass1 = 1: fdel d_any, s_pausefile
            dift dg_pass1 = 3: goto tag_endsubr

            $dat s_date35
            $cut s_date17, s_date35, 1, 17
            s_out = sg_build + " " + sg_loadprog
            $app s_out, " " + s_date17 + " " + s_2code
            $out s_out
            $out "continuing " + s_date17 + " " + s_2code
            $out s_sholine

            'above means s_pausefile existed
        endi

'12345678901234567890123456789012345
'17-DEC-2002 03:56:22 20021217035622
        $dat s_date35
        dcut d_2hourprev, s_date35, 13, 2

        'ending of new hour above
    endi

    dift d_teaquad11part > d_teaquadone
        'we are at the end of a quadrillion
'HERE sub_teaquad_5tp39_by_modulus_duo
        $out "new quadrillion"
        $out s_dashline + s_2code

        'if continuing we need to bump d_teaquadmult
        dinc d_teaquadmult

        'd_teaquadone is always e15 or 10^15
        d_teaquad11part = d_teaquad11part - d_teaquadone
        d_teaquad49part = d_teaquad49part - d_teaquadone
        'we are not really changing the number so d_y630 is ok

        d_any = d_teaquadmult % 10
        dift d_any = 0
            'we have just changed to an even ten quadrillion

            'get memory and lines
            dsys d_any, 1
            ded$ sg_memory, d_any, 0, 0
            dsys d_any, 2
            ded$ sg_lines, d_any, 0, 0

'12345678901234567890123456789012345
'17-DEC-2002 03:56:22 20021217035622
            'get s_date17
            $dat s_date35
            $cut s_date17, s_date35, 1, 17

            dg_pass1 = d_teaquad11part
            dg_pass2 = d_teaquadmult
            sub_teaquad_to_string
            s_primetest = sg_pass1

            'we may be at end of this session of numbers

            'begin date and number
            s_out = "beg=" + s_datebegin17
            $app s_out, " at=" + s_beginnumber
            $app s_out, " " + s_afile + " " + s_2code
            $out s_out
            fapp d_any, s_afile, s_out
            dbad d_any < 1
            fapp d_any, s_bfile, s_out
            dbad d_any < 1

            'end date and number
            s_out = "end=" + s_date17 + " at=" + s_primetest
            $app s_out, " " + s_2code
            $out s_out
            fapp d_any, s_afile, s_out
            dbad d_any < 1
            fapp d_any, s_bfile, s_out
            dbad d_any < 1

            'output afile name and line count
            s_out = s_afile + " lines=" + sg_lines
            $app s_out, " " + s_2code
            $out s_out
            fapp d_any, s_afile, s_out
            dbad d_any < 1
            fapp d_any, s_bfile, s_out
            dbad d_any < 1

            'output interpreter path and name
            s_out = sg_interpreter + " " + sg_path
            $app s_out, " " + sg_memory + " " + s_2code
            $out s_out
            fapp d_any, s_afile, s_out
            dbad d_any = 1
            fapp d_any, s_bfile, s_out
            dbad d_any < 1

            'output Teapro program name, build, memory and lines
            s_out = sg_build + " " + sg_loadprog
            $app s_out, " " + sg_lines + " " + s_2code
            $out s_out
            fapp d_any, s_afile, s_out
            dbad d_any < 1
            fapp d_any, s_bfile, s_out
            dbad d_any < 1

            'output current prime Teaquad number
            dg_pass1 = d_teaquad11part
            dg_pass2 = d_teaquadmult
            sub_teaquad_to_string
            s_primetest = sg_pass1

            'build up s_sholine
            s_sholine = "duo=" + s_primetest + " " + s_date17
            $app s_sholine, " " + s_2code
            $app s_sholine, " " + s_tpdrate + " " + s_tpddelta
            $app s_sholine, " " + d_tothourct
            $app s_sholine, " " + d_qtpcount
            $out s_sholine

            fapp d_any, s_afile, s_sholine
            dbad d_any < 1

            'if file QUAD_END.TXT exists then stop
            s_any = "QUAD_END.TXT"
            flen d_any, s_any
            dift d_any >= 0
                $out s_dashline + s_2code

                'end running and wait for an asterisk
                s_out = "ten quadrillion end " + s_date17
                $app s_out, " " + s_2code
                $out s_out
                fapp d_any, s_bfile, s_out
                dbad d_any < 1

                $out "y=yes continue, n=not"
                sub_input_yes_no_asterisk
                dift dg_pass1 <> 1: goto tag_endsubr

                'above is QUAD_END.TXT exists
            endi
            'above is due to an even ten quadrillion
        endi

        'above is if d_teaquadpart > d_teaquadone new quadrillion
        'above is at the end of a quadrillion
    endi

'test the p17,p19 duo
'HERE sub_teaquad_5tp39_by_modulus_duo

    d_teaquadpart = d_teaquad11part + 6

'qtptest dinc d_qtptestctdduo2
    dduo d_duofactor, d_teaquadpart, d_teaquadmult

    dift d_duofactor <> 1
        dift d_duofactor <= d_pstringmax
            s_out = "duofactor=" + d_duofactor
            $app s_out, " less than=" + d_pstringmax
            $app s_out, " num=" + d_teaquadmult + " "
            $app s_out, d_teaquadpart

            $out s_out
            fapp d_any, s_afile, s_out
            dbad d_any < 10
        endi
'qtptest dinc d_qtptestdduonotct
'qtptest ded$ s_any, d_duofactor, 20, 0
'qtptest ded$ s_dot, d_teaquad11part, 25, 0
'qtptest s_any = d_qtptestdduonotct + ". 17=" + s_any + s_dot
'qtptest $out s_any + " " + s_qtptestbeg

        goto tag_nextnumber
    endi

    'count dduo passes d_dduopassct
    dinc d_dduopassct

'test the p29,p31 duo
    d_teaquadpart = d_teaquad11part + 18

'qtptest dinc d_qtptestctdduo3
    dduo d_duofactor, d_teaquadpart, d_teaquadmult

    dift d_duofactor <> 1
        dift d_duofactor <= d_pstringmax
            s_out = "duofactor=" + d_duofactor
            $app s_out, " less than=" + d_pstringmax
            $app s_out, " num=" + d_teaquadmult + " "
            $app s_out, d_teaquadpart

            $out s_out
            fapp d_any, s_afile, s_out
            dbad d_any < 10
        endi
'qtptest dinc d_qtptestdduonotct
'qtptest ded$ s_any, d_duofactor, 20, 0
'qtptest ded$ s_dot, d_teaquad11part, 25, 0
'qtptest $out d_qtptestdduonotct + ". 29=" + s_any + s_dot

        goto tag_nextnumber
    endi

    'count dduo passes d_dduopassct
    dinc d_dduopassct

'test the p41,p43 duo
    d_teaquadpart = d_teaquad11part + 30

'qtptest dinc d_qtptestctdduo4
    dduo d_duofactor, d_teaquadpart, d_teaquadmult

    dift d_duofactor <> 1
        dift d_duofactor <= d_pstringmax
            s_out = "duofactor=" + d_duofactor
            $app s_out, " less than=" + d_pstringmax
            $app s_out, " num=" + d_teaquadmult + " "
            $app s_out, d_teaquadpart

            $out s_out
            fapp d_any, s_afile, s_out
            dbad d_any < 10
        endi
'qtptest dinc d_qtptestdduonotct
'qtptest ded$ s_any, d_duofactor, 20, 0
'qtptest ded$ s_dot, d_teaquad11part, 25, 0
'qtptest $out d_qtptestdduonotct + ". 41=" + s_any + s_dot

        goto tag_nextnumber
    endi

    'count dduo passes d_dduopassct
    dinc d_dduopassct

'test the p47,p49 duo
    d_teaquadpart = d_teaquad11part + 36

'qtptest dinc d_qtptestctdduo5
    dduo d_duofactor, d_teaquadpart, d_teaquadmult

    dift d_duofactor <> 1
        dift d_duofactor <= d_pstringmax
            s_out = "duofactor=" + d_duofactor
            $app s_out, " less than=" + d_pstringmax
            $app s_out, " num=" + d_teaquadmult + " "
            $app s_out, d_teaquadpart

            $out s_out
            fapp d_any, s_afile, s_out
            dbad d_any < 10
        endi
'qtptest dinc d_qtptestdduonotct
'qtptest ded$ s_any, d_duofactor, 20, 0
'qtptest ded$ s_dot, d_teaquad11part, 25, 0
'qtptest $out d_qtptestdduonotct + ". 47=" + s_any + s_dot

        goto tag_nextnumber
    endi

    'count dduo passes d_dduopassct
    dinc d_dduopassct

    'we have a 5TP39
'HERE sub_teaquad_5tp39_by_modulus_duo

    'we have a teaquad 5TP39

'qtptest dsec d_qtptestsecend
'qtptest d_qtptestsecdif = d_qtptestsecend - d_qtptestsecbeg
'qtptest d_qtptestsec44 = d_qtptestsec44 + d_qtptestsecdif
'qtptest dinc d_qtptestct44

'qtptest d_qtptesttyp = 0

    dinc d_qtpcount

    dg_pass1 = d_teaquad11part
    dg_pass2 = d_teaquadmult
    sub_teaquad_to_string
    s_primetest = sg_pass1

    'show the just found 5TP39 using s_dateduo17
    'output the 5tp39 to both files and the screen
    'truncate d_tpdrate to an integer
    dtru d_dot, d_tpdrate

    s_qtpline = "] 000:5TP39= " + s_primetest
    $app s_qtpline, " " + s_dateduo17 + " " + s_2code
    $app s_qtpline, " " + d_dot + " " + d_qtpcount

    fapp d_any, s_bfile, s_qtpline
    dbad d_any < 10

    fapp d_any, s_afile, s_qtpline
    dbad d_any < 10

    $out s_qtpline

    'output the 5TP39 duo= to the 'a' file for a possible restart
    'build up s_sholine
    s_sholine = "duo=" + s_primetest + " " + s_dateduo17
    $app s_sholine, " " + s_2code
    $app s_sholine, " " + s_tpdrate
    $app s_sholine, " " + d_tothourct + " " + d_qtpcount
    fapp d_any, s_afile, s_sholine
    dbad d_any < 6

'if d_qtptestmod>2 then goto next number
    dift d_qtptestmod > 2: goto tag_nextnumber

'doing qtptest output below d_qtptestmod=1
'HERE sub_teaquad_5tp39_by_modulus_duo
    'output build,lines,seconds
    dsec d_qtptestsecend
    $dat s_date35
    s_qtptestfile = "qtptest.txt"

    $out s_dashline + s_2code
    fapp d_any, s_qtptestfile, s_dashline
    dbad d_any < 6

'12345678901234567890123456789012345
'17-DEC-2002 03:56:22 20021217035622
    'begin and now dates
    $cut s_any, s_date35, 1, 20
    s_out = "from=" + s_datebegin20 + " to=" + s_any

    'now lines and total into d_qtptestlines
    dsys d_any, 2
    d_any = d_any - d_beglines
    d_qtptestlines = d_qtptestlines + d_any
    ded$ s_any, d_any, 0, 0
    $app s_out, " " + s_any + " " + s_2code

    $out s_out
    fapp d_any, s_qtptestfile, s_out
    dbad d_any < 6

    'interpreter and path
    s_out = sg_interpreter + " " + sg_path
    $out s_out
    fapp d_any, s_qtptestfile, s_out
    dbad d_any < 6

    'build, loadprog and memory
    dsys d_any, 1
    ded$ sg_memory, d_any, 0, 0
    s_out = sg_build + " " + sg_loadprog
    $app s_out, " " + sg_memory

    $out s_out
    fapp d_any, s_qtptestfile, s_out
    dbad d_any < 6

    'line with qtp 5TP39=
    $out " "
    $cut s_out, s_qtpline, 7, 99
    $out s_out
    fapp d_any, s_qtptestfile, s_out
    dbad d_any < 6

    'd_runct1 and pstring
    $out " "
    ded$ s_any, d_runct1, 0, 0
    s_out = "1=" + s_any

    ded$ s_any, d_runct2, 0, 0
    $app s_out, " 2=" + s_any

    ded$ s_any, d_runct3, 0, 0
    $app s_out, " 3=" + s_any

    ded$ s_any, d_runct4, 0, 0
    $app s_out, " 4=" + s_any

    d_any = d_qtpmaxindex + d_pstringct
    ded$ s_any, d_any, 0, 0
    $app s_out, " sieve=" + s_any

    ded$ s_any, d_pstringmax, 0, 0
    $app s_out, " " + s_any + " " + s_2code

    $out s_out
    fapp d_any, s_qtptestfile, s_out
    dbad d_any < 6

    'output type counts d_qtptesttyp=41,42,43,44
    ded$ s_any, d_qtptestct41, 0, 0
    ded$ s_dot, d_qtptestct42, 0, 0
    s_out = "cts  dift1=" + s_any + " dift2=" + s_dot

    ded$ s_any, d_qtptestct43, 0, 0
    ded$ s_dot, d_qtptestct44, 0, 0
    $app s_out, " loop=" + s_any
    $app s_out, " dduo=" + s_dot
    $out s_out
    fapp d_any, s_qtptestfile, s_out
    dbad d_any < 6

    'output type seconds
    dto$ s_any, d_qtptestsec41, 3, 1
    s_out = "secs dift1=" + s_any

    dto$ s_any, d_qtptestsec42, 3, 1
    $app s_out, " dift2=" + s_any

    dto$ s_any, d_qtptestsec43, 3, 1
    $app s_out, " loop=" + s_any

    d_any = d_qtptestsec41 + d_qtptestsec42 + d_qtptestsec43
    dto$ s_any, d_any, 3, 1
    $app s_out, " tot=" + s_any

    dto$ s_any, d_qtptestsec44, 3, 1
    $app s_out, " dduo=" + s_any

    $out s_out
    fapp d_any, s_qtptestfile, s_out
    dbad d_any < 6

    'loops dduo counts and total seconds
    ded$ s_dot, d_qtptestctloop1, 0, 0
    s_out = "loop1=" + s_dot

    ded$ s_dot, d_qtptestctlooppre2, 0, 0
    $app s_out, " pre2=" + s_dot

    ded$ s_dot, d_qtptestctloop2, 0, 0
    $app s_out, " loop2=" + s_dot

    $app s_out, " pre_dduo=" + d_qtptestctdduo1
    $app s_out, " " + d_qtptestctdduo2 + " " + d_qtptestctdduo3
    $app s_out, " " + d_qtptestctdduo4 + " " + d_qtptestctdduo5

    $out s_out
    fapp d_any, s_qtptestfile, s_out
    dbad d_any < 6

    $out s_dashline + s_2code
    fapp d_any, s_qtptestfile, s_dashline
    dbad d_any < 6

    'total line
    'get seconds
    d_qtptestdduonottot = d_qtptestdduonottot + d_qtptestdduonotct
    d_dot = d_qtptestsecend - d_begseconds
    dtru d_dot, d_dot
    d_qtptestsecall = d_qtptestsecall + d_dot

    s_out = d_qtptestpick + ". now_sec=" + d_dot
    $app s_out, " not=" + d_qtptestdduonotct

    'get ratio into d_tap of sec/std 12E18 sec=9399 35
    d_tap = 0
    $len d_any, s_qtptestbeg
    dift d_any > 8
        $par s_any, s_qtptestbeg, "=", 2
        $par s_any, s_any, " ", 1
        $isd d_any, s_any
        dift d_any = 1
            $tod, d_any, s_any
            d_qtptestsecstd = d_qtptestsecstd + d_any
            dift d_any > 0: d_tap = d_dot / d_any
        endi
    endi

    'ratio
    dto$ s_any, d_tap, 1, 4
    $app s_out, " per=" + s_any

    $app s_out, " " + s_qtptestbeg

    $cut s_any, s_date35, 1, 17
    $app s_out, " " + s_any

    $out s_out
    fapp d_any, s_qtptestfile, s_out
    dbad d_any < 6

    'all total line
    s_out = d_qtptestpick + ". tot_sec=" + d_qtptestsecall
    $app s_out, " std=" + d_qtptestsecstd

    'get ratio of seconds all/std
    d_any = 0
    dift d_qtptestsecstd > 0
        d_any = d_qtptestsecall / d_qtptestsecstd
    endi
    dto$ s_any, d_any, 1, 4
    $app s_out, " per=" + s_any

    $app s_out, " not=" + d_qtptestdduonottot

    ded$ s_any, d_qtptestlines, 1, 0
    $app s_out, " lines=" + s_any
    $out s_out

    fapp d_any, s_qtptestfile, s_out
    dbad d_any < 6

    $out s_dashline + s_2code
    fapp d_any, s_qtptestfile, s_dashline
    dbad d_any < 6

    'if d_qtptestmod = 2 then we do all
    dift d_qtptestmod = 2
        dinc d_qtptestpick
        dift d_qtptestpick <= 25: goto tag_qtptestall
    endi

    'get rid of s_pstring,d_pstringct
    d_pstringct = 0
    s_pstring = sg_nothing

    $out "y=continue"
    sub_input_yes_no_asterisk

    'end program anyway here
    goto tag_endsubr
    'above is if qtptest
endi

gtag tag_endsubr
ends sub_teaquad_5tp39_by_modulus_duo


subr sub_5tp39_test_with_prime
'updated 2010/04/19
'vari dg_modprime, dg_resultprime

dift dg_modprime < 19
    dift dg_modprime < 7
        dift dg_modprime = 0: dinc dg_resultprime
        dift dg_modprime = 2: dinc dg_resultprime
        dift dg_modprime = 6: dinc dg_resultprime
    else
        dift dg_modprime = 8: dinc dg_resultprime
        dift dg_modprime = 18: dinc dg_resultprime
    endi
else
    dift dg_modprime < 32
        dift dg_modprime = 20: dinc dg_resultprime
        dift dg_modprime = 30: dinc dg_resultprime
    else
        dift dg_modprime = 32: dinc dg_resultprime
        dift dg_modprime = 36: dinc dg_resultprime
        dift dg_modprime = 38: dinc dg_resultprime
    endi
endi
ends sub_5tp39_test_with_prime


subr sub_pause_file_build_delete
'updated 2011/09/26, 2011/08/05, 2011/05/24, 2010/11/29
'2010/09/27, 2010/08/21, 2010/07/31, 2010/07/12, 2010/05/12
'2010/05/05, 2010/05/04, 2010/05/03, 2010/04/01, 2010/03/28
vari d_any, s_any, d_dot, s_dot, s_out, s_input
vari s_pausefile, s_2code, d_good, d_loop
vari s_choice, s_line, s_quadend, d_mode

d_loop = 1
dwhi d_loop = 1
    'interpreter and lines
    $out sg_interpreter + " " + sg_path

    'build and memory
    dsys d_any, 1
    ded$ sg_memory, d_any, 0, 0
    dsys d_any, 2
    ded$ sg_lines, d_any, 0, 0
    s_out = sg_build + " " + sg_loadprog + " " + sg_memory
    $app s_out, " " + sg_lines
    $out s_out

    sub_pause_file_list

    d_mode = 1
    dift d_mode = 1
        $dat s_any
        $cut s_any, s_any, 1, 17
        s_dot = "enter 2code ie. t4 or QUAD_END  " + s_any
        $inp s_input, s_dot
        $ift s_input = "*"
            d_mode = 99
            dinc d_loop
        endi
        $tup s_input, s_input
        $len d_any, s_input
        dift d_any <> 2: d_mode = 99
        $ift s_input = "QUAD_END": d_mode = 2
    endi
    dift d_mode = 1
        s_2code = s_input
        s_pausefile = "PAUSE_" + s_2code + ".TXT"
        $tup s_pausefile, s_pausefile

        flen d_any, s_pausefile
        dift d_any >= 0: $out s_pausefile + " exists"
        dift d_any < 0: $out s_pausefile + " does not exist"

        $inp s_choice, "1=build, 2=delete"
        $ift s_choice = "*"
            d_mode = 99
            dinc d_loop
        endi
    endi
    dift d_mode = 1
        $ift s_choice = "1"
            'build s_pausefile
            fdel d_any, s_pausefile

            $dat s_any
            $cut s_any, s_any, 1, 17
            s_line = s_pausefile + " " + s_any
            $out s_line

            fout d_any, s_pausefile, s_line
        endi
        $ift s_choice = "2"
            'delete s_pausefile
            fdel d_any, s_pausefile
        endi
    endi
    dift d_mode = 2
        'build or not a s_quadend file
        s_quadend = "QUAD_END.TXT"
        $out s_quadend
        $inp s_input, "1=build, 2=delete file " + s_quadend
        $ift s_input = "1"
            'build s_quadend file
            fdel d_any, s_quadend

            $dat s_any
            $cut s_any, s_any, 1, 17
            s_line = s_quadend + " " + s_any
            $out s_line

            fout d_any, s_quadend, s_line
        endi
        $ift s_input = "2"
            'delete s_quadend
            fdel d_any, s_quadend
        endi
    endi
endw
ends sub_pause_file_build_delete


subr sub_pause_file_list
'updated 2011/05/24, 2011/04/01
'2011/01/01, 2010/12/30, 2010/07/31, 2010/06/21, 2010/05/12
vari d_any, s_any, d_dot, s_dot
vari s_pausefile, s_2code, s_all2codes, d_byte
vari d_loop, s_line, d_long, d_process

s_any = "QUAD_END.TXT"
flen d_any, s_any
dift d_any >= 0
    $out s_any + " exists"
else
    $out s_any + " does not exist"
endi

s_all2codes = "a0,a1,a2,a3,a4,a5,a6,a7,a8,a9,"
$app s_all2codes, "g0,g1,g2,g3,g4,g5,g6,g7,g8,g9,"
$app s_all2codes, "t0,t1,t2,t3,t4,t5,t6,t7,t8,t9,"
$app s_all2codes, "u0,u1,u2,u3,u4,u5,u6,u7,u8,u9,"
$app s_all2codes, "n0,n1,n2,n3,n4,n5,n6,n7,n8,n9,"
$app s_all2codes, "j0,j1,j2,j3,j4,j5,j6,j7,j8,j9,"
$app s_all2codes, "zz, "

s_line = sg_nothing
d_byte = 1
d_loop = 1
dwhi d_loop = 1
    $cut s_2code, s_all2codes, d_byte, 2
    $len d_long, s_2code

    dift d_long = 2
        s_pausefile = "PAUSE_" + s_2code + ".TXT"
        $tup s_pausefile, s_pausefile
        flen d_any, s_pausefile
        dift d_any >= 0: $app s_line, s_2code + ","
    else
        dinc d_loop
    endi

    d_byte = d_byte + 3
endw

$len d_long, s_line
dift d_long > 0
    $cnt d_any, s_line, ","
    $out "exists=" + s_line + " " + " " + d_any
else
    $out "no 2codes exist"
endi
ends sub_pause_file_list


subr sub_write_teapro_lines_test_teaquad_5tp39
'updated 2011/09/19, 2011/09/09
'2010/05/20, 2010/04/29, 2010/04/25, 2010/04/23, 2010/04/22
'2010/04/19, 2010/04/07, 2010/04/02, 2010/02/17, 2010/02/16
vari d_any, s_any, d_dot, s_dot, d_tap
vari d_loop, d_count, d_totalct, d_begin, d_style
vari s_filename, s_line, d_process, d_lines
vari d_prime, s_prime, d_index, d_teaquadone

'write teapro lines to test for set of low primes
d_teaquadone = 10 ^ 15

d_lines = 0
d_process = 1
dift d_process = 1
    d_begin = 41
    $inp s_any, "begin number default=41"
    $ift s_any = "*": dinc d_process
    $isd d_any, s_any
    dift d_any = 1: $tod d_begin, s_any
endi
dift d_process = 1
    d_totalct = 500
    $inp s_any, "total count default=500"
    $ift s_any = "*": dinc d_process
    $isd d_any, s_any
    dift d_any = 1: $tod d_totalct, s_any
    dift d_totalct > 2000: d_totalct = 2000
endi
dift d_process = 1
    d_style = 1
    $inp s_any, "1=short style, 2=long"
    $ift s_any = "*": dinc d_process
    $ift s_any = "2": d_style = 2
endi
dift d_process = 1
    'put primes in decimal array
    arrz

    'make sure d_begin is odd
    d_any = d_begin % 2
    dift d_any = 0: dinc d_begin

    'get d_totalct of primes from d_begin into the decimal array
    d_prime = d_begin
    d_index = 1

    dwhi d_index <= 20000
        dfac d_tap, d_prime
        dift d_tap = 1
            dtoi d_index, d_prime
            dinc d_index
        endi
        d_prime = d_prime + 2
    endw

    'erase old file to begin new one
    s_filename = "zteadift.txt"
    fdel d_any, s_filename
endi

'd_dot = d_teaquadone % d_prime
'd_mod1 = d_dot * d_teaquadmult + d_teaquad49part % d_prime
'dift d_mod1 < 39
'  dift d_mod1 < 20
'    dift d_mod1 < 7
'      dift d_mod1 = 0: goto tag_nextnumber
'      dift d_mod1 = 2: goto tag_nextnumber
'      dift d_mod1 = 6: goto tag_nextnumber
'    else
'      dift d_mod1 = 8: goto tag_nextnumber
'      dift d_mod1 = 18: goto tag_nextnumber
'    endi
'  else
'    dift d_mod1 < 32
'      dift d_mod1 = 20: goto tag_nextnumber
'      dift d_mod1 = 30: goto tag_nextnumber
'    else
'      dift d_mod1 = 32: goto tag_nextnumber
'      dift d_mod1 = 36: goto tag_nextnumber
'      dift d_mod1 = 38: goto tag_nextnumber
'    endi
'  endi
'endi

'prime=127 count=19.
'dg_modprime = 63 * d_teaquadmult + d_teaquad49part % 127
'dift dg_modprime < 39
'    sub_5tp39_test_with_prime
'    dift dg_resultprime > 0: goto tag_nextnumber
'endi

d_loop = d_process
d_index = 1
dwhi d_loop = 1
    'get the primes for d_index and for d_index+1
    itod d_prime, d_index
    d_any = d_index + 1
    itod d_tap, d_any

    fapp d_any, s_filename, " "

    d_dot = d_teaquadone % d_prime

    s_line = "'prime=" + d_prime + " count=" + d_index
    $app s_line, ". E15 % " + d_prime + " = " + d_dot
    $app s_line, ", next prime=" + d_tap
    fapp d_any, s_filename, s_line
    $out s_line

    dift d_style = 2
        d_dot = d_teaquadone % d_prime

        s_line = "d_mod1 = " + d_dot + " * d_teaquadmult"
        $app s_line, " + d_teaquad49part % " + d_prime
        fapp d_any, s_filename, s_line

        s_line = "dift d_mod1 < 39"
        fapp d_any, s_filename, s_line

        s_line = "  dift d_mod1 < 20"
        fapp d_any, s_filename, s_line

        s_line = "    dift d_mod1 < 7"
        fapp d_any, s_filename, s_line

        s_line = "      dift d_mod1 = 0: goto tag_nextnumber"
        fapp d_any, s_filename, s_line

        s_line = "      dift d_mod1 = 2: goto tag_nextnumber"
        fapp d_any, s_filename, s_line

        s_line = "      dift d_mod1 = 6: goto tag_nextnumber"
        fapp d_any, s_filename, s_line

        s_line = "    else"
        fapp d_any, s_filename, s_line

        s_line = "      dift d_mod1 = 8: goto tag_nextnumber"
        fapp d_any, s_filename, s_line

        s_line = "      dift d_mod1 = 18: goto tag_nextnumber"
        fapp d_any, s_filename, s_line

        s_line = "    endi"
        fapp d_any, s_filename, s_line

        s_line = "  else"
        fapp d_any, s_filename, s_line

        s_line = "    dift d_mod1 < 32"
        fapp d_any, s_filename, s_line

        s_line = "      dift d_mod1 = 20: goto tag_nextnumber"
        fapp d_any, s_filename, s_line

        s_line = "      dift d_mod1 = 30: goto tag_nextnumber"
        fapp d_any, s_filename, s_line

        s_line = "    else"
        fapp d_any, s_filename, s_line

        s_line = "      dift d_mod1 = 32: goto tag_nextnumber"
        fapp d_any, s_filename, s_line

        s_line = "      dift d_mod1 = 36: goto tag_nextnumber"
        fapp d_any, s_filename, s_line

        s_line = "      dift d_mod1 = 38: goto tag_nextnumber"
        fapp d_any, s_filename, s_line

        s_line = "    endi"
        fapp d_any, s_filename, s_line

        s_line = "  endi"
        fapp d_any, s_filename, s_line

        s_line = "endi"
        fapp d_any, s_filename, s_line

        d_lines = d_lines + 23
    else
'prime=127 count=19.
'dg_modprime = 63 * d_teaquadmult + d_teaquad49part % 127
'dift dg_modprime < 39
'    sub_5tp39_test_with_prime
'    dift dg_resultprime > 0: goto tag_nextnumber
'endi

        d_dot = d_teaquadone % d_prime

        s_line = "dg_modprime = " + d_dot
        $app s_line, " * d_teaquadmult"
        $app s_line, " + d_teaquad49part % " + d_prime
        fapp d_any, s_filename, s_line

        s_line = "dift dg_modprime < 39"
        fapp d_any, s_filename, s_line

        s_line = "  sub_5tp39_test_with_prime"
        fapp d_any, s_filename, s_line

        s_line = "  dift dg_resultprime > 0:"
        $app s_line, " goto tag_nextnumber"
        fapp d_any, s_filename, s_line

        s_line = "endi"
        fapp d_any, s_filename, s_line

        d_lines = d_lines + 7
    endi

    dinc d_index
    dift d_index > d_totalct: dinc d_loop
endw

$inp s_any, "return, lines=" + d_lines
ends sub_write_teapro_lines_test_teaquad_5tp39


subr sub_test_dift_loop_5tp39
'updated 2011/09/26, 2011/01/06
'2011/01/04, 2011/01/03, 2010/05/31, 2010/04/25, 2010/02/19
vari d_any, s_any, d_dot, s_dot
vari d_count, d_totcount, d_seconds, d_mod1, d_mod2
vari d_linescount

d_totcount = 10 ^ 8
ded$ s_any, d_totcount, 0, 0
$out "count=" + s_any

dsys d_any, 2
ded$ s_any, d_any, 0, 0
$out "running " + sg_build + " " + sg_loadprog + " " + s_any

d_count = 0
dsys d_linescount, 2
dsec d_seconds

'loop below
gtag tag_testdiftloop

dinc d_count
dift d_count > d_totcount: goto tag_endtestdiftloop

d_mod1 = d_count % 39

'$out "dift01 sec=51.953 lines=938,461,551 2011/01/19"
dift d_mod1 < 20
    dift d_mod1 < 7
        dift d_mod1 = 0: goto tag_testdiftloop
        dift d_mod1 = 2: goto tag_testdiftloop
        dift d_mod1 = 6: goto tag_testdiftloop
    else
        dift d_mod1 = 8: goto tag_testdiftloop
        dift d_mod1 = 18: goto tag_testdiftloop
    endi
else
    dift d_mod1 < 32
        dift d_mod1 = 20: goto tag_testdiftloop
        dift d_mod1 = 30: goto tag_testdiftloop
    else
        dift d_mod1 = 32: goto tag_testdiftloop
        dift d_mod1 = 36: goto tag_testdiftloop
        dift d_mod1 = 38: goto tag_testdiftloop
    endi
endi

goto tag_testdiftloop
'loop above

'$out "dift01 sec=51.953 lines=938,461,551 2011/01/19"
dift d_mod1 < 20
    dift d_mod1 < 7
        dift d_mod1 = 0: goto tag_testdiftloop
        dift d_mod1 = 2: goto tag_testdiftloop
        dift d_mod1 = 6: goto tag_testdiftloop
    else
        dift d_mod1 = 8: goto tag_testdiftloop
        dift d_mod1 = 18: goto tag_testdiftloop
    endi
else
    dift d_mod1 < 32
        dift d_mod1 = 20: goto tag_testdiftloop
        dift d_mod1 = 30: goto tag_testdiftloop
    else
        dift d_mod1 = 32: goto tag_testdiftloop
        dift d_mod1 = 36: goto tag_testdiftloop
        dift d_mod1 = 38: goto tag_testdiftloop
    endi
endi

'$out "dift02 sec=56.016 lines=1,023,075,932 2011/01/19"
dift d_mod1 < 20
    dift d_mod1 = 0: goto tag_testdiftloop
    dift d_mod1 = 2: goto tag_testdiftloop
    dift d_mod1 = 6: goto tag_testdiftloop
    dift d_mod1 = 8: goto tag_testdiftloop
    dift d_mod1 = 18: goto tag_testdiftloop
else
    dift d_mod1 = 20: goto tag_testdiftloop
    dift d_mod1 = 30: goto tag_testdiftloop
    dift d_mod1 = 32: goto tag_testdiftloop
    dift d_mod1 = 36: goto tag_testdiftloop
    dift d_mod1 = 38: goto tag_testdiftloop
endi

'$out "dift03 sec=65.328 lines=1,284,615,388 2011/01/19"
dift d_mod1 = 0: goto tag_testdiftloop
dift d_mod1 = 2: goto tag_testdiftloop
dift d_mod1 = 6: goto tag_testdiftloop
dift d_mod1 = 8: goto tag_testdiftloop
dift d_mod1 = 18: goto tag_testdiftloop
dift d_mod1 = 20: goto tag_testdiftloop
dift d_mod1 = 30: goto tag_testdiftloop
dift d_mod1 = 32: goto tag_testdiftloop
dift d_mod1 = 36: goto tag_testdiftloop
dift d_mod1 = 38: goto tag_testdiftloop

'$out "dift06 sec=50.735 lines=900,000,023 2011/01/19"
dift d_mod1 < 21
    dift d_mod1 < 9
        dift d_mod1 < 5
            dift d_mod1 = 0: goto tag_testdiftloop
            dift d_mod1 = 2: goto tag_testdiftloop
        else
            dift d_mod1 = 6: goto tag_testdiftloop
            dift d_mod1 = 8: goto tag_testdiftloop
        endi
    else
        dift d_mod1 = 18: goto tag_testdiftloop
        dift d_mod1 = 20: goto tag_testdiftloop
    endi
else
    dift d_mod1 > 29
        dift d_mod1 < 35
            dift d_mod1 = 30: goto tag_testdiftloop
            dift d_mod1 = 32: goto tag_testdiftloop
        else
            dift d_mod1 = 36: goto tag_testdiftloop
            dift d_mod1 = 38: goto tag_testdiftloop
        endi
    endi
endi

'$out "dift07 sec=52.125 lines=943,589,755 2011/01/19"
dift d_mod1 < 20
    dift d_mod1 < 7
        dift d_mod1 = 0: goto tag_testdiftloop
        dift d_mod1 = 2: goto tag_testdiftloop
        dift d_mod1 = 6: goto tag_testdiftloop
    else
        dift d_mod1 = 8: goto tag_testdiftloop
        dift d_mod1 = 18: goto tag_testdiftloop
    endi
else
    dift d_mod1 < 31
        dift d_mod1 = 20: goto tag_testdiftloop
        dift d_mod1 = 30: goto tag_testdiftloop
    else
        dift d_mod1 = 32: goto tag_testdiftloop
        dift d_mod1 = 36: goto tag_testdiftloop
        dift d_mod1 = 38: goto tag_testdiftloop
    endi
endi

gtag tag_endtestdiftloop

dsec d_any
d_seconds = d_any - d_seconds

dsys d_any, 2
d_linescount = d_any - d_linescount

'previous tests
$out "dift01 sec=51.953 lines=938,461,551 2011/01/19"
$out "dift02 sec=56.016 lines=1,023,075,932 2011/01/19"
$out "dift03 sec=65.328 lines=1,284,615,388 2011/01/19"
$out "dift06 sec=50.735 lines=900,000,023 2011/01/19"
$out "dift07 sec=52.125 lines=943,589,755 2011/01/19"

ded$ s_any, d_linescount, 0, 0
$out "lines=" + s_any
ded$ s_dot, d_totcount, 0, 0
$out "sec=" + d_seconds + " tot=" + s_dot
$inp s_any, "return"

ends sub_test_dift_loop_5tp39


subr sub_input_yes_no_asterisk
'updated 2012/01/28
'2012/01/26, 2012/01/11, 2011/12/30, 2011/02/08, 2011/01/21
'2011/01/19, 2010/08/21, 2010/03/23, 2010/03/22, 2009/12/16
vari d_any, s_any, s_dot
vari d_loop, d_count, d_yes

d_yes = 99999

d_count = 0
d_loop = 1

dwhi d_loop = 1
    $dat s_dot
    $cut s_dot, s_dot, 1, 17

    s_any = "y=yes or n=no or * to end or debug"
    $app s_any, " at8pause=" + dg_at8pause
    $app s_any, " " + s_dot
    $inp s_any, s_any

    $tup s_any, s_any
    $ift s_any = "DEBUG": dbug
    $ift s_any = "AT8PAUSE"
        d_any = dg_at8pause
        dg_at8pause = 1
        dift d_any = 1: dinc dg_at8pause
    endi

    $ift s_any = "Y"
        d_yes = 1
        dinc d_loop
    endi
    $ift s_any = "N"
        d_yes = 2
        dinc d_loop
    endi
    $ift s_any = "*"
        d_yes = 3
        dinc d_loop
    endi

    dinc d_count
    dift d_count > 100
        d_yes = 3
        dinc d_loop
    endi

endw
dg_pass1 = d_yes
ends sub_input_yes_no_asterisk


subr sub_5tp39_two_files_compare
'updated 2011/10/10
'2011/09/11, 2011/02/10, 2008/12/22, 2008/12/09, 2007/12/13
'2007/12/10, 2007/10/27, 2007/10/23, 2007/10/04, 2007/08/26
'2007/07/31, 2006/07/28, 2006/02/25, 2005/10/15, 2004/05/11
vari d_any, s_any, d_dot, s_dot, s_out
vari s_filename1, s_filedata1, s_filename2, s_filedata2
vari d_process, d_loop, d_big, d_ctlines, d_ctskipped
vari d_ctfound, d_ctnotfound, s_prev5tp39, s_dashline
vari s_5tp39, s_lookstring, d_matchupfile, s_fileout, d_nostop
vari d_ctdata1, d_ctdata2, d_cte15, s_fileline1, d_find
vari d_seekonlybeg, s_seekonlybeg, d_notseekonlyct

s_fileout = "matchup.txt"
$ch$ s_dashline, "-", 40
d_process = 1
dift d_process = 1
    $out "5tp39s in file1 are looked up in file2"
    $inp s_filename1, "enter filename1"
    $ift s_filename1 = "*": dinc d_process
endi
dift d_process = 1
    $inp s_filename2, "enter filename2"
    $ift s_filename2 = "*": dinc d_process
endi
dift d_process = 1
    finp s_filedata1, s_filename1
    finp s_filedata2, s_filename2

    $bes s_filedata1, s_filedata1
    $bes s_filedata2, s_filedata2

    $cup s_filedata1, s_filedata1
    $cup s_filedata2, s_filedata2

    s_lookstring = "5TP39="
    $cnt d_ctdata1, s_filedata1, s_lookstring
    $cnt d_ctdata2, s_filedata2, s_lookstring

    $len d_any, s_filedata1
    s_out = s_filename1 + ", length=" + d_any
    $app s_out, ", count=" + d_ctdata1
    $out s_out
    dift d_any = 0: dinc d_process
endi
dift d_process = 1
    $len d_any, s_filedata2
    s_out = s_filename2 + ", length=" + d_any
    $app s_out, ", count=" + d_ctdata2
    $out s_out
    dift d_any = 0: dinc d_process
endi
dift d_process = 1
    $inp s_any, "1=make new no find file=" + s_fileout
    $ift s_any = "*": dinc d_process
    d_matchupfile = 2
    $ift s_any = "1"
        d_matchupfile = 1
        fdel d_any, s_fileout
    endi
endi
dift d_process = 1
    $inp s_any, "enter beg 3 long to seek only ie. 10,"
    $trb s_any, s_any
    $len d_any, s_any
    dift d_any = 3
        s_seekonlybeg = s_any
        d_seekonlybeg = 1
    endi
endi
dift d_process = 1
    $inp s_any, "1=no stop"
    $ift s_any = "*": dinc d_process
    d_nostop = 2
    $ift s_any = "1": d_nostop = 1
endi
dift d_process = 1
    $out "from " + s_filename1 + " looking in " + s_filename2
    $inp s_any, "return to begin"
    $ift s_any = "*": dinc d_process
endi

d_cte15 = 0
d_ctskipped = 0
d_ctdata1 = 0
d_ctfound = 0
d_ctnotfound = 0
d_ctlines = 0
dpow d_big, 10, 10

d_loop = d_process

dwhi d_loop = 1
    's_lookstring is "5TP39="
    $lok d_dot, s_filedata1, 1, s_lookstring

    dift d_dot = 0
        'no more are in s_filedata1
        dinc d_loop
    else
        'we found a s_lookstring in s_filedata1 at d_dot

        'tell
        dinc d_ctdata1
        d_any = d_ctdata1 % 100
        dift d_any = 0: $sho d_ctdata1

        '01234567890
        '5TP39= 10,123^
        d_dot = d_dot + 6
        $cut s_filedata1, s_filedata1, d_dot, d_big
        $trb s_filedata1, s_filedata1

        'get the 5tp39 in s_5tp39
        $lok d_dot, s_filedata1, 1, " "
        $cut s_5tp39, s_filedata1, 1, d_dot
        $trb s_5tp39, s_5tp39

        'get the whole line into s_fileline1
        d_any = d_dot + 25
        $cut s_fileline1, s_filedata1, 1, d_any
        $bes s_fileline1, s_fileline1

        ' 123456789012345678901234
        '1,234,567,890,123,456,789
        $len d_any, s_5tp39
        dift d_any > 20
            'output dash line between quadrillions
            d_any = d_any - 20
            $cut s_any, s_5tp39, 1, d_any
            $cut s_dot, s_prev5tp39, 1, d_any
            $ift s_any <> s_dot
                s_out = d_cte15 + " " + s_dot
                $app s_out, "E15" + s_dashline
                $out s_out

                dift d_matchupfile = 1
                    fapp d_any, s_fileout, s_out
                    dbad d_any = 0
                endi

                d_cte15 = 0
            endi
        endi

        'increment count per e15
        dinc d_cte15

        s_prev5tp39 = s_5tp39

        s_5tp39 = "5TP39= " + s_5tp39 + " "

        'is it in s_filedata2
        $lok d_find, s_filedata2, 1, s_5tp39

        'is it a s_seekonlybeg to not ignore
        dift d_seekonlybeg = 1
            $cut s_any, s_prev5tp39, 1, 3
            $ift s_any <> s_seekonlybeg
                dinc d_notseekonlyct
                d_find = - 1
            endi
        endi

        dift d_find > 0
            'in both
            dinc d_ctfound

            dift d_ctskipped > 0
                dift d_ctskipped < 20
                    s_any = " count of skipped=" + d_ctskipped
                    $out s_5tp39 + s_any
                    dift d_nostop <> 1
                        $inp s_any, "return"
                        $ift s_any = "*": dinc d_loop
                    endi
                endi
            endi
            d_ctskipped = 0
        endi
        dift d_find = 0
            'not found in s_filedata2
            dinc d_ctskipped
            dinc d_ctnotfound

            s_out = d_ctnotfound
            $app s_out, "." + " " + s_fileline1
            '$app s_out, " in " + s_filename1
            '$app s_out, " but not in " + s_filename2
            $out s_out

            dift d_matchupfile = 1
                fapp d_any, s_fileout, s_out
                dbad d_any = 0
            endi

            'stop every 20 lines unless d_nostop=1
            dift d_nostop = 1: d_ctlines = 0
            dinc d_ctlines
            dift d_ctlines >= 20
                d_ctlines = 0
                $inp s_any, "more"
                $ift s_any = "*": dinc d_loop
            endi
        endi
    endi
endw

s_out = "found=" + d_ctfound + ", not=" + d_ctnotfound
$app s_out, ", not seek only=" + d_notseekonlyct
$out s_out

fapp d_any, s_fileout, s_out
dbad d_any = 0

sub_path_prog_memory

$inp s_any, "done"
ends sub_5tp39_two_files_compare


subr sub_5tp39_validate_in_a_file
'updated 2006/11/24, 2006/08/04, 2006/07/19
'2006/03/08, 2006/03/07, 2006/03/06, 2006/02/25, 2005/06/09
'2005/05/19, 2005/05/02, 2005/05/01, 2005/04/29, 2005/04/20
'2005/04/19, 2005/04/08, 2005/03/31, 2005/03/07, 2005/03/06
vari d_any, s_any, d_dot, s_dot, s_tap, s_out
vari d_filebyte, s_record, s_filename, d_loop, d_good
vari s_number, d_number, d_seconds, d_begin, d_count
vari d_yestest, d_process, d_findclosetwin, d_true
vari d_3cluster, d_1hold, d_2hold, d_diff
vari d_largegap, d_smallgap
vari d_ypivcom, d_pivcom, s_factors

'get current subroutine name
$sys s_any, 2
$out s_any

d_process = 1
dift d_process = 1
    $inp s_any, "1=do not test for 5TP39, default=do test"
    $ift s_any = "*": dinc d_process
    d_yestest = 1
    $ift s_any = "1": dinc d_yestest
endi
dift d_process = 1
    $inp s_any, "enter number to begin, default = 6.4*10^15"
    $ift s_any = "*": dinc d_process
    $tod d_begin, "6,400,000,000,000,000"
    $isd d_any, s_any
    dift d_any = 1: $tod d_begin, s_any
endi
dift d_process = 1
    d_ypivcom = 2
    $inp s_any, "1=pivcom factors"
    $ift s_any = "*": dinc d_process
    $ift s_any = "1": d_ypivcom = 1
endi
dift d_process = 1
    $inp s_any, "enter amount for a 3cluster, default=0"
    $ift s_any = "*": dinc d_process
    d_3cluster = 0
    $isd d_any, s_any
    dift d_any = 1: $tod d_3cluster, s_any
endi
dift d_process = 1
    d_largegap = 0
    $inp s_any, "1 = large gap of 15*10^12 or enter other"
    $ift s_any = "*": dinc d_process
    $ift s_any = "1": s_any = "15,000,000,000,000"
    $isd d_any, s_any
    dift d_any = 1: $tod d_largegap, s_any
endi
dift d_process = 1
    d_smallgap = 0
    $inp s_any, "1 = small gap of 5*10^9 or enter other"
    $ift s_any = "*": dinc d_process
    $ift s_any = "1": s_any = "5,000,000,000"
    $isd d_any, s_any
    dift d_any = 1: $tod d_smallgap, s_any

    $out "3cluster=" + d_3cluster
    s_filename = "fix5tp39.exp"
    $out "input file=" + s_filename
endi
dift d_process = 1
    d_findclosetwin = 0
    $inp s_any, "1 = find close twin"
    $ift s_any = "*": dinc d_process
    $ift s_any = "1": d_findclosetwin = 1
endi

d_count = 0
d_filebyte = 1
d_loop = d_process
dwhi d_loop = 1
    d_good = 1
    fsip s_record, s_filename, d_filebyte
    dift d_filebyte = 0
        dinc d_good
        dinc d_loop
    endi
    dift d_good = 1
        $lok d_dot, s_record, 1, "5TP39="
        dift d_dot = 0: dinc d_good
    endi
    dift d_good = 1
        '5TP39= 39,713...
        d_dot = d_dot + 7
        $lok d_any, s_record, d_dot, " "
        d_any = d_any - d_dot + 1
        $cut s_number, s_record, d_dot, d_any
        $trb s_number, s_number
        $isd d_any, s_number
        dift d_any <> 1
            $inp s_any, "bad number=" + s_number
            $ift s_any = "*": dinc d_loop
            dinc d_good
        endi
    endi
    dift d_good = 1
        $tod d_number, s_number

        'skip if before beginning
        dift d_number < d_begin: dinc d_good
    endi
    dift d_good = 1
        dift d_yestest = 1
            dg_pass1 = d_number
            sub_5tp39_test
            d_true = dg_pass2
            d_seconds = dg_pass3
        else
            d_true = 1
            d_seconds = 0
        endi
        dift d_findclosetwin = 1
            dift d_true = 1
                'find close twin
                dg_pass1 = d_number + 38
                dg_pass2 = 2
                sub_find_close_twin
                dg_pass1 = d_number
                dg_pass2 = -2
                sub_find_close_twin
            endi
        endi
        dift d_true <> 1
            'do not have 5TP39
            $inp s_any, "not 5TP39= " + s_number
            $ift s_any = "*": dinc d_loop
        else
            'have 5TP39
            dinc d_count

            s_factors = sg_nothing
            dift d_ypivcom = 1
                d_dot = d_number + 19 \ 210
                dfac d_any, d_dot
                $app s_factors, ",pfac=" + d_any
            endi

            s_out = d_count + ". 5TP39= " + s_number
            $app s_out, " secs= " + d_seconds
            $app s_out, " " + s_factors
            $out s_out

            'small gap
            dift d_smallgap > 0
                d_diff = d_number - d_1hold
                dift d_diff < d_smallgap
                    ded$ s_any, d_number,0 ,0
                    ded$ s_dot, d_1hold, 0, 0
                    ded$ s_tap, d_diff, 0, 0
                    s_out = "small gap: " + s_any
                    $app s_out, ", " + s_dot
                    $app s_out, " of " + s_tap
                    $inp s_any, s_out
                endi
            endi

            'large gap
            dift d_largegap > 0
                d_diff = d_number - d_1hold
                dift d_diff > d_largegap
                    ded$ s_any, d_1hold, 0, 0
                    $out "large gap: " + s_any

                    ded$ s_any, d_number,0 ,0
                    $out "large gap: " + s_any

                    ded$ s_any, d_diff, 0, 0
                    $out "diff: " + s_any

                    $inp s_any, "more"
                    $ift s_any = "*": dinc d_loop
                endi
            endi

            '3cluster
            dift d_3cluster > 0
                d_diff = d_number - d_2hold
                dift d_diff < d_3cluster
                    ded$ s_any, d_2hold, 0, 0
                    $out "3cluster=" + s_any

                    ded$ s_any, d_1hold, 0, 0
                    $out "3cluster=" + s_any

                    ded$ s_any, d_number, 0, 0
                    $out "3cluster=" + s_any

                    ded$ s_any, d_diff, 0, 0
                    $out "difference=" + s_any

                    $inp s_any, "3cluster, * to end"
                    $ift s_any = "*": dinc d_loop
                endi
            endi

            d_2hold = d_1hold
            d_1hold = d_number
        endi
    endi
endw

$inp s_any, "count=" + d_count
ends sub_5tp39_validate_in_a_file


subr sub_5tp39_rolling_test_primes
'updated 2007/07/08, 2007/07/07, 2007/07/06
vari d_any, s_any, d_dot, s_dot, s_out
vari d_process, d_yes, s_bads, s_goods
vari d_num, d_mod, d_test, d_count1, d_count2
vari d_p11, d_p13, d_p17, d_p19, d_p29
vari d_p31, d_p41, d_p43, d_p47, d_p49

'71,525,244,611 is the third 5tp39
d_p11 = 71525244611
d_p13 = d_p11 + 2
d_p17 = d_p11 + 6
d_p19 = d_p11 + 8
d_p29 = d_p11 + 18
d_p31 = d_p11 + 20
d_p41 = d_p11 + 30
d_p43 = d_p11 + 32
d_p47 = d_p11 + 36
d_p49 = d_p11 + 38

d_process = 1
dift d_process = 1
    $inp s_any, "enter test number ie. 17, 19"
    $ift s_any = "*": dinc d_process
    $isd d_any, s_any
    dift d_any = 1: $tod d_num, s_any
endi
s_bads = sg_nothing
s_goods = sg_nothing

dift d_process = 1
    d_mod = 0
    dwhi d_mod < d_num
        d_test = d_p49 - d_mod
        d_yes = 1
        dift d_mod = 0: dinc d_yes
        dift d_test = d_p11: dinc d_yes
        dift d_test = d_p13: dinc d_yes
        dift d_test = d_p17: dinc d_yes
        dift d_test = d_p19: dinc d_yes
        dift d_test = d_p29: dinc d_yes
        dift d_test = d_p31: dinc d_yes
        dift d_test = d_p41: dinc d_yes
        dift d_test = d_p43: dinc d_yes
        dift d_test = d_p47: dinc d_yes
        dift d_test = d_p49: dinc d_yes

        d_test = d_test - d_num
        dift d_test = d_p11: dinc d_yes
        dift d_test = d_p13: dinc d_yes
        dift d_test = d_p17: dinc d_yes
        dift d_test = d_p19: dinc d_yes
        dift d_test = d_p29: dinc d_yes
        dift d_test = d_p31: dinc d_yes
        dift d_test = d_p41: dinc d_yes
        dift d_test = d_p43: dinc d_yes
        dift d_test = d_p47: dinc d_yes
        dift d_test = d_p49: dinc d_yes

        d_test = d_test - d_num
        dift d_test = d_p11: dinc d_yes
        dift d_test = d_p13: dinc d_yes
        dift d_test = d_p17: dinc d_yes
        dift d_test = d_p19: dinc d_yes
        dift d_test = d_p29: dinc d_yes
        dift d_test = d_p31: dinc d_yes
        dift d_test = d_p41: dinc d_yes
        dift d_test = d_p43: dinc d_yes
        dift d_test = d_p47: dinc d_yes
        dift d_test = d_p49: dinc d_yes

        d_test = d_test - d_num
        dift d_test = d_p11: dinc d_yes
        dift d_test = d_p13: dinc d_yes
        dift d_test = d_p17: dinc d_yes
        dift d_test = d_p19: dinc d_yes
        dift d_test = d_p29: dinc d_yes
        dift d_test = d_p31: dinc d_yes
        dift d_test = d_p41: dinc d_yes
        dift d_test = d_p43: dinc d_yes
        dift d_test = d_p47: dinc d_yes
        dift d_test = d_p49: dinc d_yes

        dift d_yes = 1: $app s_goods, d_mod + " "
        dift d_yes <> 1: $app s_bads, d_mod + " "

        s_out = "number=" + d_num + " mod=" + d_mod + " result="
        dift d_yes = 1: $app s_out, " yes"
        dift d_yes <> 1: $app s_out, " no"
        $out s_out

        dift d_yes = 1: dinc d_count1
        dift d_yes <> 1: dinc d_count2
        dinc d_mod
        'dg_pass1 = d_mod
        'sub_next_prime
        'd_mod = dg_pass1
    endw
endi

$out "bad mods=" + s_bads
$out "good mods=" + s_goods

dpow d_any, 10, 15
d_any = d_any % d_num
$out "10^15%" + d_num + "=" + d_any

$inp s_any, "done, yes=" + d_count1 + " no=" + d_count2
ends sub_5tp39_rolling_test_primes


subr sub_next_prime
'updated 2007/07/06
vari d_any, s_any, d_dot, s_dot, s_out
vari d_number, d_loop

d_number = dg_pass1 + 1

d_any = d_number % 2
dift d_any = 0: dinc d_number

d_loop = 1
dwhi d_loop = 1
    dfac d_any, d_number
    dift d_any = 1
        dinc d_loop
    else
        d_number = d_number + 2
    endi
endw

dg_pass1 = d_number
ends sub_next_prime


subr sub_find_close_twin
'updated 2006/04/05, 2006/03/08, 2006/03/07
vari d_any, s_any, d_dot, s_dot, s_out
vari d_number0, d_number1, d_number2, d_factor
vari s_number0, d_loop, d_delta, d_2delta

d_number0 = dg_pass1

d_delta = dg_pass2
dift d_delta <> -2: d_delta = 2
d_2delta = 2 * d_delta

d_number1 = d_number0 + d_delta

d_loop = 1
dwhi d_loop = 1
    'find the first twin from a number
    dfac d_factor, d_number1

    dift d_factor = 1
        d_number2 = d_number1 + d_delta

        dfac d_factor, d_number2
        dift d_factor = 1
            'we have a prime twin
            ded$ s_number0, d_number0, 0, 0
            ded$ s_any, d_number1, 0, 0
            d_any = d_number1 - d_number0
            s_out = "5TP39=" + s_number0 + ", twin="
            $app s_out, s_any + ", diff=" + d_any
            $out s_out

            fapp d_any, "twins.txt", s_out
            dbad d_any = 0

            dinc d_loop
        else
            d_number1 = d_number1 + d_2delta
        endi
    else
        dift d_factor = 2: dinc d_loop
        d_number1 = d_number1 + d_delta
    endi

    'no use going too far
    d_any = d_number1 - d_number0
    dabs d_any, d_any
    dift d_any > 23: dinc d_loop
endw
ends sub_find_close_twin


subr sub_5tp39_factors
'updated 2005/05/02
'factors of dg_pass1 into sg_pass1
vari d_any, s_any, d_dot, s_dot
vari d_number, d_factor, s_result
vari d_good, d_loop

d_number = dg_pass1 / 210
s_result = sg_nothing

d_loop = 1
dwhi d_loop = 1
    dfac d_factor, d_number
    $app s_result, "," + d_factor

    dift d_factor > 1
        d_number = d_number / d_factor
    else
        dinc d_loop
    endi
endw
sg_pass1 = s_result
ends sub_5tp39_pivcom_factors


subr sub_5tp39_test
'updated 2005/03/06
vari d_any, s_any, d_dot, s_dot
vari d_number, d_good, d_seconds

dsec d_seconds

'11,13,17,19,29,31,41,43,47,49
d_number = dg_pass1
dfac d_good, d_number

d_any = d_number + 2
dift d_good = 1: dfac d_good, d_any

d_any = d_number + 6
dift d_good = 1: dfac d_good, d_any

d_any = d_number + 8
dift d_good = 1: dfac d_good, d_any

d_any = d_number + 18
dift d_good = 1: dfac d_good, d_any

d_any = d_number + 20
dift d_good = 1: dfac d_good, d_any

d_any = d_number + 30
dift d_good = 1: dfac d_good, d_any

d_any = d_number + 32
dift d_good = 1: dfac d_good, d_any

d_any = d_number + 36
dift d_good = 1: dfac d_good, d_any

d_any = d_number + 38
dift d_good = 1: dfac d_good, d_any

dsec d_any

dg_pass2 = d_good
dg_pass3 = d_any - d_seconds
ends sub_5tp39_test


subr sub_teaquad_5tp39_test_just_one
'updated 2011/09/26, 2010/09/22
'2010/09/21, 2010/09/20, 2008/12/06, 2007/12/01, 2007/09/06
'2007/02/25, 2006/07/29, 2005/07/23, 2005/05/01, 2005/04/17
'2005/04/14, 2005/03/31, 2005/03/27, 2005/03/18, 2005/03/16
vari d_any, s_any, d_dot, s_dot, s_out
vari d_process, d_loop, d_factor, s_dashline, d_yes, d_count
vari s_number, d_number, d_trynum, s_trynum
vari d_seconds1, d_seconds2, d_seconds3
vari d_teaquadpart, d_teaquadmult
vari d_tryteaquadpart, d_tryteaquadmult

'get current subroutine name
$sys s_any, 2
$out s_any

$ch$ s_dashline, "-", 64
d_process = 1

d_loop = d_process
dwhi d_loop = 1
    $out s_dashline
    $out sg_interpreter + " " + sg_path
    $out sg_build + " " + sg_loadprog

    $out s_dashline
    $out "1. 5TP39= 39,713,433,671"
    $out "2. 5TP39= 1,943,372,747,435,261"
    $out "3. 5TP39= 1,943,381,207,047,331"
    $out "4. 5TP39= 13,069,672,451,845,151"
    $out "5. 5TP39= 99,996,530,453,619,851"
    $out "21. 5TP39= 10,002,000,099,161,786,921"
    $out "22. 5TP39= 10,100,000,529,838,983,521"
    $out "23. 5TP39= 10,032,000,455,857,149,821"
    $out "24. 5TP39= 10,115,000,189,145,972,941"
    $out "25. 5TP39= 10,138,000,036,268,087,741"
    $out "50. 5TP39= 10,999,970,611,232,206,361"
    $inp s_number, "enter the first number of a 5TP39"
    $ift s_number = "*"
        dinc d_loop
        dinc d_process
    endi
    $ift s_number = "1": s_number = "39,713,433,671"
    $ift s_number = "2": s_number = "1,943,372,747,435,261"
    $ift s_number = "3": s_number = "1,943,381,207,047,331"
    $ift s_number = "4": s_number = "13,069,672,451,845,151"
    $ift s_number = "5": s_number = "99,996,530,453,619,851"
    $ift s_number = "21": s_number = "10,002,000,099,161,786,921"
    $ift s_number = "22": s_number = "10,100,000,529,838,983,521"
    $ift s_number = "23": s_number = "10,032,000,455,857,149,821"
    $ift s_number = "24": s_number = "10,115,000,189,145,972,941"
    $ift s_number = "25": s_number = "10,138,000,036,268,087,741"
    $ift s_number = "50": s_number = "10,999,970,611,232,206,361"
    dift d_process = 1
        $out s_dashline
        $out s_number
        sg_pass1 = s_number
        sub_teaquad_from_string
        d_teaquadpart = dg_pass1
        d_teaquadmult = dg_pass2

        ded$ s_any, d_teaquadpart, 0, 0
        $out "d_teaquadpart=" + s_any

        ded$ s_any, d_teaquadmult, 0, 0
        $out "d_teaquadmult=" + s_any

        $out s_dashline

        $out sg_interpreter
        $out sg_build + " " + sg_loadprog
        $out sg_path

        $out s_dashline
    endi

    dift d_process = 1
        d_count = 0
        d_yes = 1

        dsec d_seconds1

        '11,13
        dinc d_count
        d_tryteaquadpart = d_teaquadpart
        d_tryteaquadmult = d_teaquadmult
        dg_pass1 = d_tryteaquadpart
        dg_pass2 = d_tryteaquadmult
        sub_teaquad_to_string
        s_trynum = d_count + "=" + " " + sg_pass1

        dsec d_seconds2
        dduo d_factor, d_tryteaquadpart, d_tryteaquadmult
        dsec d_seconds3

        dift d_factor = 1
            s_out = "prime duo " + s_trynum
        else
            ded$ s_any, d_factor, 0, 0
            s_out = "not prime duo factor=" + s_any
            $app s_out, " " + s_trynum
            dinc d_yes
        endi
        d_seconds3 = d_seconds3 - d_seconds2
        ded$ s_any, d_seconds3, 7, 3
        $out "sec=" + s_any + " " + s_out

        '17,19
        dinc d_count
        d_tryteaquadpart = d_teaquadpart + 6
        d_tryteaquadmult = d_teaquadmult
        dg_pass1 = d_tryteaquadpart
        dg_pass2 = d_tryteaquadmult
        sub_teaquad_to_string
        s_trynum = d_count + "=" + " " + sg_pass1

        dsec d_seconds2
        dduo d_factor, d_tryteaquadpart, d_tryteaquadmult
        dsec d_seconds3

        dift d_factor = 1
            s_out = "prime duo " + s_trynum
        else
            ded$ s_any, d_factor, 0, 0
            s_out = "not prime duo factor=" + s_any
            $app s_out, " " + s_trynum
            dinc d_yes
        endi
        d_seconds3 = d_seconds3 - d_seconds2
        ded$ s_any, d_seconds3, 7, 3
        $out "sec=" + s_any + " " + s_out

        '29,31
        dinc d_count
        d_tryteaquadpart = d_teaquadpart + 18
        d_tryteaquadmult = d_teaquadmult
        dg_pass1 = d_tryteaquadpart
        dg_pass2 = d_tryteaquadmult
        sub_teaquad_to_string
        s_trynum = d_count + "=" + " " + sg_pass1

        dsec d_seconds2
        dduo d_factor, d_tryteaquadpart, d_tryteaquadmult
        dsec d_seconds3

        dift d_factor = 1
            s_out = "prime duo " + s_trynum
        else
            ded$ s_any, d_factor, 0, 0
            s_out = "not prime duo factor=" + s_any
            $app s_out, " " + s_trynum
            dinc d_yes
        endi
        d_seconds3 = d_seconds3 - d_seconds2
        ded$ s_any, d_seconds3, 7, 3
        $out "sec=" + s_any + " " + s_out

        '41,43
        dinc d_count
        d_tryteaquadpart = d_teaquadpart + 30
        d_tryteaquadmult = d_teaquadmult
        dg_pass1 = d_tryteaquadpart
        dg_pass2 = d_tryteaquadmult
        sub_teaquad_to_string
        s_trynum = d_count + "=" + " " + sg_pass1

        dsec d_seconds2
        dduo d_factor, d_tryteaquadpart, d_tryteaquadmult
        dsec d_seconds3

        dift d_factor = 1
            s_out = "prime duo " + s_trynum
        else
            ded$ s_any, d_factor, 0, 0
            s_out = "not prime duo factor=" + s_any
            $app s_out, " " + s_trynum
            dinc d_yes
        endi
        d_seconds3 = d_seconds3 - d_seconds2
        ded$ s_any, d_seconds3, 7, 3
        $out "sec=" + s_any + " " + s_out

        '47,49
        dinc d_count
        d_tryteaquadpart = d_teaquadpart + 36
        d_tryteaquadmult = d_teaquadmult
        dg_pass1 = d_tryteaquadpart
        dg_pass2 = d_tryteaquadmult
        sub_teaquad_to_string
        s_trynum = d_count + "=" + " " + sg_pass1

        dsec d_seconds2
        dduo d_factor, d_tryteaquadpart, d_tryteaquadmult
        dsec d_seconds3

        dift d_factor = 1
            s_out = "prime duo " + s_trynum
        else
            ded$ s_any, d_factor, 0, 0
            s_out = "not prime duo factor=" + s_any
            $app s_out, " " + s_trynum
            dinc d_yes
        endi
        d_seconds3 = d_seconds3 - d_seconds2
        ded$ s_any, d_seconds3, 7, 3
        $out "sec=" + s_any + " " + s_out

        dsec d_any
        d_seconds1 = d_any - d_seconds1
        $out s_dashline

        dift d_yes = 1
            s_out = "sec=" + d_seconds1
            $app s_out, " yes, 5TP39, number=" + s_number
            $out s_out
        else
            s_out = "sec=" + d_seconds1
            $app s_out, " not 5TP39, number=" + s_number
            $out s_out
        endi
        $inp s_any, "return"
        $ift s_any = "*": dinc d_loop
    endi
endw
ends sub_teaquad_5tp39_test_just_one


subr sub_floating_point_accuracy
'updated 2005/03/31, 2005/03/29
vari d_any, s_any, d_dot, s_dot
vari d_loop, d_number, s_number, s_hold
vari d_high, d_delta, d_random, d_totrandom
vari d_count, d_jump

'get current subroutine name
$sys s_any, 2
$out s_any

d_totrandom = 0
d_count = 0
dpow d_jump, 10, 5
dpow d_high, 10, 16
dpow d_delta, 10, 13

d_loop = 1
dwhi d_loop = 1
    dran d_random
    d_totrandom = d_totrandom + d_random

    d_number = d_high - d_delta * d_random + d_high - d_delta
    ddec d_delta

    d_any = d_number + 1
    dift d_any = d_number
        dift d_number < d_high: d_high = d_number
    endi

    dinc d_count
    d_any = d_count % d_jump

    dift d_any = 0
        d_any = d_totrandom / d_count

        ded$ s_any, d_count, 0, 0
        ded$ s_dot, d_high, 0, 0

        s_any = s_any + ". " + s_dot
        $app s_any, ", averan=" + d_any
        $app s_any, ", random=" + d_random
        $out s_any
    endi
endw
ends sub_floating_point_accuracy


subr sub_speed
'updated 2005/03/31, 2005/02/26, 2004/12/03
'speed test
vari d_any, s_any, d_dot, s_dot
vari d_time, d_max, d_count

'get current subroutine name
$sys s_any, 2
$out s_any

dsec d_time

'ten million loop
d_max = 1000 * 1000 * 10
d_count = 0
dwhi d_count < d_max
    dinc d_count
endw
dsec d_any
d_time = d_any - d_time
ded$ s_any, d_count, 0, 0
$out "loops=" + s_any
$inp s_any, "ten million loop, seconds=" + d_time
ends sub_speed


subr sub_floating_point_test
'updated 2009/03/04, 2006/07/19, 2002/10/05
vari d_any, s_any, d_dot, s_dot
vari s_out

dpow d_any, 10, 14
d_any = d_any / 3
ded$ s_out, d_any, 0, 0

s_out = "10E14/3=" + s_out

s_any = "error: floating point: "
$lok d_dot, s_out, 1, "."

dift d_dot > 0
    ddec d_dot
    $cut s_dot, s_out, d_dot, 3
    $ift s_dot = "3.3": s_any = "ok: floating point: "
endi
dsec d_any
$out s_any + s_out + " sec=" + d_any
ends sub_floating_point_test


subr sub_prime_test_using_prime_array
'updated 2011/09/19, 2006/07/29, 2004/01/24
'test dg_pass1>3 for prime, if prime set dg_pass1 to 1
'use the indexed primes in the decimal array
vari d_number, d_try, d_square, d_mod, d_index
vari d_loop, d_result, d_root

d_number = dg_pass1 \ 1
dabs d_number, d_number
dpow d_root, d_number, 0.5
d_index = 1
d_result = 1
d_try = 3
d_loop = 1

dwhi d_loop = 1
    dift d_index <= 20000
        itod d_try, d_index
        dinc d_index
    else
        d_try = d_try + 2
    endi

    dift d_try > d_root
        dinc d_loop
    else
        d_mod = d_number % d_try
        dift d_mod = 0
            d_result = d_try
            dinc d_loop
        endi
    endi
endw
dg_pass1 = d_result
ends sub_prime_test_using_prime_array


subr sub_primes_build_array
'updated 2011/09/19, 2011/09/08, 2004/01/24
'put 20000 primes into the array by index
vari s_any, d_any, d_dot, s_dot, d_tap, s_tap, s_out
vari d_number, d_result, d_index, d_mod1, d_prime

'put 20000 primes in decimal array
dsec d_tap
d_number = 1
d_index = 1
dwhi d_index <= 20000
    'get the lowest factor
    dfac d_mod1, d_number
    dift d_mod1 = 1
        'we have a prime
        dtoi d_index, d_number
        dinc d_index
    endi
    d_number = d_number + 2
endw

dtoi 1, 2
itod d_any, 1
ded$ s_any, d_any, 0, 0
itod d_dot, 20000
ded$ s_dot, d_dot, 0, 0
s_out = "prime array from=" + s_any + " to " + s_dot

$app s_out, " ct=20000"
dsec d_any
d_tap = d_any - d_tap
$out s_out + " sec=" + d_tap
ends sub_primes_build_array


subr sub_prime_test_one_number
'updated 2006/08/04, 2006/07/29, 2004/01/01
'test individual numbers for primeness
vari s_any, d_any, s_dot, d_dot, s_out
vari s_pick, d_pick, s_num1, s_num2
vari d_number, d_loop, d_good, s_xyzedited
vari d_sec1, d_sec2, s_dashline, d_type
vari d_tealines

$out "1=use teapro command dfac"
$out "2=use prime array"
$out "3=use simple prime test"
$inp s_any, "pick"

d_type = 1
$isd d_any, s_any
dift d_any = 1: $tod d_type, s_any

dift d_type = 2: sub_primes_build_array

$ch$ s_dashline, "-", 64

d_loop = 1
dwhi d_loop = 1
    ded$ s_any, dg_xvalue, 0, 0
    s_xyzedited = "x=" + s_any
    ded$ s_any, dg_yvalue, 0, 0
    $app s_xyzedited, ", y=" + s_any
    ded$ s_any, dg_zvalue, 0, 0
    $app s_xyzedited, ", z=" + s_any

    $out s_dashline
    $out " 1.           1,000,000,007"
    $out " 2.       1,000,000,000,039"
    $out " 3.       1,346,294,310,749"
    $out " 4.       7,177,162,611,713"
    $out " 5.      13,829,048,559,701"
    $out " 6.      90,874,329,411,493"
    $out " 7.     100,000,380,000,361 by 10,000,019"
    $out " 8.     570,800,107,412,201"
    $out " 9.     999,999,999,999,947"
    $out "10.     999,999,999,999,989"
    $out "11.   2,000,274,172,370,231"
    $out "12.   2,276,000,138,167,961"
    $out "13.   3,000,058,045,624,691"
    $out "14.   6,000,993,394,600,871"
    $out "15.   9,002,235,408,655,631"
    $out "16.   9,007,196,099,250,001 by 94,906,249"
    $out s_xyzedited
    $out "enter a number above or any number"
    $inp s_pick, "enter a number to test for primeness, * to end"
    $ift s_pick = "*": dinc d_loop

    $tup s_pick, s_pick
    d_pick = 0
    $isd d_any, s_pick
    dift d_any = 1: $tod d_pick, s_pick

    dift d_pick = 1: s_pick = "1,000,000,007"
    dift d_pick = 2: s_pick = "1,000,000,000,039"
    dift d_pick = 3: s_pick = "1,346,294,310,749"
    dift d_pick = 4: s_pick = "7,177,162,611,713"
    dift d_pick = 5: s_pick = "13,829,048,559,701"
    dift d_pick = 6: s_pick = "90,874,329,411,493"
    dift d_pick = 7: s_pick = "100,000,380,000,361"
    dift d_pick = 8: s_pick = "570,800,107,412,201"
    dift d_pick = 9: s_pick = "999,999,999,999,947"
    dift d_pick = 10: s_pick = "999,999,999,999,989"
    dift d_pick = 11: s_pick = "2,000,274,172,370,231"
    dift d_pick = 12: s_pick = "2,276,000,138,167,961"
    dift d_pick = 13: s_pick = "3,000,058,045,624,691"
    dift d_pick = 14: s_pick = "6,000,993,394,600,871"
    dift d_pick = 15: s_pick = "9,002,235,408,655,631"
    dift d_pick = 16: s_pick = "9,007,196,099,250,001"

    $ift s_pick = "X": s_pick = dg_xvalue
    $ift s_pick = "Y": s_pick = dg_yvalue
    $ift s_pick = "Z": s_pick = dg_zvalue

    $isd d_any, s_pick

    dift d_any = 1
        $out s_dashline

        $tod d_number, s_pick
        ded$ s_num1, d_number, 0, 0
        $out s_num1

        'save total lines
        dsys d_tealines, 2

        dsec d_sec1

        dift d_type = 1
            $out "using dfac"
            dfac d_good, d_number
        endi
        dift d_type = 2
            $out "using prime array"
            dg_pass1 = d_number
            sub_prime_test_using_prime_array
            d_good = dg_pass1
        endi
        dift d_type = 3
            $out "using simple"
            dg_pass1 = d_number
            sub_prime_test_simple
            d_good = dg_pass1
        endi

        dsec d_sec2

        'get total lines
        dsys d_any, 2
        d_tealines = d_any - d_tealines
        ded$ s_any, d_tealines, 0, 0
        $out "total lines=" + s_any

        ded$ s_num1, d_number, 0, 0
        ded$ s_num2, d_good, 0, 0

        dift d_good = 1
            $out s_num1 + " is prime"
        else
            $out s_num1 + " is divisible by " + s_num2
        endi

        d_sec1 = d_sec2 - d_sec1
        $out "seconds = " + d_sec1
        $inp s_any, "return to continue"
        $ift s_any = "*": dinc d_loop
    endi
endw
ends sub_prime_test_one_number


subr sub_prime_numbers
'updated 2010/04/02, 2006/04/10, 2005/02/12, 2005/02/01, 2004/12/03
'find prime numbers
vari d_any, s_any, d_dot, s_dot, s_out
vari d_nowprime, s_nowprime, d_olderprime, d_process
vari d_begnumber, d_tofindct, d_count, d_stopnumber
vari d_ctdiff, d_nowdiff, d_maxdiff, d_thisdiff
vari d_yesprime, d_mod, d_yesdfac, d_yesbiggernumbers
vari d_average, d_avetotal, d_shownumber, d_shownotprime
vari d_showonlynewdiff, d_diffprime, d_teaquadone
vari d_time1, d_time2, d_loop, d_totprimes
vari d_tellseconds, d_seconds, d_yesfileout, s_fileout

d_teaquadone = 10 ^ 15

d_process = 1
dift d_process = 1
    'get an output file name
    dran d_any
    dpow d_dot, 99999, 2
    d_any = d_dot * d_any \ 1

    s_fileout = "P" + d_any
    $cut s_fileout, s_fileout, 1, 8
    $app s_fileout, ".txt"

    $inp s_any, "1 = use teapro command DFAC"
    $ift s_any = "*": dinc d_process
    d_yesdfac = 2
    $ift s_any = "1": d_yesdfac = 1
endi
dift d_process = 1
    $inp s_any, "1 = output results to file = " + s_fileout
    $ift s_any = "*": dinc d_process
    d_yesfileout = 2
    $ift s_any = "1": d_yesfileout = 1
endi
dift d_process = 1
    d_yesbiggernumbers = 1
    $inp s_any, "1 = decrease numbers otherwise increase"
    $ift s_any = "*": dinc d_process
    $ift s_any = "1": dinc d_yesbiggernumbers
endi
dift d_process = 1
    $out "finding prime numbers"
    $out "the number to begin with, return=1"
    s_dot = "12345678901234567890"
    $inp s_any, s_dot
    $ift s_any = "*": dinc d_process
    $isd d_any, s_any
    d_begnumber = 1
    dift d_any = 1: $tod d_begnumber, s_any
endi
dift d_process = 1
    $out "enter number to stop at, return=1E16 or 1"
    $inp s_any, s_dot
    $ift s_any = "*": dinc d_process
    $isd d_any, s_any
    dift d_yesbiggernumbers = 1
        dpow d_stopnumber, 10, 16
    else
        d_stopnumber = 1
    endi
    dift d_any = 1: $tod d_stopnumber, s_any
    ded$ s_any, d_stopnumber, 0, 0
    $out "stop number=" + s_any

    'add 1 if number is not odd
    d_any = d_begnumber % 2
    $out d_begnumber + " % 2 = " + d_any
    dift d_any = 0: dinc d_begnumber

    ded$ s_any, d_begnumber, 0, 0
    $out "starting with=" + s_any
    d_diffprime = d_begnumber
endi
dift d_process = 1
    $inp s_any, "enter number to find, return=1E16"
    $ift s_any = "*": dinc d_process
    $isd d_any, s_any
    dpow d_tofindct, 10, 16
    dift d_any = 1: $tod d_tofindct, s_any
    ded$ s_any, d_tofindct, 0, 0
    $out "number to find=" + s_any
endi
dift d_process = 1
    $inp s_any, "1=show only greater differences"
    $ift s_any = "*": dinc d_process
    d_showonlynewdiff = 2
    $ift s_any = "1": d_showonlynewdiff = 1

    d_shownumber = 2
endi
dift d_process = 1
    $inp s_any, "1=show number being considered"
    $ift s_any = "*": dinc d_process
    $ift s_any = "1": d_shownumber = 1
endi
dift d_process = 1
    d_shownotprime = 2
    $inp s_any, "1=show not primes and divisors"
    $ift s_any = "*": dinc d_process
    $ift s_any = "1": d_shownotprime = 1

    'build the decimal array to hold the first 2000 primes
    dift d_yesdfac <> 1: sub_primes_build_array
endi

'initialize count
d_count = 0

'previous prime
dsec d_time1
d_totprimes = 0
d_olderprime = 0
d_nowdiff = 1
d_maxdiff = 0
d_nowprime = d_begnumber
d_ctdiff = 0
d_loop = d_process

'go until we have found count nfind
dwhi d_loop = 1
    dift d_shownumber = 1
        ded$ s_any, d_nowprime, 0, 0
        $sho s_any
    endi

    dift d_yesdfac = 1
        dfac d_yesprime, d_nowprime
    else
        'is d_nowprime a prime
        dg_pass1 = d_nowprime
        sub_prime_test_using_prime_array
        d_yesprime = dg_pass1
    endi

    dift d_shownotprime = 1
        dift d_yesprime > 1
            ded$ s_any, d_nowprime, 0, 0
            ded$ s_dot, d_yesprime, 0, 0
            $out "not=" + s_any + ", divisor=" + s_dot
        endi
    endi

    'if d_yesprime is 1 then we have a prime
    dift d_yesprime = 1
        d_totprimes = d_totprimes + d_nowprime
        ded$ s_nowprime, d_nowprime, 0, 0

        'previous prime find difference
        dift d_olderprime > 0
            d_nowdiff = d_nowprime - d_olderprime
            dabs d_nowdiff, d_nowdiff

            dift d_nowdiff > d_maxdiff
                d_diffprime = d_olderprime
                d_maxdiff = d_nowdiff
                dift d_showonlynewdiff = 1
                    s_out = d_count + ". " + s_nowprime

                    ded$ s_any, d_maxdiff, 0, 0
                    $app s_out, ", maximum gap=" + s_any

                    $out s_out
                endi
            endi

            'averaging of the difference
            dinc d_ctdiff
            d_thisdiff = d_nowdiff
            d_avetotal = d_avetotal + d_thisdiff
            d_average = d_avetotal / d_ctdiff
            drou d_average, d_average
        endi

        'increment count d_count
        dinc d_count

        dift d_showonlynewdiff <> 1
            d_dot = d_teaquadone % d_nowprime

            s_out = d_count + ". " + s_nowprime

            dto$ s_any, d_thisdiff, 3, 0
            $app s_out, " diff=" + s_any
            $app s_out, " max=" + d_maxdiff

            ded$ s_any, d_diffprime, 0, 0
            $app s_out, " at=" + s_any + " ave="
            $app s_out, d_average
            $app s_out, " E15 mod=" + d_dot

            $out s_out
            dift d_yesfileout = 1
                fapp d_any, s_fileout, s_out
                dbad d_any = 0
            endi
        else
            'd_showonlynewdiff = 1 here
            dsec d_time2
            d_any = d_time2 - d_time1
            dift d_any > 5
                d_time1 = d_time2
                $sho "finding primes=" + s_nowprime
            endi
        endi

        'save for previous prime
        d_olderprime = d_nowprime
    endi

    'increment by two for the next try at finding a prime
    dift d_yesbiggernumbers = 1
        d_nowprime = d_nowprime + 2
        dift d_nowprime > d_stopnumber: dinc d_loop
    else
        d_nowprime = d_nowprime - 2
        dift d_nowprime < d_stopnumber: dinc d_loop
    endi
    dift d_count >= d_tofindct: dinc d_loop
endw

dsec d_time2
d_any = d_time2 - d_time1
$out "seconds=" + d_any

ded$ s_any, d_diffprime, 0, 0
$out "max diff=" + d_maxdiff + ", at=" + s_any

ded$ s_any, d_totprimes, 0, 0
$out "total of primes=" + s_any
$inp s_any, "return"
ends sub_prime_numbers


subr sub_teaquad_prime_quads_dduo
'updated 2010/11/08, 2008/12/12, 2007/03/06, 2004/10/21
'find prime number quads
vari d_any, s_any, d_dot, s_dot, s_out
vari d_good, s_fileout, d_tofile, d_process
vari d_teaquadpart, d_teaquadmult
vari d_tofindct, s_input, d_factor, s_number
vari d_count, d_loop, s_date

d_process = 1
dift d_process = 1
    s_fileout = "primquad.txt"
    d_tofile = 2
    $inp s_any, "1=output to file=" + s_fileout
    $ift s_any = "*": dinc d_process
    $ift s_any = "1": d_tofile = 1
endi
dift d_process = 1
    $out "finding prime number quads using dduo"
    $out "enter the number to begin with"
    $inp s_input, "123456789012345678901"
    $ift s_input = "*": dinc d_process
endi
dift d_process = 1
    dpow d_tofindct, 10, 5
    $inp s_any, "How many, default=99999"
    $ift s_any = "*": dinc d_process
    $isd d_any, s_any
    dift d_any = 1 :$tod d_tofindct, s_any
endi
dift d_process = 1
    sg_pass1 = s_input
    sub_teaquad_from_string
    d_teaquadpart = dg_pass1
    d_teaquadmult = dg_pass2
endi
dift d_process = 1
    'make sure number ends in 1
    d_teaquadpart = d_teaquadpart \ 10 * 10 + 1

    'do we need to adjust so that (num-11)%30=0
    dg_pass1 = d_teaquadpart - 11
    dg_pass2 = d_teaquadmult
    dg_pass3 = 30
    sub_teaquad_mod_op
    d_dot = dg_pass1
    d_teaquadpart = d_teaquadpart - d_dot

    ded$ s_any, d_teaquadpart, 0, 0
    $out "d_teaquadpart=" + s_any
    ded$ s_any, d_teaquadmult, 0, 0
    $out "d_teaquadmult=" + s_any

    $out "the following numbers each begin a prime quad"
endi

d_count = 0
d_loop = d_process

dwhi d_loop = 1
    dduo d_factor, d_teaquadpart, d_teaquadmult

    d_any = d_teaquadpart + 6
    dift d_factor = 1: dduo d_factor, d_any, d_teaquadmult

    dift d_factor = 1
        'we have a new prime quad
        dinc d_count

        dg_pass1 = d_teaquadpart
        dg_pass2 = d_teaquadmult
        sub_teaquad_to_string
        s_number = sg_pass1

        $dat s_date
        $cut s_date, s_date, 1, 20

        s_out = d_count + "." + " " + s_number
        $app s_out, " " + s_date
        $out s_out

        dift d_tofile = 1
            fapp d_any, s_fileout, s_out
            dbad d_any = 0
        endi
    endi
    d_teaquadpart = d_teaquadpart + 30
    dift d_count >= d_tofindct: dinc d_loop
endw
$inp s_any, "return"
ends sub_teaquad_prime_quads_dduo


subr sub_teaquad_mod_op
'updated 2007/03/06
vari d_any, d_dot
vari d_teaquadpart, d_teaquadmult, d_teaquadone
vari d_modulus, d_divisor

d_teaquadpart = dg_pass1
d_teaquadmult = dg_pass2
d_divisor = dg_pass3

dpow d_teaquadone, 10, 15
d_any = d_teaquadpart % d_divisor
d_dot = d_teaquadone % d_divisor * d_teaquadmult
d_modulus = d_any + d_dot % d_divisor

dg_pass1 = d_modulus
ends sub_teaquad_mod_op


subr sub_big_pnq30s
'updated 2004/10/21
'find big prime quads
vari d_any, s_any, d_dot, s_dot, s_out
vari d_good, d_fileout, d_tofindct
vari d_begin, d_count, d_loop, d_minimumtoshow, d_ynmindecline
vari d_quadroot, s_quadroot, d_quaddiff, d_primetest
vari d_quadold, s_quadold, d_quadnew, s_quadnew
vari s_num1, s_num2, s_num3, s_num4

d_fileout = 2
$inp s_any, "1 = output to file = " + sg_fileout
$ift s_any = "1": d_fileout = 1

d_ynmindecline = 2
dpow d_minimumtoshow, 10, 9
$inp s_any, "enter minimum quad difference to show, 0=declining"
$isd d_any, s_any
dift d_any = 1: $tod d_minimumtoshow, s_any
dift d_minimumtoshow = 0
    d_ynmindecline = 1
    dpow d_minimumtoshow, 10, 20
endi

$out "finding prime number quads"
$out "enter the number to begin with"
$inp s_any, "12345678901234567890123456789"
$tod d_begin, s_any

'make sure number ends in 1
d_begin = d_begin \ 10 * 10 + 1

ded$ s_any, d_begin, 0, 0
$out "starting with=" + s_any

dpow d_tofindct, 10, 9
$inp s_any, "How many to find, hit return for a billion"
$isd d_any, s_any
dift d_any = 1: $tod d_tofindct, s_any

ded$ s_any, d_tofindct, 0, 0
$out "number to find=" + s_any

'output beginning numbers to file
ded$ s_num1, d_begin, 0, 0
ded$ s_num2, d_tofindct, 0, 0
$dat s_num3
s_out = s_num3 + ", begin = " + s_num1 + " for " + s_num2
dift d_fileout = 1
    fapp d_any, sg_fileout, s_out
    dbad d_any = 0
endi

d_count = 0
d_quaddiff = 0

'old and new quad
d_quadold = 0
d_quadnew = 0

d_primetest = d_begin
d_loop = 1

'go until we have found count d_tofindct
dwhi d_loop = 1
    d_good = 2

    dfac d_good, d_primetest

    dift d_good = 1

        'is d_primetest + 2 a prime
        d_any = d_primetest + 2
        dfac d_good, d_any

        dift d_good = 1
            ded$ s_num1, d_primetest, 0, 0
            ded$ s_num2, d_quaddiff, 0, 0
            s_out = "prime twin=" + s_num1
            $app s_out, ", last quad=" + s_quadnew
            $app s_out, ", diff=" + s_num2
            $sho s_out

            'is d_primetest + 6 a prime
            d_any = d_primetest + 6
            dfac d_good, d_any

            dift d_good = 1
                'is d_primetest + 8 a prime
                d_any = d_primetest + 8
                dfac d_good, d_any
            endi
        endi
    endi
    dift d_good = 1
        'we have a new prime quad
        dinc d_count
        d_quadold = d_quadnew
        d_quadnew = d_primetest

        ded$ s_quadnew, d_quadnew, 0, 0

        'get the quad root
        dpow d_any, d_quadnew, 0.5
        d_quadroot = d_any \ 1
        ded$ s_quadroot, d_quadroot, 0, 0

        'last difference
        d_quaddiff = d_quadnew - d_quadold
        dift d_quaddiff < 0: d_quaddiff = - d_quaddiff

        dift d_count = 1: dpow d_quaddiff, 10, 16

        dift d_quaddiff <= d_minimumtoshow
            dift d_ynmindecline = 1: d_minimumtoshow = d_quaddiff

            ded$ s_num1, d_quaddiff, 0, 0
            ded$ s_num2, d_quadold, 0, 0
            d_any = d_quadold + 8
            ded$ s_num3, d_any, 0, 0

            'we are show the just found quad
            s_out = d_count + ". " + s_num1 + ", "
            $app s_out, s_num2 + " / " + s_num3
            dift d_fileout = 1: $app s_out, ", " + sg_fileout

            $out s_out
        endi

        'output to file if small
        d_any = d_quadroot / 16
        dift d_quaddiff < d_any
            d_dot = d_quadold

            ded$ s_num1, d_quaddiff, 0, 0
            ded$ s_num2, d_dot, 0, 0
            d_any = d_dot + 8
            ded$ s_num3, d_any, 0, 0

            'build up the record
            $dat s_any
            s_out = d_count + ". " + s_num1 + " at " + s_num2
            $app s_out, " / " + s_num3 + " " + s_any

            dift d_fileout = 1
                fapp d_any, sg_fileout, s_out
                dbad d_any = 0
            endi
        endi
    endi

    'increment by 10 or 30 for the next try at finding a quad prime
    dift d_count < 2
        d_primetest = d_primetest + 10
    else
        d_primetest = d_primetest + 30
    endi
    dift d_count >= d_tofindct: dinc d_loop
endw
$inp s_any, "return"
ends sub_big_pnq30s


subr sub_pnq30_by_210
'updated 2004/10/21
'find pnq30s by jumping 210
vari d_any, s_any, d_dot, s_dot, s_out
vari d_good, d_fileout, s_date, s_hournew, s_hourold
vari d_begin, d_count, d_loop, d_delta
vari d_primetest, d_first
vari d_perhrpnq30, s_perhr

$rep sg_fileout, 1, "Q"

d_fileout = 2
$inp s_any, "1 = output to file = " + sg_fileout
$ift s_any = "1": d_fileout = 1

d_delta = 210
$inp s_any, "1 = decreasing numbers"
$ift s_any = "1": d_delta = - 210

$out "finding PNQ30s by 210"
$out "enter the number to begin with"

d_begin = 1
$inp s_any, "12345678901234567890123456789"
$isd d_any, s_any
dift d_any = 1: $tod d_begin, s_any

'is d_begin of the form 210 * n + d_first where n is an integer
'find n into d_any
$tod d_first, "1006301"
d_any = d_begin - d_first \ 210
ded$ s_any, d_any, 0, 0
$out "n=" + s_any

'find the place to begin
d_begin = d_any * 210 + d_first

'output beginning numbers to file
$dat s_date
ded$ s_any, d_begin, 0, 0
s_out = "begin = " + s_any + " " + s_date
$out s_out
dift d_fileout = 1
    fapp d_any, sg_fileout, s_out
    dbad d_any = 0
endi

s_hourold = "x"
d_perhrpnq30 = 0

d_count = 0
d_primetest = d_begin
d_loop = 1

'go until we stop
dwhi d_loop = 1
    dfac d_good, d_primetest

    dift d_good = 1
        'is d_primetest + 2 a prime
        d_any = d_primetest + 2
        dfac d_good, d_any

        dift d_good = 1
            'is d_primetest + 6 a prime
            d_any = d_primetest + 6
            dfac d_good, d_any

            dift d_good = 1
                'is d_primetest + 8 a prime
                d_any = d_primetest + 8
                dfac d_good, d_any

                dift d_good = 1

                    'we have a prime quadruplet
                    '12345678901234567890123456789012345
                    '17-DEC-2002 03:56:22 20021217035622
                    $dat s_date

                    'get the hour for below
                    $cut s_hournew, s_date, 13, 2

                    $ift s_hournew <> s_hourold
                        'get perhr change
                        d_any = d_primetest - d_perhrpnq30
                        dabs d_any, d_any
                        ded$ s_perhr, d_any, 0, 0

                        d_perhrpnq30 = d_primetest
                    endi

                    $cut s_date, s_date, 1, 20
                    ded$ s_any, d_primetest, 0, 0
                    s_out = "quad=" + s_any
                    $app s_out, " " + s_date
                    $app s_out, ", pnq30ct=" + d_count
                    $app s_out, ", perhr=" + s_perhr

                    $ift s_hournew <> s_hourold
                        $out s_out
                        s_hourold = s_hournew

                        dift d_fileout = 1
                            fapp d_any, sg_fileout, s_out
                            dbad d_any = 0
                        endi
                    else
                        $sho s_out
                    endi

                    'is d_primetest + 30 a prime
                    d_any = d_primetest + 30
                    dfac d_good, d_any

                    dift d_good = 1
                        'is d_primetest + 32 a prime
                        d_any = d_primetest + 32
                        dfac d_good, d_any

                        dift d_good = 1
                            'is d_primetest + 36 a prime
                            d_any = d_primetest + 36
                            dfac d_good, d_any

                            dift d_good = 1
                                'is d_primetest + 38 a prime
                                d_any = d_primetest + 38
                                dfac d_good, d_any
                                dift d_good = 1
                                    'we have a pnq30
                                    dinc d_count
                                    ded$ s_dot, d_primetest, 0, 0

                                    'show the just found pnq30
                                    $dat s_date
                                    $cut s_date, s_date, 1, 20
s_out = "] PNQ30= " + s_dot + "  " + s_date

                                    $out s_out

                                    'build up the record
                                    dift d_fileout = 1
                                        fapp d_any, sg_fileout, s_out
                                        dbad d_any = 0
                                    endi
                                endi
                            endi
                        endi
                    endi
                endi
            endi
        endi
    endi

    'change by 210
    d_primetest = d_primetest + d_delta
endw
ends sub_pnq30_by_210


subr sub_pnq30_by_pivcom
'updated 2004/10/21
'find pnq30s by pivcom
vari d_any, s_any, d_dot, s_dot, s_out
vari d_good, d_fileout, s_date, s_hournew, s_hourold
vari d_begin, d_count, d_loop, d_delta
vari d_primetest, d_first
vari d_perhrpnq30, s_perhr
vari d_ctpivcom, d_pivcom, d_modulus

$rep sg_fileout, 1, "P"

d_fileout = 2
$inp s_any, "1 = output to file = " + sg_fileout
$ift s_any = "1": d_fileout = 1

d_delta = 1
$inp s_any, "1 = decreasing numbers"
$ift s_any = "1": d_delta = - 1

$out "finding PNQ30s by PIVCOM"
$out "enter the number to begin with"

d_begin = 1
$inp s_any, "12345678901234567890123456789"
$isd d_any, s_any
dift d_any = 1: $tod d_begin, s_any

'find d_pivcom and d_ctpivcom for d_begin
d_ctpivcom = d_begin \ 210
dift d_ctpivcom < 1: d_ctpivcom = 1

$out "d_ctpivcom=" + d_ctpivcom

'find the place to begin
d_begin = d_ctpivcom * 210 - 19

'output beginning numbers to file
$dat s_date
ded$ s_any, d_begin, 0, 0
s_out = "ctpivcom=" + d_ctpivcom
$app s_out, " begin=" + s_any + " " + s_date
$out s_out
dift d_fileout = 1
    fapp d_any, sg_fileout, s_out
    dbad d_any = 0
endi

s_hourold = "x"
d_perhrpnq30 = 0

d_count = 0
d_primetest = d_begin
d_loop = 1

'go until we stop
dwhi d_loop = 1

    'for d_ctpivcom to be good the following must be
    d_modulus = d_ctpivcom % 11 % 3 - 1
    dift d_modulus = 0: d_modulus = d_ctpivcom % 13
    dift d_modulus > 0: d_modulus = d_ctpivcom % 17
    dift d_modulus > 0: d_modulus = d_ctpivcom % 19

    dift d_modulus > 0
        d_primetest = d_ctpivcom * 210 - 19
        dfac d_good, d_primetest
    else
        dinc d_good
    endi

    dift d_good = 1
        'is d_primetest + 2 a prime
        d_any = d_primetest + 2
        dfac d_good, d_any

        dift d_good = 1
            'is d_primetest + 6 a prime
            d_any = d_primetest + 6
            dfac d_good, d_any

            dift d_good = 1
                'is d_primetest + 8 a prime
                d_any = d_primetest + 8
                dfac d_good, d_any

                dift d_good = 1

                    'we have a prime quadruplet
                    '12345678901234567890123456789012345
                    '17-DEC-2002 03:56:22 20021217035622
                    $dat s_date

                    'get the hour for below
                    $cut s_hournew, s_date, 13, 2

                    $ift s_hournew <> s_hourold
                        'get perhr change
                        d_any = d_primetest - d_perhrpnq30
                        dabs d_any, d_any
                        ded$ s_perhr, d_any, 0, 0

                        d_perhrpnq30 = d_primetest
                    endi

                    $cut s_date, s_date, 1, 20
                    ded$ s_any, d_primetest, 0, 0
                    s_out = "quad=" + s_any
                    $app s_out, " " + s_date
                    $app s_out, ", pnq30ct=" + d_count
                    $app s_out, ", perhr=" + s_perhr

                    $ift s_hournew <> s_hourold
                        $out s_out
                        s_hourold = s_hournew

                        dift d_fileout = 1
                            fapp d_any, sg_fileout, s_out
                            dbad d_any = 0
                        endi
                    else
                        $sho s_out
                    endi

                    'is d_primetest + 30 a prime
                    d_any = d_primetest + 30
                    dfac d_good, d_any

                    dift d_good = 1
                        'is d_primetest + 32 a prime
                        d_any = d_primetest + 32
                        dfac d_good, d_any

                        dift d_good = 1
                            'is d_primetest + 36 a prime
                            d_any = d_primetest + 36
                            dfac d_good, d_any

                            dift d_good = 1
                                'is d_primetest + 38 a prime
                                d_any = d_primetest + 38
                                dfac d_good, d_any
                                dift d_good = 1
                                    'we have a pnq30
                                    dinc d_count
                                    ded$ s_dot, d_primetest, 0, 0

                                    'show the just found pnq30
                                    $dat s_date
                                    $cut s_date, s_date, 1, 20
s_out = "] PNQ30= " + s_dot + "  " + s_date

                                    $out s_out

                                    'build up the record
                                    dift d_fileout = 1
                                        fapp d_any, sg_fileout, s_out
                                        dbad d_any = 0
                                    endi
                                endi
                            endi
                        endi
                    endi
                endi
            endi
        endi
    endi

    'increment the count pivcom d_ctpivcom
    d_ctpivcom = d_ctpivcom + d_delta
endw
ends sub_pnq30_by_pivcom


subr sub_pnq30_by_modulus
'updated 2011/09/19
'2011/09/09, 2005/10/23, 2005/10/22, 2005/10/19, 2004/10/21
'find pnq30s by modulus
vari d_any, s_any, d_dot, s_dot, s_out
vari d_good, d_fileout, s_date, s_hournew, s_hourold
vari d_begin, d_loop, d_which
vari s_tfile, s_pfile, d_filebyte, s_record
vari d_primetest, s_primetest, d_first
vari d_perhrpnq30, s_perhr
vari d_pivcom, s_pivcom, d_modulus, s_5tp39
vari d_number, d_index, d_around, d_divisor

'd_which=1 for enter beginning number
'd_which=2 for begin again get number from file
d_which = dg_pass1

s_tfile = "tpnq30.txt"
s_pfile = "ppnq30.txt"

dift d_which = 1
    'enter beginning number
    $out "beginning number"
    $inp s_any, "123456789012345678901"
    d_begin = 99999
    $isd d_any, s_any
    dift d_any = 1: $tod d_begin, s_any
endi

dift d_which = 2
    'get beginning number from file
    d_begin = 0
    d_filebyte = 1
    d_loop = 1
    dwhi d_loop = 1
        fsip s_record, s_tfile, d_filebyte
        dift d_filebyte = 0
            dinc d_loop
        else
            $lok d_any, s_record, 1, " "
            $cut s_any, s_record, 1, d_any
            $trb s_any, s_any
            $isd d_any, s_any
            dift d_any = 1
                $tod d_begin, s_any
                $out s_any
            else
                $out s_record
            endi
        endi
    endw
endi

'the term PIVCOM was invented by Roger Hargrave in 2002
'find d_pivcom for d_begin
d_pivcom = d_begin \ 210 * 210
dift d_pivcom < 210: d_pivcom = 210

ded$ s_pivcom, d_pivcom, 0, 0
$out "d_pivcom=" + s_pivcom

'find the place to begin
d_begin = d_pivcom - 19

'output beginning numbers to file
$dat s_date
$cut s_date, s_date, 1, 20

s_out = "pivcom=" + s_pivcom

ded$ s_any, d_begin, 0, 0
$app s_out, " begin=" + s_any + " " + s_date

$out s_out

fapp d_any, s_tfile, s_out
dbad d_any = 0

'put primes in array
d_number = 11
d_index = 1
dwhi d_index <= 20000
    d_modulus = 99999
    dwhi d_modulus > 1
        dfac d_modulus, d_number
        dift d_modulus > 1: d_number = d_number + 2
    endw
    dtoi d_index, d_number
    d_number = d_number + 2

    dinc d_index
endw

s_hourold = "x"
d_perhrpnq30 = 0

d_primetest = d_begin
d_loop = 1

'go until we stop
dwhi d_loop = 1

    d_number = d_pivcom + 19
    d_index = 1
    d_around = 1
    dwhi d_around = 1
        itod d_divisor, d_index
        d_modulus = d_number % d_divisor

        dift d_modulus = 0: dinc d_around
        dift d_modulus = 2: dinc d_around
        dift d_modulus = 6: dinc d_around
        dift d_modulus = 8: dinc d_around
        dift d_modulus = 30: dinc d_around
        dift d_modulus = 32: dinc d_around
        dift d_modulus = 36: dinc d_around
        dift d_modulus = 38: dinc d_around

        dinc d_index
        dift d_index > 20000: d_around = 99999
    endw

    dift d_around = 99999
        d_primetest = d_pivcom - 19
        dfac d_good, d_primetest
    else
        dinc d_good
    endi

    dift d_good = 1

        'we have a prime
        '12345678901234567890123456789012345
        '17-DEC-2002 03:56:22 20021217035622
        $dat s_date

        'get the hour for below
        $cut s_hournew, s_date, 13, 2

        $ift s_hournew <> s_hourold
            'get perhr change
            d_any = d_primetest - d_perhrpnq30
            dabs d_any, d_any
            ded$ s_perhr, d_any, 0, 0
            s_perhr = " perhr=" + s_perhr

            d_perhrpnq30 = d_primetest
        endi

        $cut s_date, s_date, 1, 20
        ded$ s_any, d_primetest, 0, 0
        s_out = s_any + " " + s_date

        $ift s_hournew <> s_hourold
            $app s_out, s_perhr
            s_hourold = s_hournew
            fapp d_any, s_tfile, s_out
            dbad d_any = 0

            $out s_out
        else
            $sho s_out
        endi

        'is d_primetest + 2 a prime
        d_any = d_primetest + 2
        dfac d_good, d_any

        dift d_good = 1
            'is d_primetest + 6 a prime
            d_any = d_primetest + 6
            dfac d_good, d_any

            dift d_good = 1
                'is d_primetest + 8 a prime
                d_any = d_primetest + 8
                dfac d_good, d_any

                dift d_good = 1


                    'is d_primetest + 30 a prime
                    d_any = d_primetest + 30
                    dfac d_good, d_any

                    dift d_good = 1
                        'is d_primetest + 32 a prime
                        d_any = d_primetest + 32
                        dfac d_good, d_any

                        dift d_good = 1
                            'is d_primetest + 36 a prime
                            d_any = d_primetest + 36
                            dfac d_good, d_any

                            dift d_good = 1
                                'is d_primetest + 38 a prime
                                d_any = d_primetest + 38
                                dfac d_good, d_any
                                dift d_good = 1
                                    'we have a pnq30
                                    'do we have a 5TP39
                                    s_5tp39 = sg_nothing
                                    d_any = d_primetest + 18
                                    dfac d_dot, d_any

                                    dift d_dot = 1
                                        d_any = d_primetest + 20
                                        dfac d_dot, d_any
dift d_dot = 1: s_5tp39 = " 5TP39"
                                    endi

ded$ s_primetest, d_primetest, 0, 0

                                    'show the just found pnq30
                                    $dat s_date
                                    $cut s_date, s_date, 1, 20

                                    s_out = "] 000:PNQ30= "
                                    $app s_out, s_primetest
                                    $app s_out, "  " + s_date
                                    $app s_out, s_5tp39

                                    $out s_out + s_perhr

                                    fapp d_any, s_tfile, s_out
                                    dbad d_any = 0

                                    fapp d_any, s_tfile, s_primetest
                                    dbad d_any = 0

                                    fapp d_any, s_pfile, s_out
                                    dbad d_any = 0
                                endi
                            endi
                        endi
                    endi
                endi
            endi
        endi
    endi

    'increment the pivcom d_pivcom
    d_pivcom = d_pivcom + 210
endw
ends sub_pnq30_by_modulus


subr sub_getgaps_begin_again
'updated 2004/10/21
'get gaps begin again
vari d_any, s_any, d_dot, s_dot, s_out
vari d_oldgap, d_nowgap, d_maxgap, s_date
vari s_fileout, d_filebyte, d_loop, s_record
vari d_nowprime, s_nowprime
vari d_olderprime, s_olderprime, d_yesprime
vari d_time1, d_time2, d_time3, d_timeprime, s_timerate

s_fileout = "gaps01.txt"
d_olderprime = 3
d_maxgap = 0
d_oldgap = 0
d_filebyte = 1
d_loop = 1

$inp s_any, "enter getgaps beginning number or return"
$isd d_any, s_any
dift d_any = 1
    $tod d_olderprime, s_any
    dinc d_loop
endi

dwhi d_loop = 1
    'find the last number in the file to begin with
    fsip s_record, s_fileout, d_filebyte

    dift d_filebyte > 0
        $out s_record

        'get d_maxgap
        $lok d_dot, s_record, 1, "max="
        dift d_dot > 0
            d_dot = d_dot + 4
            $cut s_dot, s_record, d_dot, 9999
            $lok d_dot, s_dot, 1, " "
            dift d_dot > 0
                $cut s_dot, s_dot, 1, d_dot
                $isd d_dot, s_dot
                dift d_dot = 1: $tod d_maxgap, s_dot
            endi
        endi

        'get d_oldgap
        $lok d_dot, s_record, 1, "gap="
        dift d_dot > 0
            d_dot = d_dot + 4
            $cut s_dot, s_record, d_dot, 9999
            $lok d_dot, s_dot, 1, " "
            dift d_dot > 0
                $cut s_dot, s_dot, 1, d_dot
                $isd d_dot, s_dot
                dift d_dot = 1: $tod d_oldgap, s_dot
            endi
        endi

        'get d_olderprime
        $lok d_dot, s_record, 1, "prime="
        dift d_dot > 0
            d_dot = d_dot + 6
            $cut s_dot, s_record, d_dot, 9999
            $trb s_dot, s_dot
            $app s_dot, " "
            $lok d_dot, s_dot, 1, " "
            $cut s_dot, s_dot, 1, d_dot
            $isd d_any, s_dot
            dift d_any = 1: $tod d_olderprime, s_dot
        endi
    else
        dinc d_loop
    endi
endw

'is d_olderprime even
dabs d_olderprime, d_olderprime
d_any = d_olderprime % 2
dift d_any = 0: ddec d_olderprime

ded$ s_olderprime, d_olderprime, 0, 0
s_out = "max=" + d_maxgap
$app s_out, " gap=" + d_oldgap
$app s_out, " begin=" + s_olderprime
$out s_out
fapp d_any, s_fileout, s_out
dbad d_any = 0

d_nowprime = d_olderprime + 2
d_timeprime = d_olderprime
dsec d_time1
d_time3 = d_time1 + 60

'go until we stop
dwhi 1 = 1
    dfac d_yesprime, d_nowprime
    dift d_yesprime = 1

        dsec d_time2
        dift d_time2 > d_time3
            ded$ s_nowprime, d_nowprime, 0, 0

            d_any = d_time2 - d_time1
            d_any = d_nowprime - d_timeprime / d_any * 3600
            ded$ s_any, d_any, 0, 0
            s_timerate = " hr=" + s_any

            s_out = "prime=" + s_nowprime
            $app s_out, " max=" + d_maxgap
            $app s_out, s_timerate
            $sho s_out

            'show progress every 60 seconds
            d_timeprime = d_nowprime
            d_time3 = d_time2 + 60
            d_time1 = d_time2
        endi

        'we have a new d_nowprime
        d_nowgap = d_nowprime - d_olderprime
        dift d_nowgap > d_maxgap: d_maxgap = d_nowgap

        dift d_nowgap > 200
            ded$ s_olderprime, d_olderprime, 0, 0
            $dat s_date
            $cut s_date, s_date, 1, 20
            s_out = "max=" + d_maxgap
            $app s_out, " gap=" + d_nowgap
            $app s_out, " prime= " + s_olderprime
            $app s_out, " " + s_date
            $app s_out, s_timerate
            $out s_out

            fapp d_any, s_fileout, s_out
            dbad d_any = 0
        endi

        d_olderprime = d_nowprime
    endi

    'increment d_nowprime
    d_nowprime = d_nowprime + 2
endw
ends sub_getgaps_begin_again


subr sub_compare_dfac_and_dfak
'updated 2007/09/22
vari d_any, s_any, d_dot, s_dot, s_out
vari d_teaquadpart, d_teaquadone, d_teaquadmult
vari d_dfac, d_dfak
vari d_loop, d_seconds, d_count, d_maxcount
vari d_process, s_number, d_number

d_process = 1
dift d_process = 1
    $inp s_any, "enter number to begin"
    $ift s_any = "*": dinc d_process
    $isd d_any, s_any
    dift d_any = 1: $tod d_number, s_any
endi
dift d_process = 1
    'make sure the number is odd
    d_any = d_number % 2
    dift d_any <> 1: dinc d_number
endi
dift d_process = 1
    $inp s_any, "enter max number to compare"
    $ift s_any = "*": dinc d_process
    $isd d_any, s_any
    d_maxcount = 0
    dift d_any = 1: $tod d_maxcount, s_any
endi

d_count = 0
d_loop = d_process
dwhi d_loop = 1

    dfac d_dfac, d_number
    dfak d_dfak, d_number, 0

    dift d_dfac = 1: dinc d_count

    ded$ s_any, d_dfac, 0, 0
    ded$ s_dot, d_dfak, 0, 0
    ded$ s_number, d_number, 0, 0

    s_out = d_count + ". " + s_number
    $app s_out, " dfac=" + s_any
    $app s_out, " dfak=" + s_dot

    dift d_dfac = d_dfak
        $app s_out, " equal"
        dift d_dfac = 1: $out s_out
    else
        $app s_out, " not equal"
        $out s_out

        $inp s_any, "not equal"
    endi

    d_number = d_number + 2
    dift d_count >= d_maxcount: dinc d_loop
endw

$inp s_any, "done"
ends sub_compare_dfac_and_dfak


subr sub_teaquad_primes_test_one_number
'updated 2007/07/19
'2007/03/04, 2007/02/26, 2007/02/25, 2007/02/24, 2006/12/06
'2006/11/15, 2006/11/14, 2006/11/12, 2006/11/11, 2006/10/25
'primes 9quad greater than 9E15 as total of two numbers
vari d_any, s_any, d_dot, s_dot, s_out
vari d_teaquadpart, d_factor,
vari d_loop, d_seconds, s_input, d_pick
vari d_process, d_teaquadone, d_teaquadmult, s_default

dpow d_teaquadone, 10, 15

d_process = 1
d_loop = d_process
dwhi d_loop = 1
    $out "1. 39,713,433,671"
    $out "11. 6,000,000,000,000,001"
    $out "21. 9,002,235,408,655,631"
    $out "31. 13,086,603,727,831,391"
    $out "41. 108,000,000,000,000,001"
    $out "51. 999,999,999,999,999,967"
    $out "61. 999,999,999,999,999,989"
    $inp s_input, "choose or enter number to test"

    d_pick = 0
    $len d_any, s_input
    dift d_any < 4
        $isd d_any, s_input
        dift d_any = 1: $tod d_pick, s_input
    endi

    $ift s_input = "*"
        dinc d_process
        dinc d_loop
    endi

    dift d_process = 1
        dift d_pick = 1: s_input = "39,713,433,671"
        dift d_pick = 11: s_input = "6,000,000,000,000,001"
        dift d_pick = 21: s_input = "9,002,235,408,655,631"
        dift d_pick = 31: s_input = "13,086,603,727,831,391"
        dift d_pick = 41: s_input = "108,000,000,000,000,001"
        dift d_pick = 51: s_input = "999,999,999,999,999,967"
        dift d_pick = 61: s_input = "999,999,999,999,999,989"

        $out s_input
        sg_pass1 = s_input
        sub_teaquad_from_string
        d_teaquadpart = dg_pass1
        d_teaquadmult = dg_pass2

        ded$ s_any, d_teaquadpart, 0, 0
        $out "d_teaquadpart=" + s_any

        ded$ s_any, d_teaquadmult, 0, 0
        $out "d_teaquadmult=" + s_any
    endi
    dift d_process = 1
        dsec d_seconds
        dfak d_factor, d_teaquadpart, d_teaquadmult
        dsec d_any

        d_seconds = d_any - d_seconds
        $out "seconds=" + d_seconds

        ded$ s_any, d_teaquadpart, 0, 0
        $out "d_teaquadpart=" + s_any

        ded$ s_any, d_teaquadmult, 0, 0
        $out "d_teaquadmult=" + s_any

        ded$ s_any, d_factor, 0, 0
        $out "d_factor=" + s_any
        $inp s_any, "return"
    endi
endw
ends sub_teaquad_primes_test_one_number


subr sub_teaquad_primes_test_in_file
'updated 2007/07/22, 2007/07/20
vari d_any, s_any, d_dot, s_dot, s_out
vari d_teaquadpart, d_factor, s_number, s_aster
vari d_loop, d_good, d_seconds, s_input, d_pick
vari d_process, d_teaquadone, d_teaquadmult, s_default
vari s_filename, s_record, d_filebyte
vari d_count1, d_count2

$ch$ s_aster, "*", 70

d_process = 1
dift d_process = 1
    $inp s_filename, "enter filename"
    $ift s_filename = "*": dinc d_process
endi

d_filebyte = 1
d_loop = d_process
dwhi d_loop = 1
    d_good = 1
    fsip s_record, s_filename, d_filebyte
    dift d_filebyte = 0
        dinc d_good
        dinc d_loop
    endi
    dift d_good = 1
        $trb s_record, s_record
        $isd d_any, s_record
        dift d_any <> 1
            $out "not number " + s_record
            dinc d_good
        endi
    endi
    dift d_good = 1
        $out s_aster
        $out s_record
        sg_pass1 = s_record
        sub_teaquad_from_string
        d_teaquadpart = dg_pass1
        d_teaquadmult = dg_pass2
        sub_teaquad_to_string
        s_number = sg_pass1

        ded$ s_any, d_teaquadpart, 0, 0
        $out "d_teaquadpart=" + s_any

        ded$ s_any, d_teaquadmult, 0, 0
        $out "d_teaquadmult=" + s_any
        $out s_number

        dsec d_seconds
        dfak d_factor, d_teaquadpart, d_teaquadmult
        dsec d_any

        d_seconds = d_any - d_seconds
        $out "seconds=" + d_seconds
        $out "factor=" + d_factor

        dift d_factor = 1
            dinc d_count1
            $out "prime"
        else
            dinc d_count2
            $inp s_any, "not prime"
            $ift s_any = "*": dinc d_loop
        endi
    endi
endw
$inp s_any, "primes=" + d_count1 + " not=" + d_count2
ends sub_teaquad_primes_test_in_file


subr sub_teaquad_primes_find
'updated 2009/09/06
'2007/10/07, 2007/03/04, 2007/02/24, 2007/01/07, 2007/01/06
'2006/12/11, 2006/12/09, 2006/12/08, 2006/12/07, 2006/12/06
'2006/11/27, 2006/11/25, 2006/11/13, 2006/11/12, 2006/11/11
'2006/10/29, 2006/10/28, 2006/10/27, 2006/10/26, 2006/10/25
'find primes teaquad greater than 1E15 as total of two numbers
vari d_any, s_any, d_dot, s_dot, s_out
vari s_number, d_teaquadpart, d_teaquadmult
vari d_count, s_count, d_yesduos
vari d_process, d_loop, d_show, d_factor, s_factor
vari d_seconds, d_previous, d_gap, d_ctmax
vari d_teaquadone, d_maxteaquadpart, d_maxteaquadmult
vari d_stopteaquadpart, d_stopteaquadmult
vari d_file, s_filename, s_date, d_factfactor
vari d_sec1, d_sec2

'stop for sure at 400E18
dpow d_maxteaquadpart, 10, 15
$tod d_maxteaquadmult, "400,000"

d_teaquadone = d_maxteaquadpart

d_process = 1
dift d_process = 1
    d_teaquadpart = 1
    d_teaquadmult = 1
    $inp s_number, "enter begin number, default=teaquad"
    $ift s_number = "*": dinc d_process
endi
dift d_process = 1
    $trb s_number, s_number
    $ift s_number <> sg_nothing
        sg_pass1 = s_number
        sub_teaquad_from_string
        d_teaquadpart = dg_pass1
        d_teaquadmult = dg_pass2
    endi

    d_any = d_teaquadpart % 2
    dift d_any = 0: dinc d_teaquadpart

    ded$ s_any, d_teaquadpart, 0, 0
    $out "teaquadpart=" + s_any
    $out "teaquadmult=" + d_teaquadmult
endi
dift d_process = 1
    d_show = 2
    $inp s_any, "1=show tries"
    $ift s_any = "*": dinc d_process
    $ift s_any = "1": d_show = 1
endi
dift d_process = 1
    d_ctmax = 99999
    $inp s_any, "how many to find, default=99999"
    $ift s_any = "*": dinc d_process
    $isd d_any, s_any
    dift d_any = 1: $tod d_ctmax, s_any
endi
dift d_process = 1
    d_yesduos = 2
    $inp s_any, "1=duos"
    $ift s_any = "*": dinc d_process
    $ift s_any = "1": d_yesduos = 1
endi
dift d_process = 1
    d_file = 2
    s_filename = "primes99.txt"
    $inp s_any, "1=output to file " + s_filename
    $ift s_any = "*": dinc d_process
    $ift s_any = "1"
        d_file = 1
        flen d_any, s_filename
        dift d_any >= 0
            $inp s_any, "1=purge old file"
            $ift s_any = "*": dinc d_process
            $ift s_any = "1": fdel d_any, s_filename
        endi
    endi
endi
dift d_process = 1
    d_stopteaquadpart = d_maxteaquadpart
    d_stopteaquadmult = d_maxteaquadmult
    $inp s_any, "enter stop number if wanted"
    $ift s_any = "*": dinc d_process

    sg_pass1 = s_any
    sub_teaquad_from_string
    d_stopteaquadpart = dg_pass1
    d_stopteaquadmult = dg_pass2
    s_out = "stop: teaquadpart=" + d_stopteaquadpart
    $app s_out, ", teaquadmult=" + d_stopteaquadmult
    $out s_out
endi

dsec d_sec1
d_count = 0
d_loop = d_process
dwhi d_loop = 1
    dsec d_seconds

    dift d_yesduos = 1
        'use teapro command for fast method
        dduo d_factor, d_teaquadpart, d_teaquadmult
    else
        'use teapro command for fast method
        dfak d_factor, d_teaquadpart, d_teaquadmult
    endi

    dsec d_any
    d_seconds = d_any - d_seconds

    $dat s_date
    $cut s_date, s_date, 1, 20

    'is the factor prime
    dfac d_factfactor, d_factor

    'show number just tested
    dg_pass1 = d_teaquadpart
    dg_pass2 = d_teaquadmult
    sub_teaquad_to_string
    s_number = sg_pass1

    ded$ s_factor, d_factor, 0, 0

    'if factor is prime append ":P"
    dift d_factfactor = 1: $app s_factor, ":P"

    s_out = s_number + " " + s_date
    $app s_out, " fact=" + s_factor
    $app s_out, " sec=" + d_seconds
    $sho s_out

    dift d_show = 1
        $out s_out

        dift d_file = 1: fapp d_any, "primes99.txt", s_out
    endi

    dift d_factfactor <> 1
        $out s_out
        $inp s_any, "factor not prime"
        $ift s_any = "*": dinc d_loop
    endi

    dift d_factor = 1
        'we have a teaquad prime
        dinc d_count
        s_count = "0000000" + d_count
        $off s_count, s_count, 7

        'find gap to previous prime
        d_gap = 0
        dift d_previous > 0: d_gap = d_teaquadpart - d_previous
        d_previous = d_teaquadpart

        dg_pass1 = d_teaquadpart
        dg_pass2 = d_teaquadmult
        sub_teaquad_to_string
        s_number = sg_pass1

        dift d_yesduos = 1
            s_out = s_count + ".duo=" + s_number
        else
            s_out = s_count + ".prime=" + s_number
        endi

        $app s_out, " " + s_date
        $app s_out, " sec=" + d_seconds
        $app s_out, " gap=" + d_gap
        $out s_out

        dift d_file = 1
            s_out = "]" + " " + s_count
            dift d_yesduos = 1
                $app s_out, ".duo=" + s_number
            else
                $app s_out, ".prime=" + s_number
            endi
            $app s_out, " " + s_date
            $app s_out, " gap=" + d_gap

            fapp d_any, "primes99.txt", s_out
            dbad d_any = 0
        endi
    endi

    d_teaquadpart = d_teaquadpart + 2
    dift d_teaquadpart > d_teaquadone
        dinc d_teaquadmult
        d_teaquadpart = 1
    endi

    dift d_count >= d_ctmax: dinc d_loop

    dift d_stopteaquadpart > 0
        dift d_teaquadmult >= d_stopteaquadmult
            dift d_teaquadpart >= d_stopteaquadpart: dinc d_loop
        endi
    endi

    'cannot go over 400E18
    dift d_teaquadmult >= d_maxteaquadmult
        dift d_teaquadpart >= d_maxteaquadpart: dinc d_loop
    endi
endw
dsec d_sec2
d_any = d_sec2 - d_sec1
$inp s_any, "done, sec=" + d_any
ends sub_teaquad_primes_find


subr sub_9quad_prime_test
'updated 2006/10/25
'primes 9quad than 2^53 as total of two numbers
vari d_any, s_any, d_dot, s_dot
vari d_number1, d_number2, d_factor
vari d_loop, d_root, d_total
vari d_divisor, d_mod1, d_mod2, d_mod3

d_number1 = dg_pass1
d_number2 = dg_pass2

d_total = d_number1 + d_number2
dpow d_root, d_total, 0.5
d_factor = 1
d_divisor = 3

d_loop = 1
dwhi d_loop = 1
    d_mod1 = d_number1 % d_divisor
    d_mod2 = d_number2 % d_divisor
    d_mod3 = d_mod1 + d_mod2 % d_divisor

    dift d_mod3 = 0
        d_factor = d_divisor
        dinc d_loop
    else
        d_divisor = d_divisor + 2
        dift d_divisor > d_root: dinc d_loop
    endi
endw
dg_pass1 = d_factor
ends sub_9quad_prime_test


subr sub_9quad_to_string
'updated 2006/11/25, 2006/11/12, 2006/10/27
'change a 9quad number to a string
vari d_any, s_any, d_dot, s_dot
vari d_9part, d_9mult, s_line
vari s_beg, d_beg

d_9part = dg_pass1
d_9mult = dg_pass2
'123456789012345678901234567
'123,456,789,012,345,678,901
'123456789012345678901

dto$ s_line, d_9part, 0, 0
$ch$ s_any, "0", 30
s_line = s_any + s_line
$off s_line, s_line, 21

$cut s_beg, s_line, 1, 6
$tod d_beg, s_beg
d_beg = d_9mult * 9 + d_beg
$ch$ s_any, "0", 6
s_beg = s_any + d_beg
$off s_beg, s_beg, 6
$rep s_line, 1, s_beg

'put in commas
$ins s_line, 4, ","
$ins s_line, 8, ","
$ins s_line, 12, ","
$ins s_line, 16, ","
$ins s_line, 20, ","
$ins s_line, 24, ","

'take off leading zeros and commas
d_dot = 1
dwhi d_dot = 1
    dinc d_dot
    $cut s_any, s_line, 1, 1
    $ift s_any = "0"
        $cut s_line, s_line, 2, 99
        d_dot = 1
    endi
    $ift s_any = ","
        $cut s_line, s_line, 2, 99
        d_dot = 1
    endi
endw
sg_pass1 = s_line
ends sub_9quad_to_string


subr sub_9quad_from_string
'updated 2006/11/25, 2006/11/12, 2006/10/28
'9quad string to d_9part
vari d_any, s_any, d_dot, s_dot
vari d_9part, d_9mult
vari s_line, d_good, d_long, s_beg, d_beg

s_line = sg_pass1
d_9part = 0
d_9mult = 0
'123456789012345678901234567
'123,456,789,012,345,678,901
'123456789012345678901

d_good = 1
dift d_good = 1
    'eliminate commas and validate for all numbers
    $trb s_line, s_line
    $swp s_line, ",", sg_nothing
    $ist d_any, s_line, "9"
    dift d_any <> 1: dinc d_good
endi
dift d_good = 1
    $len d_long, s_line
    dift d_long < 16
        $tod d_9part, s_line
        dinc d_good
    endi
endi
'123456789012345678901234567
'123,456,789,012,345,678,901
'123456789012345678901

dift d_good = 1
    'make 21 long
    $ch$ s_any, "0", 30
    s_line = s_any + s_line
    $off s_line, s_line, 21

    $cut s_beg, s_line, 1, 6
    $tod d_beg, s_beg

    d_9mult = d_beg \ 9
    d_beg = d_beg % 9

    $cut s_any, s_line, 7, 99
    s_any = d_beg + s_any
    $tod d_9part, s_any
endi

dg_pass1 = d_9part
dg_pass2 = d_9mult
ends sub_9quad_from_string


subr sub_teaquad_to_string
'updated 2007/03/30, 2007/02/24, 2006/11/25, 2006/11/12, 2006/10/27
'change a teaquad number in d_teaquadpart,d_teaquadmult to a string
vari d_any, s_any, d_dot, s_dot
vari d_teaquadpart, d_teaquadmult, s_line
vari s_beg, d_beg

d_teaquadpart = dg_pass1
d_teaquadmult = dg_pass2

dift d_teaquadpart < 0
    dpow d_any, 10 ,15
    d_teaquadpart = d_teaquadpart + d_any
    ddec d_teaquadmult
endi

'123456789012345678901234567
'123,456,789,012,345,678,901
'123456789012345678901
dto$ s_line, d_teaquadpart, 0, 0
$ch$ s_any, "0", 30
s_line = s_any + s_line
$off s_line, s_line, 21

$cut s_beg, s_line, 1, 6
$tod d_beg, s_beg
d_beg = d_teaquadmult + d_beg
$ch$ s_any, "0", 6
s_beg = s_any + d_beg
$off s_beg, s_beg, 6
$rep s_line, 1, s_beg

'put in commas in 21 digit number
$ins s_line, 4, ","
$ins s_line, 8, ","
$ins s_line, 12, ","
$ins s_line, 16, ","
$ins s_line, 20, ","
$ins s_line, 24, ","

'take off leading zeros and commas
d_dot = 1
dwhi d_dot = 1
    dinc d_dot
    $cut s_any, s_line, 1, 1
    $ift s_any = "0"
        $cut s_line, s_line, 2, 99
        d_dot = 1
    endi
    $ift s_any = ","
        $cut s_line, s_line, 2, 99
        d_dot = 1
    endi
endw

sg_pass1 = s_line
ends sub_teaquad_to_string


subr sub_teaquad_from_string
'updated 2007/02/24, 2006/11/25, 2006/11/12, 2006/10/28
'teaquad string to d_teaquadpart,d_teaquadmult
'1part is the 15 digits on the right,1mult is the left digits
vari d_any, s_any, d_dot, s_dot
vari d_teaquadpart, d_teaquadmult
vari s_line, d_good, d_long, s_beg, d_beg

s_line = sg_pass1
d_teaquadpart = 0
d_teaquadmult = 0
'123456789012345678901234567
'123,456,789,012,345,678,901
'123456789012345678901

d_good = 1
dift d_good = 1
    'eliminate commas and validate for all numbers
    $trb s_line, s_line
    $swp s_line, ",", sg_nothing
    $ist d_any, s_line, "9"
    dift d_any <> 1: dinc d_good
endi
'123456789012345678901234567
'123,456,789,012,345,678,901
'123456789012345678901

dift d_good = 1
    'make 21 long
    $ch$ s_any, "0", 30
    s_line = s_any + s_line
    $off s_line, s_line, 21

    $cut s_beg, s_line, 1, 6
    $tod d_teaquadmult, s_beg

    $cut s_any, s_line, 7, 99
    $tod d_teaquadpart, s_any
endi

dg_pass1 = d_teaquadpart
dg_pass2 = d_teaquadmult
ends sub_teaquad_from_string


subr sub_teaquad_shift
'updated 2007/02/24
'shift teaquad by correcting d_teaquadpart,d_teaquadmult
vari d_any, s_any, d_dot, s_dot
vari d_teaquadpart, d_teaquadmult

d_teaquadpart = dg_pass1
d_teaquadmult = dg_pass2

dpow d_dot, 10, 15
dift d_teaquadpart > d_dot
    d_any = d_teaquadpart \ d_dot
    d_teaquadmult = d_teaquadmult + d_any
    d_teaquadpart = d_teaquadpart - d_any
endi

dg_pass1 = d_teaquadpart
dg_pass2 = d_teaquadmult
ends sub_teaquad_shift


subr sub_teaquad_from_primes31
'updated 2007/08/30
vari d_any, s_any, d_dot, s_dot, d_factor, d_debug
vari d_teaquadpart, d_teaquadmult, d_teaquadone
vari d_primes31part, d_primes31mult

'N = 200,560,490,130 * d_primes31mult + d_primes31part
'max for d_primes31part is 200,560,490,130
'max for d_primes31mult is 1E7
d_primes31part = dg_pass1
d_primes31mult = dg_pass2

d_debug = 2
d_teaquadpart = 0
d_teaquadmult = 0
d_teaquadone = 10 ^ 15

'560,490,130
d_teaquadpart = 560490130 * d_primes31mult + d_primes31part

dift d_debug = 1
    ded$ s_any, d_teaquadpart, 0, 0
    $out "A=" + s_any
endi

'any of d_teaquadpart over 1E15 goes into d_teaquadmult
d_factor = 10 ^ 15
d_any = d_teaquadpart \ d_factor
d_teaquadmult = d_any

dift d_debug = 1
    ded$ s_any, d_teaquadmult, 0, 0
    $out "B=" + s_any
endi

d_teaquadpart = d_teaquadpart % d_factor

dift d_debug = 1
    ded$ s_any, d_teaquadpart, 0, 0
    $out "C=" + s_any
endi

'now get the biggest part without multiplying by 1E9
d_dot = 200 * d_primes31mult

dift d_debug = 1
    ded$ s_any, d_dot, 0, 0
    $out "D=" + s_any
endi

'any of d_dot over 1E6 goes to d_teaquadmult
d_factor = 10 ^ 6
d_any = d_dot \ d_factor

dift d_debug = 1
    ded$ s_any, d_any, 0, 0
    $out "E=" + s_any
endi

d_teaquadmult = d_teaquadmult + d_any

dift d_debug = 1
    ded$ s_any, d_teaquadmult, 0, 0
    $out "F=" + s_any
endi

d_dot = d_dot % d_factor

'multiply it by 1E9 and add to d_teaquadpart
d_dot = 10 ^ 9 * d_dot
d_teaquadpart = d_teaquadpart + d_dot

dift d_debug = 1
    ded$ s_any, d_teaquadpart, 0, 0
    $out "G=" + s_any
endi

dg_pass1 = d_teaquadpart
dg_pass2 = d_teaquadmult
sub_teaquad_to_string
$out sg_pass1
ends sub_teaquad_from_primes31


subr sub_file_primes31_to_teaquad
'updated 2007/08/30
'translate file of primes31 to teaquad
'file format from
'noted prime number researcher Jens Kruse Andersen
vari d_any, s_any, d_dot, s_dot
vari s_filein, s_fileout, d_filebyte, s_record
vari d_process, d_good, d_loop, d_count
vari d_primes31part, d_primes31mult

d_process = 1
dift d_process = 1
    $inp s_filein, "input filename"
    $ift s_filein = "*": dinc d_process
endi
dift d_process = 1
    $inp s_fileout, "output filename"
    $ift s_fileout = "*": dinc d_process
endi

d_filebyte = 1
d_loop = d_process
dwhi d_loop = 1
    d_good = 1
    fsip s_record, s_filein, d_filebyte

    dift d_filebyte = 0
        dinc d_good
        dinc d_loop
    endi
    dift d_good = 1
        'must have "10*0+" for a good record
        $lok d_dot, s_record, 1, "10*0+"
        dift d_dot = 0: dinc d_good
    endi
    dift d_good = 1
        d_primes31part = 0
        d_primes31mult = 0

        d_dot = d_dot + 5
        $cut s_record, s_record, d_dot, 999
        $trb s_record, s_record
        $lok d_dot, s_record, 1, " "

        $cut s_dot, s_record, 1, d_dot
        $trb s_dot, s_dot
        $isd d_any, s_dot
        dift d_any = 1: $tod d_primes31mult, s_dot

        $cut s_dot, s_record, d_dot, 999
        $trb s_dot, s_dot
        $isd d_any, s_dot
        dift d_any = 1: $tod d_primes31part, s_dot
    endi
    dift d_good = 1
        dg_pass1 = d_primes31part
        dg_pass2 = d_primes31mult
        sub_teaquad_from_primes31
        s_record = sg_pass1

        fapp d_any, s_fileout, s_record
        dbad d_any = 0

        dinc d_count
    endi
endw

$inp s_any, "count=" + d_count
ends sub_file_primes31_to_teaquad


subr sub_test_primes31_to_teaquad
'updated 2007/08/30
vari d_any, s_any, d_dot, s_dot
vari s_input, d_loop, d_good
vari d_primes31part, d_primes31mult

d_loop = 1
dwhi d_loop = 1
    d_good = 1
    dift d_good = 1
        $inp s_input, "enter primes31mult=x"
        $ift s_input = "*": dinc d_good
        $isd d_any, s_input
        dift d_any = 1: $tod d_primes31mult, s_input
    endi
    dift d_good = 1
        $inp s_input, "enter primes31part=y"
        $ift s_input = "*": dinc d_good
        $isd d_any, s_input
        dift d_any = 1: $tod d_primes31part, s_input
    endi
    dift d_good = 1
        dg_pass1 = d_primes31part
        dg_pass2 = d_primes31mult
        sub_teaquad_from_primes31
    endi

    d_loop = d_good
endw
ends sub_test_primes31_to_teaquad


subr sub_teaquad_mod_test
'updated 2008/11/04, 2007/04/01
'2007/03/27, 2007/03/03, 2007/03/02, 2007/02/27, 2007/02/26
'test teaquad and 9quad mod
vari d_any, s_any, d_dot, s_dot
vari d_tqdpart, d_tqdmult
vari s_2to53, d_2to53, d_tqdone
vari d_process, d_number, d_root
vari d_mod1, d_mod2, d_mod3, d_mod4, d_mod5, d_mod6
vari s_dashline, s_err

$ch$ s_dashline, "-", 64
s_err = "number too big"
dpow d_2to53, 2, 53
ded$ s_2to53, d_2to53, 0, 0
s_err = "number bigger than=" + s_2to53
dpow d_tqdone, 10, 15

d_process = 1
dift d_process = 1
    $out "we use tqd to mean teaquad below"
    $inp s_any, "enter d_tqdpart"
    $ift s_any = "*": dinc d_process
    $isd d_any, s_any
    d_tqdpart = 1
    dift d_any = 1: $tod d_tqdpart, s_any
endi
dift d_process = 1
    $inp s_any, "enter d_tqdmult"
    $ift s_any = "*": dinc d_process
    $isd d_any, s_any
    d_tqdmult = 1
    dift d_any = 1: $tod d_tqdmult, s_any
endi
dift d_process = 1
    d_number = d_tqdone * d_tqdmult + d_tqdpart
    dpow d_root, d_number, 0.5
    dtru d_root, d_root

    $out s_dashline
    ded$ s_any, d_2to53, 0, 0
    $out "d_2to53=" + s_any

    $out s_dashline
    ded$ s_any, d_tqdone, 0, 0
    $out "d_tqdone=" + s_any

    $out s_dashline
    $out "we are using tqd to mean teaquad below:"
    $out "the tqd algorithm in C90 briefly is as follows:"

    s_any = "d_mod = fmod(d_tqdpart + d_tqdmult * "
    $app s_any, "fmod(d_tqdone, d_div), d_div);"
    $out s_any

    $out s_dashline
    ded$ s_any, d_tqdpart, 0, 0
    $out "d_tqdpart=" + s_any

    $out s_dashline
    ded$ s_any, d_tqdmult, 0, 0
    $out "d_tqdmult=" + s_any

    $out s_dashline
    ded$ s_any, d_number, 0, 0
    $out "d_number=" + s_any

    $out s_dashline
    ded$ s_any, d_root, 0, 0
    d_dot = d_root * d_root
    ded$ s_dot, d_dot, 0, 0
    $out "d_root=" + s_any + " squared=" + s_dot
endi
dift d_process = 1
    d_mod1 = d_tqdpart
    d_mod2 = d_tqdone % d_root
    d_mod3 = d_mod2 * d_tqdmult
    d_mod4 = d_mod1 + d_mod3
    d_mod5 = d_mod4 % d_root
    d_mod6 = d_tqdmult * d_root + d_tqdone

    $out s_dashline
    d_mod1 = d_tqdpart
    ded$ s_any, d_tqdpart, 0, 0
    $out "d_tqdpart=" + s_any
    dift d_mod1 > d_2to53: $out s_err

    $out s_dashline
    d_mod2 = d_tqdone % d_root
    ded$ s_any, d_mod2, 0, 0
    $out "d_tqdone % d_root=" + s_any
    dift d_mod2 > d_2to53: $out s_err

    $out s_dashline
    d_mod3 = d_mod2 * d_tqdmult
    ded$ s_any, d_mod3, 0, 0
    $out "d_tqdmult * (d_tqdone % d_root)=" + s_any
    dift d_mod3 > d_2to53: $out s_err

    $out s_dashline
    d_mod4 = d_mod1 + d_mod3
    ded$ s_any, d_mod4, 0, 0
    $out "d_tqdpart + d_tqdmult * (d_tqdone % d_root)=" + s_any
    dift d_mod4 > d_2to53: $out s_err

    $out s_dashline
    d_mod5 = d_mod4 % d_root
    ded$ s_any, d_mod5, 0, 0
    s_dot = "(d_tqdpart + d_tqdmult * "
    $app s_dot, "(d_tqdone % d_root)) % d_root=" + s_any
    $out s_dot
    dift d_mod5 > d_2to53: $out s_err

    $out s_dashline
    d_mod6 = d_tqdmult * d_root + d_tqdone
    $out "d_max = d_root * d_tqdmult + d_tqdone"
    ded$ s_any, d_mod6, 0, 0
    $out "d_max=" + s_any
    dift d_mod6 > d_2to53: $out s_err
endi

$inp s_any, "done"
ends sub_teaquad_mod_test


subr sub_teaquad_5tp39_analyze_an_a_file
'updated 2008/04/07
vari d_any, s_any, d_dot, s_dot
vari d_filebyte, s_record, s_prevrecord, s_inputfile
vari d_process, d_loop, d_good
vari s_hour, d_hour, d_prevhour

d_process = 1
dift d_process = 1
    $inp s_inputfile, "enter input file ie. a5tp39x3.txt"
    $ift s_inputfile = "*": dinc d_process
endi
d_filebyte = 1
d_loop = d_process
dwhi d_loop = 1
    d_good = 1
    fsip s_record, s_inputfile, d_filebyte
    dift d_filebyte = 0
        dinc d_loop
        dinc d_good
    endi
    dift d_good = 1
        $cut s_any, s_record, 1, 1
        $ist d_any, s_any, "9"
        dift d_any <> 1: dinc d_good

        $lok d_dot, s_record, 1, ":"
        dift d_dot < 3: dinc d_good
    endi
    dift d_good = 1
        d_dot = d_dot - 2
        $cut s_hour, s_record, d_dot, 2
        $ist d_any, s_hour, "9"
        dift d_any <> 1: dinc d_good
    endi
    dift d_good = 1
        $tod d_hour, s_hour
        d_any = d_prevhour + 1
        dift d_any = 24: d_any = 0
        dift d_any <> d_hour
            $out s_prevrecord
            $out s_record
            $inp s_any, "not right"
            $ift s_any = "*": dinc d_loop
        endi
        d_prevhour = d_hour
        s_prevrecord = s_record
    endi
endw

ends sub_teaquad_5tp39_analyze_an_a_file


subr sub_test_for_pnq30
'updated 2002/12/08
vari d_any, s_any, d_dot, s_dot, s_out
vari d_loop, d_quadprime, d_factor
vari d_good, d_number, s_number, d_count

d_loop = 1
dwhi d_loop = 1
    s_out = "enter the first number or the PIVCOM of a PNQ30"
    $inp s_number, s_out
    $isd d_any, s_number

    dift d_any <> 1
        dinc d_loop
    else
        $tod d_number, s_number
        dfac d_any, d_number
        dift d_any = 2: d_number = d_number - 19

        dg_pass1 = d_number
        sub_pnq30_testshow
    endi
endw
ends sub_test_for_pnq30


subr sub_pnq30_testshow
'updated 2002/12/08
vari d_any, s_any, d_dot, s_dot
vari d_quadprime, d_factor, d_pivcom, d_hastwinpivcom
vari d_good, d_number, s_number, d_count

d_quadprime = dg_pass1
d_hastwinpivcom = 2
d_count = 0
d_good = 1

dift d_good = 1
    d_number = d_quadprime
    dfac d_factor, d_number
    dift d_factor = 1
        dinc d_count
        ded$ s_number, d_number, 20, 0
        $out d_count + ". prime=" + s_number
    else
        dinc d_good
    endi
endi
dift d_good = 1
    d_number = d_quadprime + 2
    dfac d_factor, d_number
    dift d_factor = 1
        dinc d_count
        ded$ s_number, d_number, 20, 0
        $out d_count + ". prime=" + s_number
    else
        dinc d_good
    endi
endi
dift d_good = 1
    d_number = d_quadprime + 6
    dfac d_factor, d_number
    dift d_factor = 1
        dinc d_count
        ded$ s_number, d_number, 20, 0
        $out d_count + ". prime=" + s_number
    else
        dinc d_good
    endi
endi
dift d_good = 1
    d_number = d_quadprime + 8
    dfac d_factor, d_number
    dift d_factor = 1
        dinc d_count
        ded$ s_number, d_number, 20, 0
        $out d_count + ". prime=" + s_number
    else
        dinc d_good
    endi
endi
dift d_good = 1
    d_number = d_quadprime + 30
    dfac d_factor, d_number
    dift d_factor = 1
        dinc d_count
        ded$ s_number, d_number, 20, 0
        $out d_count + ". prime=" + s_number
    else
        dinc d_good
    endi
endi
dift d_good = 1
    d_number = d_quadprime + 32
    dfac d_factor, d_number
    dift d_factor = 1
        dinc d_count
        ded$ s_number, d_number, 20, 0
        $out d_count + ". prime=" + s_number
    else
        dinc d_good
    endi
endi
dift d_good = 1
    d_number = d_quadprime + 36
    dfac d_factor, d_number
    dift d_factor = 1
        dinc d_count
        ded$ s_number, d_number, 20, 0
        $out d_count + ". prime=" + s_number
    else
        dinc d_good
    endi
endi
dift d_good = 1
    d_number = d_quadprime + 38
    dfac d_factor, d_number
    dift d_factor = 1
        dinc d_count
        ded$ s_number, d_number, 20, 0
        $out d_count + ". prime=" + s_number
    else
        dinc d_good
    endi
endi
dift d_good = 1
    'test for the twin pivcom
    'pivcom was coined by Roger Hargrave in 2002
    d_pivcom = d_quadprime + 19
    d_number = d_pivcom - 1
    dfac d_factor, d_number
    dift d_factor = 1
        d_number = d_pivcom + 1
        dfac d_factor, d_number
        dift d_factor = 1
            ded$ s_any, d_pivcom, 0, 0
            d_hastwinpivcom = 1
            $out "pivcom is twin prime pivcom = " + s_any
        endi
    endi
endi

dg_pass1 = d_good
dg_pass2 = d_hastwinpivcom
ends sub_pnq30_testshow


subr sub_pnq30_test_quiet
'updated 2002/11/30
vari d_any, s_any, d_dot, s_dot
vari d_pnq30, d_factor
vari d_good, d_number

d_pnq30 = dg_pass1
d_good = 1

dift d_good = 1
    d_number = d_pnq30
    dfac d_factor, d_number
    dift d_factor <> 1
        dinc d_good
        dto$ s_any, d_number, 0, 0
        $out "not prime=" + s_any
    endi
endi
dift d_good = 1
    d_number = d_pnq30 + 2
    dfac d_factor, d_number
    dift d_factor <> 1
        dinc d_good
        dto$ s_any, d_number, 0, 0
        $out "not prime=" + s_any
    endi
endi
dift d_good = 1
    d_number = d_pnq30 + 6
    dfac d_factor, d_number
    dift d_factor <> 1
        dinc d_good
        dto$ s_any, d_number, 0, 0
        $out "not prime=" + s_any
    endi
endi
dift d_good = 1
    d_number = d_pnq30 + 8
    dfac d_factor, d_number
    dift d_factor <> 1
        dinc d_good
        dto$ s_any, d_number, 0, 0
        $out "not prime=" + s_any
    endi
endi
dift d_good = 1
    d_number = d_pnq30 + 30
    dfac d_factor, d_number
    dift d_factor <> 1
        dinc d_good
        dto$ s_any, d_number, 0, 0
        $out "not prime=" + s_any
    endi
endi
dift d_good = 1
    d_number = d_pnq30 + 32
    dfac d_factor, d_number
    dift d_factor <> 1
        dinc d_good
        dto$ s_any, d_number, 0, 0
        $out "not prime=" + s_any
    endi
endi
dift d_good = 1
    d_number = d_pnq30 + 36
    dfac d_factor, d_number
    dift d_factor <> 1
        dinc d_good
        dto$ s_any, d_number, 0, 0
        $out "not prime=" + s_any
    endi
endi
dift d_good = 1
    d_number = d_pnq30 + 38
    dfac d_factor, d_number
    dift d_factor <> 1
        dinc d_good
        dto$ s_any, d_number, 0, 0
        $out "not prime=" + s_any
    endi
endi
dg_pass1 = d_good
ends sub_pnq30_test_quiet


subr sub_pnq30_file_test
'updated 2003/05/24
vari d_any, s_any, d_dot, s_dot, s_out
vari s_filename, s_filedata, d_loop, d_big, d_error
vari s_number, d_number, d_count, d_byte, d_long, d_process
vari s_previous, d_previous, d_time1, d_time2
vari s_diff, d_diff, d_mindiff, d_atmindiff
vari d_onlypnq30, d_yestestfromgaps, d_quietpnq30
vari d_pivcom, d_ctadd1pivcom, d_ctsub1pivcom
vari s_line, d_twinct, d_testtwin
vari d_yestestsmallgaps, d_yestestlargegaps, d_testctpivcom
vari d_index, d_gcd, d_good, d_begnumber

d_process = 1
dift d_process = 1
    $inp s_filename, "enter name of the file or FIXPRIME.EXP"
    $ift s_filename = "*": dinc d_process
endi
dift d_process = 1
    $trb s_filename, s_filename
    $len d_any, s_filename
    dift d_any = 0: s_filename = "FIXPRIME.EXP"
    finp s_filedata, s_filename
    $bes s_filedata, s_filedata
endi
dift d_process = 1
    d_testtwin = 2
    $inp s_any, "1 = check for twin pivcoms"
    $ift s_any = "*": dinc d_process
    $ift s_any = "1": d_testtwin = 1
endi
dift d_process = 1
    d_yestestsmallgaps = 2
    $inp s_any, "1 = test for small gaps"
    $ift s_any = "1": d_yestestsmallgaps = 1
    $ift s_any = "*": dinc d_process
endi
dift d_process = 1
    d_yestestlargegaps = 2
    $inp s_any, "1 = test for large gaps"
    $ift s_any = "1": d_yestestlargegaps = 1
    $ift s_any = "*": dinc d_process
endi
dift d_process = 1
    d_onlypnq30 = 2
    $inp s_any, "1 = test only PNQ30s"
    $ift s_any = "1": d_onlypnq30 = 1
    $ift s_any = "*": dinc d_process
endi
dift d_process = 1
    d_quietpnq30 = 2
    $inp s_any, "1 = quiet pnq30"
    $ift s_any = "1": d_quietpnq30 = 1
    $ift s_any = "*": dinc d_process
endi
dift d_process = 1
    d_yestestfromgaps = 2
    $inp s_any, "1 = test from gaps"
    $ift s_any = "1": d_yestestfromgaps = 1
    $ift s_any = "*": dinc d_process
endi
dift d_process = 1
    d_testctpivcom = 2
    $inp s_any, "1 = test ctpivcom"
    $ift s_any = "1": d_testctpivcom = 1
    $ift s_any = "*": dinc d_process
endi
dift d_process = 1
    d_begnumber = 0
    $inp s_any, "minimum number to begin with, default 0"
    $isd d_any, s_any
    dift d_any = 1: $tod d_begnumber, s_any
    $ift s_any = "*": dinc d_process
endi
dift d_process = 1
    $len d_long, s_filedata
    $out "length=" + d_long
    dift d_long < 1: dinc d_process
endi
dift d_process = 1
    dsec d_time1

    dift d_onlypnq30 <> 1
        'test PNQ30: to see if correct
        sg_pass1 = s_filedata
        sub_pnq30_string_test
    endi

    d_ctadd1pivcom = 0
    d_ctsub1pivcom = 0
    d_index = 1
    dpow d_mindiff, 10, 15
    d_previous = 0
    d_atmindiff = 0
    d_twinct = 0

endi
dift d_process = 1

    d_count = 0
    dpow d_big, 10, 9
    $cup s_filedata, s_filedata

    d_loop = 1
    dwhi d_loop = 1

        d_good = 1
        $lok d_byte, s_filedata, 1, "PNQ30="

        dift d_byte = 0
            dinc d_loop
            dinc d_good
        endi
        dift d_good = 1
            'get the line to output below
            $cut s_line, s_filedata, d_byte, 70

            d_byte = d_byte + 6

            'eliminate the 'PNQ30='
            $cut s_filedata, s_filedata, d_byte, d_big
            $trb s_filedata, s_filedata

            'find the blank at the end of the number
            $lok d_byte, s_filedata, 1, " "

            'get the number into a string
            $cut s_number, s_filedata, 1, d_byte

            'prep the string for next look
            $cut s_filedata, s_filedata, d_byte, d_big

            'do we have a number
            $trb s_number, s_number
            $isd d_good, s_number
        endi
        dift d_good = 1
            'we have a number
            $tod d_number, s_number
            'it cannot be smaller than d_begnumber
            dift d_number < d_begnumber: dinc d_good
        endi
        dift d_good = 1
            ded$ s_number, d_number, 0, 0
            $out s_number

            dift d_quietpnq30 = 1
                dg_pass1 = d_number
                sub_pnq30_test_quiet
                d_good = dg_pass1
                dift d_good <> 1
                    $out "not PNQ30=" + s_number
                    $inp s_any, "return"
                endi
            else
                dg_pass1 = d_number
                sub_pnq30_testshow
                d_good = dg_pass1
                dift d_good <> 1
                    $out "not PNQ30=" + s_number
                    $inp s_any, "return"
                endi
            endi
        endi
        dift d_good = 1
            dinc d_count
            $out d_count + ":PNQ30=" + s_number

            dift d_testctpivcom = 1
                'test to see if TWIN PIVCOM
                dg_pass1 = d_number
                sub_test_ctpivcom
            endi

            dift d_yestestfromgaps = 1
                'what about the gap to the previous prime
                dg_pass1 = d_number
                dg_pass2 = -2
                sub_find_next_prime

                'what about the gap to the next prime
                dg_pass1 = d_number + 38
                dg_pass2 = 2
                sub_find_next_prime
            endi

            'pivcom was coined by Roger Hargrave in 2002
            'pivcom = pivotal composite = d_number + 19
            d_pivcom = d_number + 19

            'is the pivcom the pivcom of a twin prime set
            d_dot = d_pivcom - 1
            dfac d_any, d_dot

            'how many pivcom sub 1 are prime
            dift d_any = 1: dinc d_ctsub1pivcom

            d_dot = d_pivcom + 1
            dfac d_dot, d_dot

            'how many pivcom add 1 are prime
            dift d_dot = 1: dinc d_ctadd1pivcom

            d_dot = d_any + d_dot
            dift d_dot = 2
                'we have a twin pivcom
                dinc d_twinct
                $out s_line
                s_out = d_twinct + ". TWIN PIVCOM at PNQ30="
                $app s_out, s_number

                dift d_testtwin = 1
                    $lok d_any, s_line, 1, "PIVCOM"
                    dift d_any = 0: $inp s_any, s_out
                else
                    $out s_out
                endi
            else
                'we do not have a twin pivcom
                $lok d_any, s_line, 1, "PIVCOM"
                dift d_any > 0
                    $out s_number
                    $inp s_any, "not TWIN PIVCOM but marked as one"
                endi
            endi

            'find difference from the previous PNQ30
            d_diff = d_number - d_previous
            ded$ s_diff, d_diff, 0, 0

            dift d_diff < d_mindiff
                d_mindiff = d_diff
                d_atmindiff = d_previous
            endi

            dift d_diff < 1000
                ded$ s_any, d_previous, 0, 0
                $out s_any
                ded$ s_any, d_number, 0, 0
                $out s_any
                $out s_diff
                $inp s_any, "difference too small"
            endi

            d_any = d_diff / 210
            d_dot = d_diff \ 210
            dift d_any <> d_dot
                ded$ s_any, d_any, 0, 0
                $out "d_diff / 210=" + s_any

                ded$ s_dot, d_dot, 0, 0
                $out "d_diff \ 210=" + s_dot

                $inp s_any, "bad divide by 210"
            endi

            'output differences
            s_out = "diff=" + s_diff
            ded$ s_any, d_mindiff, 0, 0
            $app s_out, ", mindiff=" + s_any
            ded$ s_any, d_atmindiff, 0, 0
            $app s_out, ", min at=" + s_any
            $out s_out

            dift d_yestestlargegaps = 1
                'test for a large gap
                dpow d_any, 10, 10
                dift d_diff >= d_any
                    s_out = "large gap=" + s_diff + " at "
                    $app s_out, s_previous + " & " + s_number
                    $inp s_any, s_out
                endi
            endi
            dift d_yestestsmallgaps = 1
                'test for a small gap
                dpow d_any, 10, 6
                dift d_diff <= d_any
                    s_out = "small gap=" + s_diff + " at "
                    $app s_out, s_previous + " & " + s_number
                    $inp s_any, s_out
                endi
            endi

            d_previous = d_number
            s_previous = s_number
        endi
    endw
endi

ded$ s_any, d_ctsub1pivcom, 0, 0
$out "prime count of pivcom - 1 = " + s_any

ded$ s_any, d_ctadd1pivcom, 0, 0
$out "prime count of pivcom + 1 = " + s_any

ded$ s_any, d_count, 0, 0
$out "PNQ30 count=" + s_any

dsec d_time2
d_any = d_time2 - d_time1
ded$ s_any, d_any, 0, 0
$out "seconds=" + s_any

$inp s_any, "done"
ends sub_pnq30_file_test


subr sub_test_ctpivcom
'updated 2003/01/26
'test ctpivcom for mod of 11, 13, 17, 19
vari d_any, s_any, d_dot, s_dot, s_out
vari d_pnq30, s_pnq30, d_ctpivcom, s_ctpivcom

d_pnq30 = dg_pass1
ded$ s_pnq30, d_pnq30, 0, 0

d_ctpivcom = d_pnq30 + 19 \ 210
ded$ s_ctpivcom, d_ctpivcom, 0, 0

dfac d_any, d_ctpivcom
ded$ s_any, d_any, 0, 0

s_out = "pnq30=" + s_pnq30
$app s_out, " ctpivcom=" + s_ctpivcom
$app s_out, " divisor=" + s_any
$out s_out

d_any = d_ctpivcom % 11
s_out = "%11=" + d_any
d_any = d_ctpivcom % 13
$app s_out, ", %13=" + d_any
d_any = d_ctpivcom % 17
$app s_out, ", %17=" + d_any
d_any = d_ctpivcom % 19
$app s_out, ", %19=" + d_any
$inp s_any, s_out
ends sub_test_ctpivcom


subr sub_pnq30_string_test
'updated 2002/01/26
'test PNQ30: to see if correct
vari d_any, s_any, d_dot, s_dot, s_out
vari d_loop, d_number, s_number, s_string
vari d_byte, d_count, d_previous
vari d_diff, s_diff, d_maxdiff, s_max

s_string = sg_pass1
sg_pass1 = sg_nothing
$cup s_string, s_string

'look for PNQ30:
d_count = 0
d_byte = 1
d_loop = 1

dwhi d_loop = 1
    $lok d_byte, s_string, d_byte, "PNQ30: "

    dift d_byte = 0
        $out "PNQ30: count=" + d_count
        dinc d_loop
    else
        d_dot = d_byte + 7
        $cut s_dot, s_string, d_dot, 30
        $trb s_dot, s_dot

        $lok d_any, s_dot, 1, " "
        $cut s_number, s_dot, 1, d_any
        $trb s_number, s_number

        $isd d_any, s_number
        dift d_any = 1
            dinc d_count
            $tod d_number, s_number

            'test to see if pnq30
            dg_pass1 = d_number
            sub_pnq30_testshow
            d_any = dg_pass1

            dift d_any = 1
                $out "PNQ30: " + s_number
            else
                s_out = "not PNQ30=" + s_number
                $inp s_any, s_out
            endi
        else
            $out "bad number=" + s_number
        endi
    endi

    dinc d_byte
endw
$inp s_any, "PNQ30: tested, count=" + d_count
ends sub_pnq30_string_test


subr sub_find_next_prime
'updated 2003/02/02
'find the next prime number after dg_pass1
'in direction of dg_pass2
vari d_any, s_any, d_dot, s_dot, s_out
vari d_loop, d_begnumber, d_testnumber
vari d_divisor, d_prime, d_gap, d_delta

'get the beginning number and the delta
d_begnumber = dg_pass1
d_delta = dg_pass2
'd_delta can be +2 or -2

d_testnumber = d_begnumber + d_delta
d_prime = 1
d_loop = 1

dwhi d_loop = 1
    dfac d_divisor, d_testnumber

    dift d_divisor = 1
        d_prime = d_testnumber
        dinc d_loop
    else
        d_testnumber = d_testnumber + d_delta
    endi
endw

ded$ s_any, d_begnumber, 0, 0
ded$ s_dot, d_prime, 0, 0
s_out = "begin=" + s_any + ", next prime=" + s_dot

d_gap = d_prime - d_begnumber
ded$ s_any, d_gap, 0, 0
$app s_out, ", gap=" + s_any

$out s_out

'stop if absolute value of gap is large
dabs d_any, d_gap
dift d_any >= 200: $inp s_any, "gap to next prime"

dg_pass1 = d_gap
ends sub_find_next_prime


subr sub_5tp39_teaquad_next_primes
'updated 2010/06/23, 2004/02/22
vari d_any, s_any, d_dot, s_dot, s_out
vari s_filename, s_filedata, s_line, d_loop, d_big, d_good
vari d_nextct, d_lines
vari s_number, d_count, d_byte, d_long, d_process
vari d_teaquadpart, d_teaquadmult
vari d_factor, d_mult, d_part, d_delta, s_deltas

d_process = 1
dift d_process = 1
    d_nextct = 5
    $inp s_any, "enter count of next primes"
    $isd d_any, s_any
    dift d_any = 1: $tod d_nextct, s_any
endi
dift d_process = 1
    $inp s_filename, "enter name of the file or fix5tp39.exp"
    $ift s_filename = "*": dinc d_process
endi
dift d_process = 1
    'get the file into s_filedata
    $trb s_filename, s_filename
    $len d_any, s_filename
    dift d_any = 0: s_filename = "fix5tp39.exp"
    finp s_filedata, s_filename
    $bes s_filedata, s_filedata
    $cup s_filedata, s_filedata
endi
dift d_process = 1
    $len d_long, s_filedata
    $out "length=" + d_long
    dift d_long < 1: dinc d_process
endi
d_big = 10 ^ 9
d_count = 0

d_loop = d_process
dwhi d_loop = 1

    d_good = 1
    $lok d_byte, s_filedata, 1, "5TP39="

    dift d_byte = 0
        dinc d_loop
        dinc d_good
    endi
    dift d_good = 1
        'get the line to output below
        $cut s_line, s_filedata, d_byte, 60

        d_byte = d_byte + 6

        'eliminate the '5TP39='
        $cut s_filedata, s_filedata, d_byte, d_big
        $trb s_filedata, s_filedata

        'find the blank at the end of the number
        $lok d_byte, s_filedata, 1, " "

        'get the number into a string
        $cut s_number, s_filedata, 1, d_byte

        'prep the string for next look
        $cut s_filedata, s_filedata, d_byte, d_big

        'do we have a number
        $trb s_number, s_number
        sg_pass1 = s_number
        sub_teaquad_from_string
        d_teaquadpart = dg_pass1
        d_teaquadmult = dg_pass2
    endi
    dift d_good = 1
        d_mult = d_teaquadmult
        d_part = d_teaquadpart

        s_deltas = sg_nothing
        d_delta = 0
        d_count = 0
        dwhi d_count < d_nextct
            d_delta = d_delta + 2
            d_part = d_teaquadpart + 38 + d_delta
            dfak d_factor, d_part, d_mult

            dift d_factor = 1
                $app s_deltas, d_delta + ","
                dinc d_count
            endi
        endw
        $out s_number + " " + s_deltas
        dinc d_lines
        dift d_lines > 20
            d_lines = 0
            $inp s_any, "more"
            $ift s_any = "*": dinc d_loop
        endi
    endi
endw

$inp s_any, "done"
ends sub_5tp39_teaquad_next_primes


subr sub_5TP39_test_teapro_loop99
'updated 2007/12/05, 2004/01/23
vari d_any, s_any, d_dot, s_dot
vari d_teaquadpart, d_teaquadmult, d_teaquadone
vari d_divisor, d_root, d_modulus, d_mod1, d_mod2, d_result
vari d_loop, d_count

d_teaquadpart = dg_pass1
d_teaquadmult = dg_pass2

d_teaquadone = 10 ^ 15

d_any = d_teaquadone * d_teaquadmult + d_teaquadpart
dpow d_root, d_any, 0.5

'd_modulus = fmod(fmod(d_teaquadpart, d_divisor)
'+ d_teaquadmult * fmod(d_teaquadone, d_divisor), d_divisor);

d_result = 1
d_divisor = 3
d_loop = 1

gtag tag_top
dinc d_count

d_mod1 = d_teaquadpart % d_divisor
d_mod2 = d_teaquadone % d_divisor
d_modulus = d_teaquadmult * d_mod2 + d_mod1 % d_divisor

dift d_modulus = 0
    dinc d_loop
    d_result = d_divisor
endi

d_divisor = d_divisor + 2
dift d_divisor > d_root: goto tag_end
goto tag_top
gtag tag_end

ded$ s_any, d_count, 0, 0
$out "count=" + s_any
dg_pass1 = d_result
ends sub_5TP39_test_teapro_loop99


subr sub_5TP39_test_quiet
'updated 2004/03/21
vari d_any, s_any, d_dot, s_dot
vari d_5TP39, d_factor
vari d_good, d_number

d_5TP39 = dg_pass1
d_good = 1

dift d_good = 1
    d_number = d_5TP39
    dfac d_factor, d_number
    dift d_factor <> 1
        dinc d_good
        ded$ s_any, d_number, 0, 0
        $out "not prime=" + s_any + ", factor=" + d_factor
    endi
endi
dift d_good = 1
    d_number = d_5TP39 + 2
    dfac d_factor, d_number
    dift d_factor <> 1
        dinc d_good
        ded$ s_any, d_number, 0, 0
        $out "not prime=" + s_any + ", factor=" + d_factor
    endi
endi
dift d_good = 1
    d_number = d_5TP39 + 6
    dfac d_factor, d_number
    dift d_factor <> 1
        dinc d_good
        ded$ s_any, d_number, 0, 0
        $out "not prime=" + s_any + ", factor=" + d_factor
    endi
endi
dift d_good = 1
    d_number = d_5TP39 + 8
    dfac d_factor, d_number
    dift d_factor <> 1
        dinc d_good
        ded$ s_any, d_number, 0, 0
        $out "not prime=" + s_any + ", factor=" + d_factor
    endi
endi
dift d_good = 1
    d_number = d_5TP39 + 18
    dfac d_factor, d_number
    dift d_factor <> 1
        dinc d_good
        ded$ s_any, d_number, 0, 0
        $out "not prime=" + s_any + ", factor=" + d_factor
    endi
endi
dift d_good = 1
    d_number = d_5TP39 + 20
    dfac d_factor, d_number
    dift d_factor <> 1
        dinc d_good
        ded$ s_any, d_number, 0, 0
        $out "not prime=" + s_any + ", factor=" + d_factor
    endi
endi
dift d_good = 1
    d_number = d_5TP39 + 30
    dfac d_factor, d_number
    dift d_factor <> 1
        dinc d_good
        ded$ s_any, d_number, 0, 0
        $out "not prime=" + s_any + ", factor=" + d_factor
    endi
endi
dift d_good = 1
    d_number = d_5TP39 + 32
    dfac d_factor, d_number
    dift d_factor <> 1
        dinc d_good
        ded$ s_any, d_number, 0, 0
        $out "not prime=" + s_any + ", factor=" + d_factor
    endi
endi
dift d_good = 1
    d_number = d_5TP39 + 36
    dfac d_factor, d_number
    dift d_factor <> 1
        dinc d_good
        ded$ s_any, d_number, 0, 0
        $out "not prime=" + s_any + ", factor=" + d_factor
    endi
endi
dift d_good = 1
    d_number = d_5TP39 + 38
    dfac d_factor, d_number
    dift d_factor <> 1
        dinc d_good
        ded$ s_any, d_number, 0, 0
        $out "not prime=" + s_any + ", factor=" + d_factor
    endi
endi
dg_pass1 = d_good
ends sub_5TP39_test_quiet


subr sub_5TP39_test_simple
'updated 2003/04/10
'use sub_prime_test_using_prime_array rather than dfac
vari d_any, s_any, d_dot, s_dot
vari d_5TP39, d_sec1, d_sec2
vari d_good, d_number

d_5TP39 = dg_pass1
dsec d_sec1
d_good = 1

dift d_good = 1
    d_number = d_5TP39

    dg_pass1 = d_number
    sub_prime_test_using_prime_array
    dift dg_pass1 <> 1
        dinc d_good
        ded$ s_any, d_number, 0, 0
        $out "not prime=" + s_any
    endi
endi
dift d_good = 1
    d_number = d_5TP39 + 2

    dg_pass1 = d_number
    sub_prime_test_using_prime_array
    dift dg_pass1 <> 1
        dinc d_good
        ded$ s_any, d_number, 0, 0
        $out "not prime=" + s_any
    endi
endi
dift d_good = 1
    d_number = d_5TP39 + 6

    dg_pass1 = d_number
    sub_prime_test_using_prime_array
    dift dg_pass1 <> 1
        dinc d_good
        ded$ s_any, d_number, 0, 0
        $out "not prime=" + s_any
    endi
endi
dift d_good = 1
    d_number = d_5TP39 + 8

    dg_pass1 = d_number
    sub_prime_test_using_prime_array
    dift dg_pass1 <> 1
        dinc d_good
        ded$ s_any, d_number, 0, 0
        $out "not prime=" + s_any
    endi
endi
dift d_good = 1
    d_number = d_5TP39 + 18

    dg_pass1 = d_number
    sub_prime_test_using_prime_array
    dift dg_pass1 <> 1
        dinc d_good
        ded$ s_any, d_number, 0, 0
        $out "not prime=" + s_any
    endi
endi
dift d_good = 1
    d_number = d_5TP39 + 20

    dg_pass1 = d_number
    sub_prime_test_using_prime_array
    dift dg_pass1 <> 1
        dinc d_good
        ded$ s_any, d_number, 0, 0
        $out "not prime=" + s_any
    endi
endi
dift d_good = 1
    d_number = d_5TP39 + 30

    dg_pass1 = d_number
    sub_prime_test_using_prime_array
    dift dg_pass1 <> 1
        dinc d_good
        ded$ s_any, d_number, 0, 0
        $out "not prime=" + s_any
    endi
endi
dift d_good = 1
    d_number = d_5TP39 + 32

    dg_pass1 = d_number
    sub_prime_test_using_prime_array
    dift dg_pass1 <> 1
        dinc d_good
        ded$ s_any, d_number, 0, 0
        $out "not prime=" + s_any
    endi
endi
dift d_good = 1
    d_number = d_5TP39 + 36

    dg_pass1 = d_number
    sub_prime_test_using_prime_array
    dift dg_pass1 <> 1
        dinc d_good
        ded$ s_any, d_number, 0, 0
        $out "not prime=" + s_any
    endi
endi
dift d_good = 1
    d_number = d_5TP39 + 38

    dg_pass1 = d_number
    sub_prime_test_using_prime_array
    dift dg_pass1 <> 1
        dinc d_good
        ded$ s_any, d_number, 0, 0
        $out "not prime=" + s_any
    endi
endi
dsec d_sec2
d_any = d_sec2 - d_sec1
$out "seconds=" + d_any
dg_pass1 = d_good
ends sub_5TP39_test_simple


subr sub_teaquad_primes_1101
'updated 2008/11/09, 2008/10/19, 2008/10/10, 2007/03/28
'2007/03/19, 2007/03/05, 2007/03/02, 2007/02/27, 2007/02/25
'2006/11/30, 2006/11/26, 2006/11/25, 2006/04/08, 2002/05/02
'find primes of the form of 101
vari d_any, s_any, d_dot, s_dot, s_out
vari d_loop, d_number, s_number, d_mode
vari d_firstdigits, d_countofzeros, d_lastdigit, d_primect
vari d_factor, s_factor, d_totseconds
vari d_process, d_seconds, d_yfile, s_filename
vari d_teaquadpart, d_teaquadmult

d_process = 1
dift d_process = 1
    d_mode = 2
    $inp s_any, "2=2 digit, 3=3 digit above 1E15"
    $ift s_any = "*": dinc d_process
    $ift s_any = "3": d_mode = 3
endi
dift d_process = 1
    s_filename = "prim1101.txt"
    d_yfile = 2
    $inp s_any, "1=save to file=" + s_filename
    $ift s_any = "*": dinc d_process
    $ift s_any = "1": d_yfile = 1
endi
dift d_process = 1
    dift d_yfile = 1
        flen d_any, s_filename
        dift d_any >= 0
            $inp s_any, "1=purge " + s_filename
            $ift s_any = "*": dinc d_process
            $ift s_any = "1": fdel d_any, s_filename
        endi
    endi
endi
dift d_mode = 2
    d_firstdigits = 10
    d_countofzeros = 1
else
    d_firstdigits = 1
    d_countofzeros = 14
endi
d_lastdigit = 1

dsec d_totseconds

d_primect = 0
d_loop = d_process
dwhi d_loop = 1
    'construct the number
    $ch$ s_any, "0", d_countofzeros
    s_number = d_firstdigits + s_any + "1"

    'change from s_number to d_teaquadpart, d_teaquadmult
    sg_pass1 = s_number
    sub_teaquad_from_string
    d_teaquadpart = dg_pass1
    d_teaquadmult = dg_pass2

    dsec d_seconds

    'test for prime single
    dfak d_factor, d_teaquadpart, d_teaquadmult

    dsec d_any
    d_seconds = d_any - d_seconds

    dift d_factor = 1: dinc d_primect

    'change to edited string
    dg_pass1 = d_teaquadpart
    dg_pass2 = d_teaquadmult
    sub_teaquad_to_string
    s_number = sg_pass1

    ded$ s_factor, d_factor, 0, 0
    s_out = d_primect + "." + " " + s_number
    $app s_out, ", factor=" + s_factor
    $app s_out, ", sec=" + d_seconds

    dift d_factor = 1
        $out s_out
        dift d_yfile = 1: fapp d_any, s_filename, s_out
    else
        $sho s_out
    endi

    'increment
    'max is 1,000,000,000,000,000,000,001
    dift d_mode = 2
        dinc d_firstdigits
        dift d_firstdigits > 99
            d_firstdigits = 10
            dinc d_countofzeros
        endi
        dift d_countofzeros >= 19
            'max is 1,000 quintillion and one
            dinc d_loop
        endi
    else
        'three digits above 1E15
        dinc d_firstdigits
        dift d_firstdigits > 999: dinc d_loop
    endi
endw

'construct the number
$ch$ s_any, "0", d_countofzeros
s_number = d_firstdigits + s_any + "1"

'change from s_number to d_teaquadpart, d_teaquadmult
sg_pass1 = s_number
sub_teaquad_from_string
d_teaquadpart = dg_pass1
d_teaquadmult = dg_pass2

'change to edited string
dg_pass1 = d_teaquadpart
dg_pass2 = d_teaquadmult
sub_teaquad_to_string
s_number = sg_pass1

s_out = "end=" + s_number

$out s_out
fapp d_any, s_filename, s_out

$dat s_dot
dsec d_any
d_totseconds = d_any - d_totseconds
s_out = s_dot + ", total secs=" + d_totseconds

$out s_out
fapp d_any, s_filename, s_out

sub_path_prog_memory

$inp s_any, "done"
ends sub_teaquad_primes_1101


subr sub_primes_time_test
'updated 2002/12/30
'test every 10^14th number for time
vari d_any, s_any, d_dot, s_dot, s_out
vari d_time1, d_time2, d_time3, d_timehold, d_diff
vari d_big, d_test, d_factor, d_number, d_increment
vari d_many

$inp s_dot, "1= to 10^13,  2= to 10^14,  3= to 10^15"
$ift s_dot = "1"
    dpow d_big, 10, 13
    d_big = d_big + 10

    dpow d_increment, 10, 11
    d_increment = d_increment * 5
endi
$ift s_dot = "2"
    dpow d_big, 10, 14
    d_big = d_big + 10

    dpow d_increment, 10, 12
    d_increment = d_increment * 5
endi
$ift s_dot = "3"
    dpow d_big, 10, 15
    d_big = d_big + 10

    dpow d_increment, 10, 13
    d_increment = d_increment * 5
endi

d_many = 1
$inp s_any, "how many times to test each"
$isd d_any, s_any
dift d_any = 1: $tod d_many, s_any
d_many = d_many \ 1

$out "number of times to test each=" + d_many

d_timehold = 0
d_number = 1

dwhi d_number < d_big
    d_test = d_number - 2

    d_factor = 2
    dwhi d_factor <> 1
        d_test = d_test + 2

        dfac d_factor, d_test
    endw

    'do d_many of them to make the test more accurate
    d_time3 = 0
    d_dot = 1

    dwhi d_dot <= d_many
        dsec d_time1
        dfac d_factor, d_test
        dsec d_time2

        d_time3 = d_time3 + d_time2 - d_time1
        dinc d_dot
    endw


    d_time3 = d_time3 / d_many
    d_diff = d_time3 - d_timehold

    ded$ s_any, d_test, 0, 0
    $out s_any + "  " + d_time3 + ", diff=" + d_diff

    d_timehold = d_time3
    d_number = d_increment + d_number
endw

$inp s_any, "done"
ends sub_primes_time_test


subr sub_filename
'updated 2002/05/04
'get an output filename into sg_fileout
vari d_any, s_any, d_dot, s_dot

dran d_any
dpow d_dot, 99999, 3
d_any = d_dot * d_any

s_any = d_any

$lok d_dot, s_any, 1, "."
dift d_dot > 0: $del s_any, d_dot, 1

$ch$ s_dot, "0", 10
$app s_any, s_dot
$cut s_any, s_any, 3, 7
sg_fileout = "T" + s_any + ".txt"
ends sub_filename


subr sub_collect_5tp39xx
'updated 2011/04/01, 2011/03/29, 2011/01/19, 2010/12/30
'2010/08/23, 2010/06/21, 2010/04/01, 2010/02/02, 2010/01/28
'2009/11/30, 2009/11/24, 2009/11/21, 2009/11/18, 2009/11/14
'2009/10/19, 2009/09/06, 2009/07/29, 2009/06/05, 2009/06/03
'2009/05/12, 2009/03/03, 2009/02/28, 2009/02/26, 2009/02/01
'2009/01/29, 2009/01/24, 2008/12/22, 2008/10/20, 2008/04/15,
'2008/04/10, 2008/02/05, 2007/08/26, 2007/08/23, 2007/08/22
'2007/07/31, 2007/07/11, 2007/07/01, 2007/06/27, 2007/06/26
vari d_any, s_any, d_dot, s_dot
vari s_letter, d_process, d_prevcount, s_2code, d_type
vari s_fileout, s_filein, s_alldata, s_data, s_names
vari d_loop, s_crlf, d_num, d_count, d_pnumct, d_tnumct

d_process = 1
dift d_process = 1
    $inp s_any, "a, b, p or t files"
    $ift s_any = "*": dinc d_process
    $tlo s_any, s_any
    s_letter = "b"
    $ift s_any = "a": s_letter = s_any
    $ift s_any = "p": s_letter = s_any
    $ift s_any = "t": s_letter = s_any
endi
dift d_process = 1
    d_type = 3
    $inp s_any, "1=below 250E15, 2=QTP20, 3=all"
    $ift s_any = "*": dinc d_process
    $isd d_any, s_any
    dift d_any = 1: $tod d_type, s_any
endi
dift d_process = 1
    dch$ s_crlf, 13, 1
    dch$ s_any, 10, 1
    $app s_crlf, s_any

    s_names = "a0,a1,a2,a3,a4,a5,a6,a7,a8,a9,"
    $app s_names, "g0,g1,g2,g3,g4,g5,g6,g7,g8,g9,"
    $app s_names, "t0,t1,t2,t3,t4,t5,t6,t7,t8,t9,"
    $app s_names, "u0,u1,u2,u3,u4,u5,u6,u7,u8,u9,"
    $app s_names, "n0,n1,n2,n3,n4,n5,n6,n7,n8,n9,"
    $app s_names, "j0,j1,j2,j3,j4,j5,j6,j7,j8,j9,"

    'get count of previous output file
    s_fileout = s_letter + "_5tp39" + ".txt"
    finp s_dot, s_fileout
    $cnt d_prevcount, s_dot, "5TP39"
    fdel d_any, s_fileout

    s_alldata = sg_nothing
endi

d_tnumct = 0
d_num = 1
d_loop = 2
dift d_process = 1
    dift d_type = 1: d_loop = 1
    dift d_type = 3: d_loop = 1
endi
dwhi d_loop = 1
    $par s_2code, s_names, ",", d_num
    $trb s_2code, s_2code
    $len d_any, s_2code
    $ift d_any = 2
        dinc d_count

        '5tp39 files
        s_filein = s_letter + "5tp39" + s_2code + ".txt"
        finp s_data, s_filein
        $cnt d_pnumct, s_data, "5TP39"
        d_tnumct = d_tnumct + d_pnumct

        dift d_pnumct > 0
            $len d_any, s_data
            s_any = d_count + " " + s_filein + " " + d_any
            $app s_any, " pnumct=" + d_pnumct
            $out s_any

            s_any = "file=" + s_filein + s_crlf + s_data
            $app s_any, "file=" + s_filein + s_crlf
            dift d_pnumct > 0: $app s_alldata, s_any
        endi
    else
        dinc d_loop
    endi

    dinc d_num
endw

'qtp20s
d_num = 1
d_loop = 2
dift d_process = 1
    dift d_type = 2: d_loop = 1
    dift d_type = 3: d_loop = 1
endi
dwhi d_loop = 1
    $par s_2code, s_names, ",", d_num
    $trb s_2code, s_2code
    $len d_any, s_2code
    $ift d_any = 2
        dinc d_count

        'qtp20 files
        s_filein = "qtp20" + s_2code + s_letter + ".txt"
        finp s_data, s_filein
        $cnt d_pnumct, s_data, "5TP39"
        d_tnumct = d_tnumct + d_pnumct

        dift d_pnumct > 0
            $len d_any, s_data
            s_any = d_count + " " + s_filein + " " + d_any
            $app s_any, " pnumct=" + d_pnumct
            $out s_any

            s_any = "file=" + s_filein + s_crlf + s_data
            $app s_any, "file=" + s_filein + s_crlf
            dift d_pnumct > 0: $app s_alldata, s_any
        endi
    else
        dinc d_loop
    endi

    dinc d_num
endw

fout d_any, s_fileout, s_alldata

s_any = "file=" + s_fileout + " length=" + d_any
$app s_any, " ct=" + d_count + " totct=" + d_tnumct
$out s_any

d_any = d_tnumct - d_prevcount
$out "previous count=" + d_prevcount + ", diff=" = d_any

$inp s_any, "return"
ends sub_collect_5tp39xx


subr sub_hour_lines_of_qtp20xx1
'updated 2011/04/18, 2011/04/11, 2011/02/04, 2011/01/27, 2011/01/03
'2010/10/08, 2010/08/07, 2010/05/20, 2010/05/04, 2010/01/20
vari d_loop

'hour lines are saved in sg_totalhourlines
'detail lines are saved in sg_hold2codelines
'date and hour are in sg_hourdate
sg_totalhourlines = sg_nothing
sg_hold2codelines = sg_nothing

'12345678901234567890
'11-APR-2011 10:25:36 etc
$dat sg_hourdate
$cut sg_hourdate, sg_hourdate, 1, 15

'dg_pass2=d_autonexthour to continue looking
dg_pass2 = 99
d_loop = 1
dwhi d_loop = 1
    sub_hour_lines_of_qtp20xx2
    d_loop = dg_pass1
endw
ends sub_hour_lines_of_qtp20xx1


subr sub_hour_lines_of_qtp20xx2
'updated 2012/01/11, 2011/12/27, 2011/12/19
'2011/12/18, 2011/12/15, 2011/09/26, 2011/08/05, 2011/07/30
'2011/06/28, 2011/06/27, 2011/06/26, 2011/06/13, 2011/06/12
'2011/06/09, 2011/06/03, 2011/06/02, 2011/05/30, 2011/05/05
'2011/04/12, 2011/04/11, 2011/03/17, 2011/02/04, 2011/01/28
'2011/01/27, 2011/01/20, 2011/01/16, 2011/01/06, 2011/01/03
'2011/01/02, 2010/12/30, 2010/12/24, 2010/12/08, 2010/12/05
'2010/12/04, 2010/12/02, 2010/11/29, 2010/11/24, 2010/11/22
'2010/11/21, 2010/11/19, 2010/11/17, 2010/11/16, 2010/11/15
'2010/11/11, 2010/11/10, 2010/10/28, 2010/10/15, 2010/10/23
'2010/10/22, 2010/10/08, 2010/10/07, 2010/10/06, 2010/09/27
'2010/08/25, 2010/08/21, 2010/08/16, 2010/08/15, 2010/08/13
'2010/08/11, 2010/07/30, 2010/07/28, 2010/06/21, 2010/06/20
'2010/06/18, 2010/06/17, 2010/06/03, 2010/05/31, 2010/05/28,
'2010/05/27, 2010/05/20, 2010/05/19, 2010/05/15, 2010/05/12
'2010/05/05, 2010/05/04, 2010/04/15, 2010/02/02, 2010/01/28
'2010/01/25, 2010/01/22, 2010/01/20, 2010/01/19, 2009/11/18
'2009/09/24, 2009/09/23, 2009/09/21, 2009/09/17, 2009/09/15
vari d_any, s_any, d_dot, s_dot, d_tap, s_tap, s_out
vari s_input, s_dashline, d_long, s_hourdate, d_repeat
vari d_process, d_good, d_totqtp, s_totqtp, d_index
vari s_prevcount, s_2code, s_build, d_build, s_totout
vari s_fileout, s_filein, s_filedata, s_all2codes
vari d_loop1, d_loop2, s_crlf, d_num1, d_detailct, s_line
vari s_tpdave, d_tpdave, d_tpdtotave, d_tpdtotdelta
vari d_tothours, d_cthours, d_totdduoct, d_autonexthour

'totalhour lines are saved in sg_totalhourlines
'hold2code lines are saved in sg_hold2codelines
'date and hour are in sg_hourdate
'd_autonexthour=1 means look for next hour auto

d_autonexthour = dg_pass2
d_build = 99999
s_fileout = "qtp_hrs.txt"
s_hourdate = sg_hourdate
d_repeat = 1
d_process = 1

'make s_crlf
dch$ s_any, 13, 1
dch$ s_dot, 10, 1
s_crlf = s_any + s_dot

$ch$ s_dashline, "-", 64

'12345678901234567890
'11-APR-2011 10:25:36 etc
$cut s_dot, s_hourdate, 13, 2
$cut s_any, s_hourdate, 1, 14

s_out = s_any + "    enter date and hour or just hour "
$app s_out, s_dot + " auto=auto"

dinc d_autonexthour

dift d_autonexthour > 23
    'we do not have autonexthour
    $inp s_input, s_out
    $tup s_input, s_input
    $ift s_input = "*"
        dinc d_process
        dinc d_repeat
    endi

    'do we have auto to set d_autonexthour=0
    $ift s_input = "AUTO"
        'hour lines are saved in sg_totalhourlines
        'detail lines are saved in sg_hold2codelines
        sg_totalhourlines = sg_nothing
        sg_hold2codelines = sg_nothing

        d_autonexthour = 0
        s_input = sg_nothing
    endi
endi
dift d_autonexthour <= 23
    '12345678901234567890
    '11-APR-2011 10:25:36 etc
    $dat s_hourdate
    dcut d_any, s_hourdate, 13, 2
    dift d_any <= d_autonexthour: d_autonexthour = 99

    $cut s_hourdate, s_hourdate, 1, 12
    s_any = "0" + d_autonexthour
    $off s_any, s_any, 2

    $app s_hourdate, s_any
    s_input = s_hourdate
endi

$out s_input

'show interpreter and path
$out sg_interpreter + " " + sg_path

'show build, memory and lines

'memory
dsys d_any, 1
ded$ sg_memory, d_any, 0, 0

'lines
dsys d_dot, 2
ded$ sg_lines, d_dot, 0, 0
s_out = sg_build + " " + sg_loadprog + " " + sg_memory
$app s_out, " " + sg_lines
$out s_out

'         1         2         3         4         5         6
'1234567890123456789012345678901234567890123456789012345678901234567
'ct= 12 ave12= 650.1 17-JUN-2010 02:00 254 625.3 231 1026
'space delimited

$out s_dashline

'12345678901234
'08-OCT-2010 13
dift d_process = 1
    'validate the entered date
    $tup s_input, s_input
    $len d_long, s_input
    dift d_long = 14
        s_hourdate = s_input + ":"
    else
        dift d_long = 2
            $rep s_hourdate, 13, s_input
        else
            dinc d_process
        endi
    endi
endi
dift d_process = 1
    'edit the hour for 0..23
    $cut s_any, s_hourdate, 13, 2
    $ist d_any, s_any, "9"
    dift d_any = 1
        $tod d_any, s_any
        dift d_any > 23: dinc d_process
    else
        dinc d_process
    endi

'12345678901234
'08-OCT-2010 13
    'edit for the dashes
    $cut s_any, s_hourdate, 3, 1
    $ift s_any <> "-": dinc d_process

    $cut s_any, s_hourdate, 7, 1
    $ift s_any <> "-": dinc d_process
endi
dift d_process = 1
    'hour lines are saved in sg_totalhourlines
    'date and hour are in sg_hourdate
    '2codelines are saved in sg_hold2codelines
    sg_hold2codelines = sg_nothing
    sg_hourdate = s_hourdate

    s_all2codes = "t0,t1,t2,t3,t4,t5,t6,t7,t8,t9,"
    $app s_all2codes, "a0,a1,a2,a3,a4,a5,a6,a7,a8,a9,"
    $app s_all2codes, "u0,u1,u2,u3,u4,u5,u6,u7,u8,u9,"
    $app s_all2codes, "g0,g1,g2,g3,g4,g5,g6,g7,g8,g9,"
    $app s_all2codes, "n0,n1,n2,n3,n4,n5,n6,n7,n8,n9,"
    $app s_all2codes, "j0,j1,j2,j3,j4,j5,j6,j7,j8,j9,"
endi

'         1         2         3         4         5         6
'123456789012345678901234567890123456789012345678901234567890123456789
'duo=10,755,531,446,160,516,311 16-JAN-2010 17:01 j2 72.81 73.12 9 8 2

d_detailct = 0
d_num1 = 1
d_tpdtotdelta = 0
d_totdduoct = 0
d_totqtp = 0
d_tothours = 0
d_loop1 = d_process

dwhi d_loop1 = 1
    d_good = 1

    'd_num1 go one by one through s_2codes in s_all2codes
    $par s_2code, s_all2codes, ",", d_num1
    $trb s_2code, s_2code
    $len d_any, s_2code
    $ift d_any <> 2
        dinc d_good
        dinc d_loop1
    endi

    dift d_good = 1
        'qtp20 file name and read in whole file
        s_filein = "qtp20" + s_2code + "a.txt"
        finp s_filedata, s_filein
        $len d_long, s_filedata
        dift d_long < 200: dinc d_good
    endi
'         1         2         3         4         5         6
'123456789012345678901234567890123456789012345678901234567890123456789
'duo=10,755,531,446,160,516,311 16-JAN-2010 17:01 j2 72.83 73.16 9 8 2
    d_tap = 1
    d_loop2 = d_good

    dwhi d_loop2 = 1
        'below looping through s_filein
        'find s_hourdate beginning in d_tap 08-OCT-2010 13:
        $lok d_tap, s_filedata, d_tap, s_hourdate
        dift d_tap < 28
            dinc d_good
            dinc d_loop2
        else
            'd_tap is beginning of s_hourdate
            'find beginning of duo= beginning in d_dot
            $bak d_dot, s_filedata, d_tap, "duo="
            dift d_dot = 0: d_dot = - 99999

            'is duo= properly close to the date
            d_any = d_tap - d_dot
            dift d_any < 34
                'we have the line we want
                $cut s_line, s_filedata, d_dot, 100
                $lok d_any, s_line, 1, s_crlf
                $cut s_line, s_line, 1, d_any
                $bes s_line, s_line
                $trb s_line, s_line

                dinc d_loop2
            else
                'no duo= only a 5TP39
                dinc d_good
                dinc d_loop2
            endi
        endi
        'above looping through s_filein
    endw

'2codeline format
'         1         2         3         4         5         6
'123456789012345678901234567890123456789012345678901234567890123456789
'duo=10,755,531,446,160,516,311 16-JAN-2010 17:01 j2 73.74 73.16 9 8 2
    dift d_good = 1
        'we have duo= line in s_line
        'first get most recent s_build from s_filedata
        $bak d_tap, s_filedata, d_long, "tea build="
        dift d_tap > 0
            '123456789012345
            'tea build=
            d_tap = d_tap + 10
            $cut s_build, s_filedata, d_tap, 4
            $isd d_any, s_build
            dift d_any = 1
                'we want lowest s_build into d_build
                $tod d_any, s_build
                dift d_any < d_build: d_build = d_any
            endi
        endi
    endi

    'we are done for now with s_filedata
    s_filedata = sg_nothing

'2codeline format
'         1         2         3         4         5         6
'123456789012345678901234567890123456789012345678901234567890123456789
'duo=10,755,531,446,160,516,311 16-JAN-2010 17:01 j2 73.47 73.16 2 4 3
    dift d_good = 1
        'get d_tpdave and d_tpdtotave
        $par s_any, s_line, " ", 5
        $trb s_any, s_any
        $isd d_any, s_any
        dift d_any = 1
            $tod d_tpdave, s_any
            d_tpdtotave = d_tpdtotave + d_tpdave
        endi

        'get d_tpdtotdelta
        $par s_any, s_line, " ", 6
        $trb s_any, s_any
        $isd d_any, s_any
        dift d_any = 1
            $tod d_any, s_any
            d_tpdtotdelta = d_tpdtotdelta + d_any
        endi

        'get d_totdduoct
        $par s_any, s_line, " ", 7
        $trb s_any, s_any
        $isd d_any, s_any
        dift d_any = 1
            $tod d_any, s_any
            d_totdduoct = d_totdduoct + d_any
        endi

        'get d_cthours and d_tothours
        $par s_any, s_line, " ", 8
        $trb s_any, s_any
        $isd d_any, s_any
        dift d_any = 1
            $tod d_any, s_any
            d_tothours = d_tothours + d_any
        endi

        'get d_totqtp count
        $par s_any, s_line, " ", 9
        $trb s_any, s_any
        $isd d_any, s_any
        dift d_any = 1
            $tod d_any, s_any
            d_totqtp = d_totqtp + d_any
        endi

        dinc d_detailct

        $cut s_dot, s_line, 5, 999
        s_out = s_dot + " " + s_build
        $out s_out

        'add s_out to sg_hold2codelines
        $app sg_hold2codelines, s_out + "$"
    endi

    dinc d_num1
endw

dift d_process = 1
    'format totalhourline

    $out s_dashline

    'format the total tpdave d_tpdtotave
    dto$ s_tap, d_tpdtotave, 1, 1

    'build the totalhourline record
    s_out = "ct= " + d_detailct
    $app s_out, " ave12= " + s_tap
    $app s_out, " " + s_hourdate + "00"

    'format the qtp total d_totqtp
    $app s_out, " " + d_totqtp

    'format d_tpdtotdelta
    dto$ s_any, d_tpdtotdelta, 1, 1
    $app s_out, " " + s_any + " " + d_totdduoct
    $app s_out, " " + d_build
    $out s_out
    s_totout = s_out

    dift d_detailct > 0

        'add totalhourline to sg_totalhourlines and to file
        $app sg_totalhourlines, s_out + "$"
        fapp d_any, s_fileout, s_out

        'add total line to sg_hold2codelines
        $app sg_hold2codelines, s_dashline + "$"
        $app sg_hold2codelines, s_out + "$"
    endi
endi

'totalhourline format
'         1         2         3         4         5         6
'1234567890123456789012345678901234567890123456789012345678901234567
'ct= 12 ave12= 650.1 17-JUN-2010 02:00 254 627.5 231 1026
'space delimited

'show totalhourlines in sg_totalhourlines separated by $
sub_hour_lines_of_qtp20xx3

'show latest 2codelines in sg_hold2codelines
'sub_hour_lines_of_qtp20xx4

'hour lines are saved in sg_totalhourlines separated by $
'date and hour are in sg_hourdate
dg_pass1 = d_repeat
dg_pass2 = d_autonexthour
ends sub_hour_lines_of_qtp20xx2


subr sub_hour_lines_of_qtp20xx3
'updated 2012/01/11, 2011/08/05, 2011/06/12
'2011/06/03, 2011/05/05, 2011/05/01, 2011/04/12, 2011/04/11
'2011/03/17, 2011/02/17, 2011/02/13, 2011/02/09, 2011/02/04
'2011/01/29, 2011/01/13, 2011/01/12, 2011/01/11, 2011/01/10
'2011/01/08, 2011/01/03, 2010/12/30, 2010/12/24, 2010/12/21
'2010/12/14, 2010/12/08, 2010/12/06, 2010/12/05
'show totalhour lines in sg_totalhourlines separated by $
vari d_any, s_any, d_dot, s_dot, d_tap, s_tap, s_out
vari s_dashline, d_long, s_2code, s_datetime, s_head
vari s_line, d_index, d_linenum, d_totallinecount
vari d_total08, d_count08, d_total09, d_count09
vari d_total10, d_count10, d_totalall, d_countall
vari d_totaldduo, d_totaldelta

vari d_fromlinect, d_fromlinetot, s_fromlinedatehour
vari d_fromlineqtpct, d_fromlinedelta, d_fromlinedduo
vari d_fromlinebuild, d_fromlineprevct

'show totalhour lines in sg_totalhourlines separated by $
$ch$ s_dashline, "-", 64

'heading line
$ch$ s_head, " ", 28
$app s_head, "date  hour  qtp  real  dduo  vers  ave"
$out s_head

'         1         2         3         4         5         6
'123456789012345678901234567890123456789012345678901234567890
'ct= 12 ave12= 650.1 17-JUN-2010 02:00 254 640.0 1026
'space delimited
'hour detail lines are saved in sg_totalhourlines separated by $

'show previous hour total lines
$cnt d_totallinecount, sg_totalhourlines, "$"
d_totaldduo = 0
d_linenum = 0
d_index = 1

dwhi d_index <= d_totallinecount
    'extract next hour line
    $par s_line, sg_totalhourlines, "$", d_index
    $len d_long, s_line

    dift d_long > 0
        'from line get count into d_fromlinect, d_fromlineprevct
        d_fromlineprevct = d_fromlinect
        d_fromlinect = 0

        'from line count into d_fromlinect
        $par s_any, s_line, " ", 2
        $isd d_any, s_any
        dift d_any = 1: $tod d_fromlinect, s_any

        'a group is a consecutive set with same d_fromlinect
        'group control break on d_fromlinect,d_fromlineprevct

        'from line delta into d_fromlinedelta
        d_fromlinedelta = 0
        $par s_any, s_line, " ", 8
        $isd d_any, s_any
        dift d_any = 1: $tod d_fromlinedelta, s_any

        'get d_totaldelta
        d_totaldelta = d_totaldelta + d_fromlinedelta

        dinc d_countall
        d_totalall = d_totalall + d_fromlinedelta

        'get s_fromlinedatehour
        $par s_any, s_line, " ", 5
        $par s_dot, s_line, " ", 6
        s_fromlinedatehour = s_any + " " + s_dot

        'get d_totaldduo
        d_fromlinedduo = 0
        $par s_any, s_line, " ", 9
        $isd d_any, s_any
        dift d_any = 1: $tod d_fromlinedduo, s_any
        d_totaldduo = d_totaldduo + d_fromlinedduo

        'output line with group count and allave delta
        dinc d_linenum
        dto$ s_any, d_linenum, 2, 0

        d_dot = d_totaldelta / d_linenum
        dto$ s_dot, d_dot, 1, 1

        s_out = s_any + "." + " " + s_line
        $app s_out, " " + s_dot
        $out s_out
    endi

    dinc d_index
endw
ends sub_hour_lines_of_qtp20xx3


subr sub_hour_lines_of_qtp20xx4
'updated 2011/05/05, 2011/04/12, 2011/01/27
'show latest 2code lines in sg_hold2codelines

vari s_any, d_any, s_dot, d_dot
vari d_loop, s_line

$ch$ s_any, "-", 70
$out s_any

d_dot = 1
d_loop = 1
dwhi d_loop = 1
    $par s_dot, sg_hold2codelines, "$", d_dot
    $trb s_dot, s_dot
    $len d_any, s_dot
    dift d_any > 0
        $out s_dot
    else
        dinc d_loop
    endi
    dinc d_dot
endw
ends sub_hour_lines_of_qtp20xx4


subr sub_path_prog_memory
'updated 2011/09/26, 2010/11/29, 2010/09/21
'2010/05/31, 2010/05/28, 2007/12/22, 2007/12/01, 2007/11/12
'2006/09/25, 2006/09/04, 2006/08/29, 2006/04/23, 2005/10/08
vari s_any, d_any, d_dot, s_dot, s_out, s_dashline, s_date

$ch$ s_dashline, "-", 64
$out s_dashline

'path
$sys sg_path, 1
$trb sg_path, sg_path

'lines
dsys d_any, 2
ded$ sg_lines, d_any, 0, 0

'path and lines
$out sg_path + " " + sg_lines


'get teapro interpreter
$sys sg_interpreter, 3
$trb sg_interpreter, sg_interpreter

'get load program
$sys sg_loadprog, 4

'memory
dsys d_any, 1
ded$ sg_memory, d_any, 0, 0

'interpreter and memory
$out sg_interpreter + " " + sg_loadprog + " " + sg_memory

'ag_build come from top of this program
'teapro program build and program line count
$out sg_build + " " + sg_loadprog

$dat s_date
$cut s_date, s_date, 1, 20

$out s_date

$out s_dashline
ends sub_path_prog_memory


subr sub_dfac_speed_test
'updated 2003/09/29
vari d_any, s_any, d_dot, s_dot
vari d_sec1, d_sec2, d_maxct, d_count, d_number

$out "1 = 999,090,480,521,891 prime"
$out "2 = 999,997,874,844,049 has square root= 31,622,743"
$inp s_any, "pick one"

$ift s_any = "1"
    $tod d_number, "999,090,480,521,891"
else
    $tod d_number, "999,997,874,844,049"
endi
$out "number is = " + d_number

d_maxct = 10
$inp s_any, "how many times, 10 default"
$isd d_any, s_any
dift d_any = 1: $tod d_maxct, s_any

d_count = 0
dsec d_sec1
dwhi d_count <= d_maxct
    dfac d_dot, d_number
    dinc d_count
endw
dsec d_sec2
d_any = d_sec2 - d_sec1
$out "factor=" + d_dot
$inp s_any, "time=" + d_any
ends sub_dfac_speed_test


subr sub_xyz_math
'updated 2010/02/10
'2010/02/09, 2010/02/06, 2007/09/12, 2007/04/11, 2006/05/04
'2006/04/08, 2005/11/05, 2005/08/20, 2005/06/11, 2004/04/21
'solve a multi number math expression in sg_pass1
'the format is: x=123*567+4.6 etc or y=123*567+4.6
'put answer in dg_xvalue, dg_yvalue, dg_zvalue
'put answer in dg_uvalue, dg_vvalue, dg_wvalue
vari d_any, s_any, d_dot, s_dot, s_out, s_lok
vari d_good, d_long, d_loop, d_error, s_dashline
vari s_line, d_number, s_operator, d_answer, s_xyzvalue
vari s_work, d_byte, s_term, d_process, s_command, s_aster

s_command = sg_pass1
$tup s_line, s_command

$ch$ s_dashline, "-", 64
$ift s_line = "XYZ": s_line = "X=X"

'do we have x=, or y= or z=
d_process = 2
$cut s_any, s_line, 1, 2
$ift s_any = "X=": d_process = 1
$ift s_any = "Y=": d_process = 1
$ift s_any = "Z=": d_process = 1
$ift s_any = "U=": d_process = 1
$ift s_any = "V=": d_process = 1
$ift s_any = "W=": d_process = 1

dwhi d_process = 1
    'x is in dg_xvalue, y is in dg_yvalue, z in dg_zvalue
    'u is in dg_uvalue, v is in dg_vvalue, w in dg_wvalue

    'remove commas and blanks and pipes
    $swp s_line, ",", sg_nothing
    $swp s_line, " ", sg_nothing
    $swp s_line, "|", sg_nothing

    '| pipe delimited into sg_xyzmath
    'which holds all xyz commands to show later
    $app sg_xyzmath, s_line + "|"

    'remove the x= or y= at the beginning in s_work
    $cut s_work, s_line, 3, 100
    $cut s_any, s_work, 1, 1

    'put on + if needed
    $ift s_any <> "+"
        $ift s_any <> "-": s_work = "+" + s_work
    endi

    'semi-colon is the end of line operator
    $app s_work, ";"

    $len d_long, s_work
    d_error = 2
    d_byte = 2
    d_answer = 0
    d_loop = 1

    dwhi d_loop = 1
        'do we have the next operator in d_byte
        $cut s_dot, s_work, d_byte, 1
        s_lok = "+-*/\%^@;"
        $lok d_any, s_lok, 1, s_dot

        dift d_any > 0
            'we have the location of the next operator
            d_long = d_byte - 2

            'the current operator is in 1
            'get the number or x,y,z
            $cut s_term, s_work, 2, d_long

            'is this string a number
            $isd d_good, s_term
            dift d_good = 1
                $tod d_number, s_term
            else
                'if X then use the xvalue from previous
                $ift s_term = "X"
                    d_number = dg_xvalue
                    d_good = 1
                endi
                $ift s_term = "Y"
                    d_number = dg_yvalue
                    d_good = 1
                endi
                $ift s_term = "Z"
                    d_number = dg_zvalue
                    d_good = 1
                endi
                $ift s_term = "U"
                    d_number = dg_uvalue
                    d_good = 1
                endi
                $ift s_term = "V"
                    d_number = dg_vvalue
                    d_good = 1
                endi
                $ift s_term = "W"
                    d_number = dg_wvalue
                    d_good = 1
                endi
                dift d_good <> 1: d_error = 1
            endi
            dift d_good = 1
                'get current operator
                $cut s_operator, s_work, 1, 1

                $ift s_operator = "+"
                    d_answer = d_answer + d_number
                endi
                $ift s_operator = "-"
                    d_answer = d_answer - d_number
                endi
                $ift s_operator = "*"
                    d_answer = d_answer * d_number
                endi
                $ift s_operator = "/"
                    dift d_number = 0
                        $out "zero divide"
                        d_error = 1
                    else
                        d_answer = d_answer / d_number
                    endi
                endi
                $ift s_operator = "\"
                    dift d_number = 0
                        $out "zero divide"
                        d_error = 1
                    else
                        d_answer = d_answer \ d_number
                    endi
                endi
                $ift s_operator = "^"
                    dpow d_answer, d_answer, d_number
                endi
                $ift s_operator = "%"
                    'mod
                    dift d_number = 0
                        $out "zero divide"
                        d_error = 1
                    else
                        d_answer = d_answer % d_number
                    endi
                endi
                $ift s_operator = "@"
                    'round to d_number places
                    d_answer = d_answer @ d_number
                endi

                'put next operator in 1
                $cut s_work, s_work, d_byte, 99999
                d_byte = 1
            endi
        endi

        dinc d_byte

        $len d_long, s_work
        dift d_byte > d_long: dinc d_loop

        dift d_error = 1: dinc d_loop

        'we end with a semi-colon
        $cut s_any, s_work, 1, 1
        $ift s_any = ";": dinc d_loop
    endw

    dift d_error = 1
        s_out = "error in expression: " + s_line
        $inp s_any, s_out
        s_line = "X=X"
    else
        'put value in x,y,z
        $cut s_any, s_line, 1, 1
        $ift s_any = "X": dg_xvalue = d_answer
        $ift s_any = "Y": dg_yvalue = d_answer
        $ift s_any = "Z": dg_zvalue = d_answer
        $ift s_any = "U": dg_uvalue = d_answer
        $ift s_any = "V": dg_vvalue = d_answer
        $ift s_any = "W": dg_wvalue = d_answer

        'show values
        ded$ s_any, dg_xvalue, 0, 0
        s_out = "x=" + s_any
        dift dg_xvalue > 1
            d_any = dg_xvalue \ 1
            dift dg_xvalue = d_any
                dfac d_any, dg_xvalue
                dift d_any = 1: $app s_out, ":P"
            endi
        endi

        ded$ s_any, dg_yvalue, 0, 0
        $app s_out, ", y=" + s_any
        dift dg_yvalue > 1
            d_any = dg_yvalue \ 1
            dift dg_yvalue = d_any
                dfac d_any, dg_yvalue
                dift d_any = 1: $app s_out, ":P"
            endi
        endi

        ded$ s_any, dg_zvalue, 0, 0
        $app s_out, ", z=" + s_any
        dift dg_zvalue > 1
            d_any = dg_zvalue \ 1
            dift dg_zvalue = d_any
                dfac d_any, dg_zvalue
                dift d_any = 1: $app s_out, ":P"
            endi
        endi
        $out s_out

        ded$ s_any, dg_uvalue, 0, 0
        s_out = "u=" + s_any
        dift dg_uvalue > 1
            d_any = dg_uvalue \ 1
            dift dg_uvalue = d_any
                dfac d_any, dg_uvalue
                dift d_any = 1: $app s_out, ":P"
            endi
        endi

        ded$ s_any, dg_vvalue, 0, 0
        $app s_out, ", v=" + s_any
        dift dg_vvalue > 1
            d_any = dg_vvalue \ 1
            dift dg_vvalue = d_any
                dfac d_any, dg_vvalue
                dift d_any = 1: $app s_out, ":P"
            endi
        endi

        ded$ s_any, dg_wvalue, 0, 0
        $app s_out, ", w=" + s_any
        dift dg_wvalue > 1
            d_any = dg_wvalue \ 1
            dift dg_wvalue = d_any
                dfac d_any, dg_wvalue
                dift d_any = 1: $app s_out, ":P"
            endi
        endi

        $out s_out
        $out s_dashline

        'pipe delimited into sg_xyzmath
        '$app sg_xyzmath, s_out + "|"

        $inp s_line, "s=show past xyz commands"

        $tup s_line, s_line

        'do we have x=, or y=
        d_process = 2
        $cut s_any, s_line, 1, 2
        $ift s_any = "X=": d_process = 1
        $ift s_any = "Y=": d_process = 1
        $ift s_any = "Z=": d_process = 1
        $ift s_any = "U=": d_process = 1
        $ift s_any = "V=": d_process = 1
        $ift s_any = "W=": d_process = 1

        $ift s_any = "S"
            'list from sg_xyzmath | pipe delimited
            $ch$ s_aster, "*", 60
            s_line = "X=X"

            $out s_aster
            d_dot = 1
            d_loop = 1
            dwhi d_loop = 1
                $par s_dot, sg_xyzmath, "|", d_dot
                $trb s_dot, s_dot
                $ift s_dot = sg_nothing
                    dinc d_loop
                else
                    $out s_dot
                    dinc d_dot
                endi
            endw
            $out s_aster
            d_process = 1
        endi
    endi
    s_command = "none"
endw
sg_pass1 = s_command
ends sub_xyz_math


subr sub_prime_test_simple
'updated 2006/08/27, 2006/08/26, 2006/08/04, 2005/02/14, 2005/02/13
'2005/02/09, 2005/02/06, 2005/01/30, 2004/11/27, 2003/04/11
'simple test dg_pass1 for prime, if prime set dg_pass1 to 1
'otherwise set dg_pass1 to the divisor
'return number of tealines in dg_pass2
vari d_any, s_any, d_dot, s_dot
vari d_number, d_try, d_root, d_mod
vari d_loop, d_result

'make positive whole number
d_number = dg_pass1 \ 1
dabs d_number, d_number

'get root of
d_any = 1 / 2
dpow d_root, d_number, d_any

d_result = 1

dift d_number > 3
    'first try 2
    d_mod = d_number % 2
    dift d_mod = 0: d_result = 2
endi

d_try = 3
d_loop = d_result
dift d_try > d_root: dinc d_loop

dwhi d_loop = 1
    'test d_try
    d_mod = d_number % d_try

    dift d_mod = 0
        'd_number is not prime
        dinc d_loop
        d_result = d_try
    else
        d_try = d_try + 2
        dift d_try > d_root: dinc d_loop
    endi
endw

dg_pass1 = d_result
ends sub_prime_test_simple


subr sub_speedquick
'updated 2011/07/30, 2010/10/14, 2010/09/27
'2010/08/02, 2010/07/08, 2010/04/29, 2010/04/16, 2010/02/04
'2009/11/10, 2009/11/08, 2009/10/19, 2009/10/18, 2008/02/23
vari d_any, s_any, d_dot, s_dot
vari d_time, d_total, d_lines

'count of the loop
d_total = 10 ^ 6 * 5

dsys d_lines, 2
dsec d_time

d_any = 0
gtag tag_speedquick
dinc d_any
dift d_any < d_total: goto tag_speedquick

dsec d_any
dsys d_dot, 2

d_time = d_any - d_time
dift d_time <= 0: d_time = 1
d_lines = d_dot - d_lines

d_any = d_lines / d_time / 1000 / 1000
ded$ s_any, d_any, 2, 3
dift dg_speedquick = 0: dg_speedquick = d_any

$dat s_dot
$cut s_dot, s_dot, 1, 20
sg_pass1 = "meg_lines/sec= " + s_any + " " + " " + s_dot
ends sub_speedquick


subr sub_speed98_test
'updated 2011/09/19, 2011/09/12, 2011/09/11
'2011/09/09, 2011/09/08, 2010/09/21, 2010/09/01, 2010/03/07
'2010/03/05, 2009/03/15, 2009/01/25, 2008/02/02, 2008/02/01
'2007/12/09, 2007/12/08, 2007/12/07, 2007/12/01, 2007/11/23
'2007/11/21, 2007/11/20, 2007/11/18, 2007/11/16, 2007/11/12
'2007/11/04, 2007/09/15, 2007/07/11, 2007/04/16, 2007/04/11
'2005/11/30, 2005/11/20, 2005/03/31, 2005/02/26, 2004/12/03
'speed test
vari d_any, s_any, d_dot, s_dot, d_tap, s_tap, s_out
vari d_time, d_maxcount, s_maxcount, d_count
vari d_number, d_index, d_mod1
vari s_dashline, d_tseconds
vari d_teaquadpart, d_teaquadmult

'get current subroutine name
$sys s_any, 2
$out s_any

$ch$ s_dashline, "-", 64

$out s_dashline
sub_path_prog_memory

d_tseconds = 0

d_maxcount = 10 ^ 8 * 2
ded$ s_maxcount, d_maxcount, 0, 0
s_maxcount = " " + s_maxcount

'load array with 20000 primes
'put 20,000 primes in decimal array
dsec d_tap
d_number = 1
d_index = 1
dwhi d_index <= 20000
    'get the lowest factor
    dfac d_mod1, d_number
    dift d_mod1 = 1
        'we have a prime
        dtoi d_index, d_number
        dinc d_index
    endi
    d_number = d_number + 2
endw

'the first prime is 2
dtoi 1, 2
itod d_any, 20000
s_out = "prime array from=2 to=" + d_any

$app s_out, " ct=20000"
dsec d_any
d_tap = d_any - d_tap
$out s_out + " sec=" + d_tap
d_tseconds = d_tseconds + d_tap

'dwhi dinc loop
$out s_dashline
d_count = 0
dsec d_time

dwhi d_count < d_maxcount
    dinc d_count
endw

dsec d_any
d_time = d_any - d_time
d_tseconds = d_tseconds + d_time
$out "1.seconds=" + d_time + " dwhi dinc loop" + s_maxcount

'dwhi ddec loop
$out s_dashline
d_count = d_maxcount
dsec d_time

dwhi d_count > 0
    ddec d_count
endw

dsec d_any
d_time = d_any - d_time
d_tseconds = d_tseconds + d_time
$out "2.seconds=" + d_time + " dwhi ddec loop" + s_maxcount

'dwhi +1 loop
$out s_dashline
d_count = 0
dsec d_time

dwhi d_count < d_maxcount
    d_count = d_count + 1
endw

dsec d_any
d_time = d_any - d_time
d_tseconds = d_tseconds + d_time
$out "3.seconds=" + d_time + " dwhi +1 loop" + s_maxcount

'gtag dinc loop
$out s_dashline
d_count = 0
dsec d_time

gtag tag_gtagdinc
dinc d_count
dift d_count < d_maxcount: goto tag_gtagdinc

dsec d_any
d_time = d_any - d_time
d_tseconds = d_tseconds + d_time
$out "4.seconds=" + d_time + " gtag dinc dift loop" + s_maxcount

'dwhi dinc itod
$out s_dashline
dsec d_time

d_dot = 10 ^ 7 * 4

d_count = 0
d_index = 1
dwhi d_count < d_dot
    itod d_any, d_index
    dinc d_index
    dift d_index > 20000: d_index = 1

    dinc d_count
endw

dsec d_any
d_time = d_any - d_time
d_tseconds = d_tseconds + d_time
ded$ s_dot, d_dot, 0, 0
$out "5.seconds=" + d_time + " dwhi dinc itod " + s_dot
$out "total=" + d_tseconds

'dduo
$out s_dashline
'10,999,970,611,232,206,361
d_teaquadmult = 10999
s_dot = "10,999,970,611,232,206,361"
$out s_dot
$off s_dot, s_dot, 19
$tod d_teaquadpart, s_dot

dsec d_time

dduo d_any, d_teaquadpart, d_teaquadmult

$out "factor=" + d_any

dsec d_any

d_time = d_any - d_time
d_tseconds = d_tseconds + d_time
$out "6.seconds=" + d_time + " dduo"

$out s_dashline
$inp s_any, "tot secs=" + d_tseconds
ends sub_speed98_test


subr sub_speed_test
'updated 2008/02/02, 2008/01/25, 2007/12/22, 2007/12/14
'2007/12/09, 2007/12/08, 2007/12/07, 2007/12/01, 2007/11/23
'2007/11/21, 2007/11/20, 2007/11/18, 2007/11/16, 2007/11/12
'2007/11/04, 2007/09/15, 2007/07/11, 2007/04/16, 2007/04/11
'2005/11/30, 2005/11/20, 2005/03/31, 2005/02/26, 2004/12/03
'speed test
vari d_any, s_any, d_dot, s_dot, s_out
vari d_count, d_maxcount, d_index, d_time1, d_time2
vari s_dashline, d_tseconds
vari d_teaquadpart, d_teaquadmult

'get current subroutine name
$sys s_any, 2
$out s_any

$ch$ s_dashline, "-