'begin the oldqtp.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_hrto, sg_hrto vari sg_computer, dg_version, sg_qtpyy vari dg_length, sg_fileline, sg_the2codes, sg_newpausefiles vari dg_jig, sg_jig, sg_pspeed, dg_pspeed vari dg_modprime, dg_resultprime, dg_darraymax, sg_12months vari sg_totalhourlines, sg_15hourlinesdate vari sg_holdtrylines1, sg_holdtrylines2 vari sg_version, sg_path, sg_interpreter, sg_memory, sg_lines, sg_loadprog vari sg_math, sg_nothing, sg_dashline, sg_asterline vari dg_xvalue, dg_yvalue, dg_zvalue, sg_xyzmath vari dg_uvalue, dg_vvalue, dg_wvalue 'qtptest $out "QTPTEST" sub_main endp subr sub_main 'updated 2020/01/20, 2018/09/14, 2018/07/17 '2018/03/28, 2018/03/16, 2017/07/07, 2017/01/03, 2016/12/29 '2016/12/03, 2016/07/04, 2016/03/12, 2016/01/27, 2016/01/23 '2016/01/19, 2015/12/22, 2015/10/25, 2015/08/14, 2015/08/12 '2015/08/10, 2015/07/03, 2015/06/23, 2015/06/03, 2015/05/10 '2015/03/03, 2015/01/06, 2014/01/18, 2014/01/16, 2013/12/30 '2013/03/19, 2013/03/12, 2013/02/25, 2012/11/12, 2012/11/11 '2012/10/12, 2012/09/15, 2012/03/23, 2005/10/21, 2004/03/30 'main subroutine vari d_any, s_any, d_dot, s_dot vari d_pick $trb sg_nothing, " " 'get the computer code finp sg_computer, "COMPUTER.TXT" $tlo sg_computer, sg_computer $len d_any, sg_computer dift d_any <> 10: sg_computer = "z" $cut sg_computer, sg_computer, 1, 1 'load the string sg_the2codes sg_the2codes = sg_nothing $app sg_the2codes, "a0,a1,a2,a3,a4,a5,a6,a7,a8,a9," $app sg_the2codes, "g0,g1,g2,g3,g4,g5,g6,g7,g8,g9," '$app sg_the2codes, "j0,j1,j2,j3,j4,j5,j6,j7,j8,j9," $app sg_the2codes, "n0,n1,n2,n3,n4,n5,n6,n7,n8,n9," $app sg_the2codes, "p0,p1,p2,p3,p4,p5,p6,p7,p8,p9," $app sg_the2codes, "t0,t1,t2,t3,t4,t5,t6,t7,t8,t9," $app sg_the2codes, "z0,z1,z2,z3,z4,z5,z6,z7,z8,z9," sg_12months = "JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC," dg_hrto = 99 sg_hrto = "hrto=" + dg_hrto dg_jig = 14 sg_jig = "jig=" + dg_jig 'file name beginning for 2019 sg_qtpyy = "qtp20" dg_endprogram = 2 dwhi dg_endprogram <> 1 sub_menu0 endw ends sub_main subr sub_menu0 'updated 2018/06/15, 2018/03/16 '2017/12/08, 2017/06/10, 2016/03/13, 2016/02/11, 2016/01/29 '2016/01/28, 2016/01/23, 2015/11/12, 2015/10/19, 2015/09/20 '2015/07/07, 2015/06/14, 2014/10/11, 2014/10/10, 2014/10/05 '2014/10/02, 2014/09/16, 2014/07/21, 2014/07/19, 2014/01/16 '2013/03/13, 2013/02/25, 2012/11/13, 2012/11/12, 2012/11/11 '2012/03/23, 2012/03/07, 2012/03/05, 2012/02/10, 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 vari s_pick, d_pick, s_out, d_inp, d_seconds 'c90tea.cpp build=610 $sys sg_interpreter, 3 $trb sg_interpreter, sg_interpreter 'the decimal array max is 99000 dg_darraymax = 99000 $sys sg_path, 1 $trb sg_path, sg_path $sys sg_loadprog, 4 'make sg_version and add length of the program dg_version = 2014 sg_version = "oldqtp.tea version=" + dg_version + " 2020/05/15" 'initialize the sg_dashline,sg_asterline $ch$ sg_dashline, "-", 14 $ch$ sg_asterline, "*", 14 $app sg_dashline, " " + "v" + "=" + dg_version +" "+ sg_qtpyy $app sg_asterline, " " + "v" + "=" + dg_version +" "+ sg_qtpyy 'program line count dsys d_any, 3 $app sg_version, " " + d_any + sg_computer $out sg_version +" "+ sg_loadprog $out "oldqtp.tea copyright (c) 1998-2019 by D La Pierre Ballard" $out "oldqtp.tea may be used for free by anyone," $out "but there is no warranty of any kind on it." $out sg_asterline +" "+ sg_hrto +" "+ sg_jig $out "written in the teapro programming language" $out "teapro copyright (c) 1997-2019 by D La Pierre Ballard" $out "teapro uses the opentea technology to be simple and solid" $out sg_asterline +" "+ sg_hrto +" "+ sg_jig $out "People need computer software that actually works." $out sg_asterline +" "+ sg_hrto +" "+ sg_jig 'get sg_pspeed = processor speed sub_pspeed 'show prog, path, lines sub_prog_path_lines $out sg_asterline +" "+ sg_hrto +" "+ sg_jig '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 choose file code and number" $out "3 = duo teaquad 5TP39 TEST qtptest" $out "8 = sub_hour_lines_5tp39xx1" $out "9 = sub_pause_file_build_delete" $out "11 = sub_input_yes_no_asterisk " + sg_path + " lines=" + sg_lines $out "12 = sub_file_search " + sg_interpreter + " m=" + sg_memory $out "21 = sub_collect_5tp39xx0 " + sg_version +" "+ sg_loadprog $out "23 = sub_menu_primes " + sg_pspeed $out "96 = sub_xyz_math " + sg_qtpyy dsec d_any s_out = "PICK a number, *=end, " $app s_out, "psec=" + d_any +" "+ sg_hrto +" "+ sg_jig $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 choose file code, beg, end dift d_pick = 1 dg_pass1 = 1 sub_teaquad_5tp39_by_modulus_duo endi '5tp39 find by modulus TEST dift d_pick = 3 dg_pass1 = 3 sub_teaquad_5tp39_by_modulus_duo endi dift d_pick = 8: sub_hour_lines_5tp39xx1 'build or delete s_pausefile dift d_pick = 9: sub_pause_file_build_delete dift d_pick = 11 'put name of current subroutine in sg_pass1 $sys sg_pass1, 2 sub_input_yes_no_asterisk endi dift d_pick = 12: sub_file_search 'menu for 5TP39 dift d_pick = 21: sub_collect_5tp39xx0 'sub_menu_primes dift d_pick = 23: sub_menu_primes dift d_pick = 96 'to do arithmetic sg_pass1 = "x=x" sub_xyz_math endi 'do we have x= to do arithmetic sg_pass1 = s_pick sub_xyz_math s_pick = sg_pass1 'do we have hrto=99 to reset value of dg_hrto sg_pass1 = s_pick sub_hrtojig s_pick = sg_pass1 ends sub_menu0 'HERE sub_teaquad_5tp39_by_modulus_duo subr sub_teaquad_5tp39_by_modulus_duo 'updated 2020/03/15, 2020/02/27, 2020/02/12, 2020/02/11 '2020/02/08, 2020/02/07, 2020/02/06, 2020/01/30, 2020/01/28 '2020/01/26, 2020/01/21, 2020/01/19, 2019/12/07, 2019/12/02 '2019/11/22, 2019/11/15, 2019/11/10, 2019/11/02, 2019/10/29 '2019/10/14, 2019/10/13, 2019/10/08, 2019/09/23, 2019/09/11 '2019/08/15, 2019/08/14, 2019/08/04, 2019/07/24, 2019/07/20 '2019/07/18, 2019/07/17, 2019/07/14, 2019/07/11, 2019/07/09 '2019/06/14, 2019/06/13, 2019/06/02, 2019/05/27, 2019/04/21 '2019/04/01, 2019/03/29, 2019/02/18, 2019/02/14, 2019/02/11 '2019/02/09, 2019/02/07, 2019/02/02, 2019/01/29, 2019/01/26 '2019/01/18, 2019/01/06, 2018/12/19, 2018/12/14, 2018/12/11 '2018/12/07, 2018/11/19, 2018/11/14, 2018/11/12, 2018/11/11 '2018/11/10, 2018/11/09, 2018/11/07, 2018/10/19, 2018/10/15 '2018/10/14, 2018/10/09, 2018/10/06, 2018/10/04, 2018/09/27 '2018/09/18, 2018/09/14, 2018/09/11, 2018/09/09, 2018/09/04 '2018/08/31, 2018/08/24, 2018/08/20, 2018/08/18, 2018/08/16 '2018/08/12, 2018/08/11, 2018/08/10, 2018/08/09, 2018/08/05 '2018/08/03, 2018/08/02, 2018/08/01, 2018/07/31, 2018/07/26 '2018/07/25, 2018/07/23, 2018/07/20, 2018/07/19, 2018/07/17 '2018/07/16, 2018/07/14, 2018/07/11, 2018/06/15, 2018/06/07 '2018/06/02, 2018/05/25, 2018/05/10, 2018/04/09, 2018/04/06 '2018/03/16, 2018/02/04, 2018/02/03, 2018/01/26, 2018/01/25 '2018/01/23, 2018/01/16, 2018/01/15, 2018/01/04, 2017/12/26 '2017/12/24, 2017/12/23, 2017/12/08, 2017/12/05, 2017/11/27 '2017/11/26, 2017/11/19, 2017/10/08, 2017/10/03, 2017/08/02 '2017/06/22, 2017/06/19, 2017/06/17, 2017/06/04, 2017/05/28 '2017/05/24, 2017/04/17, 2017/03/04, 2017/02/25, 2017/02/24 '2017/02/23, 2016/12/15, 2016/12/03, 2016/10/24, 2016/10/22 '2016/09/30, 2016/09/29, 2016/09/04, 2016/08/31, 2016/07/26 '2016/07/19, 2016/04/01, 2016/03/12, 2016/03/11, 2016/02/19 '2016/02/11, 2016/02/07, 2016/01/25, 2016/01/19, 2015/12/30 '2015/12/26, 2015/12/22, 2015/12/04, 2015/11/06, 2015/10/05 '2015/09/20, 2015/09/06, 2015/08/14, 2015/08/10, 2015/07/17 '2015/07/15, 2015/07/03, 2015/06/29, 2015/06/23, 2015/06/07 '2015/06/03, 2015/06/01, 2015/05/26, 2015/04/01, 2015/03/08 '2015/03/05, 2015/03/02, 2015/03/01, 2015/02/27, 2015/02/25 '2015/02/17, 2015/02/14, 2015/02/12, 2015/02/10, 2015/02/08 '2015/02/06, 2015/02/04, 2015/02/02, 2015/02/01, 2015/01/27 '2015/01/23, 2015/01/12, 2015/01/11, 2015/01/08, 2015/01/06 '2015/01/04, 2015/01/02, 2014/12/16, 2014/12/15, 2014/12/05 '2014/11/16, 2014/11/10, 2014/11/08, 2014/11/01, 2014/10/27 '2014/10/25, 2014/10/23, 2014/10/19, 2014/10/19, 2014/10/17 '2014/10/14, 2014/10/10, 2014/10/05, 2014/09/30, 2014/09/26 '2014/09/21, 2014/09/16, 2014/07/26, 2014/07/21, 2014/07/18 '2014/07/11, 2014/07/08, 2014/06/23, 2014/06/16, 2014/06/15 '2014/05/23, 2014/05/16, 2014/05/10, 2014/05/09, 2014/05/08 '2014/04/22, 2014/04/21, 2014/04/20, 2014/04/11, 2014/04/08 '2014/04/02, 2014/04/01, 2014/03/26, 2014/03/21, 2014/03/12 '2014/02/26, 2014/02/24, 2014/02/23, 2014/02/21, 2014/02/19 '2014/02/09, 2014/02/03, 2014/02/02, 2014/02/01, 2014/01/31 '2014/01/07, 2014/01/06, 2014/01/04, 2014/01/02, 2013/12/31 '2013/12/30, 2013/12/22, 2013/12/17, 2013/12/12, 2013/12/10 '2013/12/09, 2013/12/07, 2013/11/27, 2013/11/21, 2013/11/16 '2013/11/15, 2013/11/13, 2013/11/10, 2013/11/09, 2013/11/08 '2013/11/05, 2013/11/01, 2013/10/31, 2013/10/29, 2013/10/23 '2013/09/07, 2013/07/27, 2013/06/20, 2013/06/14, 2013/05/13 '2013/05/11, 2013/05/07, 2013/05/06, 2013/04/22, 2013/04/19 '2013/04/14, 2013/04/11, 2013/04/10, 2013/04/09, 2013/04/01 '2013/03/28, 2013/03/27, 2013/03/26, 2013/03/25, 2013/03/14 '2013/03/23, 2013/03/22, 2013/03/20, 2013/03/19, 2013/03/12 '2013/02/04, 2013/01/19, 2013/01/15, 2013/01/12, 2013/01/10 '2012/12/08, 2012/12/04, 2012/11/27, 2012/11/24, 2012/11/21 '2012/11/19, 2012/11/11, 2012/11/09, 2012/11/08, 2012/11/06 '2012/11/05, 2012/10/31, 2012/10/28, 2012/10/26, 2012/10/21 '2012/10/19, 2012/10/14, 2012/10/13, 2012/10/12, 2012/10/11 '2012/09/30, 2012/09/20, 2012/09/18, 2012/09/17, 2012/09/15 '2012/09/13, 2012/09/07, 2012/09/02, 2012/09/01, 2012/08/29 '2012/08/28, 2012/08/24, 2012/08/19, 2012/08/18, 2012/08/17 '2012/08/16, 2012/08/14, 2012/08/11, 2012/08/09, 2012/08/05 '2012/07/29, 2012/07/27, 2012/07/23, 2012/07/21, 2012/06/11 '2012/05/30, 2012/05/17, 2012/05/11, 2012/04/04, 2012/03/25 '2012/03/11, 2012/03/07, 2012/02/26, 2012/02/25, 2012/02/23 '2012/02/21, 2012/02/16, 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, d_hat, s_hat, s_out vari d_ask, s_ask, s_datebegin20, s_primetest vari d_good, s_beginnumber, d_begseconds, d_beglines vari s_date35, s_date20, s_dateduo17, d_seconds vari d_4hournow, d_4hourprev, d_4hoursec vari s_tpddelta1, d_tpddelta1, d_trillrunall, d_tpdallave vari d_4qtpct, d_4hourct, d_4hournextct, s_hourline, s_qtpline vari d_tpdbeginpart, d_tpdbeginmult, d_tpdprevpart vari s_24adjline, d_24adjat, s_5duoline vari d_billion, d_trillion, s_whereline vari d_pivcompart, s_pivcom, d_process, d_y630, d_begin vari d_number, s_number, d_div, d_duofactor vari d_index, d_qtpmaxindex, d_maxarrayprime, d_maxprime vari d_pstringe6, 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_2code, d_long, d_which, s_pausefile vari d_teaquadone, d_mod1, d_mod2, d_mod3 vari d_teaquad11part, d_teaquad49part vari d_teaquadpart, d_teaquadmult vari d_tdduo01, d_tdduo02, d_tdduo03, d_tdduo04, d_tdduo05, d_tdduo06 vari d_1duobeg, d_1duosec, d_dropbackbeg vari d_9strct, d_9strbeg, d_9strsec, d_99arrbeg, d_99arrsec, d_99arrct 'below lines are for testing with qtptest vari d_qtptestctloop1, d_qtptestctlooppre2, d_qtptestctloop2 vari d_qtptestdduonotct, d_qtptestdduonottot, d_qtptestdduonotstd vari d_qtptestctdduo1, d_qtptestctdduo2, d_qtptestctdduo3 vari d_qtptestctdduo4, d_qtptestctdduo5, s_qtptestpick vari d_qtptestct41, d_qtptestct42 vari d_qtptestct43, d_qtptestct44, d_qtptestct45 vari d_qtptestsecbeg, d_qtptestsecend, d_qtptestsecdif vari d_qtptestsec41, d_qtptestsec42 vari d_qtptestsec43, d_qtptestsec44, d_qtptestsec45 vari d_qtptestmod, d_qtptesttyp, s_qtptestfile vari d_qtptestsecall, d_qtptestpick, d_qtptestlines vari d_qtptestsecstd, d_picktotct, d_qtptesttotpick 'HERE sub_teaquad_5tp39_by_modulus_duo 'd_which=1 for enter file code, beg, end 'd_which=3 for QTPTEST d_which = dg_pass1 '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 d_dropbackbeg = 2 'd_qtptestmod=1 for qtptest d_qtptestmod = 99999 dift d_which = 3: d_qtptestmod = 1 'which filename do we want in s_afile s_2code = sg_nothing d_dot = 1 d_loop = d_process 'd_qtptestmod=1 for qtptest 'default file names s_afile = sg_qtpyy + "z0a.txt" s_bfile = sg_qtpyy + "z0b.txt" $cut s_2code, s_afile, 6, 2 'd_which=1 for enter file code, beg, end d_ask = 1 dift d_process <> 1: d_ask = 99999 d_any = 1 dift d_process <> 1: dinc d_any dift d_any = 1 $out sg_dashline +" "+ sg_hrto +" "+ sg_jig 'ask for file code show first $cut s_any, sg_the2codes, 1, 60 $out s_any $cut s_any, sg_the2codes, 61, 60 $out s_any $cut s_any, sg_the2codes, 121, 60 $out s_any $cut s_any, sg_the2codes, 181, 60 $out s_any $out "default files=" + s_afile + " and " + s_bfile s_any = "enter different two letter file code, " $app s_any, "return for default, z0=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 '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 'we do have s_pausefile '$out sg_interpreter +" "+ sg_path +" "+ s_2code 'lines 'dsys d_any, 2 'ded$ sg_lines, d_any, 0, 0 's_out = sg_version +" "+ sg_loadprog +" "+ sg_lines '$app s_out, " " + s_2code '$out s_out 'do we want to purge s_pausefile sg_pass1 = "PURGE " + s_pausefile + " y=yes n=no " + s_2code sub_input_yes_no_asterisk dift dg_pass1 = 1: fdel d_any, s_pausefile dift dg_pass1 = 3: goto tag_endsubr endi endi dift d_process = 1 $out sg_dashline +" "+ sg_hrto +" "+ sg_jig +" "+ s_2code s_afile = sg_qtpyy + s_2code + "a.txt" s_bfile = s_afile $rep s_bfile, 8, "b" $out "looking at files=" + s_afile + " and " + s_bfile 'set the default values for d_teaquadmult and d_teaquad11part to 1597000E15 d_teaquad11part = 0 d_teaquadmult = 1597 * 1000 'get beginning number from the file 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 'take off try= to get number for restart $app s_record, " " $cut s_any, s_record, 1, 4 $clo s_any, s_any $ift s_any = "try=": $cut s_record, s_record, 5, 99999 $lok d_any, s_record, 1, " " $cut s_any, s_record, 1, d_any 'do we have a number which should be a try= or qtp= 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 d_dropbackbeg = 1 endi endi endw endi dift d_process = 1 'show d_teaquadmult,d_teaquad11part from file or the default ded$ s_any, d_teaquad11part, 0, 0 s_out = "default mult=" + d_teaquadmult + " part=" + s_any $app s_out, " " + s_2code $out s_out dift d_teaquad11part > 0: $out "last=" + s_line endi 'below get d_pstringe6, d_pstringct 'make d_pstringct negative for first time through 'setup default value for d_pstringct = 11,111,111 'd_pstringct = 11111 * 1000 + 111 'd_pstringct = - d_pstringct 'get d_pstringe6 s_out = "primes in string: 1=1E6,2=2E6,3=3E6,,,,max=12, return=12" $inp s_any, s_out $ift s_any = "*": dinc d_process $isd d_any, s_any dift d_any <> 1: s_any = "1" + "2" $tod d_pstringe6, s_any dabs d_pstringe6, d_pstringe6 dtru d_pstringe6, d_pstringe6 dift d_pstringe6 > 12: d_pstringe6 = 12 $app sg_dashline, " " + "s" + "=" + d_pstringe6 $app sg_asterline, " " + "s" + "=" + d_pstringe6 d_pstringct = d_pstringe6 * 1000 * 1000 'minimum is 1000 dift d_pstringct <= 1000: d_pstringct = 1000 'max is 11,111,111 for 9 max length per prime 202,513,523 after 99,000 d_any = 11111 * 1000 + 111 dift d_pstringct > d_any: d_pstringct = d_any 'make negative for first time through d_pstringct = - d_pstringct 'HERE get d_pstringct above dift d_process <> 1: d_ask = 99999 dift d_ask = 1 $out sg_dashline +" "+ sg_hrto +" "+ sg_jig +" "+ s_2code 'ask for beginning number 'enter beginning number $out "E15=in quadrillions" 'd_qtptestmod=1 for qtptest dift d_qtptestmod = 1 'show list of qtptest to do sub_qtptestpick d_qtptesttotpick = dg_pass1 $out "all=all qtptest" 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 'input number to begin at s_out = "123456789012345678901234567890 " + sg_hrto $inp s_ask, s_out $tup s_ask, s_ask $ift s_ask = "*": dinc d_process 'HERE sub_teaquad_5tp39_by_modulus_duo 'd_qtptestmod=1 for qtptest dift d_qtptestmod = 1 dinc d_dropbackbeg s_qtptestfile = "qtptest.txt" d_qtptestlines = 0 d_qtptestsecall = 0 d_qtptestsecstd = 0 d_qtptestdduonottot = 0 d_qtptestdduonotstd = 0 d_qtptestpick = 0 d_picktotct = 0 'default is 1 $ift s_ask = sg_nothing: s_ask = "1" 'set dg_hrto=61 to stop after one 5tp39 'set dg_hrto=65 to stop after 5 dg_hrto = 61 $cut sg_hrto, sg_hrto, 1, 5 sg_hrto = sg_hrto + dg_hrto $ift s_ask = "ALL" 'y is hrto=65 or n is hrto=61 sg_pass1 = "y=pause after 5, n=pause after 1, *=end" sub_input_yes_no_asterisk dg_hrto = 65 dift dg_pass1 = 2: dg_hrto = 61 dift dg_pass1 = 3: dinc d_process $cut sg_hrto, sg_hrto, 1, 5 sg_hrto = sg_hrto + dg_hrto s_ask = "1" endi $len d_any, s_ask dift d_any < 3 $isd d_any, s_ask dift d_any = 1: $tod d_qtptestpick, s_ask endi 'tag below is to goto to do next qtptestpick gtag tag_qtptestall '1,600,040,007,108,092,024,141 '1,600,050,002,077,930,539,341 '1. 12E15 sec= 110 0 'get d_qtptestpick,s_qtptestpick if needed for sub_qtptestpick d_qtptestdduonotct = 0 s_qtptestpick = s_ask dift d_qtptestpick > 0 dift d_qtptestpick <= d_qtptesttotpick 'get s_qtptestpick from the array from sub_qtptestpick ito$ s_qtptestpick, d_qtptestpick '1. 12E15 sec= 110 0 1234 $par s_ask, s_qtptestpick, " ", 2 endi endi 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 $trb s_ask, s_ask $len d_any, s_ask dift d_any > 0 dinc d_dropbackbeg sg_pass1 = s_ask sub_teaquad_from_string d_teaquad11part = dg_pass1 d_teaquadmult = dg_pass2 endi endi dift d_process = 1 $out sg_dashline +" "+ sg_hrto +" "+ sg_jig +" "+ s_2code $out "files=" + s_afile + " and " + s_bfile +" "+ s_2code 'd_teaquadone is always 10^15 or one quadrillion dpow d_teaquadone, 10, 15 'first drop back a bit to be conservative if not qtptest or entered 'dropback only if number came from the file dropback 100 billion dift d_dropbackbeg = 1 d_teaquad11part = - 100 * 1000 * 1000 * 1000 + d_teaquad11part endi dift d_teaquad11part < 0 d_teaquad11part = d_teaquad11part + d_teaquadone ddec d_teaquadmult dift d_teaquadmult < 0 d_teaquadmult = 0 d_teaquad11part = 0 endi endi 'minimum is 10,000,000,000 dift d_teaquadmult = 0 d_any = 10 ^ 10 dift d_teaquad11part < d_any: d_teaquad11part = d_any endi 'maximum is 1,604,388,996,928,588,480,512 or 1,604,000E15 'this is 1.604 sextillion etc d_any = 1604 * 1000 + 389 dift d_teaquadmult >= d_any $out "max=1,604,388,996,928,588,480,512" sg_pass1 = "y=continue, NUMBER TOO BIG=" + d_teaquadmult sub_input_yes_no_asterisk dift dg_pass1 <> 1: dinc d_process endi endi dift d_process = 1 'show d_teaquadmult,d_teaquad11part ded$ s_any, d_teaquad11part, 0, 0 ded$ s_dot, d_teaquadmult, 0, 0 s_out = "mult=" + s_dot + " part=" + s_any $app s_out, " " + s_2code $out s_out 'find the PIVCOM of d_teaquadmult,d_teaquad11part 'term PIVCOM was invented by researcher Roger Hargrave on 2002/08/11 'find d_pivcompart for d_teaquadmult, d_teaquad11part 'old method PIVCOM 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 sg_dashline +" "+ sg_hrto +" "+ sg_jig +" "+ s_2code '12345678901234567890 '05-MAR-2009 01:05:26 'output beginning numbers to file $dat s_date35 $cut s_date20, s_date35, 1, 20 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_date20 $app s_out, " " + s_afile +" "+ s_2code $out s_out 'output name of afile to file sg_fileline = s_out fapp d_any, s_afile, s_out dift d_any < 6: sub_fileoutputbad 'output interpreter name and build s_out = sg_interpreter +" "+ sg_path +" "+ s_2code $out s_out sg_fileline = s_out fapp d_any, s_afile, s_out dift d_any < 6: sub_fileoutputbad 'output current program name and version 'get the total lines dsys d_any, 2 ded$ s_any, d_any, 0, 0 s_out = sg_version +" "+ sg_loadprog +" "+ s_any $app s_out, " " + s_2code $out s_out sg_fileline = s_out fapp d_any, s_afile, s_out dift d_any < 6: sub_fileoutputbad 'put d_qtpmaxindex primes in decimal array for the decimal sieve dsec d_tap d_qtpmaxindex = dg_darraymax 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 $out sg_dashline +" "+ sg_hrto +" "+ sg_jig 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_2code $out s_out d_maxprime = d_maxarrayprime 'put d_pstringct primes in s_pstring length=d_pstringlong 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 d_pstringlong = d_pstringct * 9 ded$ s_dot, d_pstringlong, 0, 0 $out "building prime string ct=" + s_any + " length=" + s_dot d_index = 1 dift d_pstringe6 = 12 'do we have s_pstring in the file PSTRING.TXT already? s_hat = "PSTRING.TXT" flen d_hat, s_hat dift d_hat > 0 finp s_pstring, s_hat $len d_pstringlong, s_pstring d_index = 10 ^ 10 endi endi dift d_index = 1 'make s_pstring all zeroes 'the primes in s_pstring at 9 long $ch$ s_pstring, "0", d_pstringlong $ch$ s_tap, "0", 10 d_number = d_maxarrayprime + 2 endi 'HERE sub_teaquad_5tp39_by_modulus_duo 'load s_pstring with d_pstringct primes for the string sieve d_div = 10 ^ 6 dsec d_seconds dwhi d_index <= d_pstringct 'get the lowest factor dfac d_mod1, d_number dift d_mod1 = 1 'we have a prime put in s_pstring each 9 long 's_tap has ten zeros in it s_any = s_tap + d_number $off s_any, s_any, 9 d_any = d_index * 9 - 8 $rep s_pstring, d_any, s_any 'tell every d_dot=1,000,000 finding PSTRING d_any = d_index % d_div dift d_any = 0 $out "beg=" + s_beginnumber dsec d_dot d_any = d_dot - d_seconds d_seconds = d_dot ded$ s_any, d_index, 0, 0 ded$ s_dot, d_number, 0, 0 s_out = s_any +" "+ s_dot + " sec=" + d_any 'put on the time 11:52:26 $dat s_any $cut s_any, s_any, 13, 8 $out "PSTRING " + s_out +" "+ s_any +" "+ s_2code 'test for the pausefile flen d_any, s_pausefile dift d_any > 0 sg_pass1 = "PURGE " + s_pausefile + " y=purge n=no" 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 endi endi dinc d_index endi d_number = d_number + 2 endw endi dift d_pstringe6 = 12 'if file PSTRING.TXT did not exist then make it s_hat = "PSTRING.TXT" flen d_hat, s_hat dift d_hat <> d_pstringlong: fout d_hat, s_hat, s_pstring endi 'primes in s_pstring are 9 long 's_pstring is long=d_pstringlong d_any = d_pstringct * 9 - 8 dcut d_pstringmax, s_pstring, d_any, 9 'get the seconds into d_tap dsec d_any d_tap = d_any - d_tap 'get the first 9 long prime from s_pstring dcut d_any, s_pstring, 1, 9 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 sg_dashline +" "+ sg_hrto +" "+ sg_jig +" "+ 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_date20 $dat s_date35 $cut s_date20, s_date35, 1, 20 dift d_process = 1 'output begin date to file s_out = "date=" + s_date20 $app s_out, " " + s_afile +" "+ s_2code $out s_out sg_fileline = s_out fapp d_any, s_afile, s_out dift d_any < 6: sub_fileoutputbad '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_version +" "+ sg_loadprog +" "+ sg_lines '$app s_out, " " + s_2code '$out s_out 's_out = "beg= " + s_beginnumber +" "+ s_date20 '$app s_out, " " + s_2code '$out s_out 'd_qtptestmod=1 for qtptest dift d_qtptestmod = 1: $out "qtptest: " + s_qtptestpick 'do we want to purge s_pausefile sg_pass1 = "PURGE " + s_pausefile + " y=yes, n=no " + s_2code 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_4hournow to test for hour change $dat s_date35 $cut s_datebegin20, s_date35, 1, 20 dcut d_4hournow, s_date35, 13, 2 d_4hourprev = d_4hournow d_4qtpct = 0 d_4hourct = 0 d_billion = 10 ^ 9 d_trillion = 10 ^ 12 'beginning tpd numbers d_tpdbeginpart = d_teaquad49part - 38 d_tpdbeginmult = d_teaquadmult d_tpdprevpart = d_teaquad49part - 38 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_qtptestct45 = 0 d_qtptestsec41 = 0 d_qtptestsec42 = 0 d_qtptestsec43 = 0 d_qtptestsec44 = 0 d_qtptestsec45 = 0 d_qtptestctloop1 = 0 d_qtptestctlooppre2 = 0 d_qtptestctloop2 = 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_version +" "+ sg_loadprog +" "+ sg_lines $app s_out, " " + s_2code $out s_out s_out = "beg= " + s_beginnumber +" "+ s_datebegin20 $app s_out, " " + s_2code $out s_out flen d_any, s_pausefile dift d_any >= 0: $out s_pausefile + " exists" s_out = "now running " + s_datebegin20+" "+sg_hrto+" "+sg_jig $app s_out, " " + s_2code $out s_out $out sg_dashline +" "+ sg_hrto +" "+ sg_jig +" "+ s_2code 'd_qtptestmod=1 for qtptest dift d_qtptestmod = 1 s_out = "qtptest: " + s_qtptestpick +" "+ s_datebegin20 $out s_out 'qtptest fapp d_any, s_qtptestfile, s_out endi '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 'simple ift1 total sec 'qtptest dinc d_qtptestct41 'qtptest d_qtptestsec41 = d_qtptestsec41 + d_qtptestsecdif 'qtptest endi 'qtptest dift d_qtptesttyp = 42 '300 prime ift2 seconds 'qtptest dinc d_qtptestct42 'qtptest d_qtptestsec42 = d_qtptestsec42 + d_qtptestsecdif 'qtptest endi 'qtptest dift d_qtptesttyp = 43 '99arr total sec 'qtptest dinc d_qtptestct43 'qtptest d_qtptestsec43 = d_qtptestsec43 + d_qtptestsecdif 'qtptest endi 'qtptest dift d_qtptesttyp = 44 'total 9str sec 'qtptest dinc d_qtptestct44 'qtptest d_qtptestsec44 = d_qtptestsec44 + d_qtptestsecdif 'qtptest endi 'qtptest dift d_qtptesttyp = 45 'total 5duo sec 'qtptest dinc d_qtptestct45 'qtptest d_qtptestsec45 = d_qtptestsec45 + d_qtptestsecdif 'qtptest endi 'qtptest d_qtptestsecbeg = d_qtptestsecend 'qtptest d_qtptesttyp = 41 'increment d_teaquad49part = 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 'simple ift1 total sec '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 '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=dg_darraymax 'prime=2081 this is the next prime '300 primes ift2 total sec 'qtptest dsec d_qtptestsecend 'qtptest d_qtptestsecdif = d_qtptestsecend - d_qtptestsecbeg 'qtptest d_qtptestsec42 = d_qtptestsec42 + d_qtptestsecdif 'qtptest dinc d_qtptestct42 'HERE decimal array of 99,000 primes loop below 'decimal array loop below d_qtptesttyp=43 'qtptest d_qtptestsecbeg = d_qtptestsecend 'qtptest d_qtptesttyp = 43 dinc d_99arrct dsec d_99arrbeg '2081 is in the array with index=1 with 96000 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 'get sec for the 99array dsec d_any d_99arrsec = d_any - d_99arrbeg 'qtptest dinc d_qtptestctlooppre2 'qtptest dsec d_qtptestsecend 'qtptest d_qtptestsecdif = d_qtptestsecend - d_qtptestsecbeg 'qtptest d_qtptestsec43 = d_qtptestsec43 + d_qtptestsecdif 'qtptest dinc d_qtptestct43 'decimal 99arr loop above d_qtptesttyp=43 'qtptest d_qtptestsecbeg = d_qtptestsecend 'qtptest d_qtptesttyp = 45 'HERE end of loop1 = decimal array loop 'prep output the number s_primetest plus the date is s_whereline d_teaquad11part = d_teaquad49part - 38 dg_pass1 = d_teaquad11part dg_pass2 = d_teaquadmult sub_teaquad_to_string s_primetest = sg_pass1 '12345678901234567890123456789012345 '17-DEC-2002 03:56:22 20021217035622 'get s_dateduo17 to output show line s_whereline $dat s_date35 $cut s_dateduo17, s_date35, 1, 17 'd_4hournow is the current hour dcut d_4hournow, s_date35, 13, 2 s_whereline = " " + s_primetest +" "+ s_dateduo17 +" "+ s_2code $sho s_whereline 'qtptest d_4hourprev = d_4hournow '****************** 'HERE do we have a new hour dift d_4hournow <> d_4hourprev dsec d_4hoursec 'new period d_4hourprev = d_4hournow 'increment d_4hourct dinc d_4hourct 'd_trillrunall is trillions run all amount 'find d_tpdallave from d_4hourct,d_tpdbeginpart,d_tpdbeginmult 'find d_tpdallave average since begin of run 'prorate to trillions per day for a 24 hour day dift d_4hourct < 1: d_4hourct = 1 d_any = d_teaquadmult - d_tpdbeginmult * 1000 d_trillrunall = d_teaquad11part - d_tpdbeginpart / d_trillion + d_any d_tpdallave = d_trillrunall / d_4hourct * 24 'find exact d_tpddelta1, s_tpddelta1 difference from previous hour 'prorate to trillions per day for a 24 hour day in d_tpddelta1 d_tpddelta1 = d_teaquad11part - d_tpdprevpart / d_trillion dift d_tpddelta1 < 0: d_tpddelta1 = d_tpddelta1 + 1000 d_tpddelta1 = d_tpddelta1 * 24 dto$ s_tpddelta1, d_tpddelta1, 1, 2 'save d_teaquad11part for next hour d_tpdprevpart = d_teaquad11part 'd_24adjat if less than 9 lines listed find average 'else d_24adjat adjust average by 1/dg_jig of previous average 'd_24adjat by dg_jig dift d_4hourct < 9: d_24adjat = d_tpdallave d_24adjat = d_tpddelta1 - d_24adjat / dg_jig + d_24adjat 'build s_24adjline because of the new hour '12345678901234567890123456789012345 '17-DEC-2002 03:56:22 20021217035622 dto$ s_hat, d_24adjat, 1, 2 dto$ s_any, d_tpdallave, 1, 2 s_24adjline = "24adj=" + s_hat + " ave=" + s_any + " hrs=" + d_4hourct dto$ s_dot, d_9strsec, 1, 3 dto$ s_any, d_1duosec, 1, 3 dto$ s_hat, d_99arrsec, 1, 3 $app s_24adjline, " 99arr=" + s_hat + " 9str=" + s_dot + " 1duo=" + s_any $app s_24adjline, " " + s_2code 'build up datehour output line in s_hourline dto$ s_any, d_24adjat, 1, 2 s_hourline = "try=" + s_primetest +" "+ s_dateduo17 +" "+ s_2code $app s_hourline, " " + s_tpddelta1 +" "+ s_any $app s_hourline, " " + d_4hourct +" "+ d_4qtpct 'output s_hourline to screen and a file $out s_hourline sg_fileline = s_hourline fapp d_any, s_afile, s_hourline dift d_any < 6: sub_fileoutputbad '12345678901234567890123456789012345 '17-DEC-2002 03:56:22 20021217035622 'output s_24adjline and s_5duoline 'build s_5duoline 'd_9strct,d_tdduo01 etc are total counts qtptest mode s_5duoline = "5duo=" + d_tdduo01 +" "+ d_tdduo02 +" "+ d_tdduo03 $app s_5duoline, " " + d_tdduo04 +" "+ d_tdduo05 +" "+ d_tdduo06 ded$ s_any, d_99arrct, 1, 0 ded$ s_dot, d_9strct, 1, 0 dto$ s_hat, d_trillrunall, 1, 3 $app s_5duoline, " 99arr=" + s_any + " 9str=" + s_dot $app s_5duoline, " trill=" + s_hat +" "+ s_2code 'output info lines $out s_24adjline 'fapp d_any, s_afile, s_24adjline $out s_5duoline 'fapp d_any, s_afile, s_5duoline 'above output s_24adjline and s_5duoline 'we have a shift to the left but the following is also the new hour 'HERE pause if dg_hrto=d_4hournow or the nexthour 'd_4hournow is the current hour dift d_4hournow >= dg_hrto 'd_any is the next hour d_any = dg_hrto + 1 dift d_4hournow <= d_any 'pause if dg_hrto=d_4hournow or nexthour dift d_4hourct > d_4hournextct 'd_4hournextct is so we can enter y immediately if wanted d_4hournextct = d_4hourct + 1 $out sg_dashline +" "+ sg_hrto +" "+ sg_jig +" "+ s_2code 'get rid of s_pstring to save memory 99,999,999 bytes s_pstring = sg_nothing 'output program version $out sg_version 'pause since hour=hrto, y=continue, n=end, *=end sg_pass1 = "pause since hour=hrto, y=continue, n=end" sub_input_yes_no_asterisk 'dg_pass1=1 for yes, dg_pass1=2 for no, 3 for asterisk dift dg_pass1 > 1: goto tag_endsubr 'read back in s_pstring s_any = "PSTRING.TXT" finp s_pstring, s_any 'make sure we have it d_any = 99999 * 1000 $len d_dot, s_pstring dift d_dot < d_any $inp s_any, "bad pstring length=" + d_dot goto tag_endsubr endi endi endi endi 'HERE new quadrillion which is under the new hour dift d_teaquad11part > d_teaquadone 'new quadrillion $out sg_dashline +" "+ sg_hrto +" "+ sg_jig +" "+ s_2code $out "] new quadrillion " + s_dateduo17 '$out sg_dashline +" "+ sg_hrto +" "+ sg_jig +" "+ 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 'have we hit an even ten quadrillion and need to stop d_any = d_teaquadmult % 10 dift d_any = 0 'we have just changed to an even ten quadrillion '12345678901234567890123456789012345 '17-DEC-2002 03:56:22 20021217035622 'get s_date20 $dat s_date35 $cut s_date20, s_date35, 1, 20 'output end s_out = "] ten quadrillion end " + s_date20 +" "+ s_2code 'output s_out to screen and both files $out s_out sg_fileline = s_out fapp d_any, s_afile, s_out dift d_any < 6: sub_fileoutputbad fapp d_any, s_bfile, s_out dift d_any < 6: sub_fileoutputbad 'output the tag_runinfo0 stuff for 10E15 'tag_runinfo1 is ten quadrillion or 10E15 goto tag_runinfo0 gtag tag_runinfo1 'the following is tag_runinfo0 'c90tea.cpp build=619 2014/03/05 ./oklatea.o m=100,277,131 'oldqtp.tea version=1944 2019/11/14 14117p oldqtp.tea l=114,332,167,767 'beg=14-NOV-2019 15:37:07 at=9,995,999,999,999,981 qtp19z0a.txt z0 'end=14-NOV-2019 17:00:18 at=10,005,611,416,225,091 z0 'try=10,005,611,416,225,091 14-NOV-2019 17:00 z0 166.94 120.50 2 0 'we are at end of this session of numbers '12345678901234567890123456789012345 '17-DEC-2002 03:56:22 20021217035622 'end running and wait for an asterisk s_out = "ten quadrillion end " + s_date20 +" "+ s_2code $out s_out fapp d_any, s_afile, s_out 'end with a line of asterisks $ch$ s_any, "*", 50 fapp d_any, s_afile, s_any sg_pass1 = "continue y=yes, n=not" sub_input_yes_no_asterisk dift dg_pass1 <> 1: goto tag_endsubr 'above ending 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 also under the new hour endi '12345678901234567890123456789012345 '17-DEC-2002 03:56:22 20021217035622 '12345678901234567890123456789012345 '17-DEC-2002 03:56:22 20021217035622 'pause if s_pausefile exists flen d_any, s_pausefile 'HERE pause if s_pausefile exists dift d_any >= 0 's_pausefile exists $out sg_dashline +" "+ sg_hrto +" "+ sg_jig +" "+ s_2code $out sg_version 'ask continue y=yes or *=end sg_pass1 = "PURGE " + s_pausefile + " y=yes n=no" 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 $out "continuing " + s_date20 +" "+ s_2code '$out sg_dashline +" "+ sg_hrto +" "+ sg_jig +" "+ s_2code 'above means s_pausefile existed endi 'get seconds of new hour code dsec d_any d_4hoursec = d_any - d_4hoursec $out sg_dashline +" "+ sg_hrto +" "+ sg_jig + " sec=" + d_4hoursec 'ending of new hour above endi '********************* 'here string array loop below d_qtptesttyp=44 'qtptest d_qtptestsecbeg = d_qtptestsecend 'qtptest d_qtptesttyp = 44 'test with 9 long primes in s_pstring,d_pstringct dinc d_9strct dsec d_9strbeg d_dot = 1 gtag tag_nextprimestring dcut d_div, s_pstring, d_dot, 9 '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 'primes in s_pstring are 9 long d_dot = d_dot + 9 dift d_dot <= d_pstringlong: goto tag_nextprimestring 'get time in pstring loop into d_9strsec dsec d_any d_9strsec = d_any - d_9strbeg 'qtptest dsec d_qtptestsecend 'qtptest d_qtptestsecdif = d_qtptestsecend - d_qtptestsecbeg 'qtptest d_qtptestsec44 = d_qtptestsec44 + d_qtptestsecdif 'qtptest dinc d_qtptestct44 'here string array loop above d_qtptesttyp=44 'qtptest d_qtptestsecbeg = d_qtptestsecend 'qtptest d_qtptesttyp = 45 'big mod loop above 'HERE test the p11,p13 duo d_teaquad11part = d_teaquad49part - 38 'qtptest dinc d_qtptestctdduo1 'd_tdduo01 at pre-dduo1 dinc d_tdduo01 dsec d_1duobeg $sho s_whereline +" "+ 11 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, 16, 0 'qtptest dg_pass1 = d_teaquad11part 'qtptest dg_pass2 = d_teaquadmult 'qtptest sub_teaquad_to_string 'qtptest s_out = d_qtptestdduonotct + ". 11=" + s_any +" "+ sg_pass1 'qtptest $dat s_any 'qtptest $cut s_any, s_any, 13, 8 'qtptest $app s_out, " " + s_any 'qtptest $out s_out 'qtptest fapp d_any, s_qtptestfile, s_out '11 above goto tag_nextnumber endi dsec d_any d_1duosec = d_any - d_1duobeg 'HERE test the p17,p19 duo d_teaquadpart = d_teaquad11part + 6 'qtptest dinc d_qtptestctdduo2 'd_tdduo02 at pre-dduo2 dinc d_tdduo02 $sho s_whereline +" "+ 17 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 sg_fileline = s_out fapp d_any, s_afile, s_out dift d_any < 6: sub_fileoutputbad endi 'qtptest dinc d_qtptestdduonotct 'qtptest ded$ s_any, d_duofactor, 16, 0 'qtptest dg_pass1 = d_teaquad11part 'qtptest dg_pass2 = d_teaquadmult 'qtptest sub_teaquad_to_string 'qtptest s_out = d_qtptestdduonotct + ". 17=" + s_any +" "+ sg_pass1 'qtptest $dat s_any 'qtptest $cut s_any, s_any, 13, 8 'qtptest $app s_out, " " + s_any 'qtptest $out s_out 'qtptest fapp d_any, s_qtptestfile, s_out '17 above goto tag_nextnumber endi 'HERE test the p29,p31 duo d_teaquadpart = d_teaquad11part + 18 'qtptest dinc d_qtptestctdduo3 'd_tdduo03 at pre-dduo1 dinc d_tdduo03 $sho s_whereline +" "+ 29 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 sg_fileline = s_out fapp d_any, s_afile, s_out dift d_any < 6: sub_fileoutputbad endi 'qtptest dinc d_qtptestdduonotct 'qtptest ded$ s_any, d_duofactor, 16, 0 'qtptest dg_pass1 = d_teaquad11part 'qtptest dg_pass2 = d_teaquadmult 'qtptest sub_teaquad_to_string 'qtptest s_out = d_qtptestdduonotct + ". 29=" + s_any +" "+ sg_pass1 'qtptest $dat s_any 'qtptest $cut s_any, s_any, 13, 8 'qtptest $app s_out, " " + s_any 'qtptest $out s_out 'qtptest fapp d_any, s_qtptestfile, s_out '29 above goto tag_nextnumber endi 'HERE test the p41,p43 duo d_teaquadpart = d_teaquad11part + 30 'qtptest dinc d_qtptestctdduo4 'd_tdduo04 at pre-dduo1 dinc d_tdduo04 $sho s_whereline +" "+ 41 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 sg_fileline = s_out fapp d_any, s_afile, s_out dift d_any < 6: sub_fileoutputbad endi 'qtptest dinc d_qtptestdduonotct 'qtptest ded$ s_any, d_duofactor, 16, 0 'qtptest dg_pass1 = d_teaquad11part 'qtptest dg_pass2 = d_teaquadmult 'qtptest sub_teaquad_to_string 'qtptest s_out = d_qtptestdduonotct + ". 41=" + s_any +" "+ sg_pass1 'qtptest $dat s_any 'qtptest $cut s_any, s_any, 13, 8 'qtptest $app s_out, " " + s_any 'qtptest $out s_out 'qtptest fapp d_any, s_qtptestfile, s_out '41 above goto tag_nextnumber endi 'HERE test the p47,p49 duo d_teaquadpart = d_teaquad11part + 36 'qtptest dinc d_qtptestctdduo5 'd_tdduo05 at pre-dduo1 dinc d_tdduo05 $sho s_whereline +" "+ 47 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 sg_fileline = s_out fapp d_any, s_afile, s_out dift d_any < 6: sub_fileoutputbad endi 'qtptest dinc d_qtptestdduonotct 'qtptest ded$ s_any, d_duofactor, 16, 0 'qtptest dg_pass1 = d_teaquad11part 'qtptest dg_pass2 = d_teaquadmult 'qtptest sub_teaquad_to_string 'qtptest s_out = d_qtptestdduonotct + ". 47=" + s_any +" "+ sg_pass1 'qtptest $dat s_any 'qtptest $cut s_any, s_any, 13, 8 'qtptest $app s_out, " " + s_any 'qtptest $out s_out 'qtptest fapp d_any, s_qtptestfile, s_out '47 above goto tag_nextnumber endi 'we have a 5TP39 'HERE sub_teaquad_5tp39_by_modulus_duo 'we have a teaquad 5TP39 'total 5duo 'qtptest dsec d_qtptestsecend 'qtptest d_qtptestsecdif = d_qtptestsecend - d_qtptestsecbeg 'qtptest d_qtptestsec45 = d_qtptestsec45 + d_qtptestsecdif 'qtptest dinc d_qtptestct45 'qtptest d_qtptesttyp = 0 dinc d_4qtpct dinc d_tdduo06 'show the just found 5TP39 'output the 5tp39 to both files and the screen '12345678901234567890123456789012345 '17-DEC-2002 03:56:22 20021217035622 '$out sg_dashline +" "+ sg_hrto +" "+ sg_jig 'build s_qtpline 'get now date dotted $dat s_any $cut s_any, s_any, 1, 17 $rep s_any, 12, "." s_qtpline = "] 000:5TP39= " + s_primetest $app s_qtpline, " " + s_any +" "+ s_2code $app s_qtpline, " " + d_4qtpct sg_fileline = s_qtpline fapp d_any, s_bfile, s_qtpline dift d_any < 6: sub_fileoutputbad fapp d_any, s_afile, s_qtpline dift d_any < 6: sub_fileoutputbad $out s_qtpline 'build s_adj24line '24adj, ave, 1duo and 9str after a 5TP39 '12345678901234567890123456789012345 '17-DEC-2002 03:56:22 20021217035622 $dat s_tap $cut s_tap, s_tap, 1, 11 dto$ s_hat, d_24adjat, 1, 2 dto$ s_any, d_tpdallave, 1, 2 s_24adjline = "24adj=" + s_hat + " ave=" + s_any + " hrs=" + d_4hourct dto$ s_any, d_1duosec, 1, 3 dto$ s_dot, d_9strsec, 1, 3 dto$ s_hat, d_99arrsec, 1, 3 $app s_24adjline, " 99arr=" + s_hat + " 9str=" + s_dot + " 1duo=" + s_any $app s_24adjline, " " + s_2code $out sg_dashline +" "+ sg_hrto +" "+ sg_jig '12345678901234567890123456789012345 '17-DEC-2002 03:56:22 20021217035622 'dg_hrto=51 means pause after finding one 5TP39 dift dg_hrto = 51 $out sg_version sg_pass1 = "CONTINUE y=yes n=no, one QTP since hrto=51" sub_input_yes_no_asterisk dift dg_pass1 <> 1: goto tag_endsubr endi 'd_qtptestmod=1 for qtptest output information below 'if d_qtptestmod>1 then goto next number 'fall below for d_qtptestmod=1 for qtptest information dift d_qtptestmod > 1: goto tag_nextnumber 'doing qtptest output below d_qtptestmod=1 'HERE sub_teaquad_5tp39_by_modulus_duo 'output build,lines,seconds,data etc. dsec d_qtptestsecend $dat s_date35 s_qtptestfile = "qtptest.txt" 'output s_qtpline to s_qtptestfile sg_fileline = s_qtpline fapp d_any, s_qtptestfile, s_qtpline dift d_any < 6: sub_fileoutputbad 'dashline to begin s_out = sg_dashline +" "+ sg_hrto +" "+ sg_jig sg_fileline = s_out fapp d_any, s_qtptestfile, s_out dift d_any < 6: sub_fileoutputbad '12345678901234567890123456789012345 '17-DEC-2002 03:56:22 20021217035622 'begin and now dates $cut s_date20, s_date35, 1, 20 s_out = "from=" + s_datebegin20 + " to=" + s_date20 'calc esec=elapsed seconds and put it on s_out 'hours to minutes dcut d_any, s_datebegin20, 13, 2 dcut d_dot, s_date20, 13, 2 d_tap = d_dot - d_any * 60 'hours and minutes to seconds dcut d_any, s_datebegin20, 16, 2 dcut d_dot, s_date20, 16, 2 d_tap = d_tap + d_dot - d_any * 60 'add in seconds dcut d_any, s_datebegin20, 19, 2 dcut d_dot, s_date20, 19, 2 d_tap = d_tap + d_dot - d_any dift d_tap < 0: d_tap = d_tap + 86400 'ratio of esec in d_tap to now_sec d_dot = d_qtptestsecend - d_begseconds d_dot = d_tap / d_dot $app s_out, " esec=" + d_tap +" "+ d_dot $out s_out sg_fileline = s_out fapp d_any, s_qtptestfile, s_out dift d_any < 6: sub_fileoutputbad 'interpreter and path s_out = sg_interpreter +" "+ sg_path +" "+ s_2code $out s_out sg_fileline = s_out fapp d_any, s_qtptestfile, s_out dift d_any < 6: sub_fileoutputbad 'version, loadprog dsys d_any, 1 ded$ sg_memory, d_any, 0, 0 s_out = sg_version +" "+ sg_loadprog '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 $out s_out sg_fileline = s_out fapp d_any, s_qtptestfile, s_out dift d_any < 6: sub_fileoutputbad 'in qtptest mode here do initialize some counts d_tdduo01 = 0 d_tdduo02 = 0 d_tdduo03 = 0 d_tdduo04 = 0 d_tdduo05 = 0 d_tdduo06 = 0 d_9strct = 0 'output dashline s_out = sg_dashline +" "+ sg_hrto +" "+ sg_jig +" "+ s_2code $out s_out sg_fileline = s_out fapp d_any, s_qtptestfile, s_out dift d_any < 6: sub_fileoutputbad 'output type counts d_qtptesttyp=41,42,43,44 ded$ s_any, d_qtptestct41, 1, 0 ded$ s_dot, d_qtptestct42, 1, 0 s_out = d_qtptestpick + ". cts if1=" + s_any + " if2=" + s_dot ded$ s_any, d_qtptestct43, 0, 0 ded$ s_dot, d_qtptestct44, 0, 0 ded$ s_tap, d_qtptestct45, 0, 0 $app s_out, " 99arr=" + s_any $app s_out, " 9str=" + s_dot $app s_out, " dduo=" + s_tap $out s_out sg_fileline = s_out fapp d_any, s_qtptestfile, s_out dift d_any < 6: sub_fileoutputbad 'simple if1 total sec dto$ s_any, d_qtptestsec41, 1, 2 s_out = d_qtptestpick + ". secs if1=" + s_any '300 primes if2 total sec dto$ s_any, d_qtptestsec42, 1, 2 $app s_out, " if2=" + s_any '99arr total sec dto$ s_any, d_qtptestsec43, 1, 3 $app s_out, " 99arr=" + s_any '9str total sec dto$ s_any, d_qtptestsec44, 1, 3 $app s_out, " 9str=" + s_any 'total 5duo sec dto$ s_any, d_qtptestsec45, 1, 3 $app s_out, " 5duo=" + s_any +" "+ s_2code $out s_out sg_fileline = s_out fapp d_any, s_qtptestfile, s_out dift d_any < 6: sub_fileoutputbad 'loops dduo counts and total seconds ded$ s_dot, d_qtptestctloop1, 1, 0 s_out = d_qtptestpick + ". loop_99arr=" + s_dot ded$ s_dot, d_qtptestctlooppre2, 1, 0 $app s_out, " pre_9str=" + s_dot ded$ s_dot, d_qtptestctloop2, 1, 0 $app s_out, " loop_9str=" + s_dot $app s_out, " 5duo=" + d_qtptestctdduo1 $app s_out, " " + d_qtptestctdduo2 +" "+ d_qtptestctdduo3 $app s_out, " " + d_qtptestctdduo4 +" "+ d_qtptestctdduo5 $out s_out sg_fileline = s_out fapp d_any, s_qtptestfile, s_out dift d_any < 6: sub_fileoutputbad 'total counts and compare with standard d_tap = d_qtptestct41 + d_qtptestct42 + d_qtptestct43 + d_qtptestct44 d_tap = d_tap + d_qtptestct45 ded$ s_any, d_tap, 1, 0 s_out = d_qtptestpick + ". cts_tot=" + s_any 'get old cts_tot from: 1. 12E15 sec= 110 0 61108 $par s_any, s_qtptestpick, " ", 6 $app s_out, " " + s_any $isd d_any, s_any dift d_any = 1 $tod d_any, s_any d_dot = 10 ^ 6 d_dot = d_tap % d_dot dift d_any = d_dot: dinc d_picktotct endi $app s_out, " OK=" + d_picktotct +" "+ "*" + "*" + "*" + "*" + "*" $out s_out sg_fileline = s_out fapp d_any, s_qtptestfile, s_out dift d_any < 6: sub_fileoutputbad s_out = sg_dashline +" "+ sg_hrto +" "+ sg_jig $out s_out sg_fileline = s_out fapp d_any, s_qtptestfile, s_out dift d_any < 6: sub_fileoutputbad 'output s_qtptestpick s_out = "qtptest: " + s_qtptestpick +" "+ s_datebegin20 $out s_out sg_fileline = s_out fapp d_any, s_qtptestfile, s_out dift d_any < 6: sub_fileoutputbad 'output s_qtpline to s_qtptestfile $out s_qtpline sg_fileline = s_qtpline fapp d_any, s_qtptestfile, sg_fileline dift d_any < 6: sub_fileoutputbad 'build up the total line now_sec= '11. now_sec=819 not=3 sec=622 0 per=1.3167 36E15 s=12 09-APR-2013 'get total seconds and dduonottot d_qtptestdduonottot = d_qtptestdduonottot + d_qtptestdduonotct 'next line must have a round instead of a truncate d_dot = d_qtptestsecend - d_begseconds @ 0 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 12,000E15 sec=9399 35 '1. 12E15 sec= 110 0 61108 'to get seconds and total into d_qtptestsecstd d_tap = 0 $par s_any, s_qtptestpick, " ", 4 $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 'get not count from: 1. 12E15 sec= 110 0 61108 $par s_dot, s_qtptestpick, " ", 5 $isd d_any, s_dot dift d_any = 1 $tod, d_any, s_dot d_qtptestdduonotstd = d_qtptestdduonotstd + d_any endi 'get seconds from: 1. 12E15 sec= 110 0 61108 $par s_any, s_qtptestpick, " ", 4 $app s_out, " " + s_any 'get the dduonot from: 1. 12E15 sec= 110 0 61108 $par s_any, s_qtptestpick, " ", 5 $app s_out, " " + s_any 'get the per from d_tap dto$ s_any, d_tap, 1, 4 $app s_out, " per=" + s_any 'get the begin number from: 1. 12E15 sec= 110 0 61108 $par s_any, s_qtptestpick, " ", 2 $app s_out, " " + s_any 'put on sieve and the date '12345678901234567890123456789012345 '17-DEC-2002 03:56:22 20021217035622 $app s_out, " " + "s" + "=" + d_pstringe6 +" "+ s_dateduo17 $out s_out sg_fileline = s_out fapp d_any, s_qtptestfile, s_out dift d_any < 6: sub_fileoutputbad 'build the all total line tot_sec s_out = d_qtptestpick + ". tot_sec=" + d_qtptestsecall $app s_out, " not=" + d_qtptestdduonottot $app s_out, " std=" + d_qtptestsecstd $app s_out, " " + d_qtptestdduonotstd '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 'sieve s_tap is date from above $app s_out, " " + "s" + "=" + d_pstringe6 +" "+ s_dateduo17 $out s_out sg_fileline = s_out fapp d_any, s_qtptestfile, s_out dift d_any < 6: sub_fileoutputbad s_any = sg_asterline +" "+ sg_hrto +" "+ sg_jig $out s_any sg_fileline = s_any fapp d_any, s_qtptestfile, s_any dift d_any < 6: sub_fileoutputbad 'show next number to do qtptest 'd_qtptesttotpick is max number of choices from sub_qtptestpick dwhi d_qtptestpick < d_qtptesttotpick dinc d_qtptestpick 'get s_qtptestpick from array made by sub_qtptestpick ito$ s_qtptestpick, d_qtptestpick $out "next: " + s_qtptestpick 'show next five d_any = d_qtptestpick d_dot = 1 dwhi d_dot < 5 dinc d_any dift d_any <= d_qtptesttotpick ito$ s_any, d_any $out "then: " + s_any endi dinc d_dot endw dift dg_hrto = 65 'dg_hrto=65 means do a five set d_any = d_qtptestpick % 5 dift d_any = 1 'do a pause before continuing sg_pass1 = "y=five more, n=one more, *=exit" sub_input_yes_no_asterisk dift dg_pass1 = 1: goto tag_qtptestall dift dg_pass1 = 2 'dg_hrto=61 means do one dg_hrto = 61 $cut sg_hrto, sg_hrto, 1, 5 sg_hrto = sg_hrto + dg_hrto goto tag_qtptestall endi 'd_qtptestpick=9999 will drop out and end subr dift dg_pass1 = 3: d_qtptestpick = 9999 else goto tag_qtptestall endi endi dift dg_hrto = 61 'do a pause before the next since dg_hrto=61 sg_pass1 = "y=do next, n=skip next, *=else" sub_input_yes_no_asterisk dift dg_pass1 = 1: goto tag_qtptestall dift dg_pass1 = 3 sg_pass1 = "y=do five set, *exit" sub_input_yes_no_asterisk dift dg_pass1 = 1 dg_hrto = 65 $cut sg_hrto, sg_hrto, 1, 5 sg_hrto = sg_hrto + dg_hrto goto tag_qtptestall endi 'd_qtptestpick=9999 will drop out and end subr dift dg_pass1 = 3: d_qtptestpick = 9999 endi endi endw 'reset dg_hrto if hrto=61 or hrto=65 dift dg_hrto = 61: dg_hrto = 99 dift dg_hrto = 65: dg_hrto = 99 'make sg_hrto: hrto=99 $cut sg_hrto, sg_hrto, 1, 5 sg_hrto = sg_hrto + dg_hrto sub_return 'above is if end of a qtptest endi goto tag_endsubr '*************************** gtag tag_runinfo0 'output the tag_runinfo0 stuff 'tag_runinfo1 is ten quadrillion or 10E15 '$out sg_dashline +" "+ sg_hrto +" "+ sg_jig 'do the following info 'c90tea.cpp build=619 2014/03/05 ./oklatea.o m=100,277,131 'oldqtp.tea version=1944 2019/11/14 14117p oldqtp.tea l=114,332,167,767 'beg=14-NOV-2019 15:37:07 at=9,995,999,999,999,981 qtp19z0a.txt z0 'end=14-NOV-2019 17:00:18 at=10,005,611,416,225,091 z0 'try=10,005,611,416,225,091 14-NOV-2019 17:00 z0 166.94 120.50 2 0 '12345678901234567890 'oklatea.exe build 523 2008/03/17 'oldqtp.tea version=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, " " + "m" + "=" + sg_memory 'output to screen and to afile $out s_out fapp d_any, s_afile, s_out 'output oldqtp.tea build, and lines 'get the lines of Teapro dsys d_any, 2 ded$ sg_lines, d_any, 0, 0 s_out = sg_version +" "+ sg_loadprog $app s_out, " " + "l" + "=" + sg_lines 'output to screen and to afile $out s_out fapp d_any, s_afile, s_out '****** 'begin date and number s_out = "beg=" + s_datebegin20 $app s_out, " at=" + s_beginnumber $app s_out, " " + s_afile +" "+ s_2code 'output to screen and afile, bfile $out s_out fapp d_any, s_afile, s_out fapp d_any, s_bfile, s_out 'end date and end number $dat s_date35 $cut s_date20, s_date35, 1, 20 s_out = "end=" + s_date20 + " at=" + s_primetest $app s_out, " " + s_2code 'output to screen and to afile, bfile $out s_out fapp d_any, s_afile, s_out fapp d_any, s_bfile, s_out '12345678901234567890123456789012345 '17-DEC-2002 03:56:22 20021217035622 'output current hour line to screen and to afile $out s_hourline fapp d_any, s_afile, s_hourline '****** $out sg_dashline +" "+ sg_hrto +" "+ sg_jig +" "+ s_2code 'tag_runinfo1 is ten quadrillion or 10E15 goto tag_runinfo1 gtag tag_endsubr ends sub_teaquad_5tp39_by_modulus_duo subr sub_qtptestpick 'updated 2019/09/16 '2019/09/13, 2018/08/28, 2018/02/04, 2017/10/18, 2017/10/13 '2017/10/12, 2017/01/22, 2017/01/15, 2017/01/13, 2016/04/01 '2015/11/12, 2015/10/25, 2015/09/22, 2015/09/20, 2015/09/06 '2015/08/27, 2015/04/18, 2015/03/17, 2015/03/15, 2015/03/12 '2015/03/04, 2015/02/18, 2015/02/17, 2015/02/16, 2014/11/03 '2014/11/01, 2014/10/31, 2014/10/28, 2014/10/25, 2014/10/23 '2014/10/22, 2014/10/21, 2014/10/08, 2014/10/05, 2014/10/01 '2014/09/29, 2014/09/24, 2014/05/03, 2014/03/12, 2014/01/06 '2014/01/05, 2014/01/04, 2014/01/02, 2013/12/30, 2013/12/27 '2013/12/24, 2013/12/22, 2013/12/12, 2013/12/10, 2013/12/03 '2013/12/01, 2013/11/25, 2013/11/08, 2013/11/05, 2013/08/01 '2013/07/29, 2013/07/27, 2013/05/11, 2013/05/03, 2013/04/30 '2013/04/25, 22013/04/24, 2013/04/22, 2013/04/19, 2013/04/14 vari d_any, s_any, d_dot, s_dot, d_tap, s_tap vari d_qtptesttotpick, d_totsec, d_totcts, d_totnot d_qtptesttotpick = 52 ito$ s_tap, 1 $len d_tap, s_tap dift d_tap = 0 arrb $toi 1, "1. 12E15 sec= 103 0 056781 66132" $toi 2, "2. 13E15 sec= 6011 0 232633 42798" $toi 3, "3. 14E15 sec= 440 0 029958 30873" $toi 4, "4. 15E15 sec= 2576 0 459022 18128" $toi 5, "5. 16E15 sec= 5953 0 707709 41995" 'above done on 2019/09/13 with 6 running and 12 pstring $toi 6, "6. 19E15 sec= 1852 0 800329 12960" $toi 7, "7. 30E15 sec= 968 0 889054 67991" $toi 8, "8. 39E15 sec= 560 0 877817 38145" $toi 9, "9. 40E15 sec= 3477 0 536594 24314" $toi 10, "10. 41E15 sec= 2124 0 273435 14982" 'above done on 2019/09/13 with 6 running and 12 pstring $toi 11, "11. 43E15 sec= 3073 0 806282 21857" $toi 12, "12. 44E15 sec= 425 0 592633 29228" $toi 13, "13. 50E15 sec= 3526 0 577265 24827" $toi 14, "14. 51E15 sec= 817 0 150725 56060" $toi 15, "15. 54E15 sec= 483 0 762112 32665" 'above done on 2019/09/13 with 6 running and 12 pstring $toi 16, "16. 100E15 sec= 11534 0 254673 81186" $toi 17, "17. 200E15 sec= 7373 0 549516 51550" $toi 18, "18. 2,000E15 sec= 1869 0 928283 12779" $toi 19, "19. 4,000E15 sec= 4541 2 461181 31045" $toi 20, "20. 5,000E15 sec= 4776 1 346601 32229" 'above done on 2019/09/13 with 6 running and 12 pstring $toi 21, "21. 7,000E15 sec= 3679 1 138599 24720" $toi 22, "22. 11,000E15 sec= 3818 1 349340 25143" $toi 23, "23. 12,000E15 sec= 10874 3 652761 74071" $toi 24, "24. 20,000E15 sec= 8807 3 674160 59810" $toi 25, "25. 50,000E15 sec= 3170 3 642970 17446" 'above done on 2019/09/13 with 6 running and 12 pstring $toi 26, "26. 57,000E15 sec= 3262 3 969161 20765" $toi 27, "27. 94,000E15 sec= 2640 1 724432 15499" $toi 28, "28. 390,000E15 sec= 7447 2 966730 43558" $toi 29, "29. 391,000E15 sec= 1247 0 705023 11585" $toi 30, "30. 1,600,050E15 sec= 6069 3 188739 20779" 'above done on 2019/09/13 with 6 running and 12 pstring $toi 31, "31. 1,600,150E15 sec= 3987 1 071749 13259" $toi 32, "32. 1,600,190E15 sec= 8573 3 025923 38274" $toi 33, "33. 1,600,370E15 sec= 2445 0 259731 20875" $toi 34, "34. 1,600,380E15 sec= 7574 5 858450 29683" $toi 35, "35. 1,600,430E15 sec= 11311 5 384449 55387" 'above done on 2019/09/14 with 6 running and 12 pstring $toi 36, "36. 1,600,510E15 sec= 11493 7 728083 54217" $toi 37, "37. 1,600,550E15 sec= 5702 0 042194 26735" $toi 38, "38. 1,600,740E15 sec= 6463 3 877689 28282" $toi 39, "39. 1,601,920E15 sec= 2304 0 917017 85337" $toi 40, "40. 1,601,990E15 sec= 8157 3 406960 36694" 'above done on 2019/09/14 with 6 running and 12 pstring $toi 41, "41. 1,603,100E15 sec= 8714 2 973379 39196" $toi 42, "42. 1,603,400E15 sec= 8671 4 511136 23209" $toi 43, "43. 1,000E15 sec= 17237 6 550427 12759" $toi 44, "44. 3,000E15 sec= 27616 8 706623 20494" $toi 45, "45. 15,000E15 sec= 35419 14 528300 25751" 'above done on 2019/09/15 with 6 running and 12 pstring $toi 46, "46. 1,600,790E15 sec= 2315 0 114316 79867" $toi 47, "47. 1,604,286E15 sec= 2215 0 866921 13517" $toi 48, "48. 1,604,307E15 sec= 2245 0 901958 13557" $toi 49, "49. 1,604,326E15 sec= 2305 0 942957 67141" $toi 50, "50. 1,604,379E15 sec= 2269 0 488697 35868" 'above done on 2019/09/15 with 6 running and 12 pstring $toi 51, "51. 10E15 sec= 15663 0 391486 11767" $toi 52, "52. 17E15 sec= 24353 0 399371 18120" 'above done on 2019/09/16 with 6 running and 12 pstring endi 'show them d_tap = 1 dwhi d_tap <= d_qtptesttotpick ito$ s_tap, d_tap 'tot sec $par s_any, s_tap, " ", 4 dcut d_any, s_any, 1, 10 d_totsec = d_totsec + d_any 'tot not $par s_any, s_tap, " ", 5 dcut d_any, s_any, 1, 10 d_totnot = d_totnot + d_any 'tot cts $par s_any, s_tap, " ", 6 dcut d_any, s_any, 1, 10 d_totcts = d_totcts + d_any $out s_tap dinc d_tap endw $off s_any, d_totcts, 6 $out "sec=" + d_totsec + " cts=" + s_any + " not=" + d_totnot dg_pass1 = d_qtptesttotpick ends sub_qtptestpick 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 2018/12/13, 2018/05/25, 2017/12/05, 2017/06/19, 2017/06/10 '2016/12/29, 2016/12/27, 2016/12/15, 2014/02/21, 2014/02/14 '2012/03/13, 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_fileline, s_quadend, d_mode sg_newpausefiles = "," + sg_newpausefiles d_loop = 1 dwhi d_loop = 1 $out sg_dashline +" "+ sg_hrto +" "+ sg_jig 'interpreter $out sg_interpreter +" "+ sg_path 'version 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_version +" "+ 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, 20 s_dot = "enter 2code ie. t4 " + 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 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, 20 s_fileline = s_pausefile +" "+ s_any +" "+ sg_version $app s_fileline, " " + sg_loadprog fout d_any, s_pausefile, s_fileline sg_newpausefiles = s_2code + "," + sg_newpausefiles $clo sg_newpausefiles, sg_newpausefiles endi $ift s_choice = "2" 'delete s_pausefile fdel d_any, s_pausefile endi endi endw $cut sg_newpausefiles, sg_newpausefiles, 1, 80 ends sub_pause_file_build_delete subr sub_pause_file_list 'updated 2017/07/19, 2017/06/21, 2016/12/29, 2016/12/15 '2016/09/09, 2016/02/19, 2012/03/25, 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, d_byte vari d_loop, s_line, d_long, d_process s_line = sg_nothing d_byte = 1 d_loop = 1 dwhi d_loop = 1 $cut s_2code, sg_the2codes, 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, "," s_any = "pausefiles=" + s_line +" "+ d_any $out s_any + ", new=" + sg_newpausefiles 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 <= dg_darraymax 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 $out "lines=" + d_lines sub_return ends sub_write_teapro_lines_test_teaquad_5tp39 subr sub_test_dift_loop_5tp39 'updated 2018/02/16, 2017/06/19, 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_version +" "+ 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 sub_return ends sub_test_dift_loop_5tp39 subr sub_input_yes_no_asterisk 'updated 2020/05/10, 2020/03/15, 2020/03/14, 2019/12/20 '2018/08/21, 2018/07/17, 2018/07/14, 2018/05/25, 2017/06/11 '2016/11/12, 2016/03/13, 2016/03/12, 2016/01/28, 2015/12/21 '2015/07/07, 2015/06/30, 2015/06/14, 2015/06/03, 2015/05/21 '2015/05/16, 2015/05/14, 2015/05/13, 2015/05/10, 2015/05/09 '2015/04/04, 2015/03/05, 2015/03/02, 2015/03/01, 2014/10/21 '2014/10/19, 2014/10/17, 2014/10/14, 2014/10/11, 2014/10/10 '2014/10/05, 2014/10/02, 2014/10/01, 2014/09/26, 2014/09/18 '2014/09/15, 2014/09/14, 2014/09/10, 2014/07/18, 2014/02/21 '2013/09/07, 2013/07/09, 2013/05/13, 2013/05/11, 2013/03/13 '2012/10/16, 2012/10/03, 2012/09/30, 2012/03/23, 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, d_dot, s_dot, s_input, s_question vari d_loop, d_count, d_yes s_question = sg_pass1 d_yes = 99999 d_count = 0 d_loop = 1 dwhi d_loop = 1 $out s_question '12345678901234567 '30-SEP-2012 06:25 $dat s_dot $cut s_dot, s_dot, 1, 20 s_any = "ENTER y=yes, n=no, *=end, ?=?, " + sg_hrto +" "+ sg_jig $app s_any, " " + s_dot $inp s_input, s_any $tup s_input, s_input 'test for dbug $ift s_input = "DBUG": dbug 'test for hrto or jig change: hrto=99 sg_pass1 = s_input sub_hrtojig s_input = sg_pass1 'test for x= to do arithmetic sg_pass1 = s_input sub_xyz_math s_input = sg_pass1 $ift s_input = "Y" d_yes = 1 dinc d_loop endi $ift s_input = "N" d_yes = 2 dinc d_loop endi $ift s_input = "*" d_yes = 3 dinc d_loop endi $ift s_input = "?": sub_help dinc d_count dift d_count > 100 d_yes = 3 dinc d_loop endi endw '12345678901234567890123456789012345 '30-SEP-2012 06:25:22 20120930062522 $dat s_any $cut s_any, s_any, 1, 17 $out sg_dashline +" "+ sg_hrto +" "+ sg_jig +","+" "+ s_any dg_pass1 = d_yes ends sub_input_yes_no_asterisk subr sub_return 'updated 2020/05/05, 2020/03/16, 2020/03/15, 2019/12/21 vari d_any, s_any, s_input s_input = 9999 $whi s_input <> sg_nothing $dat s_any $cut s_any, s_any, 1, 17 $out sg_dashline +" "+ sg_hrto +" "+ sg_jig +","+" "+ s_any $inp s_input, "RETURN, or xyz, qtp, hrto, jig" sg_pass1 = s_input sub_hrtojig endw ends sub_return subr sub_hrtojig 'updated 2020/05/05 '2020/04/09, 2020/02/23, 2019/12/29, 2019/12/20, 2019/09/09 '2019/04/24, 2019/03/12, 2018/12/07, 2018/09/14, 2018/09/03 '2018/08/09, 2018/07/18, 2018/07/17, 2018/05/25, 2018/05/03 '2017/07/14, 2017/06/21, 2016/11/14, 2016/11/12, 2016/09/09 '2016/05/29, 2016/05/07, 2016/03/15, 2016/03/13, 2016/03/12 '2015/07/07, 2015/06/14, 2015/03/02, 2014/10/19, 2014/10/17 vari s_any, d_any, s_dot, d_dot, s_tap, d_tap, s_inp $tup s_inp, sg_pass1 'test for dg_hrto change in sg_pass1: hrto=99 $cut s_any, s_inp, 1, 5 $ift s_any = "HRTO=" 'we must have form of: hrto=99 $cut s_any, s_inp, 6, 40 $trb s_any, s_any $isd d_any, s_any dift d_any = 1 'hrto=99 d_tap = dg_hrto $tod dg_hrto, s_any dabs dg_hrto, dg_hrto dtru dg_hrto, dg_hrto 'sg_hrto is: hrto=99 $cut sg_hrto, sg_hrto, 1, 5 sg_hrto = sg_hrto + dg_hrto $out "hrto changed from " + d_tap + " to " + dg_hrto endi sg_pass1 = sg_nothing endi 'time $cut s_any, s_inp, 1, 4 $ift s_any = "TIME" 'show the time sub_pspeed $out sg_pspeed sub_return sg_pass1 = sg_nothing endi 'jig=19 $cut s_any, s_inp, 1, 4 $ift s_any = "JIG=" 'we must have form of: jig=19 $cut s_any, s_inp, 5, 40 $trb s_any, s_any $isd d_any, s_any dift d_any = 1 'jig=19 d_tap = dg_jig $tod dg_jig, s_any dabs dg_jig, dg_jig dtru dg_jig, dg_jig dift dg_jig < 1: dg_jig = 1 dift dg_jig > 99: dg_jig = 99 'sg_jig is: jig=19 $cut sg_jig, sg_jig, 1, 4 sg_jig = sg_jig + dg_jig $out "jig changed from " + d_tap + " to " + dg_jig endi endi 'test for sg_qtpyy change in sg_pass1 for two digit qtp: 16 $cut s_any, s_inp, 1, 4 $ift s_any = "QTP=" 'we must have form of: qtp=16 $cut s_any, s_inp, 5, 40 $trb s_any, s_any $isd d_any, s_any dift d_any = 1 'qtp=16 s_tap = sg_qtpyy $tod d_dot, s_any dabs d_dot, d_dot dtru d_dot, d_dot s_dot = 0000 + d_dot $off s_dot, s_dot, 2 'sg_qtpyy form is: qtp16 $rep sg_qtpyy, 4, s_dot $out "qtp changed from " + s_tap + " to " + sg_qtpyy 'initialize the sg_dashline,sg_asterline $ch$ sg_dashline, "-", 22 $ch$ sg_asterline, "*", 22 $app sg_dashline, " " + "v" + "=" + dg_version +" "+ sg_qtpyy $app sg_asterline, " " + "v" + "=" + dg_version +" "+ sg_qtpyy endi sg_pass1 = sg_nothing endi 'xyz to do arithmetic sg_pass1 = s_inp sub_xyz_math s_inp = sg_pass1 'test for help $ift s_inp = "?" sub_help sg_pass1 = sg_nothing endi ends sub_hrtojig subr sub_help 'updated 2020/04/09 '2020/01/28, 2020/01/26, 2020/01/19, 2019/12/20, 2019/10/30 '2019/09/13, 2019/09/09, 2019/04/24, 2019/04/21, 2018/10/13 '2018/09/14, 2018/09/03, 2018/07/17, 2018/05/03, 2017/12/01 '2017/07/19, 2017/06/26, 2016/11/12, 2016/05/29, 2016/03/13 vari s_any 'help information for dg_hrto,dg_jig,sg_qtpyy $out "help for hrto,jig,qtp" $out "hrto=10 to pause at 10:00 AM for hours of 0 to 23" $out "hrto=51 to pause after next 5TP39" $out "hrto=61 qtptest to pause after 1 count" $out "hrto=65 qtptest to pause after 5 set" $out "hrto=99 qtptest to not pause at all" $out "jig=24 to change jig to 24" $out "qtp=20 to change qtp19 to qtp20" $out "xyz for arithmetic" $out "x=99 set x=99" $out "time to get duotime and time" $out "dbug=dbug" $out sg_hrto +" "+ sg_jig +" "+ sg_qtpyy 'test sub_roll_15date and sub_roll_11date $dat s_any sg_pass1 = s_any sub_roll_15date $out s_any +" "+ sg_pass1 $dat s_any sg_pass1 = s_any sub_roll_11date $out s_any +" "+ sg_pass1 $dat s_any $cut sg_pass1, s_any, 1, 15 sub_15date_to_num $out s_any +" "+ dg_pass1 sub_return ends sub_help subr sub_menu_primes 'updated 2020/04/26, 2020/04/03, 2020/04/02, 2020/03/25 '2020/03/24, 2020/03/22, 2020/03/19, 2020/03/16, 2020/03/15 '2030/03/11, 2020/03/05, 2020/02/19, 2019/12/31, 2019/12/19 '2019/12/15, 2016/07/26, 2015/11/12, 2015/09/30, 2012/06/11 '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, 2004/05/06 vari s_any, d_any, s_dot, d_dot vari s_pick, d_pick dwhi d_pick < 9999 $out "1 = sub_primes_slow_find, gap300" $out "5 = sub_teaquad_primes_slow_find" $out "11 = sub_teaquad_primes_fast_find" $out "12 = sub_teaquad_primes_test_one_number" $out "13 = sub_teaquad_5tp39_test_just_one" $out "22 = sub_teaquad_max_test" $out "32 = sub_teaquad_mod_test" $out "71 = sub_write_teapro_lines_test_teaquad_5tp39" $out "72 = sub_test_dift_loop_5tp39" sub_pspeed $inp s_pick, "PICK a number, * to end, " + sg_pspeed d_pick = 0 $ift s_pick = "*": d_pick = 9999 $isd d_any, s_pick dift d_any = 1: $tod d_pick, s_pick dift d_pick = 1: sub_primes_slow_find 'teaquad primes > 2^53 dift d_pick = 5: sub_teaquad_primes_slow_find dift d_pick = 11: sub_teaquad_primes_fast_find dift d_pick = 12: sub_teaquad_primes_test_one_number dift d_pick = 13: sub_teaquad_5tp39_test_just_one dift d_pick = 22: sub_teaquad_max_test dift d_pick = 32: sub_teaquad_mod_test dift d_pick = 71: sub_write_teapro_lines_test_teaquad_5tp39 dift d_pick = 72: sub_test_dift_loop_5tp39 endw ends sub_menu_primes subr sub_primes_slow_find 'updated 2020/05/15, 2020/05/05 '2020/04/26, 2020/04/22, 2020/04/21, 2020/04/16, 2020/04/14 '2020/04/13, 2020/04/12, 2020/04/11, 2020/04/09, 2020/04/03 '2020/04/02, 2020/03/29, 2020/03/27, 2020/03/26, 2020/03/25 '2020/03/24, 2020/03/23, 2020/03/22, 2020/03/20, 2020/03/19 '2020/03/18, 2020/03/17, 2020/03/16, 2020/03/15, 2020/03/14 '2020/03/12, 2020/03/11, 2020/03/10, 2020/03/09, 2020/03/07 '2020/03/06, 2020/03/04, 2020/03/03, 2020/03/02, 2020/03/01 '2020/02/29, 2020/02/24, 2020/02/23, 2020/02/21, 2019/12/29 '2019/12/28, 2019/12/27, 2019/12/19, 2019/12/16, 2019/12/15 'find primes the slow way used for finding gap300s vari d_any, s_any, d_dot, s_dot, d_hat, s_hat, d_out, s_out vari d_factor, d_squareroot, d_onehalf, d_loop1, d_loop2 vari s_begin, d_number, s_number, d_prevnumber, d_begnumber, d_prevhrnumber vari d_tofindcount, d_primecount, d_begsec, d_mod, s_prevprime vari s_nowdate, d_tothours, d_nowhour, d_prevhour vari d_gap, d_maxgap, d_shogap, d_ctshogap, d_ctgap, d_totgap, d_totsqgap vari s_fileout1, s_fileout2, s_2kode, s_infoline vari s_filedata, s_default, d_thperhour, s_thperhour, s_8zeros 'get s_2kode $inp s_2kode, "enter the 2code letter number, default=z0" $tlo s_2kode, s_2kode $cut s_any, s_2kode, 1, 1 $ift s_any < "a": s_any = "z" $ift s_any > "z": s_any = "z" $cut s_dot, s_2kode, 2, 1 $ift s_dot < "0": s_dot = "0" $ift s_dot > "9": s_dot = "0" s_2kode = s_any + s_dot s_fileout1 = "gap300" + s_2kode + ".txt" s_fileout2 = "gap_" + s_2kode + ".txt" $out s_fileout1 +" "+ s_fileout2 'get the last number from s_fileout1 s_default = "9e15" finp s_filedata, s_fileout1 $len d_dot, s_filedata dift d_dot > 100 $bak d_any, s_filedata, d_dot, "put:" dift d_any > 0 $cut s_filedata, s_filedata, d_any, 80 $out s_filedata 'put: 123. 9,000,000,000,000,001 $par s_dot, s_filedata, " ", 3 $isd d_any, s_dot dift d_any = 1: s_default = s_dot endi endi d_onehalf = 1 / 2 d_number = 10^15 * 9 ded$ s_any, d_number, 1, 0 $out "1,693,182,318,746,371 prime gap begin of 1132" $out "max is 9,007,199,254,740,992" $inp s_begin, "enter start number less than max, default=" + s_default $tup s_begin, s_begin $ift s_begin = sg_nothing: s_begin = s_default s_number = s_begin $swp s_number, "E15", ",000,000,000,000,000" $out s_number $isd d_dot, s_number dift d_dot = 1 $tod d_dot, s_number 'must be a little less than 2^53=9,007,199,254,740,992 d_any = 2 ^ 53 - 99999 dift d_dot < d_any: d_number = d_dot endi 'make it an odd number d_any = d_number % 2 dift d_any <> 1: dinc d_number d_begnumber = d_number d_prevnumber = d_number d_prevhrnumber = d_number d_tofindcount = 10^6 - 1 $inp s_any, "enter count primes to find, default=" + d_tofindcount $isd d_any, s_any dift d_any = 1: $tod d_tofindcount, s_any d_shogap = 300 $inp s_any, "enter minimum gap to show, default=" + d_shogap $isd d_any, s_any dift d_any = 1: $tod d_shogap, s_any '12345678901234567890 '05-MAR-2009 01:05:26 $dat s_nowdate $cut s_nowdate, s_nowdate, 1, 17 dcut d_prevhour, s_nowdate, 13, 2 'infoline $ch$ s_infoline, "-", 14 $app s_infoline, "v" + "=" + dg_version + " gap300" s_out = s_infoline +" "+ s_nowdate +" "+ s_2kode $out s_out fapp d_any, s_fileout1, s_out $ch$ s_8zeros, "0", 8 d_number = d_number - 2 dsec d_begsec gtag tag_gap001 'test next d_number for primeness dinc d_number dinc d_number dpow d_squareroot, d_number, d_onehalf d_factor = 1 'test d_number by d_factor to see if it is prime gtag tag_gap002 dinc d_factor dinc d_factor 'is d_number prime dift d_factor > d_squareroot: goto tag_gap003 d_mod = d_number % d_factor 'is d_number not prime dift d_mod = 0: goto tag_gap001 goto tag_gap002 gtag tag_gap003 'we have a prime in d_number dinc d_primecount 'get gap from previous number d_gap = d_number - d_prevnumber dift d_primecount = 1: d_gap = 0 d_totgap = d_totgap + d_gap d_totsqgap = d_prevnumber % 100 * d_gap + d_totsqgap dift d_primecount > 1: dinc d_ctgap dift d_gap > d_maxgap: d_maxgap = d_gap ded$ s_prevprime, d_prevnumber, 1, 0 d_prevnumber = d_number $sho d_primecount +" "+ s_prevprime +" "+ d_gap '12345678901234567890 '05-MAR-2009 01:05:26 $dat s_nowdate $cut s_nowdate, s_nowdate, 1, 17 'do we have a new hour dcut d_nowhour, s_nowdate, 13, 2 dift d_nowhour <> d_prevhour 'we have a new hour dinc d_tothours d_prevhour = d_nowhour s_out = "put: " + d_primecount +" "+ s_prevprime +" "+ s_nowdate $app s_out, " "+ s_2kode $out s_out fapp d_any, s_fileout1, s_out 'do we want to output the information line d_any = d_tothours % 4 dift d_any = 0 'find average number per hour per thousand speed d_hat = d_number - d_prevhrnumber / 4 / 1000 dto$ s_thperhour, d_hat, 1, 3 d_prevhrnumber = d_number s_out = s_infoline + " ct=" + d_ctshogap + " max=" + d_maxgap $app s_out, " hrs=" + d_tothours+" "+ s_thperhour +" "+ s_2kode $out s_out fapp d_any, s_fileout1, s_out endi 'above is have a prime and a new hour endi dift d_gap >= d_shogap 'we have a gap we want to show 'count the sho gaps dinc d_ctshogap 'build the output show line s_any = s_8zeros + d_ctshogap $off s_any, s_any, 6 $ins s_any, 4, ":" s_out = "]" + " " + s_any +" "+ s_prevprime + " gap=" + d_gap $app s_out, " "+ s_nowdate +" "+ s_2kode 'output to the screen and to the files $out s_out fapp d_any, s_fileout1, s_out fapp d_any, s_fileout2, s_out endi 'above we have a prime 'go test another d_number unless we are through dift d_primecount < d_tofindcount: goto tag_gap001 'final information line s_out = s_infoline + " ct=" + d_ctshogap + " max=" + d_maxgap $out s_out + " hrs=" + d_tothours +" "+ s_2kode 'show ending number d_any = d_number - 2 ded$ s_any, d_any, 1, 0 s_out = "end: " + s_any +" "+ s_fileout1 +" "+ s_fileout2 $out s_out fapp d_any, s_fileout1, s_out 'date $dat s_nowdate $cut s_nowdate, s_nowdate, 1, 17 'final information line s_out = s_begin +" "+ d_tofindcount +" "+ s_nowdate +" "+ s_2kode $out s_out fapp d_any, s_fileout1, s_out 'seconds dsec d_any d_begsec = d_any - d_begsec dto$ s_hat, d_begsec, 1, 3 s_out = "ctgap=" + d_ctgap + " totgap=" + d_totgap + " maxgap=" + d_maxgap $app s_out, " product=" + d_totsqgap + " secs=" + d_begsec +" "+ s_2kode $out s_out fapp d_any, s_fileout1, s_out sub_return ends sub_primes_slow_find subr sub_teaquad_primes_slow_find 'updated 2020/04/16, 2020/04/13, 2020/04/11 '2020/04/09, 2020/02/24, 2020/02/23, 2020/02/21, 2019/12/31 '2019/12/30, 2019/12/29, 2019/12/19, 2019/12/16, 2018/03/16 '2017/06/13, 2017/06/12, 2012/11/27, 2012/10/19, 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_hat, s_out vari s_number, d_number, d_maxgap, d_count, d_onehalf vari d_num1, d_num2, d_num3, d_num4, d_5e9, d_2e5 vari d_mod, d_mult, d_part, d_divisor, d_squareroot vari d_loop1, d_loop2, d_previous, s_previous vari d_gap, d_totgap, d_ctgap, d_ctmax, d_totsqgap, d_teaquadone vari d_file, s_filename, s_date, s_begin vari d_sec1, d_sec2 d_teaquadone = 10 ^ 15 d_file = 2 s_filename = "zprimes.txt" $inp s_any, "ENTER 1=output to file " + s_filename $ift s_any = "1": d_file = 1 $inp s_begin, "ENTER begin number, default=10e15" $tup s_begin, s_begin $ift s_begin = sg_nothing: s_begin = "10E15" s_number = s_begin $swp s_number, "E15", ",000,000,000,000,000" $out s_number sg_pass1 = s_number sub_teaquad_from_string d_part = dg_pass1 d_mult = dg_pass2 d_previous = d_part d_any = d_part % 2 dift d_any = 0: dinc d_part d_ctmax = 10 $inp s_any, "ENTER how many to find, default=10" $isd d_any, s_any dift d_any = 1: $tod d_ctmax, s_any dsec d_sec1 d_onehalf = 1 / 2 d_5e9 = 10 ^ 9 * 5 d_2e5 = 10 ^ 5 * 2 d_number = d_mult * d_5e9 * d_2e5 + d_part dpow d_squareroot, d_number, d_onehalf d_count = 0 d_loop1 = 1 dwhi d_loop1 = 1 'teaquad the slow way d_loop2 = 1 'test d_number by d_factor to see if it is prime d_divisor = 3 dwhi d_loop2 = 1 'teaquad mod the slow way 'd_num1 = d_mult * d_5e9 'd_num2 = d_num1 % d_divisor 'd_num3 = d_num2 * d_2e5 'd_num4 = d_num3 + d_part 'd_mod = d_num4 % d_divisor d_mod = d_mult * d_5e9 % d_divisor * d_2e5 + d_part % d_divisor dift d_mod = 0 'the number is not prime dinc d_loop2 else dinc d_divisor dinc d_divisor 'the number is prime dift d_divisor > d_squareroot: d_loop2 = 9999 endi endw 'show number just tested dg_pass1 = d_part dg_pass2 = d_mult sub_teaquad_to_string s_number = sg_pass1 $sho s_number dift d_loop2 = 9999 'we have a teaquad prime or duo dinc d_count 'find gap to previous prime d_gap = d_part - d_previous dift d_count = 1: d_gap = 0 dift d_gap > d_maxgap: d_maxgap = d_gap d_totgap = d_totgap + d_gap d_totsqgap = d_gap * d_gap + d_totsqgap dift d_count > 1: dinc d_ctgap d_previous = d_part dg_pass1 = d_part dg_pass2 = d_mult sub_teaquad_to_string s_number = sg_pass1 'we want the previous count dift d_count > 1 '12345678901234567890 '05-MAR-2009 01:05:26 $dat s_any $cut s_any, s_any, 1, 17 d_dot = d_count - 1 s_out = d_dot + ".teaquad slow=" + s_previous + " gap=" + d_gap $app s_out, " "+ s_any endi $out s_out dift d_file = 1: fapp d_any, "zprimes.txt", s_out s_previous = s_number endi d_part = d_part + 2 dift d_part > d_teaquadone d_part = d_part - d_teaquadone dinc d_mult endi dpow d_squareroot, d_number, d_onehalf dift d_count >= d_ctmax: dinc d_loop1 endw $out sg_dashline +" "+ sg_hrto +" "+ sg_jig $dat s_any $cut s_any, s_any, 1, 17 s_out = s_begin +" "+ d_count + " teaquad slow " + s_any $out s_out 'seconds dsec d_sec2 d_sec2 = d_sec2 - d_sec1 s_out = "ctgap=" + d_ctgap + " totgap=" + d_totgap + " maxgap=" + d_maxgap $app s_out, " square=" + d_totsqgap + " sec=" + d_sec2 $out s_out sub_return ends sub_teaquad_primes_slow_find subr sub_teaquad_primes_fast_find 'updated 2020/04/16 '2020/04/13, 2020/04/12, 2020/04/11, 2020/04/09, 2020/04/06 '2020/02/27, 2020/02/24, 2020/02/23, 2020/02/21, 2019/12/31 '2019/12/30, 2019/12/29, 2019/12/19, 2019/12/16, 2018/03/16 '2017/06/13, 2017/06/12, 2012/11/27, 2012/10/19, 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_hat, s_out vari s_number, d_teaquadpart, d_teaquadmult, s_prevnumber vari d_mingap, d_maxgap, d_totgap vari d_loop, d_factor, d_primect, d_yesduos vari d_previous, d_gap, d_ctmax, d_ctgap, d_ctshogap, d_totsqgap vari d_file, s_filename, s_date, s_begin vari d_sec1, d_sec2, s_nowdate, s_type, d_teaquadone d_teaquadone = 10 ^ 15 d_file = 2 s_filename = "zprimes.txt" $inp s_any, "ENTER 1=output to file " + s_filename $ift s_any = "1": d_file = 1 s_type = "primes" d_yesduos = 2 $inp s_any, "ENTER 1=duos only" $ift s_any = "1" d_yesduos = 1 s_type = "duos" endi $out "1,425,172,824,437,699,411 prime gap begin of 1476" $inp s_begin, "ENTER begin number, default=10e15" $tup s_begin, s_begin $ift s_begin = sg_nothing: s_begin = "10E15" s_number = s_begin $swp s_number, "E15", ",000,000,000,000,000" $out s_number sg_pass1 = s_number sub_teaquad_from_string d_teaquadpart = dg_pass1 d_teaquadmult = dg_pass2 d_previous = d_teaquadpart d_any = d_teaquadpart % 2 dift d_any = 0: dinc d_teaquadpart d_ctmax = 10 $inp s_any, "ENTER how many primes to find, default=10" $isd d_any, s_any dift d_any = 1: $tod d_ctmax, s_any d_mingap = 2 $inp s_any, "ENTER min gap to show" $isd d_any, s_any dift d_any = 1: $tod d_mingap, s_any dsec d_sec1 d_primect = 0 d_loop = 1 dwhi d_loop = 1 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 'show number just tested ' dg_pass1 = d_teaquadpart ' dg_pass2 = d_teaquadmult ' sub_teaquad_to_string ' s_number = sg_pass1 dift d_factor = 1 'we have a teaquad prime or duo dinc d_primect 'find gap to previous prime d_gap = d_teaquadpart - d_previous dift d_primect = 1: d_gap = 0 dift d_gap > d_maxgap: d_maxgap = d_gap d_totgap = d_totgap + d_gap d_totsqgap = d_gap * d_gap + d_totsqgap dift d_primect > 1: dinc d_ctgap d_previous = d_teaquadpart dg_pass1 = d_teaquadpart dg_pass2 = d_teaquadmult sub_teaquad_to_string s_number = sg_pass1 $sho d_primect +" "+ s_number +" "+ d_gap dift d_gap >= d_mingap dinc d_ctshogap '12345678901234567890 '05-MAR-2009 01:05:26 $dat s_nowdate $cut s_nowdate, s_nowdate, 1, 17 dift d_yesduos = 1 s_out = d_ctshogap + ".fast duo=" + s_prevnumber $app s_out, " gap=" + d_gap +" "+ s_nowdate else s_out = d_ctshogap + ".fast prime=" + s_prevnumber $app s_out, " gap=" + d_gap +" "+ s_nowdate endi $out s_out dift d_file = 1: fapp d_any, "zprimes.txt", s_out endi s_prevnumber = s_number 'above we have a prime endi dinc d_teaquadpart dinc d_teaquadpart dift d_teaquadpart > d_teaquadone d_teaquadpart = d_teaquadpart - d_teaquadone dinc d_teaquadmult endi dift d_primect >= d_ctmax: dinc d_loop endw $out sg_dashline +" "+ sg_hrto +" "+ sg_jig $dat s_any $cut s_any, s_any, 1, 17 s_out = s_begin +" "+ d_primect + " fast " + s_type +" "+ s_any $out s_out 'seconds dsec d_sec2 d_sec2 = d_sec2 - d_sec1 s_out = "ctgap=" + d_ctgap + " totgap=" + d_totgap + " maxgap=" + d_maxgap $app s_out, " square=" + d_totsqgap + " sec=" + d_sec2 $out s_out sub_return ends sub_teaquad_primes_fast_find subr sub_teaquad_primes_test_one_number 'updated 2019/12/31, 2018/06/18, 2018/06/17, 2017/10/29 '2017/10/28, 2017/10/27, 2013/03/22, 2012/10/19, 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 vari d_loop, s_input, d_pick, d_process, d_totsec vari s_num01, s_num02, s_num03, s_num04 vari s_num05, s_num06, s_num07, s_num08 s_num01 = "1,000,946,235,399,161" s_num02 = "10,011,767,333,774,411" s_num03 = "100,008,118,644,774,251" s_num04 = "1,000,012,759,669,197,941" s_num05 = "10,000,013,079,892,989,911" s_num06 = "100,000,003,702,825,856,681" s_num07 = "1,000,000,023,006,562,412,501" s_num08 = "1,600,000,015,971,222,690,491" d_loop = 1 dwhi d_loop = 1 $out sg_dashline +" "+ sg_hrto +" "+ sg_jig $out "1" + "." +" "+ s_num01 $out "2" + "." +" "+ s_num02 $out "3" + "." +" "+ s_num03 $out "4" + "." +" "+ s_num04 $out "5" + "." +" "+ s_num05 $out "6" + "." +" "+ s_num06 $out "7" + "." +" "+ s_num07 $out "8" + "." +" "+ s_num08 $inp s_input, "ENTER number to test, all=all" $tup s_input, s_input d_process = 1 $ift s_input = "*" dinc d_process dinc d_loop endi $ift s_input = "ALL" 'to get the total time d_totsec = 0 sg_pass1 = s_num01 sub_teaquad_primes_test1 d_totsec = d_totsec + dg_pass1 sg_pass1 = s_num02 sub_teaquad_primes_test1 d_totsec = d_totsec + dg_pass1 sg_pass1 = s_num03 sub_teaquad_primes_test1 d_totsec = d_totsec + dg_pass1 sg_pass1 = s_num04 sub_teaquad_primes_test1 d_totsec = d_totsec + dg_pass1 sg_pass1 = s_num05 sub_teaquad_primes_test1 d_totsec = d_totsec + dg_pass1 sg_pass1 = s_num06 sub_teaquad_primes_test1 d_totsec = d_totsec + dg_pass1 sg_pass1 = s_num07 sub_teaquad_primes_test1 d_totsec = d_totsec + dg_pass1 sg_pass1 = s_num08 sub_teaquad_primes_test1 d_totsec = d_totsec + dg_pass1 s_any = "totsecs=" + d_totsec $out s_any dinc d_process endi dift d_process = 1 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 endi dift d_process = 1 dift d_pick = 1: s_input = s_num01 dift d_pick = 2: s_input = s_num02 dift d_pick = 3: s_input = s_num03 dift d_pick = 4: s_input = s_num04 dift d_pick = 5: s_input = s_num05 dift d_pick = 6: s_input = s_num06 dift d_pick = 7: s_input = s_num07 dift d_pick = 8: s_input = s_num08 sg_pass1 = s_input sub_teaquad_primes_test1 endi endw ends sub_teaquad_primes_test_one_number subr sub_teaquad_primes_test1 'updated 2019/12/31, 2018/06/18, 2018/06/17, 2017/10/27 vari d_any, s_any, d_dot, s_dot, s_input, s_dashes vari d_teaquadpart, d_teaquadmult vari d_factor, d_seconds, s_out $dat s_dot $cut s_dot, s_dot, 1, 17 'input sg_pass1 s_input = sg_pass1 $out s_input +" "+ s_dot sub_teaquad_from_string d_teaquadpart = dg_pass1 d_teaquadmult = dg_pass2 'test for primeness dsec d_seconds dfak d_factor, d_teaquadpart, d_teaquadmult dsec d_any d_seconds = d_any - d_seconds $dat s_dot $cut s_dot, s_dot, 1, 17 s_out = s_input + " secs=" + d_seconds + " fact=" + d_factor +" "+ s_dot $out s_out dg_pass1 = d_seconds ends sub_teaquad_primes_test1 subr sub_teaquad_5tp39_test_just_one 'updated 2019/12/31 '2018/03/16, 2017/06/10, 2013/03/22, 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, 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 d_process = 1 d_loop = d_process dwhi d_loop = 1 $out sg_dashline +" "+ sg_hrto +" "+ sg_jig $out sg_dashline +" "+ sg_hrto +" "+ sg_jig $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" $out "51. 5TP39= 1,600,050,002,077,930,539,341" $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" $ift s_number = "51": s_number = "1,600,050,002,077,930,539,341" dift d_process = 1 $out sg_dashline +" "+ sg_hrto +" "+ sg_jig $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 sg_dashline +" "+ sg_hrto +" "+ sg_jig 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 sg_dashline +" "+ sg_hrto +" "+ sg_jig 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_teaquad_to_string 'updated 2012/10/19, 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 'normalize d_teaquadpart d_any = 10 ^ 15 dift d_teaquadpart < 0 d_teaquadpart = d_teaquadpart + d_any ddec d_teaquadmult endi dwhi d_teaquadpart > d_any d_teaquadpart = d_teaquadpart - d_any dinc d_teaquadmult endw '1234567890123456789012345678901 '123,456,789,012,345,678,901,234 '123456789012345678901234 $ch$ s_any, "0", 30 s_line = s_any + d_teaquadpart $off s_line, s_line, 24 $ch$ s_any, "0", 9 s_beg = s_any + d_teaquadmult $off s_beg, s_beg, 9 $rep s_line, 1, s_beg 'put in commas in 24 digit number that is 32 long $ins s_line, 4, "," $ins s_line, 8, "," $ins s_line, 12, "," $ins s_line, 16, "," $ins s_line, 20, "," $ins s_line, 24, "," $ins s_line, 28, "," '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 2012/10/19, 2007/02/24, 2006/11/25, 2006/11/12, 2006/10/28 'teaquad string to d_teaquadpart,d_teaquadmult upto 1E24 - 1 '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 '1234567890123456789012345678901 '123,456,789,012,345,678,901,234 '123456789012345678901234 d_good = 1 dift d_good = 1 'eliminate commas and validate for all numbers $swp s_line, ",", sg_nothing $trb s_line, s_line $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 24 long $ch$ s_any, "0", 30 s_line = s_any + s_line $off s_line, s_line, 24 $cut s_beg, s_line, 1, 9 $tod d_teaquadmult, s_beg $cut s_any, s_line, 10, 99 $tod d_teaquadpart, s_any endi dg_pass1 = d_teaquadpart dg_pass2 = d_teaquadmult ends sub_teaquad_from_string subr sub_teaquad_mod_test 'updated 2013/07/27, 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, s_err vari d_mod1, d_mod2, d_mod3, d_mod4, d_mod5, d_mod6 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 'find the 0.5 root d_any = 1 / 2 dpow d_root, d_number, d_any dtru d_root, d_root $out sg_dashline +" "+ sg_hrto +" "+ sg_jig ded$ s_any, d_2to53, 0, 0 $out "d_2to53=" + s_any $out sg_dashline +" "+ sg_hrto +" "+ sg_jig ded$ s_any, d_tqdone, 0, 0 $out "d_tqdone=" + s_any $out sg_dashline +" "+ sg_hrto +" "+ sg_jig $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 sg_dashline +" "+ sg_hrto +" "+ sg_jig ded$ s_any, d_tqdpart, 0, 0 $out "d_tqdpart=" + s_any $out sg_dashline +" "+ sg_hrto +" "+ sg_jig ded$ s_any, d_tqdmult, 0, 0 $out "d_tqdmult=" + s_any $out sg_dashline +" "+ sg_hrto +" "+ sg_jig ded$ s_any, d_number, 0, 0 $out "d_number=" + s_any $out sg_dashline +" "+ sg_hrto +" "+ sg_jig 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 sg_dashline +" "+ sg_hrto +" "+ sg_jig 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 sg_dashline +" "+ sg_hrto +" "+ sg_jig 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 sg_dashline +" "+ sg_hrto +" "+ sg_jig 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 sg_dashline +" "+ sg_hrto +" "+ sg_jig 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 sg_dashline +" "+ sg_hrto +" "+ sg_jig 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 sg_dashline +" "+ sg_hrto +" "+ sg_jig 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_collect_5tp39xx0 'updated 2019/09/11 '2019/07/08, 2018/03/16, 2017/07/19, 2016/05/29, 2016/05/24 '2016/01/29, 2015/12/30, 2015/08/10, 2015/04/12, 2015/02/08 '2015/02/06, 2014/02/24, 2014/02/09, 2014/01/18, 2014/01/16 '2012/11/24, 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 d_process, d_prevcount, s_2code vari s_14fileout, s_filein, s_alldata, s_data vari d_loop, s_crlf, d_num1, d_2cdct, d_pnumct, d_tnumct 'save the 5TP39s in file qtp_allx.txt 'x=computer code dch$ s_crlf, 13, 1 dch$ s_any, 10, 1 $app s_crlf, s_any 'sg_computer is the computer code a...z 'get count of previous output file s_14fileout = sg_qtpyy + sg_computer + ".txt" $ins s_14fileout, 4, "_" finp s_dot, s_14fileout $cnt d_prevcount, s_dot, "5TP39" 'purge the old output file we have the count of it fdel d_any, s_14fileout '12345678901234567890 '11-APR-2011 10:25:36 $dat s_any $cut s_any, s_any, 1, 20 s_alldata = s_any + s_crlf d_tnumct = 0 'sg_qtpyy d_num1 = 1 d_loop = 1 dwhi d_loop = 1 $par s_2code, sg_the2codes, ",", d_num1 $trb s_2code, s_2code $len d_any, s_2code $ift d_any = 2 'qtp22 files s_filein = sg_qtpyy + s_2code + "b.txt" finp s_data, s_filein $cnt d_pnumct, s_data, "5TP39" d_tnumct = d_tnumct + d_pnumct dift d_pnumct > 0 dinc d_2cdct $len d_any, s_data s_any = d_2cdct +" "+ 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 $app s_alldata, s_any endi else dinc d_loop endi dinc d_num1 endw 'output the entire whole collected file fout d_any, s_14fileout, s_alldata s_any = "file=" + s_14fileout + " length=" + d_any $app s_any, " 2cdct=" + d_2cdct + " totct=" + d_tnumct $out s_any $dat s_dot $cut s_dot, s_dot, 1, 20 $out s_dot d_any = d_tnumct - d_prevcount $out "previous count=" + d_prevcount + ", diff=" + d_any sub_return ends sub_collect_5tp39xx0 subr sub_hour_lines_5tp39xx1 'updated 2018/05/25 '2017/07/04, 2017/06/23, 2015/05/22, 2015/05/14, 2015/05/13 '2015/05/11, 2015/05/10, 2015/05/09, 2015/01/19, 2014/10/17 '2014/09/10, 2014/09/02, 2014/03/03, 2014/01/14, 2013/02/04 '2012/12/31, 2012/11/05, 2012/11/02, 2012/03/21, 2012/02/15 '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_any, d_loop, s_hourdate 'hour lines are saved in sg_totalhourlines '2code detail lines are saved in sg_holdtrylines1 'date and hour are in sg_15hourlinesdate 'then we can leave this subr and get sg_15hourlinesdate back '12345678901234567890123456789012345 dateformat '11-APR-2011 10:25:36 20110411102536 'do we need to restart sg_15hourlinesdate $len d_any, sg_15hourlinesdate dift d_any <> 15 $dat sg_15hourlinesdate $cut sg_15hourlinesdate, sg_15hourlinesdate, 1, 15 endi 'sg_pass1=sg_15hourlinesdate 'dg_pass1=d_inpmode 'dg_pass2=d_repeat sg_pass1 = sg_15hourlinesdate dg_pass1 = 0 dg_pass2 = 1 d_loop = 1 dwhi d_loop = 1 'sg_pass1 is sg_15hourlinesdate or s_15hourdate in next 'dg_pass1 is d_inpmode in next 'dg_pass1 is d_repeat sub_hour_lines_5tp39xx2 sg_15hourlinesdate = sg_pass1 d_loop = dg_pass2 endw ends sub_hour_lines_5tp39xx1 subr sub_hour_lines_5tp39xx2 'updated 2019/10/14 '2019/08/24, 2019/04/21, 2019/04/16, 2019/03/29, 2019/02/09 '2019/02/02, 2018/11/18, 2018/11/12, 2018/11/10, 2018/11/04 '2018/10/29, 2018/10/26, 2018/10/25, 2018/10/24, 2018/10/21 '2018/10/19, 2018/10/15, 2018/10/13, 2018/05/25, 2018/04/24 '2018/04/23, 2018/03/09, 2018/01/04, 2017/12/11, 2017/12/01 '2017/11/30, 2017/07/16, 2017/07/04, 2017/06/26, 2017/06/23 '2017/06/17, 2017/05/24, 2017/02/24, 2016/12/15, 2016/12/03 '2016/09/09, 2016/06/24, 2016/06/06, 2016/05/29, 2016/03/15 '2016/03/11, 2016/01/29, 2016/01/13, 2015/12/30, 2015/11/04 '2015/08/27, 2015/07/26, 2015/07/25, 2015/07/15, 2015/07/07 '2015/06/14, 2015/06/07, 2015/06/03, 2015/05/21, 2015/05/19 '2015/05/18, 2015/05/16, 2015/05/15, 2015/05/14, 2015/05/13 '2015/05/12, 2015/05/11, 2015/05/10, 2015/05/09, 2015/02/27 '2015/02/10, 2015/01/18, 2015/01/15, 2015/01/14, 2015/01/13 '2015/01/08, 2014/11/03, 2014/10/17, 2014/09/17, 2014/09/15 '2014/09/04, 2014/09/03, 2014/09/02, 2014/07/26, 2014/06/16 '2014/05/16, 2014/03/12, 2014/02/19, 2014/02/16, 2014/02/15 '2014/02/14, 2014/02/10, 2014/02/01, 2014/01/14, 2014/01/06 '2013/12/17, 2013/11/08, 2013/11/05, 2013/09/02, 2013/08/01 '2013/07/11, 2013/06/08, 2013/05/03, 2013/03/16, 2013/03/13 '2013/03/09, 2013/02/04, 2013/01/23, 2013/01/19, 2013/01/15 '2013/01/10, 2013/01/01, 2012/12/31, 2012/12/09, 2012/12/08 '2012/11/27, 2012/11/24, 2012/11/21, 2012/11/06, 2012/11/05 '2012/11/03, 2012/10/28, 2012/10/21, 2012/10/12, 2012/09/20 '2012/08/18, 2012/08/17, 2012/08/09, 2012/07/27, 2012/05/30 '2012/05/21, 2012/04/06, 2012/04/04, 2012/03/21, 2012/03/07 '2012/03/05, 2012/02/21, 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, d_hat, s_out vari s_15hourdate, s_15nowdate, s_15testdate vari d_process, d_good, d_totqtp, s_totqtp, d_index vari s_prevcount, s_version, d_inpmode, d_repeat vari s_2code, s_prev1code, s_input, d_long, s_line, s_crlf vari s_filein, s_filedata vari d_loop1, d_x2code, d_listdetailct, d_detailct, d_15detailct vari s_tpdave, d_tpdave, d_tpdtotave, d_tpdtotdelta, d_tpdreal, d_tpdqtp vari d_tothours, d_cthours, d_listtotalhourlines, d_listholdtrylines vari d_listtrylines, s_15listdate, s_11listdate, d_hourcurrent 'totalhour lines are saved in sg_totalhourlines 'hold2code detail lines are saved in sg_holdtrylines1 'date and hour are in sg_pass1 s_15hourdate = sg_pass1 d_inpmode = dg_pass1 d_repeat = 1 d_good = 2 d_listtrylines = 2 d_listtotalhourlines = 2 d_listholdtrylines = 2 d_process = 1 d_hourcurrent = 2 'make s_crlf dch$ s_any, 13, 1 dch$ s_dot, 10, 1 s_crlf = s_any + s_dot '12345678901234567890 '11-APR-2011 10:25:36 etc $cut s_any, s_15hourdate, 1, 15 dift d_inpmode = 0 'output prompt line s_out = s_any + " ENTER,date,new,auto,go,list,all,save,try=a9,time" 'get s_input since d_inpmode=0 $inp s_input, s_out $tup s_input, s_input $ift s_input = "*" dinc d_process dinc d_repeat endi 'do we have a new jig or hrto sg_pass1 = s_input sub_hrtojig s_input = sg_pass1 'xyz to do arithmetic sg_pass1 = s_input sub_xyz_math s_input = sg_pass1 $cut s_any, s_input, 1, 4 $ift s_any = "TRY=" $cut sg_pass1, s_input, 5, 2 sub_show_hour_lines s_input = sg_nothing endi $ift s_input = "LIST" 'list latest try lines 'do an hour list first from sg_holdtrylines1 sub_hour_lines_5tp39xx8 d_listtrylines = 1 d_inpmode = 1 '12345678901234567890123456789012345 dateformat '11-APR-2011 10:25:36 20110411102536 $dat s_15listdate $cut s_15listdate, s_15listdate, 1, 15 'heading line for list sub_pause_file_list $ch$ s_any, " ", 29 $out "list" + s_any + "date time 2cd real adj hrs qtp vers" s_input = sg_nothing endi $ift s_input = "NEW" 'begin anew at beginning of current day d_inpmode = 0 'hour lines are saved in sg_totalhourlines 'detail lines are saved in sg_holdtrylines1 sg_totalhourlines = sg_nothing sg_holdtrylines1 = sg_nothing '12345678901234567890123456789012345 dateformat '11-APR-2011 10:25:36 20110411102536 $dat s_15hourdate $cut s_15hourdate, s_15hourdate, 1, 12 'set hour to 0 in s_15hourdate 24-OCT-2018 00: $app s_15hourdate, "0" + "0" + ":" dinc d_process s_input = sg_nothing endi $ift s_input = "AUTO" 'begin anew at beginning of 3 days back d_inpmode = 3 'we have auto so set s_15hourdate back 3 days from now 'hour lines are saved in sg_totalhourlines 'detail lines are saved in sg_holdtrylines1 sg_totalhourlines = sg_nothing sg_holdtrylines1 = sg_nothing '12345678901234567890123456789012345 dateformat '11-APR-2011 10:25:36 20110411102536 $dat s_15hourdate $cut s_15hourdate, s_15hourdate, 1, 15 'go back 3 days in s_15hourdate dcut d_any, s_15hourdate, 1, 2 d_any = d_any - 5 dift d_any < 1: d_any = 1 s_any = "0" + d_any $off s_any, s_any, 2 $rep s_15hourdate, 1, s_any 'set hour to 00 in s_15hourdate s_any = "0" + "0" $rep s_15hourdate, 13, s_any s_input = sg_nothing endi $ift s_input = "GO" d_inpmode = 3 'hour lines are saved in sg_totalhourlines 'detail lines are saved in sg_holdtrylines1 'sg_totalhourlines = sg_nothing sg_holdtrylines1 = sg_nothing '12345678901234567890123456789012345 dateformat '11-APR-2011 10:25:36 20110411102536 'no need to roll s_15hourdate by one hour s_input = sg_nothing endi $ift s_input = "ALL" 'show all from qtphrs16.txt that have new date sub_hour_lines_5tp39xx9 s_input = sg_nothing dinc d_process endi $ift s_input = "SAVE" sub_collect_5tp39xx0 'show totalhourlines in sg_totalhourlines separated by $ dg_pass1 = 9999 sub_hour_lines_5tp39xx7 s_input = sg_nothing dinc d_process endi 'do we have a date entered in s_input '12345678901234567890123456789012345 dateformat '11-APR-2011 10:25:36 20110411102536 $len d_long, s_input dift d_long >= 11 d_inpmode = 5 $cut s_input, s_input, 1, 15 s_15hourdate = s_input 'hour lines are saved in sg_totalhourlines 'detail lines are saved in sg_holdtrylines1 sg_totalhourlines = sg_nothing sg_holdtrylines1 = sg_nothing endi 'validate s_input to eliminate all but: date, new, auto, go, list, all dift d_inpmode = 0: s_input = sg_nothing endi dift d_inpmode = 3 'auto or go is d_inpmode=3 'are we done with go or auto 'roll s_15hourdate by one hour to s_15testdate sg_pass1 = s_15hourdate sub_roll_15date s_15testdate = sg_pass1 '12345678901234567890123456789012345 dateformat '11-APR-2011 10:25:36 20110411102536 'get s_15nowdate $dat s_15nowdate dcut d_any, s_15nowdate, 22, 10 'get the num for s_15testdate sg_pass1 = s_15testdate sub_15date_to_num d_dot = dg_pass1 dift d_dot >= d_any 'we are done with go or auto dinc d_process d_hourcurrent = 1 d_inpmode = 0 else s_15hourdate = s_15testdate endi 'd_inpmode=0 means we are at now and done s_input = s_15hourdate endi ' 1 2 3 4 5 6 '1234567890123456789012345678901234567890123456789012345678901234567 'ct= 12 adj= 650:55 17-JUN-2010 02:00 254 625.37 231 1026:86 'space delimited '123456789012345 '08-OCT-2010 13: dift d_process = 1 'validate the entered date or hour if any in s_input $tup s_input, s_input $len d_long, s_input dift d_long = 14: s_15hourdate = s_input + ":" dift d_long = 11: s_15hourdate = s_input +" "+ "0" + "0" + ":" 'skip following if d_listtrylines=1 dift d_listtrylines = 1: d_long = 2 dift d_long = 0 '12345678901234567890 '11-APR-2011 10:25:36 etc 'we have just blanks entered so up the hour in s_15hourdate $dat s_15nowdate $cut s_15nowdate, s_15nowdate, 1, 15 $ift s_15nowdate <> s_15hourdate 'test next hour for new s_15hourdate sg_pass1 = s_15hourdate sub_roll_15date s_15testdate = sg_pass1 'proposed new s_15hourdate is in s_15testdate 'we do not want current hour or previous time done $ift s_15testdate = s_15nowdate d_hourcurrent = 1 d_listtotalhourlines = 1 dinc d_process endi $ift s_15testdate = s_15hourdate d_hourcurrent = 1 d_listtotalhourlines = 1 dinc d_process endi dift d_process = 1 s_15hourdate = s_15testdate endi else d_listtotalhourlines = 1 d_hourcurrent = 1 dinc d_process endi endi endi dift d_process = 1 'we may have a date and hour just entered '12345678901234567890123456789012345 dateformat '11-APR-2011 10:25:36 20110411102536 'edit the hour for 0..23 $cut s_any, s_15hourdate, 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 '12345678901234567890123456789012345 dateformat '11-APR-2011 10:25:36 20110411102536 'edit for the dashes $cut s_any, s_15hourdate, 3, 1 $ift s_any <> "-": dinc d_process $cut s_any, s_15hourdate, 7, 1 $ift s_any <> "-": dinc d_process endi dift d_listtrylines = 1: d_process = 1 dift d_process = 1 'hour total lines are saved in sg_totalhourlines 'date and hour are in s_15hourdate '2codelines detail are saved in sg_holdtrylines1 sg_holdtrylines1 = sg_nothing endi ' 1 2 3 4 5 6 '123456789012345678901234567890123456789012345678901234567890123456789 'try=10,755,531,446,160,516,311 16-JAN-2010 17:01 j2 73.12 73.01 8 2 '******************************* 'the big loop is below d_detailct = 0 d_15detailct = 0 d_listdetailct = 0 d_x2code = 1 d_tpdtotdelta = 0 d_totqtp = 0 d_tothours = 0 d_loop1 = d_process dwhi d_loop1 = 1 'read through the qtp22a0a.txt files d_good = 1 'd_x2code go one by one through s_2codes in sg_the2codes $par s_2code, sg_the2codes, ",", d_x2code $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 'qtp22 file name and read in whole file s_filein = sg_qtpyy + s_2code + "a.txt" finp s_filedata, s_filein $trb s_filedata, s_filedata $len d_long, s_filedata dift d_long < 200: dinc d_good endi dift d_good = 1 'get last version number into s_version from s_filedata s_version = 9999 d_dot = 10 ^ 9 $bak d_tap, s_filedata, d_dot, "tea version=" dift d_tap > 0 '123456789012345 'tea version= d_tap = d_tap + 12 endi dift d_tap > 0: $cut s_version, s_filedata, d_tap, 4 endi dift d_good = 1 'below to list the try lines d_listtrylines=1 dift d_listtrylines = 1 '123456789012345678901234567890123456789012345678901234567890123456789 'try=10,755,531,446,160,516,311 16-JAN-2010 17:01 j2 72.83 73.16 8 2 d_tap = 10 ^ 8 'first get d_listdetailct and d_tpdreal and d_tpdave 'using s_15listdate $cut s_11listdate, s_15listdate, 1, 11 d_tap = 10 ^ 8 $bak d_dot, s_filedata, d_tap, "try=" dift d_dot > 0 $cut s_line, s_filedata, d_dot, 80 $par s_any, s_line, " ", 2 $ift s_any = s_11listdate 'totals s_line is a try= line 'first get d_tpdreal from s_line $par s_any, s_line, " ", 5 $trb s_any, s_any $isd d_any, s_any dift d_any = 1 $tod d_any, s_any d_tpdreal = d_tpdreal + d_any endi 'now get d_tpdave from s_line $par s_any, s_line, " ", 6 $trb s_any, s_any $isd d_any, s_any dift d_any = 1 dinc d_listdetailct $tod d_any, s_any d_tpdave = d_tpdave + d_any endi 'position 7 has the hour count 'now get d_tpdqtp from s_line $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_tpdqtp = d_tpdqtp + d_any endi endi 'latest "try=" is in s_line to list it 'output dashline if s_2code byte one changes 's_2code is in the file name $cut s_any, s_2code, 1, 1 $ift s_prev1code = sg_nothing: s_prev1code = s_any $ift s_any <> s_prev1code: $out sg_dashline +" "+ sg_hrto +" "+ sg_jig s_prev1code = s_any 'get the record without the "try=" $cut s_line, s_line, 5, 80 'take off the "beg" if any at the end of the line d_any = 1 $lok d_any, s_line, d_any, "beg" ddec d_any dift d_any > 0: $cut s_line, s_line, 1, d_any $trb s_line, s_line 'put on the tea version on the 2code detail line $app s_line, " " + s_version 'output the s_line of the try line $out s_line dinc d_good endi endi 'above is if d_listtrylines=1 endi ' 1 2 3 4 5 6 '123456789012345678901234567890123456789012345678901234567890123456789 'try=1,600,000,015,971,222,690,491 08-DEC-2012 16:28 j3 54.01 54.02 1 'find s_line with date from s_filedata d_tap = 1 dift d_good = 1 'find s_15hourdate from beginning 08-OCT-2010 13: $lok d_tap, s_filedata, 1, s_15hourdate dift d_tap > 0 'we do have a s_15hourdate dinc d_15detailct else dinc d_good endi dift d_good = 1 'd_tap is beginning of s_15hourdate line 'all other dates are dotted 'find beginning of try= $bak d_dot, s_filedata, d_tap, "try=" dift d_dot = 0 'no try= just before the s_15hourdate dinc d_good else 'we have the try= line we want beginning at d_dot $cut s_line, s_filedata, d_dot, 80 $bes s_line, s_line $app s_line, " " $dot d_any, s_line, " ", 8 dift d_any > 0: $cut s_line, s_line, 1, d_any $trb s_line, s_line 'append s_version from s_filedata $app s_line, " " + s_version 'test to make sure that we have s_15hourdate $lok d_any, s_line, 1, s_15hourdate dift d_any = 0: dinc d_good endi endi 'above looking through s_filein to find s_15hourdate lines 'and put in s_line endi '2codeline format ' 1 2 3 4 5 6 '123456789012345678901234567890123456789012345678901234567890123456789 'try=10,755,531,446,160,516,311 16-JAN-2010 17:01 j2 73.12 73.16 8 2 'we are done for now with s_filedata s_filedata = sg_nothing '2codeline format ' 1 2 3 4 5 6 '123456789012345678901234567890123456789012345678901234567890123456789 'try=10,755,531,446,160,516,311 16-JAN-2010 17:01 j2 73.12 73.16 4 3 dift d_good = 1 'we have try= line in s_line with wanted s_15hourdate 'get various totals for the total line 'get d_tpdtotdelta $par s_any, s_line, " ", 5 $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_tpdave and d_tpdtotave $par s_any, s_line, " ", 6 $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_cthours and d_tothours which is not used $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_tothours = d_tothours + d_any endi 'get d_totqtp count $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_totqtp = d_totqtp + d_any endi dinc d_detailct 'output try line if d_listrylines<>1 $cut s_out, s_line, 5, 999 dift d_listtrylines <> 1 'add tryline detail line in s_out to sg_holdtrylines1 $app sg_holdtrylines1, s_out + "$" endi endi dinc d_x2code endw 'exit the big loop '*********************************** dift d_15detailct = 0: dinc d_process dift d_process = 1 'format totalhourline for sg_totalhourlines,sg_holdtrylines1 '1234567890123456789012345678901234567890123456789012345678901234567 'ct= 12 adj= 650:55 17-JUN-2010 02:00 254 627.53 1026:86 'space delimited 'format the total tpdave d_tpdtotave d_tap = d_tpdtotave ? 0 'build the totalhourline record s_out = "ct= " + d_detailct $app s_out, " adj= " + d_tap +" "+ s_15hourdate + "00" 'format the qtp total d_totqtp $app s_out, " " + d_totqtp 'format d_tpdtotdelta for the hour line dto$ s_any, d_tpdtotdelta, 1, 2 $app s_out, " " + s_any dift d_tpdtotave = 0: d_detailct = 0 dift d_detailct > 0 'add totalhourline to sg_totalhourlines 'to show these use sub_hour_lines_5tp39xx7 d_listtotalhourlines = 1 $app sg_totalhourlines, s_out + "$" 'add the total line to sg_holdtrylines1 'to show these use sub_hour_lines_5tp39xx8 d_listholdtrylines = 1 s_any = sg_dashline +" "+ sg_hrto +" "+ sg_jig $app sg_holdtrylines1, s_any + "$" $app sg_holdtrylines1, s_out + "$" endi endi 'totalhourlines format ' 1 2 3 4 5 6 '1234567890123456789012345678901234567890123456789012345678901234567 'ct= 12 adj= 650:55 17-JUN-2010 02:00 254 627.53 1026:86 'space delimited dift d_listtrylines = 1 'output final total line of list $out sg_dashline +" "+ sg_hrto +" "+ sg_jig d_hat = d_tpdave ? 0 dto$ s_tap, d_tpdreal, 1, 2 s_out = "list=" + s_15listdate + " ct=" + d_listdetailct $app s_out, " qtp=" + d_tpdqtp + " adj=" + d_hat $app s_out, " real=" + s_tap + " v=" + dg_version + sg_computer $out s_out fapp d_any, "qtplist.txt", s_out $out sg_version 'we are done with list dinc d_listholdtrylines dinc d_listtotalhourlines dinc d_process d_inpmode = 0 endi dift d_listholdtrylines = 1 'show latest 2codelines in sg_holdtrylines1 separated by $ sub_hour_lines_5tp39xx8 endi dift d_listtotalhourlines = 1 'list totals of trylines in sg_totalhourlines separated by $ dg_pass1 = 100 sub_hour_lines_5tp39xx7 endi dift d_hourcurrent = 1 $out "hour current " + sg_version endi 'hour lines are saved in sg_totalhourlines separated by $ 'date and hour are in s_15hourdate 'd_repeat=1 means continue looping 'd_inpmode=5 means date entered in s_input dift d_inpmode = 5: d_inpmode = 0 sg_pass1 = s_15hourdate dg_pass1 = d_inpmode dg_pass2 = d_repeat ends sub_hour_lines_5tp39xx2 subr sub_hour_lines_5tp39xx7 'updated 2019/12/01, 2019/11/02, 2019/10/30 '2019/09/23, 2019/09/09, 2019/08/24, 2019/08/04, 2019/06/12 '2019/05/21, 2019/04/28, 2019/03/29, 2019/03/12, 2019/01/26 '2018/11/04, 2018/09/27, 2018/09/09, 2018/08/12, 2018/08/10 '2018/06/22, 2018/06/09, 2018/06/07, 2018/05/19, 2018/05/03 '2018/03/28, 2018/03/12, 2018/02/12, 2018/02/10, 2018/01/04 '2017/12/01, 2017/11/30, 2017/10/03, 2017/08/02, 2017/07/16 '2017/07/14, 2017/07/11, 2017/07/07, 2017/07/04, 2017/06/28 '2017/06/26, 2017/06/25, 2017/06/23, 2017/05/24, 2017/02/23 '2016/12/03, 2016/08/31, 2016/08/14, 2016/06/02, 2016/05/29 '2016/04/01, 2016/03/02, 2016/02/11, 2016/02/09, 2016/02/01 '2016/01/13, 2015/12/26, 2015/12/22, 2015/12/21, 2015/12/11 '2015/12/04, 2015/11/06, 2015/11/04, 2015/10/22, 2015/09/16 '2015/08/10, 2015/07/25, 2015/07/03, 2015/06/29, 2015/06/17 '2015/06/07, 2015/06/03, 2015/02/25, 2015/02/17, 2015/02/10 '2015/01/29, 2015/01/27, 2015/01/25, 2015/01/23, 2015/01/18 '2015/01/17, 2015/01/14, 2015/01/13, 2015/01/11, 2015/01/09 '2014/11/10, 2014/09/02, 2014/07/26, 2014/07/11, 2014/06/15 '2014/05/16, 2014/05/13, 2014/05/03, 2014/04/20, 2014/04/11 '2014/04/08, 2014/03/21, 2014/03/03, 2014/02/16, 2014/01/31 '2014/01/14, 2013/12/17, 2013/11/16, 2013/11/08, 2013/11/05 '2013/11/04, 2013/10/29, 2013/09/07, 2013/08/01, 2013/07/27 '2013/06/20, 2013/06/14, 2013/06/10, 2013/06/09, 2013/06/08 '2013/05/29, 2013/02/25, 2013/02/04, 2012/11/27, 2012/11/21 '2012/11/11, 2012/11/09, 2012/11/08, 2012/11/03, 2012/11/01 '2012/10/31, 2012/10/25, 2012/10/22, 2012/10/21, 2012/10/14 '2012/10/13, 2012/10/12, 2012/09/07, 2012/08/19, 2012/08/18 '2012/08/17, 2012/06/11, 2012/05/30, 2012/02/25, 2012/02/21 '2012/02/15, 2012/02/10, 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 totalhourlines in sg_totalhourlines separated by $ vari d_any, s_any, d_dot, s_dot, d_tap, s_tap, d_hat, s_hat, s_lineout vari d_long, s_datetime, s_head, d_linestosho, d_yroll vari s_recline, d_index, d_filelinecount, d_filelinebegsho vari s_filehourtotdata, s_qtphrsfile vari s_fromlineday, d_24adjat vari d_fromlinect, d_fromlinereal, s_fromlinedatehour vari d_fromlinebuild, d_fromlineprevct vari d_7linenum, d_7alltotalreal, d_7holdfromlinect vari d_avetot1, d_avetot2, d_avect1, d_avect2 'show totalhour lines in sg_totalhourlines separated by $ d_linestosho = dg_pass1 dift d_linestosho < 1: d_linestosho = 1 'input file qtphrs16.txt which has past sg_totalhourlines in it 'make s_qtphrsfile="qtphrsyy.txt" yy=year s_qtphrsfile = sg_qtpyy + ".txt" $ins s_qtphrsfile, 4, "hrs" finp s_filehourtotdata, s_qtphrsfile 'show prog, path, lines sub_prog_path_lines 'heading line s_head = "by hours" $ch$ s_any, " ", 15 $app s_head, s_any + "date hour qtp real roll adj24" ' 1 2 3 4 5 6 '123456789012345678901234567890123456789012345678901234567890 'ct= 12 adj= 650 17-JUN-2010 02:00 254 640.6 1026 'space delimited 'hour detail lines are saved in sg_totalhourlines separated by $ 'show previous hour total lines $cnt d_filelinecount, sg_totalhourlines, "$" d_filelinebegsho = d_filelinecount - d_linestosho dift d_filelinebegsho < 0: d_filelinebegsho = 0 d_fromlinect = 0 d_7linenum = 0 d_7alltotalreal = 0 d_index = 1 dwhi d_index <= d_filelinecount 'extract next hour line into s_recline $par s_recline, sg_totalhourlines, "$", d_index $len d_long, s_recline 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_recline, " ", 2 $isd d_any, s_any dift d_any = 1: $tod d_fromlinect, s_any '1 2 3 4 5 6 7 8 9 'ct= 12 adj= 650:55 17-JUN-2010 02:00 254 640.6 1026 'from line real into d_fromlinereal d_fromlinereal = 0 $par s_any, s_recline, " ", 8 $isd d_any, s_any dift d_any = 1: $tod d_fromlinereal, s_any 'get d_7linenum,d_7alltotalreal dinc d_7linenum d_7alltotalreal = d_7alltotalreal + d_fromlinereal 'get s_fromlinedatehour ie. 01-NOV-2012 15:00 $par s_any, s_recline, " ", 5 $par s_dot, s_recline, " ", 6 s_fromlinedatehour = s_any +" "+ s_dot 'prepare a roll to output s_head if day changes $cut s_hat, s_any, 1, 2 dinc d_yroll $ift s_hat <> s_fromlineday: d_yroll = 1 s_fromlineday = s_hat 'd_24adjat if less than 9 lines listed find average 'else d_24adjat adjust average by 1/dg_jig of previous average dift d_7linenum < 9 d_24adjat = d_7alltotalreal / d_7linenum else 'd_24adjat prorated by dg_jig d_24adjat = d_fromlinereal - d_24adjat / dg_jig + d_24adjat endi 'get roll average at begin of next day d_avetot1 = d_avetot1 + d_fromlinereal d_avetot2 = d_avetot2 + d_fromlinereal dinc d_avect1 dinc d_avect2 'roll totals dift d_yroll = 1 'prep average for next day of hours d_avetot1 = d_avetot2 d_avect1 = d_avect2 d_avetot2 = 0 d_avect2 = 0 endi 'roll average of d_7alltotalreal and truncate d_any = d_avetot1 / d_avect1 ? 0 dto$ s_dot, d_24adjat, 1, 0 'build the output line s_lineout and output s_lineout = s_recline +" "+ d_any +" "+ s_dot dift d_index > d_filelinebegsho dift d_yroll = 1: $out s_head 'output line s_lineout prepped above s_lineout = d_7linenum + "." +" "+ s_lineout $out s_lineout endi 'add to file qtphrs16.txt if s_fromlinedatehour not in it $lok d_any, s_filehourtotdata, 1, s_fromlinedatehour dift d_any = 0: fapp d_any, s_qtphrsfile, s_lineout endi dinc d_index endw $out sg_dashline +" "+ sg_hrto +" "+ sg_jig ends sub_hour_lines_5tp39xx7 subr sub_hour_lines_5tp39xx8 'updated 2019/02/09 '2017/07/16, 2015/05/21, 2015/05/15, 2015/02/27, 2015/01/14 '2015/01/09, 2014/05/16, 2014/02/14, 2014/01/31, 2013/12/17 '2013/11/08, 2012/11/27, 2012/10/21, 2012/10/14, 2012/10/13, '2012/08/19, 2012/08/18, 2011/05/05, 2011/04/12, 2011/01/27 'list show latest 2code lines in sg_holdtrylines1 separated by $ vari s_any, d_any, s_dot, d_dot vari d_loop, s_line 'sg_holdtrylines2 is a hold of previous sg_holdtrylines1 $len d_any, sg_holdtrylines1 dift d_any < 100: sg_holdtrylines1 = sg_holdtrylines2 sg_holdtrylines2 = sg_holdtrylines1 $ch$ s_any, " ", 25 s_any = "one hour" + s_any + "date time 2cd real adj hrs qtp vers" $out s_any d_dot = 1 d_loop = 1 dwhi d_loop = 1 $par s_dot, sg_holdtrylines1, "$", 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_5tp39xx8 subr sub_hour_lines_5tp39xx9 'updated 2018/05/19, 2017/11/28, 2017/06/21, 2017/05/03 '2017/03/04, 2017/02/24, 2016/11/14, 2016/11/12, 2016/11/05 '2016/10/24, 2016/10/22, 2016/10/21, 2016/10/13, 2016/06/24 '2016/06/17, 2016/06/04, 2016/06/02, 2016/02/09, 2016/01/13 '2015/05/15, 2015/01/27, 2015/01/18, 2015/01/15, 2015/01/14 '2015/01/13, 2015/01/11, 2015/01/09, 2014/05/16, 2014/05/13 '2014/04/08, 2014/01/31, 2013/12/20, 2013/12/17, 2013/11/04 '2013/10/29, 2013/09/07, 2013/07/27, 2013/06/21, 2013/06/20 '2013/06/14, 2013/04/25, 2013/03/13, 2013/03/09, 2013/02/25 '2013/02/21, 2013/02/09, 2013/02/04, 2013/02/01, 2013/01/25 '2013/01/15, 2012/11/30, 2012/11/27, 2012/11/21, 2012/11/09 '2012/11/06, 2012/11/05, 2012/11/04, 2012/11/03, 2012/11/02 vari s_any, d_any, s_dot, d_dot vari d_every, d_linect, s_recdate, s_prevdate vari d_loop, s_record, s_prevrecord, s_qtphrsfile, d_filebyte 'list hourtotal records 'make s_qtphrsfile="qtphrsyy.txt" where yy=year s_qtphrsfile = sg_qtpyy + ".txt" $ins s_qtphrsfile, 4, "hrs" d_filebyte = 1 $out sg_dashline +" "+ sg_hrto +" "+ sg_jig d_every = 1 $inp s_any, "1=date change default, 2=every record" $ift s_any = "1": d_every = 1 $ift s_any = "2": d_every = 2 d_loop = 1 fsip s_record, s_qtphrsfile, d_filebyte dift d_filebyte = 0: dinc d_loop '12345678901234567890123456789012345678901234567890123456789012345 '61. ct= 12 adj= 650:54 17-JUN-2010 02:00 254 640.0 645 634 'space delimited dwhi d_loop = 1 'show the record $trb s_record, s_record 'get the previous date: s_prevdate s_prevdate = s_recdate 'get the record date : s_recdate $par s_recdate, s_record, " ", 6 dift d_every = 1 'show only if change in date $ift s_recdate <> s_prevdate $out s_record dinc d_linect endi endi dift d_every = 2 'show every record in the file $out s_prevrecord dinc d_linect endi dift d_linect >= 100 $inp s_any, "RETURN for 100 more" $ift s_any = "*": dinc d_loop d_linect = 1 endi 'read the next record s_prevrecord = s_record fsip s_record, s_qtphrsfile, d_filebyte dift d_filebyte = 0: dinc d_loop endw 'show the last previous record $out s_prevrecord $out sg_dashline +" "+ sg_hrto +" "+ sg_jig ends sub_hour_lines_5tp39xx9 subr sub_show_hour_lines 'updated 2019/03/29, 2018/11/14, 2018/11/10, 2018/11/09, 2015/12/30 '2015/01/25, 2014/02/23, 2014/02/21, 2014/02/19, 2014/02/16 vari s_any, d_any, s_dot, d_dot, s_tap, d_tap vari d_byte, s_record, s_filename, s_filedata, s_date, s_prevdate, d_count 'read through and show try=a9 lines $tlo sg_pass1, sg_pass1 s_filename = sg_qtpyy + sg_pass1 + "a.txt" 'try=1,599,904,228,328,933,991,221 08-NOV-2018 01:48 p0 16.3 26.56 3 0 finp s_filedata, s_filename $off s_filedata, s_filedata, 50000 d_byte = 1 dwhi d_byte > 0 $lok d_any, s_filedata, d_byte, "try=" $lok d_tap, s_filedata, d_byte, "day=" dift d_any = 0 d_any = d_tap else dift d_tap > 0 dift d_tap < d_any: d_any = d_tap endi endi d_byte = d_any dift d_byte > 0 $cut s_record, s_filedata, d_byte, 80 'dashline new date $par s_date, s_record, " ", 2 $ift s_date <> s_prevdate: $out sg_dashline +" "+ s_filename s_prevdate = s_date $out s_record dinc d_count dinc d_byte endi endw 'clear s_filedata s_filedata = sg_nothing $dat s_tap $cut s_any, s_tap, 1, 20 $out "ct=" + d_count +" "+ s_any sub_return ends sub_show_hour_lines subr sub_15date_to_num 'updated 2015/05/16, 2015/05/14, 2015/05/13, 2015/05/10 'change 10-MAY-2015 07 to number 2015051007 vari s_any, d_any, s_dot, d_dot, s_tap, d_tap vari s_date1, d_date2 '12345678901234567890123456789012345 '12-APR-2015 07:20:10 20150412072010 s_date1 = sg_pass1 d_date2 = 0 'sg_12months has the months ie. JAN,FEB,MAR etc. $tup s_date1, s_date1 $len d_any, s_date1 dift d_any = 15 'format s_date1 to d_date2 'year dcut d_date2, s_date1, 8, 4 'day and month and hour dcut d_dot, s_date1, 1, 2 $cut s_any, s_date1, 4, 3 $lok d_any, sg_12months, 1, s_any d_any = d_any + 3 \ 4 dcut d_tap, s_date1, 13, 2 d_date2 = d_date2 * 100 + d_any * 100 + d_dot * 100 + d_tap endi dg_pass1 = d_date2 ends sub_15date_to_num subr sub_roll_15date 'roll 15 long date to next hour 'updated 2015/05/16, 2015/05/14, 2015/05/13 vari s_any, d_any, s_dot, d_dot vari s_begdate, s_enddate, d_hour '12345678901234567890123456789012345 dateformat '11-APR-2011 10:25:36 20110411102536 $cut s_begdate, sg_pass1, 1, 15 $tup s_begdate, s_begdate s_enddate = s_begdate $len d_any, s_begdate dift d_any = 15 'up the hour by one dcut d_hour, s_begdate, 13, 2 dinc d_hour dift d_hour > 23 $cut sg_pass1, s_begdate, 1, 11 sub_roll_11date s_enddate = sg_pass1 +" "+ "0" + "0" + ":" else s_any = "0" + d_hour $off s_any, s_any, 2 $rep s_enddate, 13, s_any endi endi sg_pass1 = s_enddate ends sub_roll_15date subr sub_roll_11date 'roll 11 long date to next hour 'updated 2015/05/16, 2015/05/14, 2015/05/13, 2015/05/12 '2015/05/11, 2015/05/10, 2015/04/12, 2013/09/07, 2013/07/09 'roll a date to the next day ie 09-JUL-2013 to 10-JUL-2013 vari s_any, d_any, s_dot, d_dot, s_tap, d_tap vari s_begdate, s_enddate, d_process, d_maxday vari d_year, d_month, d_day '12345678901234567890123456789012345 dateformat '11-APR-2011 10:25:36 20110411102536 $cut s_begdate, sg_pass1, 1, 11 $tup s_begdate, s_begdate $len d_any, s_begdate '12345678901 '09-JUL-2013 dift d_any = 11: d_process = 1 dift d_process = 1 'get d_month 'sg_12months has in it JAN,FEB,MAR, etc $cut s_any, s_begdate, 4, 3 $swp s_begdate, ",", "Z" $lok d_any, sg_12months, 1, s_any d_month = d_any + 3 \ 4 dift d_month = 0: dinc d_process endi dift d_process = 1 'get d_day and d_year dcut d_day, s_begdate, 1, 2 dcut d_year, s_begdate, 8, 4 'change d_month to string ie 09-SEP s_tap = "121313113131" 'jan is d_tap=1,feb is d_tap=2,apr is d_tap=3 etc dcut d_tap, s_tap, d_month, 1 'get d_maxday = last day of d_month from d_tap d_maxday = 31 dift d_tap = 3: d_maxday = 30 dift d_tap = 2 d_maxday = 28 'do we have a leap year to be 29 'we do not concern about century years gregorian etc d_any = d_year % 4 dift d_any = 0: dinc d_maxday endi 'roll date one day dinc d_day dift d_day > d_maxday 'roll to new month d_day = 1 dinc d_month dift d_month > 12 'roll to new year d_month = 1 dinc d_year endi endi 'make s_enddate 2013-SEP-09 s_any = "0" + d_day $off s_any, s_any, 2 s_enddate = s_any + "-" d_any = d_month * 4 - 3 $cut s_any, sg_12months, d_any, 3 $app s_enddate, s_any + "-" s_any = "0" + "0" + "0" + d_year $off s_any, s_any, 4 $app s_enddate, s_any endi sg_pass1 = s_enddate ends sub_roll_11date subr sub_file_search 'updated 2015/01/18, 2014/10/02 '2014/09/29, 2014/02/14, 2014/01/31, 2014/01/21, 2014/01/20 '2014/01/07, 2014/01/02, 2012/05/30, 2012/05/29, 2012/05/28 vari s_any, d_any, s_dot, d_dot, s_tap, d_tap, s_out vari s_filename, s_filedata, d_filelong, s_filefind vari d_filebyte, s_fileline, d_findct, d_linect, d_filecount vari d_loop1, d_loop2, d_multiline, d_shift d_loop1 = 1 $inp s_filename, "file name?" $trb s_filename, s_filename $ift s_filename = "*": dinc d_loop1 finp s_filedata, s_filename $len d_filelong, s_filedata $out "file=" + s_filename + " long=" + d_filelong dift d_filelong = 0 $inp s_any, "no length" dinc d_loop1 endi dift d_loop1 = 1 d_multiline = 1 $inp s_any, "3=show 3 lines per find else 1" $ift s_any = "*": dinc d_loop1 $ift s_any = "3": d_multiline = 3 endi dift d_loop1 = 1 d_shift = 10 $inp s_any, "enter left shift 0 to 20 else 10" $ift s_any = "*": dinc d_loop1 $isd d_any, s_any dift d_any = 1: $tod d_shift, s_any dtru d_shift, d_shift dift d_shift < 0: d_shift = 0 dift d_shift > 20: d_shift = 20 endi dwhi d_loop1 = 1 d_loop2 = 1 $out sg_dashline +" "+ sg_hrto +" "+ sg_jig s_out = "ENTER string to find, *=end, file=" + s_filename $app s_out, ", long=" + d_filelong $inp s_filefind, s_out $trb s_filefind, s_filefind $ift s_filefind = sg_nothing: s_filefind = "*" $ift s_filefind = "*" dinc d_loop1 dinc d_loop2 endi 'count how many are in the file=d_filecount d_filecount = 0 dift d_loop2 = 1: $cnt d_filecount, s_filedata, s_filefind d_findct = 0 d_linect = - 1 d_filebyte = 1 dwhi d_loop2 = 1 $lok d_filebyte, s_filedata, d_filebyte, s_filefind dift d_filebyte < 1 'no find dinc d_loop2 else 'we have a find dinc d_findct dinc d_linect 'how many to show per page d_dot = 7 dift d_multiline = 1: d_dot = 20 dift d_linect >= d_dot $out sg_dashline +" "+ sg_hrto +" "+ sg_jig s_out = "RETURN or 1=1,3=3,*=end,all=all,file=" + s_filename $app s_out, ",long=" + d_filelong + ",count=" + d_filecount $inp s_any, s_out $tlo s_any, s_any $ift s_any = "*": dinc d_loop2 $ift s_any = "1": d_multiline = 1 $ift s_any = "3": d_multiline = 3 d_linect = 0 $ift s_any = "all": d_linect = - 99999 endi dift d_loop2 = 1 d_filebyte = d_filebyte - d_shift dift d_multiline = 3 'output the find data and environs s_out = d_findct + sg_dashline $app s_out, " " + sg_hrto +" "+ sg_jig $out s_out 'output just previous to find if any d_any = d_filebyte - 75 dift d_any >= 1 $cut s_any, s_filedata, d_any, 75 $out s_any endi endi 'output find $cut s_fileline, s_filedata, d_filebyte, 75 $out s_fileline dift d_multiline = 3 'output just after the find d_any = d_filebyte + 75 $cut s_any, s_filedata, d_any, 75 $out s_any endi d_filebyte = d_filebyte + d_shift + 1 endi endi endw endw sub_return ends sub_file_search subr sub_prog_path_lines 'updated 2018/03/16, 2017/06/23 '2017/06/10, 2012/08/19, 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_date 'show prog, path, lines $out sg_dashline +" "+ sg_hrto +" "+ sg_jig 'path $sys sg_path, 1 $trb sg_path, sg_path 'lines dsys d_any, 2 ded$ sg_lines, d_any, 0, 0 '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, path and lines $out sg_interpreter +" "+ sg_path +" "+ sg_lines 'sg_version come from top of this program 'teapro program version and program line count $out sg_version +" "+ sg_loadprog +" "+ sg_memory $dat s_date $cut s_date, s_date, 1, 20 $out s_date $out sg_dashline +" "+ sg_hrto +" "+ sg_jig ends sub_prog_path_lines subr sub_xyz_math 'updated 2019/09/09, 2019/04/28 '2019/04/24, 2015/12/11, 2015/07/07, 2015/06/14, 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 vari s_line, d_number, s_operator, d_answer, s_xyzvalue vari s_work, d_byte, s_term, d_process, s_command s_command = sg_pass1 $tup s_line, s_command $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 $ift s_operator = "-": d_answer = d_answer - d_number $ift s_operator = "*": d_answer = d_answer * d_number $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 'find d_answer to power d_number $ift s_operator = "^": dpow d_answer, d_answer, d_number 'find mod of d_answer by d_number $ift s_operator = "%" dift d_number = 0 $out "zero divide" d_error = 1 else d_answer = d_answer % d_number endi endi 'round d_answer to d_number places $ift s_operator = "@": d_answer = d_answer @ d_number 'truncate d_answer to d_number places $ift s_operator = "?": d_answer = d_answer ? d_number '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 sg_dashline +" "+ sg_hrto +" "+ sg_jig 'pipe delimited into sg_xyzmath '$app sg_xyzmath, s_out + "|" $inp s_line, "s=show past xyz commands, operators: +-*/\%^@?" $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 s_line = "X=X" $out sg_asterline +" "+ sg_hrto +" "+ sg_jig 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 sg_asterline +" "+ sg_hrto +" "+ sg_jig d_process = 1 endi endi s_command = sg_nothing 'above is d_process=1 endw sg_pass1 = s_command ends sub_xyz_math subr sub_teaquad_max_test 'updated 2013/09/23 '2013/09/22, 2013/09/21, 2013/09/20, 2013/07/27, 2012/10/25 '2012/10/21, 2012/10/16, 2012/10/12, 2012/10/11, 2012/10/07 '2012/10/06, 2012/10/03, 2012/07/05, 2012/07/03, 2012/07/01 '2012/06/29, 2012/06/26, 2012/06/24, 2012/06/22, 2012/06/21 '2012/06/18, 2012/06/17, 2012/06/16, 2012/06/15, 2012/06/11 vari d_any, s_any, d_dot, s_dot, d_tap, s_tap, s_out vari d_loop, d_increment, d_mult, d_linect, d_totalct, d_pause vari d_root, d_part, d_method, d_quadone, d_biggest, s_biggest vari d_num1, d_num2, d_num3, d_num4, d_prevnum3 vari s_sho1, s_sho2, s_sho3, s_sho4, s_sho5, s_sho6, s_sho7, s_begsho1 vari s_prevsho1, s_prevsho2, s_prevsho3, s_prevsho4 vari s_prevsho5, s_prevsho6 vari d_show, d_modulus, d_maxnum1, d_maxnum2, d_maxnum3 vari d_1e10, d_1e05, d_5e09, d_2e05 'd_biggest or 2^53-1 is 9,007,199,254,740,991 d_biggest = 2 ^ 53 -1 ded$ s_biggest, d_biggest, 0, 0 s_biggest = "2^53-1 is " + s_biggest d_1e10 = 10 ^ 10 d_1e05 = 10 ^ 5 d_5e09 = 10 ^ 9 * 5 d_2e05 = 10 ^ 5 * 2 d_loop = 1 d_part = 0 d_quadone = 10 ^ 15 d_show = 1 $out "method1 maxes out at 400,720,997,978,815,598,912" $out "method2 maxes out at 432,908,708,009,196,879,871" $out "method3 maxes out at 900,719,925,474,099,100,000" $out "method4 maxes out at 1,604,388,996,928,588,480,512" $out "method5 maxes out at 1,801,439,999,999,999,999,999" $out "method6 same as 5" $out s_biggest $out sg_dashline +" "+ sg_hrto +" "+ sg_jig $inp s_any, "ENTER 1,2,3,4,5,6 for method, default=1" $ift s_any = "1" d_method = 1 s_sho7 = "d_1e15 % d_root * d_mult + d_part % d_root" endi $ift s_any = "2" d_method = 2 s_sho7 = "d_any = d_part % d_root" $app s_sho7, " then d_1e15 % d_root * d_mult + d_any % d_root" endi $ift s_any = "3" d_method = 3 s_sho7 = "d_mult * d_1e10 % d_root * d_1e05 + d_part % d_root" endi $ift s_any = "4" d_method = 4 s_sho7 = "d_mult * d_5e09 % d_root * d_2e05 + d_part % d_root" endi $ift s_any = "5" d_method = 5 s_sho7 = "d_mult * d_5e09 % d_root * d_2e05 % d_root + d_part % d_root" endi $ift s_any = "6" d_method = 6 s_sho7 = "d_mult * d_5e09 % d_root * d_2e05 % d_root + d_part % d_root" endi $ift s_any = "*": dinc d_loop d_mult = 1600 * 1000 $inp s_any, "ENTER teaquad mult, default=1,600,000" $ift s_any = "*": dinc d_loop $isd d_any, s_any dift d_any = 1: $tod d_mult, s_any d_part = 0 $inp s_any, "ENTER teaquad part, default=0" $ift s_any = "*": dinc d_loop $isd d_any, s_any dift d_any = 1: $tod d_part, s_any d_increment = 10 ^ 14 $inp s_any, "ENTER increment teaquad part, default=1E14" $ift s_any = "*": dinc d_loop $isd d_any, s_any dift d_any = 1: $tod d_increment, s_any d_increment = d_increment \ 1 dift d_increment < 1: d_increment = 10 ^ 10 d_pause = 1000 * 1000 $inp s_any, "ENTER pause, default=1,000,000" $ift s_any = "*": dinc d_loop $isd d_any, s_any dift d_any = 1: $tod d_pause, s_any d_linect = 0 d_totalct = 0 dwhi d_loop = 1 dinc d_totalct d_any = d_mult * d_quadone + d_part 'find the 0.5 root d_dot = 1 / 2 d_root = d_any ^ d_dot d_root = d_root \ 1 d_prevnum3 = d_num3 dift d_method = 1 'method1 original way modulus is in d_number1 'd_number1 = d_quadone % d_root * d_mult + d_part d_num1 = d_quadone % d_root d_num2 = d_num1 * d_mult d_num3 = d_num2 + d_part d_num4 = d_num3 % d_root d_show = 1 endi dift d_method = 2 'method2 new way modulus is in d_number1, d_part d_maxnum1: d_maxnum1 = d_num1 dift d_num2 > d_maxnum2: d_maxnum2 = d_num2 dift d_num3 > d_maxnum3: d_maxnum3 = d_num3 'show every 100,000 d_any = 1000 * 100 d_show = d_totalct % d_any 'save sho lines from previous number s_prevsho1 = s_sho1 s_prevsho2 = s_sho2 s_prevsho3 = s_sho3 s_prevsho4 = s_sho4 s_prevsho5 = s_sho5 s_prevsho6 = s_sho6 'build s_sho1 ded$ s_any, d_mult, 0, 0 ded$ s_dot, d_part, 0, 0 ded$ s_tap, d_root, 0, 0 s_sho1 = "mult=" + s_any + " part=" + s_dot + " root=" + s_tap 's_sho2 ded$ s_any, d_num1, 0, 0 ded$ s_dot, d_num2, 0, 0 s_sho2 = "num1=" + s_any + " num2=" + s_dot 's_sho3 ded$ s_any, d_num3, 0, 0 ded$ s_dot, d_num4, 0, 0 s_sho3 = "num3=" + s_any + " num4=" + s_dot 's_sho4 ded$ s_any, d_maxnum1, 0, 0 ded$ s_dot, d_maxnum2, 0, 0 s_sho4 = "maxnum1=" + s_any + " maxnum2=" + s_dot 's_sho5 ded$ s_any, d_maxnum3, 0, 0 $dat s_dot $cut s_dot, s_dot, 1, 20 s_sho5 = "maxnum3=" + s_any + " method" + d_method +" "+ s_dot 's_sho6 ded$ s_any, d_totalct, 0, 0 ded$ s_dot, d_pause, 0, 0 ded$ s_tap, d_increment, 0, 0 s_sho6 = "ct=" + s_any + " pause=" + s_dot + " increment=" + s_tap 'save s_sho1 for ending dift d_totalct = 1 $dat s_any $cut s_any, s_any, 1, 20 s_begsho1 = "beg: " + s_sho1 +" "+ s_any endi 'show only if d_show=1 dift d_show = 1 $out sg_dashline +" "+ sg_hrto +" "+ sg_jig $out s_sho1 $out s_sho2 $out s_sho3 $out s_sho4 $out s_sho5 $out s_sho6 endi 'is the d_num1,d_num2 or d_num3 greater than d_biggest=2^53-1 'd_biggest or 2^53-1 is 9,007,199,254,740,991 d_any = 2 dift d_num1 > d_biggest: d_any = 1 dift d_num2 > d_biggest: d_any = 1 dift d_num3 > d_biggest: d_any = 1 dift d_any = 1 $out sg_dashline +" "+ sg_hrto +" "+ sg_jig $out s_prevsho1 $out s_prevsho2 $out s_prevsho3 $out s_prevsho4 $out s_prevsho5 $out s_prevsho6 $out sg_dashline +" "+ sg_hrto +" "+ sg_jig $out s_sho1 $out s_sho2 $out s_sho3 $out s_sho4 $out s_sho5 $out s_sho6 $out sg_dashline +" "+ sg_hrto +" "+ sg_jig $out s_sho7 $out s_biggest $out s_begsho1 'dg_pass1=3 means asterisk entered sg_pass1 = "*=end" sub_input_yes_no_asterisk dift dg_pass1 = 3: dinc d_loop endi 'prep next d_mult, d_part for next d_part = d_part + d_increment dwhi d_part >= d_quadone d_part = d_part - d_quadone dinc d_mult endw 'tell and maybe pause dinc d_linect dift d_linect >= d_pause $out sg_dashline +" "+ sg_hrto +" "+ sg_jig $out s_sho1 $out s_sho2 $out s_sho3 $out s_sho4 $out s_sho5 $out s_sho6 $out sg_dashline +" "+ sg_hrto +" "+ sg_jig $dat s_any $cut s_any, s_any, 1, 20 $inp s_any, "ENTER new pause " + s_any $ift s_any = "*": dinc d_loop $isd d_any, s_any dift d_any = 1: $tod d_pause, s_any d_linect = 0 $dat s_any $out s_any endi endw ends sub_teaquad_max_test subr sub_fileoutputbad 'updated 2014/12/12 'bad fileoutput of sg_fileline vari s_any $out sg_fileline $inp s_any, "RETURN bad fileoutput *=end" $trb s_any, s_any $ift s_any = "*": endp ends sub_fileoutputbad subr sub_pspeed 'updated 2020/04/23, 2020/04/22, 2020/03/22 '2018/12/13, 2018/06/28, 2018/06/19, 2018/06/15, 2018/06/07 '2018/05/25, 2018/04/23, 2018/04/09, 2018/03/28, 2018/03/09 '2018/03/08, 2018/02/10, 2018/02/03, 2018/01/28, 2018/01/26 '2018/01/25, 2018/01/08, 2017/12/26, 2017/12/16, 2017/12/11 '2017/12/05, 2017/12/01, 2017/11/20, 2017/11/19, 2017/11/18 '2017/08/02, 2017/07/02, 2017/07/01, 2017/06/30, 2017/06/21 '2017/06/18, 2017/06/17, 2017/06/13, 2017/06/12, 2017/06/10 '2017/06/09, 2016/09/04, 2013/03/22, 2013/01/19, 2012/10/19 '2012/03/29, 2012/03/23, 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, d_hat vari d_sec, d_part, d_mult d_hat = 10^7 * 1 d_dot = 0 'begin seconds dsec d_sec 'simple loop of 10,000,000 dwhi d_dot < d_hat dinc d_dot d_any = d_dot % 3 endw 'end seconds dsec d_any dg_pspeed = d_any - d_sec '12345678901234567890123456789012345 '17-DEC-2002 03:56:22 20021217035622 $dat s_any $cut s_any, s_any, 1, 20 sg_pspeed = "pspeed=" + dg_pspeed +","+" "+ s_any + ", v=" + dg_version + sg_computer ends sub_pspeed