36 36 "algol,_"
75.6 36 "i,_"
88.79999999999998 36 "n<"
36 48 "This program was made by my father,"
273.5999999999999 48 "Jørgen"
319.80000000000007 48 "Kjær,"
36 60 "while he worked for Haldor Topsøe."
36 84 "This is Service Pack 1; a few bugs"
266.9999999999999 84 "have"
300 84 "been"
333.0000000000001 84 "corrected:"
36 108 "1:"
55.800000000000004 108 "Call of where moved out of show"
266.9999999999999 108 "loop."
36 120 "2:"
55.800000000000004 120 "Error in shift code in LONGMULT."
36 132 "3:"
55.800000000000004 132 "Calculation of asize in ASSIGN"
260.39999999999986 132 "has"
286.79999999999995 132 "been"
319.80000000000007 132 "changed."
36 156 "ASSIGN and SQRT are now called after"
280.19999999999993 156 "reading"
333.0000000000001 156 "the"
359.4000000000002 156 "number"
405.60000000000036 156 "with"
438.6000000000005 156 "read"
471.6000000000006 156 "real."
36 180 "2011−Jul−27 22.21 / TN: Experimenting"
286.79999999999995 180 "with"
319.80000000000007 180 "shifting,"
385.8000000000003 180 "LONGMULT"
445.2000000000005 180 "performance,"
531.0000000000008 180 "and"
557.4000000000009 180 "LONGDI"
36 204 "Timing (in seconds), 380 decimals,"
266.9999999999999 204 "buffer"
313.20000000000005 204 "GIER,"
352.8000000000002 204 "no"
372.60000000000025 204 "index"
412.2000000000004 204 "check:"
141.59999999999994 228 "Classic GA4"
247.19999999999985 228 "Turbo"
286.79999999999995 228 "GA4"
352.8000000000002 228 "Save,"
392.4000000000003 228 "pct."
36 240 "sqrt(r):"
141.59999999999994 240 "5331.8"
247.19999999999985 240 "4923.3"
359.4000000000002 240 "7.7"
36 252 "sqrt2(r):"
141.59999999999994 252 "1247.6"
247.19999999999985 252 "1077.9"
352.8000000000002 252 "13.6"
36 264 "sqrt3(r):"
148.19999999999993 264 "389.2"
253.79999999999984 264 "365.0"
359.4000000000002 264 "6.2"
36 276 "sqrt(B):"
148.19999999999993 276 "388.1"
253.79999999999984 276 "363.9"
359.4000000000002 276 "6.2"
36 300 "Timing (in seconds), 380 decimals,"
266.9999999999999 300 "no"
286.79999999999995 300 "buffer"
333.0000000000001 300 "GIER,"
372.60000000000025 300 "no"
392.4000000000003 300 "index"
432.00000000000045 300 "check:"
141.59999999999994 324 "Classic GA4"
247.19999999999985 324 "Turbo"
286.79999999999995 324 "GA4"
352.8000000000002 324 "Save,"
392.4000000000003 324 "pct."
36 336 "sqrt(r):"
141.59999999999994 336 "8195.6"
247.19999999999985 336 "7892.0"
359.4000000000002 336 "3.7"
36 348 "sqrt2(r):"
141.59999999999994 348 "2147.2"
247.19999999999985 348 "2008.1"
359.4000000000002 348 "6.5"
36 360 "sqrt3(r):"
148.19999999999993 360 "379.9"
253.79999999999984 360 "364.9"
359.4000000000002 360 "3.9"
36 372 "sqrt(B):"
148.19999999999993 372 "377.6"
253.79999999999984 372 "361.5"
359.4000000000002 372 "4.3"
36 396 "Program DEMON−5. Calculation of large"
286.79999999999995 396 "numbers."
36 408 "_"
36 408 "b_"
42.6 408 "e_"
49.2 408 "g_"
55.800000000000004 408 "i_"
62.4 408 "n"
55.800000000000004 420 "_"
55.800000000000004 420 "b_"
62.4 420 "o_"
69 420 "o_"
75.6 420 "l_"
82.19999999999999 420 "e_"
88.79999999999998 420 "a_"
95.39999999999998 420 "n first, empty, show, large;"
55.800000000000004 432 "_"
55.800000000000004 432 "b_"
62.4 432 "o_"
69 432 "o_"
75.6 432 "l_"
82.19999999999999 432 "e_"
88.79999999999998 432 "a_"
95.39999999999998 432 "n showAll;"
55.800000000000004 444 "_"
55.800000000000004 444 "i_"
62.4 444 "n_"
69 444 "t_"
75.6 444 "e_"
82.19999999999999 444 "g_"
88.79999999999998 444 "e_"
95.39999999999998 444 "r linerest, lang, decimals,"
280.19999999999993 444 "limit,"
326.4000000000001 444 "carry,"
372.60000000000025 444 "count,"
418.8000000000004 444 "MODUL,"
465.00000000000057 444 "cell,"
55.800000000000004 456 "cell2, asize, bsize, csize, type,"
280.19999999999993 456 "TYPE,"
319.80000000000007 456 "D,"
339.60000000000014 456 "E,"
359.4000000000002 456 "FREE,"
399.00000000000034 456 "ftrack,"
451.8000000000005 456 "step,"
491.40000000000066 456 "c39;"
55.800000000000004 468 "_"
55.800000000000004 468 "p_"
62.4 468 "r_"
69 468 "o_"
75.6 468 "c_"
82.19999999999999 468 "e_"
88.79999999999998 468 "d_"
95.39999999999998 468 "u_"
101.99999999999997 468 "r_"
108.59999999999997 468 "e NEW PAGE;"
55.800000000000004 480 "_"
55.800000000000004 480 "b_"
62.4 480 "e_"
69 480 "g_"
75.6 480 "i_"
82.19999999999999 480 "n"
75.6 492 "_"
75.6 492 "f_"
82.19999999999999 492 "o_"
88.79999999999998 492 "r linerest := linerest − 1"
266.9999999999999 492 "_"
266.9999999999999 492 "w_"
273.5999999999999 492 "h_"
280.19999999999993 492 "i_"
286.79999999999995 492 "l_"
293.4 492 "e"
306.6 492 "linerest"
366.0000000000002 492 "_"
366.0000000000002 492 ">"
379.2000000000003 492 "0,"
399.00000000000034 492 "69"
418.8000000000004 492 "_"
418.8000000000004 492 "d_"
425.40000000000043 492 "o"
438.6000000000005 492 "writecr;"
75.6 504 "writechar(72)"
55.800000000000004 516 "_"
55.800000000000004 516 "e_"
62.4 516 "n_"
69 516 "d NEW PAGE;"
55.800000000000004 528 "_"
55.800000000000004 528 "p_"
62.4 528 "r_"
69 528 "o_"
75.6 528 "c_"
82.19999999999999 528 "e_"
88.79999999999998 528 "d_"
95.39999999999998 528 "u_"
101.99999999999997 528 "r_"
108.59999999999997 528 "e LINE;"
55.800000000000004 540 "_"
55.800000000000004 540 "i_"
62.4 540 "f linerest < 8 _"
161.39999999999992 540 "t_"
167.99999999999991 540 "h_"
174.5999999999999 540 "e_"
181.1999999999999 540 "n NEW PAGE"
55.800000000000004 552 "_"
55.800000000000004 552 "e_"
62.4 552 "l_"
69 552 "s_"
75.6 552 "e"
55.800000000000004 564 "_"
55.800000000000004 564 "b_"
62.4 564 "e_"
69 564 "g_"
75.6 564 "i_"
82.19999999999999 564 "n"
75.6 576 "_"
75.6 576 "c_"
82.19999999999999 576 "o_"
88.79999999999998 576 "m_"
95.39999999999998 576 "m_"
101.99999999999997 576 "e_"
108.59999999999997 576 "n_"
115.19999999999996 576 "t linerest := linerest"
266.9999999999999 576 "−"
280.19999999999993 576 "1;"
75.6 588 "writecr"
55.800000000000004 600 "_"
55.800000000000004 600 "e_"
62.4 600 "n_"
69 600 "d LINE;"
55.800000000000004 612 "_"
55.800000000000004 612 "p_"
62.4 612 "r_"
69 612 "o_"
75.6 612 "c_"
82.19999999999999 612 "e_"
88.79999999999998 612 "d_"
95.39999999999998 612 "u_"
101.99999999999997 612 "r_"
108.59999999999997 612 "e WRITE TEXT(dan, eng,"
260.39999999999986 612 "fr,"
286.79999999999995 612 "ger);"
55.800000000000004 624 "_"
55.800000000000004 624 "s_"
62.4 624 "t_"
69 624 "r_"
75.6 624 "i_"
82.19999999999999 624 "n_"
88.79999999999998 624 "g dan, eng, fr, ger;"
55.800000000000004 636 "writetext(_"
121.79999999999995 636 "c_"
128.39999999999995 636 "a_"
134.99999999999994 636 "s_"
141.59999999999994 636 "e lang _"
187.7999999999999 636 "o_"
194.3999999999999 636 "f (dan, eng,"
280.19999999999993 636 "fr,"
306.6 636 "ger));"
55.800000000000004 648 "_"
55.800000000000004 648 "p_"
62.4 648 "r_"
69 648 "o_"
75.6 648 "c_"
82.19999999999999 648 "e_"
88.79999999999998 648 "d_"
95.39999999999998 648 "u_"
101.99999999999997 648 "r_"
108.59999999999997 648 "e SELECT LANGUAGE;"
55.800000000000004 660 "_"
55.800000000000004 660 "b_"
62.4 660 "e_"
69 660 "g_"
75.6 660 "i_"
82.19999999999999 660 "n"
75.6 672 "LINE;"
75.6 684 "writetext("
75.6 696 "|"
75.6 696 "<<Select language: d: danish,"
273.5999999999999 696 "e:"
293.4 696 "english,"
352.8000000000002 696 "f:"
372.60000000000025 696 "french,"
425.40000000000043 696 "g:"
445.2000000000005 696 "german.:"
504.6000000000007 696 "|"
504.6000000000007 696 ">);"
75.6 708 "lang := lyn − 51;"
75.6 720 "_"
75.6 720 "i_"
82.19999999999999 720 "f lang < 1 _"
154.79999999999993 720 "t_"
161.39999999999992 720 "h_"
167.99999999999991 720 "e_"
174.5999999999999 720 "n lang := 1;"
75.6 732 "_"
75.6 732 "i_"
82.19999999999999 732 "f lang > 4 _"
154.79999999999993 732 "t_"
161.39999999999992 732 "h_"
167.99999999999991 732 "e_"
174.5999999999999 732 "n lang := 4;"
75.6 744 "LINE;"
75.6 756 "WRITE TEXT("
75.6 768 "|"
75.6 768 "<<Dansk|"
121.79999999999995 768 ">,"
75.6 780 "|"
75.6 780 "<<English|"
134.99999999999994 780 ">,"
75.6 792 "|"
75.6 792 "<<Francais|"
141.59999999999994 792 ">,"
75.6 36 "|"
75.6 36 "<<Deutsch|"
134.99999999999994 36 ">);"
75.6 48 "LINE"
55.800000000000004 60 "_"
55.800000000000004 60 "e_"
62.4 60 "n_"
69 60 "d SELECT LANGUAGE;"
55.800000000000004 72 "_"
55.800000000000004 72 "i_"
62.4 72 "n_"
69 72 "t_"
75.6 72 "e_"
82.19999999999999 72 "g_"
88.79999999999998 72 "e_"
95.39999999999998 72 "r _"
108.59999999999997 72 "p_"
115.19999999999996 72 "r_"
121.79999999999995 72 "o_"
128.39999999999995 72 "c_"
134.99999999999994 72 "e_"
141.59999999999994 72 "d_"
148.19999999999993 72 "u_"
154.79999999999993 72 "r_"
161.39999999999992 72 "e ASK NUMBER(dan,"
280.19999999999993 72 "eng,"
313.20000000000005 72 "fr,"
339.60000000000014 72 "ger);"
55.800000000000004 84 "_"
55.800000000000004 84 "s_"
62.4 84 "t_"
69 84 "r_"
75.6 84 "i_"
82.19999999999999 84 "n_"
88.79999999999998 84 "g dan, eng, fr, ger;"
55.800000000000004 96 "_"
55.800000000000004 96 "b_"
62.4 96 "e_"
69 96 "g_"
75.6 96 "i_"
82.19999999999999 96 "n"
75.6 108 "LINE;"
75.6 120 "WRITE TEXT(dan, eng, fr, ger);"
75.6 132 "writetext(|"
141.59999999999994 132 "<<: |"
167.99999999999991 132 ">);"
75.6 144 "ASK NUMBER := read integer"
55.800000000000004 156 "_"
55.800000000000004 156 "e_"
62.4 156 "n_"
69 156 "d ASK NUMBER;"
55.800000000000004 168 "_"
55.800000000000004 168 "p_"
62.4 168 "r_"
69 168 "o_"
75.6 168 "c_"
82.19999999999999 168 "e_"
88.79999999999998 168 "d_"
95.39999999999998 168 "u_"
101.99999999999997 168 "r_"
108.59999999999997 168 "e ACCEPT(cond);"
55.800000000000004 180 "_"
55.800000000000004 180 "v_"
62.4 180 "a_"
69 180 "l_"
75.6 180 "u_"
82.19999999999999 180 "e cond;"
55.800000000000004 192 "_"
55.800000000000004 192 "b_"
62.4 192 "o_"
69 192 "o_"
75.6 192 "l_"
82.19999999999999 192 "e_"
88.79999999999998 192 "a_"
95.39999999999998 192 "n cond;"
55.800000000000004 204 "_"
55.800000000000004 204 "i_"
62.4 204 "f −, cond _"
128.39999999999995 204 "t_"
134.99999999999994 204 "h_"
141.59999999999994 204 "e_"
148.19999999999993 204 "n"
55.800000000000004 216 "_"
55.800000000000004 216 "b_"
62.4 216 "e_"
69 216 "g_"
75.6 216 "i_"
82.19999999999999 216 "n"
75.6 228 "LINE;"
75.6 240 "WRITE TEXT("
75.6 252 "|"
75.6 252 "<<Brug flere heltalscifre|"
240.59999999999985 252 ">,"
75.6 264 "|"
75.6 264 "<<Use more integer digits|"
240.59999999999985 264 ">,"
75.6 276 "|"
75.6 276 "<<Le nombre de chiffres entiers"
286.79999999999995 276 "est"
313.20000000000005 276 "trop"
346.20000000000016 276 "petit|"
379.2000000000003 276 ">,"
75.6 288 "|"
75.6 288 "<<Zu wenig Ganzzahlstellen|"
247.19999999999985 288 ">);"
75.6 300 "_"
75.6 300 "g_"
82.19999999999999 300 "o_ _"
95.39999999999998 300 "t_"
101.99999999999997 300 "o _"
115.19999999999996 300 "i_"
121.79999999999995 300 "f show _"
167.99999999999991 300 "t_"
174.5999999999999 300 "h_"
181.1999999999999 300 "e_"
187.7999999999999 300 "n E1 _"
220.79999999999987 300 "e_"
227.39999999999986 300 "l_"
233.99999999999986 300 "s_"
240.59999999999985 300 "e E2"
55.800000000000004 312 "_"
55.800000000000004 312 "e_"
62.4 312 "n_"
69 312 "d ACCEPT;"
55.800000000000004 324 "_"
55.800000000000004 324 "p_"
62.4 324 "r_"
69 324 "o_"
75.6 324 "c_"
82.19999999999999 324 "e_"
88.79999999999998 324 "d_"
95.39999999999998 324 "u_"
101.99999999999997 324 "r_"
108.59999999999997 324 "e ALARM(text);"
55.800000000000004 336 "_"
55.800000000000004 336 "s_"
62.4 336 "t_"
69 336 "r_"
75.6 336 "i_"
82.19999999999999 336 "n_"
88.79999999999998 336 "g text;"
55.800000000000004 348 "_"
55.800000000000004 348 "b_"
62.4 348 "e_"
69 348 "g_"
75.6 348 "i_"
82.19999999999999 348 "n"
75.6 360 "LINE;"
75.6 372 "writetext(|"
141.59999999999994 372 "<<Error in: |"
220.79999999999987 372 ">);"
75.6 384 "writetext(text);"
75.6 396 "_"
75.6 396 "g_"
82.19999999999999 396 "o_ _"
95.39999999999998 396 "t_"
101.99999999999997 396 "o _"
115.19999999999996 396 "i_"
121.79999999999995 396 "f show _"
167.99999999999991 396 "t_"
174.5999999999999 396 "h_"
181.1999999999999 396 "e_"
187.7999999999999 396 "n E1 _"
220.79999999999987 396 "e_"
227.39999999999986 396 "l_"
233.99999999999986 396 "s_"
240.59999999999985 396 "e E2"
55.800000000000004 408 "_"
55.800000000000004 408 "e_"
62.4 408 "n_"
69 408 "d ALARM;"
55.800000000000004 420 "_"
55.800000000000004 420 "i_"
62.4 420 "n_"
69 420 "t_"
75.6 420 "e_"
82.19999999999999 420 "g_"
88.79999999999998 420 "e_"
95.39999999999998 420 "r stat TO REAL get A;"
55.800000000000004 432 "_"
55.800000000000004 432 "i_"
62.4 432 "n_"
69 432 "t_"
75.6 432 "e_"
82.19999999999999 432 "g_"
88.79999999999998 432 "e_"
95.39999999999998 432 "r stat COMPARE get A;"
55.800000000000004 444 "_"
55.800000000000004 444 "i_"
62.4 444 "n_"
69 444 "t_"
75.6 444 "e_"
82.19999999999999 444 "g_"
88.79999999999998 444 "e_"
95.39999999999998 444 "r stat COMPARE get B;"
55.800000000000004 456 "_"
55.800000000000004 456 "i_"
62.4 456 "n_"
69 456 "t_"
75.6 456 "e_"
82.19999999999999 456 "g_"
88.79999999999998 456 "e_"
95.39999999999998 456 "r stat LONGMULT2 get A;"
55.800000000000004 468 "_"
55.800000000000004 468 "i_"
62.4 468 "n_"
69 468 "t_"
75.6 468 "e_"
82.19999999999999 468 "g_"
88.79999999999998 468 "e_"
95.39999999999998 468 "r stat LONGMULT2 get B;"
55.800000000000004 480 "_"
55.800000000000004 480 "i_"
62.4 480 "n_"
69 480 "t_"
75.6 480 "e_"
82.19999999999999 480 "g_"
88.79999999999998 480 "e_"
95.39999999999998 480 "r stat LONGMULT2 get C 1;"
55.800000000000004 492 "_"
55.800000000000004 492 "i_"
62.4 492 "n_"
69 492 "t_"
75.6 492 "e_"
82.19999999999999 492 "g_"
88.79999999999998 492 "e_"
95.39999999999998 492 "r stat LONGMULT2 get C 2;"
55.800000000000004 504 "_"
55.800000000000004 504 "i_"
62.4 504 "n_"
69 504 "t_"
75.6 504 "e_"
82.19999999999999 504 "g_"
88.79999999999998 504 "e_"
95.39999999999998 504 "r stat LONGMULT2 put A;"
55.800000000000004 516 "_"
55.800000000000004 516 "i_"
62.4 516 "n_"
69 516 "t_"
75.6 516 "e_"
82.19999999999999 516 "g_"
88.79999999999998 516 "e_"
95.39999999999998 516 "r stat LONGMULT2 put B;"
55.800000000000004 528 "_"
55.800000000000004 528 "i_"
62.4 528 "n_"
69 528 "t_"
75.6 528 "e_"
82.19999999999999 528 "g_"
88.79999999999998 528 "e_"
95.39999999999998 528 "r stat LONGMULT2 put C 1;"
55.800000000000004 540 "_"
55.800000000000004 540 "i_"
62.4 540 "n_"
69 540 "t_"
75.6 540 "e_"
82.19999999999999 540 "g_"
88.79999999999998 540 "e_"
95.39999999999998 540 "r stat LONGMULT2 put C 2;"
55.800000000000004 552 "_"
55.800000000000004 552 "i_"
62.4 552 "n_"
69 552 "t_"
75.6 552 "e_"
82.19999999999999 552 "g_"
88.79999999999998 552 "e_"
95.39999999999998 552 "r stat LONGMULT2 put C 3;"
55.800000000000004 564 "_"
55.800000000000004 564 "i_"
62.4 564 "n_"
69 564 "t_"
75.6 564 "e_"
82.19999999999999 564 "g_"
88.79999999999998 564 "e_"
95.39999999999998 564 "r stat LONGDIVIDE2 get A"
260.39999999999986 564 "1;"
55.800000000000004 576 "_"
55.800000000000004 576 "i_"
62.4 576 "n_"
69 576 "t_"
75.6 576 "e_"
82.19999999999999 576 "g_"
88.79999999999998 576 "e_"
95.39999999999998 576 "r stat LONGDIVIDE2 get A"
260.39999999999986 576 "2;"
55.800000000000004 588 "_"
55.800000000000004 588 "i_"
62.4 588 "n_"
69 588 "t_"
75.6 588 "e_"
82.19999999999999 588 "g_"
88.79999999999998 588 "e_"
95.39999999999998 588 "r stat LONGDIVIDE2 get A"
260.39999999999986 588 "3;"
55.800000000000004 600 "_"
55.800000000000004 600 "i_"
62.4 600 "n_"
69 600 "t_"
75.6 600 "e_"
82.19999999999999 600 "g_"
88.79999999999998 600 "e_"
95.39999999999998 600 "r stat LONGDIVIDE2 get A"
260.39999999999986 600 "4;"
55.800000000000004 612 "_"
55.800000000000004 612 "i_"
62.4 612 "n_"
69 612 "t_"
75.6 612 "e_"
82.19999999999999 612 "g_"
88.79999999999998 612 "e_"
95.39999999999998 612 "r stat LONGDIVIDE2 get A"
260.39999999999986 612 "5;"
55.800000000000004 624 "_"
55.800000000000004 624 "i_"
62.4 624 "n_"
69 624 "t_"
75.6 624 "e_"
82.19999999999999 624 "g_"
88.79999999999998 624 "e_"
95.39999999999998 624 "r stat LONGDIVIDE2 get B"
260.39999999999986 624 "1;"
55.800000000000004 636 "_"
55.800000000000004 636 "i_"
62.4 636 "n_"
69 636 "t_"
75.6 636 "e_"
82.19999999999999 636 "g_"
88.79999999999998 636 "e_"
95.39999999999998 636 "r stat LONGDIVIDE2 get B"
260.39999999999986 636 "2;"
55.800000000000004 648 "_"
55.800000000000004 648 "i_"
62.4 648 "n_"
69 648 "t_"
75.6 648 "e_"
82.19999999999999 648 "g_"
88.79999999999998 648 "e_"
95.39999999999998 648 "r stat LONGDIVIDE2 get B"
260.39999999999986 648 "3;"
55.800000000000004 660 "_"
55.800000000000004 660 "i_"
62.4 660 "n_"
69 660 "t_"
75.6 660 "e_"
82.19999999999999 660 "g_"
88.79999999999998 660 "e_"
95.39999999999998 660 "r stat LONGDIVIDE2 put A"
260.39999999999986 660 "1;"
55.800000000000004 672 "_"
55.800000000000004 672 "i_"
62.4 672 "n_"
69 672 "t_"
75.6 672 "e_"
82.19999999999999 672 "g_"
88.79999999999998 672 "e_"
95.39999999999998 672 "r stat LONGDIVIDE2 put A"
260.39999999999986 672 "2;"
55.800000000000004 684 "_"
55.800000000000004 684 "i_"
62.4 684 "n_"
69 684 "t_"
75.6 684 "e_"
82.19999999999999 684 "g_"
88.79999999999998 684 "e_"
95.39999999999998 684 "r stat LONGDIVIDE2 put A"
260.39999999999986 684 "3;"
55.800000000000004 696 "_"
55.800000000000004 696 "i_"
62.4 696 "n_"
69 696 "t_"
75.6 696 "e_"
82.19999999999999 696 "g_"
88.79999999999998 696 "e_"
95.39999999999998 696 "r stat LONGDIVIDE2 put A"
260.39999999999986 696 "4;"
55.800000000000004 708 "_"
55.800000000000004 708 "i_"
62.4 708 "n_"
69 708 "t_"
75.6 708 "e_"
82.19999999999999 708 "g_"
88.79999999999998 708 "e_"
95.39999999999998 708 "r stat LONGDIVIDE2 put A"
260.39999999999986 708 "5;"
55.800000000000004 720 "_"
55.800000000000004 720 "i_"
62.4 720 "n_"
69 720 "t_"
75.6 720 "e_"
82.19999999999999 720 "g_"
88.79999999999998 720 "e_"
95.39999999999998 720 "r stat LONGDIVIDE2 put C"
260.39999999999986 720 "1;"
55.800000000000004 732 "_"
55.800000000000004 732 "i_"
62.4 732 "n_"
69 732 "t_"
75.6 732 "e_"
82.19999999999999 732 "g_"
88.79999999999998 732 "e_"
95.39999999999998 732 "r stat LONGDIVIDE2 put C"
260.39999999999986 732 "2;"
55.800000000000004 744 "_"
55.800000000000004 744 "i_"
62.4 744 "n_"
69 744 "t_"
75.6 744 "e_"
82.19999999999999 744 "g_"
88.79999999999998 744 "e_"
95.39999999999998 744 "r stat LONGMULT get B 1;"
55.800000000000004 756 "_"
55.800000000000004 756 "i_"
62.4 756 "n_"
69 756 "t_"
75.6 756 "e_"
82.19999999999999 756 "g_"
88.79999999999998 756 "e_"
95.39999999999998 756 "r stat LONGMULT get B 2;"
55.800000000000004 768 "_"
55.800000000000004 768 "i_"
62.4 768 "n_"
69 768 "t_"
75.6 768 "e_"
82.19999999999999 768 "g_"
88.79999999999998 768 "e_"
95.39999999999998 768 "r stat LONGMULT get RES 1;"
55.800000000000004 780 "_"
55.800000000000004 780 "i_"
62.4 780 "n_"
69 780 "t_"
75.6 780 "e_"
82.19999999999999 780 "g_"
88.79999999999998 780 "e_"
95.39999999999998 780 "r stat LONGMULT get RES 2;"
55.800000000000004 792 "_"
55.800000000000004 792 "i_"
62.4 792 "n_"
69 792 "t_"
75.6 792 "e_"
82.19999999999999 792 "g_"
88.79999999999998 792 "e_"
95.39999999999998 792 "r stat LONGMULT put RES;"
55.800000000000004 36 "_"
55.800000000000004 36 "p_"
62.4 36 "r_"
69 36 "o_"
75.6 36 "c_"
82.19999999999999 36 "e_"
88.79999999999998 36 "d_"
95.39999999999998 36 "u_"
101.99999999999997 36 "r_"
108.59999999999997 36 "e STATISTICS PROCESS(p);"
55.800000000000004 48 "_"
55.800000000000004 48 "p_"
62.4 48 "r_"
69 48 "o_"
75.6 48 "c_"
82.19999999999999 48 "e_"
88.79999999999998 48 "d_"
95.39999999999998 48 "u_"
101.99999999999997 48 "r_"
108.59999999999997 48 "e p;"
55.800000000000004 60 "_"
55.800000000000004 60 "b_"
62.4 60 "e_"
69 60 "g_"
75.6 60 "i_"
82.19999999999999 60 "n"
75.6 72 "_"
75.6 72 "i_"
82.19999999999999 72 "n_"
88.79999999999998 72 "t_"
95.39999999999998 72 "e_"
101.99999999999997 72 "g_"
108.59999999999997 72 "e_"
115.19999999999996 72 "r stat counter;"
75.6 84 "p(stat counter, |"
181.1999999999999 84 "<<TO REAL get"
273.5999999999999 84 "A"
286.79999999999995 84 "|"
286.79999999999995 84 ">,"
306.6 84 "stat"
339.60000000000014 84 "TO"
359.4000000000002 84 "REAL"
392.4000000000003 84 "get"
418.8000000000004 84 "A);"
75.6 96 "p(stat counter, |"
181.1999999999999 96 "<<COMPARE get"
273.5999999999999 96 "A"
286.79999999999995 96 "|"
286.79999999999995 96 ">,"
306.6 96 "stat"
339.60000000000014 96 "COMPARE"
392.4000000000003 96 "get"
418.8000000000004 96 "A);"
75.6 108 "p(stat counter, |"
181.1999999999999 108 "<<COMPARE get"
273.5999999999999 108 "B"
286.79999999999995 108 "|"
286.79999999999995 108 ">,"
306.6 108 "stat"
339.60000000000014 108 "COMPARE"
392.4000000000003 108 "get"
418.8000000000004 108 "B);"
75.6 120 "p(stat counter, |"
181.1999999999999 120 "<<LONGMULT2"
260.39999999999986 120 "get"
286.79999999999995 120 "A"
300 120 "|"
300 120 ">,"
319.80000000000007 120 "stat"
352.8000000000002 120 "LONGMULT2"
418.8000000000004 120 "get"
445.2000000000005 120 "A);"
75.6 132 "p(stat counter, |"
181.1999999999999 132 "<<LONGMULT2"
260.39999999999986 132 "get"
286.79999999999995 132 "B"
300 132 "|"
300 132 ">,"
319.80000000000007 132 "stat"
352.8000000000002 132 "LONGMULT2"
418.8000000000004 132 "get"
445.2000000000005 132 "B);"
75.6 144 "p(stat counter, |"
181.1999999999999 144 "<<LONGMULT2"
260.39999999999986 144 "get"
286.79999999999995 144 "C"
300 144 "1"
313.20000000000005 144 "|"
313.20000000000005 144 ">,"
333.0000000000001 144 "stat"
366.0000000000002 144 "LONGMULT2"
432.00000000000045 144 "get"
458.40000000000055 144 "C"
471.6000000000006 144 "1);"
75.6 156 "p(stat counter, |"
181.1999999999999 156 "<<LONGMULT2"
260.39999999999986 156 "get"
286.79999999999995 156 "C"
300 156 "2"
313.20000000000005 156 "|"
313.20000000000005 156 ">,"
333.0000000000001 156 "stat"
366.0000000000002 156 "LONGMULT2"
432.00000000000045 156 "get"
458.40000000000055 156 "C"
471.6000000000006 156 "2);"
75.6 168 "p(stat counter, |"
181.1999999999999 168 "<<LONGMULT2"
260.39999999999986 168 "put"
286.79999999999995 168 "A"
300 168 "|"
300 168 ">,"
319.80000000000007 168 "stat"
352.8000000000002 168 "LONGMULT2"
418.8000000000004 168 "put"
445.2000000000005 168 "A);"
75.6 180 "p(stat counter, |"
181.1999999999999 180 "<<LONGMULT2"
260.39999999999986 180 "put"
286.79999999999995 180 "B"
300 180 "|"
300 180 ">,"
319.80000000000007 180 "stat"
352.8000000000002 180 "LONGMULT2"
418.8000000000004 180 "put"
445.2000000000005 180 "B);"
75.6 192 "p(stat counter, |"
181.1999999999999 192 "<<LONGMULT2"
260.39999999999986 192 "put"
286.79999999999995 192 "C"
300 192 "1"
313.20000000000005 192 "|"
313.20000000000005 192 ">,"
333.0000000000001 192 "stat"
366.0000000000002 192 "LONGMULT2"
432.00000000000045 192 "put"
458.40000000000055 192 "C"
471.6000000000006 192 "1);"
75.6 204 "p(stat counter, |"
181.1999999999999 204 "<<LONGMULT2"
260.39999999999986 204 "put"
286.79999999999995 204 "C"
300 204 "2"
313.20000000000005 204 "|"
313.20000000000005 204 ">,"
333.0000000000001 204 "stat"
366.0000000000002 204 "LONGMULT2"
432.00000000000045 204 "put"
458.40000000000055 204 "C"
471.6000000000006 204 "2);"
75.6 216 "p(stat counter, |"
181.1999999999999 216 "<<LONGMULT2"
260.39999999999986 216 "put"
286.79999999999995 216 "C"
300 216 "3"
313.20000000000005 216 "|"
313.20000000000005 216 ">,"
333.0000000000001 216 "stat"
366.0000000000002 216 "LONGMULT2"
432.00000000000045 216 "put"
458.40000000000055 216 "C"
471.6000000000006 216 "3);"
75.6 228 "p(stat counter, |"
181.1999999999999 228 "<<LONGDIVIDE2"
273.5999999999999 228 "get"
300 228 "A"
313.20000000000005 228 "1|"
319.80000000000007 228 ">,"
339.60000000000014 228 "stat"
372.60000000000025 228 "LONGDIVIDE2"
451.8000000000005 228 "get"
478.2000000000006 228 "A"
491.40000000000066 228 "1);"
75.6 240 "p(stat counter, |"
181.1999999999999 240 "<<LONGDIVIDE2"
273.5999999999999 240 "get"
300 240 "A"
313.20000000000005 240 "2|"
319.80000000000007 240 ">,"
339.60000000000014 240 "stat"
372.60000000000025 240 "LONGDIVIDE2"
451.8000000000005 240 "get"
478.2000000000006 240 "A"
491.40000000000066 240 "2);"
75.6 252 "p(stat counter, |"
181.1999999999999 252 "<<LONGDIVIDE2"
273.5999999999999 252 "get"
300 252 "A"
313.20000000000005 252 "3|"
319.80000000000007 252 ">,"
339.60000000000014 252 "stat"
372.60000000000025 252 "LONGDIVIDE2"
451.8000000000005 252 "get"
478.2000000000006 252 "A"
491.40000000000066 252 "3);"
75.6 264 "p(stat counter, |"
181.1999999999999 264 "<<LONGDIVIDE2"
273.5999999999999 264 "get"
300 264 "A"
313.20000000000005 264 "4|"
319.80000000000007 264 ">,"
339.60000000000014 264 "stat"
372.60000000000025 264 "LONGDIVIDE2"
451.8000000000005 264 "get"
478.2000000000006 264 "A"
491.40000000000066 264 "4);"
75.6 276 "p(stat counter, |"
181.1999999999999 276 "<<LONGDIVIDE2"
273.5999999999999 276 "get"
300 276 "A"
313.20000000000005 276 "5|"
319.80000000000007 276 ">,"
339.60000000000014 276 "stat"
372.60000000000025 276 "LONGDIVIDE2"
451.8000000000005 276 "get"
478.2000000000006 276 "A"
491.40000000000066 276 "5);"
75.6 288 "p(stat counter, |"
181.1999999999999 288 "<<LONGDIVIDE2"
273.5999999999999 288 "get"
300 288 "B"
313.20000000000005 288 "1|"
319.80000000000007 288 ">,"
339.60000000000014 288 "stat"
372.60000000000025 288 "LONGDIVIDE2"
451.8000000000005 288 "get"
478.2000000000006 288 "B"
491.40000000000066 288 "1);"
75.6 300 "p(stat counter, |"
181.1999999999999 300 "<<LONGDIVIDE2"
273.5999999999999 300 "get"
300 300 "B"
313.20000000000005 300 "2|"
319.80000000000007 300 ">,"
339.60000000000014 300 "stat"
372.60000000000025 300 "LONGDIVIDE2"
451.8000000000005 300 "get"
478.2000000000006 300 "B"
491.40000000000066 300 "2);"
75.6 312 "p(stat counter, |"
181.1999999999999 312 "<<LONGDIVIDE2"
273.5999999999999 312 "get"
300 312 "B"
313.20000000000005 312 "3|"
319.80000000000007 312 ">,"
339.60000000000014 312 "stat"
372.60000000000025 312 "LONGDIVIDE2"
451.8000000000005 312 "get"
478.2000000000006 312 "B"
491.40000000000066 312 "3);"
75.6 324 "p(stat counter, |"
181.1999999999999 324 "<<LONGDIVIDE2"
273.5999999999999 324 "put"
300 324 "A"
313.20000000000005 324 "1|"
319.80000000000007 324 ">,"
339.60000000000014 324 "stat"
372.60000000000025 324 "LONGDIVIDE2"
451.8000000000005 324 "put"
478.2000000000006 324 "A"
491.40000000000066 324 "1);"
75.6 336 "p(stat counter, |"
181.1999999999999 336 "<<LONGDIVIDE2"
273.5999999999999 336 "put"
300 336 "A"
313.20000000000005 336 "2|"
319.80000000000007 336 ">,"
339.60000000000014 336 "stat"
372.60000000000025 336 "LONGDIVIDE2"
451.8000000000005 336 "put"
478.2000000000006 336 "A"
491.40000000000066 336 "2);"
75.6 348 "p(stat counter, |"
181.1999999999999 348 "<<LONGDIVIDE2"
273.5999999999999 348 "put"
300 348 "A"
313.20000000000005 348 "3|"
319.80000000000007 348 ">,"
339.60000000000014 348 "stat"
372.60000000000025 348 "LONGDIVIDE2"
451.8000000000005 348 "put"
478.2000000000006 348 "A"
491.40000000000066 348 "3);"
75.6 360 "p(stat counter, |"
181.1999999999999 360 "<<LONGDIVIDE2"
273.5999999999999 360 "put"
300 360 "A"
313.20000000000005 360 "4|"
319.80000000000007 360 ">,"
339.60000000000014 360 "stat"
372.60000000000025 360 "LONGDIVIDE2"
451.8000000000005 360 "put"
478.2000000000006 360 "A"
491.40000000000066 360 "4);"
75.6 372 "p(stat counter, |"
181.1999999999999 372 "<<LONGDIVIDE2"
273.5999999999999 372 "put"
300 372 "A"
313.20000000000005 372 "5|"
319.80000000000007 372 ">,"
339.60000000000014 372 "stat"
372.60000000000025 372 "LONGDIVIDE2"
451.8000000000005 372 "put"
478.2000000000006 372 "A"
491.40000000000066 372 "5);"
75.6 384 "p(stat counter, |"
181.1999999999999 384 "<<LONGDIVIDE2"
273.5999999999999 384 "put"
300 384 "C"
313.20000000000005 384 "1|"
319.80000000000007 384 ">,"
339.60000000000014 384 "stat"
372.60000000000025 384 "LONGDIVIDE2"
451.8000000000005 384 "put"
478.2000000000006 384 "C"
491.40000000000066 384 "1);"
75.6 396 "p(stat counter, |"
181.1999999999999 396 "<<LONGDIVIDE2"
273.5999999999999 396 "put"
300 396 "C"
313.20000000000005 396 "2|"
319.80000000000007 396 ">,"
339.60000000000014 396 "stat"
372.60000000000025 396 "LONGDIVIDE2"
451.8000000000005 396 "put"
478.2000000000006 396 "C"
491.40000000000066 396 "2);"
75.6 408 "p(stat counter, |"
181.1999999999999 408 "<<LONGMULT get"
280.19999999999993 408 "B"
293.4 408 "1"
306.6 408 "|"
306.6 408 ">,"
326.4000000000001 408 "stat"
359.4000000000002 408 "LONGMULT"
418.8000000000004 408 "get"
445.2000000000005 408 "B"
458.40000000000055 408 "1);"
75.6 420 "p(stat counter, |"
181.1999999999999 420 "<<LONGMULT get"
280.19999999999993 420 "B"
293.4 420 "2"
306.6 420 "|"
306.6 420 ">,"
326.4000000000001 420 "stat"
359.4000000000002 420 "LONGMULT"
418.8000000000004 420 "get"
445.2000000000005 420 "B"
458.40000000000055 420 "2);"
75.6 432 "p(stat counter, |"
181.1999999999999 432 "<<LONGMULT get"
280.19999999999993 432 "RES"
306.6 432 "1|"
313.20000000000005 432 ">,"
333.0000000000001 432 "stat"
366.0000000000002 432 "LONGMULT"
425.40000000000043 432 "get"
451.8000000000005 432 "RES"
478.2000000000006 432 "1);"
75.6 444 "p(stat counter, |"
181.1999999999999 444 "<<LONGMULT get"
280.19999999999993 444 "RES"
306.6 444 "2|"
313.20000000000005 444 ">,"
333.0000000000001 444 "stat"
366.0000000000002 444 "LONGMULT"
425.40000000000043 444 "get"
451.8000000000005 444 "RES"
478.2000000000006 444 "2);"
75.6 456 "p(stat counter, |"
181.1999999999999 456 "<<LONGMULT put"
280.19999999999993 456 "RES"
306.6 456 "|"
306.6 456 ">,"
326.4000000000001 456 "stat"
359.4000000000002 456 "LONGMULT"
418.8000000000004 456 "put"
445.2000000000005 456 "RES);"
55.800000000000004 468 "_"
55.800000000000004 468 "e_"
62.4 468 "n_"
69 468 "d STATISTICS PROCESS;"
55.800000000000004 480 "_"
55.800000000000004 480 "p_"
62.4 480 "r_"
69 480 "o_"
75.6 480 "c_"
82.19999999999999 480 "e_"
88.79999999999998 480 "d_"
95.39999999999998 480 "u_"
101.99999999999997 480 "r_"
108.59999999999997 480 "e STATISTICS INIT;"
55.800000000000004 492 "_"
55.800000000000004 492 "b_"
62.4 492 "e_"
69 492 "g_"
75.6 492 "i_"
82.19999999999999 492 "n"
75.6 504 "_"
75.6 504 "p_"
82.19999999999999 504 "r_"
88.79999999999998 504 "o_"
95.39999999999998 504 "c_"
101.99999999999997 504 "e_"
108.59999999999997 504 "d_"
115.19999999999996 504 "u_"
121.79999999999995 504 "r_"
128.39999999999995 504 "e init( c, t, s );"
75.6 516 "_"
75.6 516 "v_"
82.19999999999999 516 "a_"
88.79999999999998 516 "l_"
95.39999999999998 516 "u_"
101.99999999999997 516 "e c;"
75.6 528 "_"
75.6 528 "i_"
82.19999999999999 528 "n_"
88.79999999999998 528 "t_"
95.39999999999998 528 "e_"
101.99999999999997 528 "g_"
108.59999999999997 528 "e_"
115.19999999999996 528 "r c, s;"
75.6 540 "_"
75.6 540 "s_"
82.19999999999999 540 "t_"
88.79999999999998 540 "r_"
95.39999999999998 540 "i_"
101.99999999999997 540 "n_"
108.59999999999997 540 "g t;"
75.6 552 "_"
75.6 552 "b_"
82.19999999999999 552 "e_"
88.79999999999998 552 "g_"
95.39999999999998 552 "i_"
101.99999999999997 552 "n"
95.39999999999998 564 "s := 0"
75.6 576 "_"
75.6 576 "e_"
82.19999999999999 576 "n_"
88.79999999999998 576 "d init;"
75.6 588 "STATISTICS PROCESS( init )"
55.800000000000004 600 "_"
55.800000000000004 600 "e_"
62.4 600 "n_"
69 600 "d STATISTICS INIT;"
55.800000000000004 612 "_"
55.800000000000004 612 "i_"
62.4 612 "n_"
69 612 "t_"
75.6 612 "e_"
82.19999999999999 612 "g_"
88.79999999999998 612 "e_"
95.39999999999998 612 "r _"
108.59999999999997 612 "p_"
115.19999999999996 612 "r_"
121.79999999999995 612 "o_"
128.39999999999995 612 "c_"
134.99999999999994 612 "e_"
141.59999999999994 612 "d_"
148.19999999999993 612 "u_"
154.79999999999993 612 "r_"
161.39999999999992 612 "e STATISTICS PRINT;"
55.800000000000004 624 "_"
55.800000000000004 624 "b_"
62.4 624 "e_"
69 624 "g_"
75.6 624 "i_"
82.19999999999999 624 "n"
75.6 636 "_"
75.6 636 "p_"
82.19999999999999 636 "r_"
88.79999999999998 636 "o_"
95.39999999999998 636 "c_"
101.99999999999997 636 "e_"
108.59999999999997 636 "d_"
115.19999999999996 636 "u_"
121.79999999999995 636 "r_"
128.39999999999995 636 "e print( c, t, s );"
75.6 648 "_"
75.6 648 "v_"
82.19999999999999 648 "a_"
88.79999999999998 648 "l_"
95.39999999999998 648 "u_"
101.99999999999997 648 "e c;"
75.6 660 "_"
75.6 660 "i_"
82.19999999999999 660 "n_"
88.79999999999998 660 "t_"
95.39999999999998 660 "e_"
101.99999999999997 660 "g_"
108.59999999999997 660 "e_"
115.19999999999996 660 "r c, s;"
75.6 672 "_"
75.6 672 "s_"
82.19999999999999 672 "t_"
88.79999999999998 672 "r_"
95.39999999999998 672 "i_"
101.99999999999997 672 "n_"
108.59999999999997 672 "g t;"
75.6 684 "_"
75.6 684 "b_"
82.19999999999999 684 "e_"
88.79999999999998 684 "g_"
95.39999999999998 684 "i_"
101.99999999999997 684 "n"
95.39999999999998 696 "LINE;"
95.39999999999998 708 "writetext( t );"
95.39999999999998 720 "writetext( |"
167.99999999999991 720 "<<: |"
194.3999999999999 720 "> );"
95.39999999999998 732 "writeinteger( |"
187.7999999999999 732 "<−dddddd|"
240.59999999999985 732 ">,"
260.39999999999986 732 "s"
273.5999999999999 732 ")"
75.6 744 "_"
75.6 744 "e_"
82.19999999999999 744 "n_"
88.79999999999998 744 "d init;"
75.6 756 "STATISTICS PROCESS( print )"
55.800000000000004 768 "_"
55.800000000000004 768 "e_"
62.4 768 "n_"
69 768 "d STATISTICS INIT;"
55.800000000000004 780 "_"
55.800000000000004 780 "i_"
62.4 780 "n_"
69 780 "t_"
75.6 780 "e_"
82.19999999999999 780 "g_"
88.79999999999998 780 "e_"
95.39999999999998 780 "r _"
108.59999999999997 780 "p_"
115.19999999999996 780 "r_"
121.79999999999995 780 "o_"
128.39999999999995 780 "c_"
134.99999999999994 780 "e_"
141.59999999999994 780 "d_"
148.19999999999993 780 "u_"
154.79999999999993 780 "r_"
161.39999999999992 780 "e ASSIGN(x, A,"
260.39999999999986 780 "asize,"
306.6 780 "na);"
55.800000000000004 792 "_"
55.800000000000004 792 "v_"
62.4 792 "a_"
69 792 "l_"
75.6 792 "u_"
82.19999999999999 792 "e x, na;"
55.800000000000004 36 "_"
55.800000000000004 36 "i_"
62.4 36 "n_"
69 36 "t_"
75.6 36 "e_"
82.19999999999999 36 "g_"
88.79999999999998 36 "e_"
95.39999999999998 36 "r asize, na;"
55.800000000000004 48 "_"
55.800000000000004 48 "r_"
62.4 48 "e_"
69 48 "a_"
75.6 48 "l x;"
55.800000000000004 60 "_"
55.800000000000004 60 "i_"
62.4 60 "n_"
69 60 "t_"
75.6 60 "e_"
82.19999999999999 60 "g_"
88.79999999999998 60 "e_"
95.39999999999998 60 "r _"
108.59999999999997 60 "a_"
115.19999999999996 60 "r_"
121.79999999999995 60 "r_"
128.39999999999995 60 "a_"
134.99999999999994 60 "y A;"
55.800000000000004 72 "_"
55.800000000000004 72 "b_"
62.4 72 "e_"
69 72 "g_"
75.6 72 "i_"
82.19999999999999 72 "n"
75.6 84 "_"
75.6 84 "i_"
82.19999999999999 84 "n_"
88.79999999999998 84 "t_"
95.39999999999998 84 "e_"
101.99999999999997 84 "g_"
108.59999999999997 84 "e_"
115.19999999999996 84 "r c1, c2, t1, t2, cell1,"
280.19999999999993 84 "cell2;"
75.6 96 "x := abs(x);"
75.6 108 "c1 := c39;"
75.6 120 "_"
75.6 120 "f_"
82.19999999999999 120 "o_"
88.79999999999998 120 "r count := 0 _"
174.5999999999999 120 "s_"
181.1999999999999 120 "t_"
187.7999999999999 120 "e_"
194.3999999999999 120 "p 1 _"
220.79999999999987 120 "u_"
227.39999999999986 120 "n_"
233.99999999999986 120 "t_"
240.59999999999985 120 "i_"
247.19999999999985 120 "l"
260.39999999999986 120 "c1"
280.19999999999993 120 "_"
280.19999999999993 120 "d_"
286.79999999999995 120 "o"
300 120 "A[count]"
359.4000000000002 120 ":="
379.2000000000003 120 "0;"
75.6 132 "_"
75.6 132 "i_"
82.19999999999999 132 "f x = 0 _"
134.99999999999994 132 "t_"
141.59999999999994 132 "h_"
148.19999999999993 132 "e_"
154.79999999999993 132 "n"
75.6 144 "_"
75.6 144 "b_"
82.19999999999999 144 "e_"
88.79999999999998 144 "g_"
95.39999999999998 144 "i_"
101.99999999999997 144 "n"
95.39999999999998 156 "asize := c1 := c2 := cell1"
273.5999999999999 156 ":="
293.4 156 "cell2"
333.0000000000001 156 ":="
352.8000000000002 156 "0;"
95.39999999999998 168 "_"
95.39999999999998 168 "g_"
101.99999999999997 168 "o_ _"
115.19999999999996 168 "t_"
121.79999999999995 168 "o L1"
75.6 180 "_"
75.6 180 "e_"
82.19999999999999 180 "n_"
88.79999999999998 180 "d if x = 0;"
75.6 192 "_"
75.6 192 "c_"
82.19999999999999 192 "o_"
88.79999999999998 192 "m_"
95.39999999999998 192 "m_"
101.99999999999997 192 "e_"
108.59999999999997 192 "n_"
115.19999999999996 192 "t Normalize x so that"
260.39999999999986 192 "1"
267 194 "10"
273.6 192 "10"
293.4000000000001 192 ">"
306.60000000000014 192 "x"
319.8000000000002 192 "_"
319.8000000000002 192 ">"
333.0000000000002 192 "1;"
75.60000000000002 204 "asize := 0;"
75.60000000000002 216 "_"
75.60000000000002 216 "i_"
82.20000000000002 216 "f x _"
108.6 216 "> MODUL _"
161.39999999999995 216 "t_"
167.99999999999994 216 "h_"
174.59999999999994 216 "e_"
181.19999999999993 216 "n"
75.60000000000002 228 "_"
75.60000000000002 228 "b_"
82.20000000000002 228 "e_"
88.80000000000001 228 "g_"
95.4 228 "i_"
102 228 "n"
49.20000000000003 240 "_"
49.20000000000003 240 "f_"
55.80000000000003 240 "o_"
62.40000000000003 240 "r x := x _"
121.79999999999998 240 "w_"
128.39999999999998 240 "h_"
134.99999999999997 240 "i_"
141.59999999999997 240 "l_"
148.19999999999996 240 "e x _"
174.59999999999994 240 "> MODUL _"
227.3999999999999 240 "d_"
233.9999999999999 240 "o"
49.20000000000003 252 "_"
49.20000000000003 252 "b_"
55.80000000000003 252 "e_"
62.40000000000003 252 "g_"
69.00000000000003 252 "i_"
75.60000000000002 252 "n"
69.00000000000003 264 "asize := asize+1;"
69.00000000000003 276 "x := x/MODUL"
49.20000000000003 288 "_"
49.20000000000003 288 "e_"
55.80000000000003 288 "n_"
62.40000000000003 288 "d"
75.60000000000002 300 "_"
75.60000000000002 300 "e_"
82.20000000000002 300 "n_"
88.80000000000001 300 "d"
75.60000000000002 312 "_"
75.60000000000002 312 "e_"
82.20000000000002 312 "l_"
88.80000000000001 312 "s_"
95.4 312 "e _"
108.6 312 "i_"
115.19999999999999 312 "f x < 1 _"
167.99999999999994 312 "t_"
174.59999999999994 312 "h_"
181.19999999999993 312 "e_"
187.79999999999993 312 "n"
75.60000000000002 324 "_"
75.60000000000002 324 "f_"
82.20000000000002 324 "o_"
88.80000000000001 324 "r x := x _"
148.19999999999996 324 "w_"
154.79999999999995 324 "h_"
161.39999999999995 324 "i_"
167.99999999999994 324 "l_"
174.59999999999994 324 "e x < 1 _"
227.3999999999999 324 "d_"
233.9999999999999 324 "o"
75.60000000000002 336 "_"
75.60000000000002 336 "b_"
82.20000000000002 336 "e_"
88.80000000000001 336 "g_"
95.4 336 "i_"
102 336 "n"
95.4 348 "asize := asize−1;"
49.20000000000003 360 "x"
62.400000000000034 360 ":= x"
88.80000000000003 360 "×"
95.40000000000002 360 "MODUL"
75.60000000000002 372 "_"
75.60000000000002 372 "e_"
82.20000000000002 372 "n_"
88.80000000000001 372 "d;"
75.60000000000002 384 "_"
75.60000000000002 384 "i_"
82.20000000000002 384 "f asize > limit _"
187.79999999999993 384 "t_"
194.39999999999992 384 "h_"
200.99999999999991 384 "e_"
207.5999999999999 384 "n ALARM(|"
260.39999999999986 384 "<<ASSIGN|"
313.20000000000005 384 ">);"
75.60000000000002 396 "cell1 := entier(x);"
75.60000000000002 408 "cell2 := (x − cell1)"
207.60000000000002 408 "×"
214.20000000000002 408 "MODUL;"
75.60000000000002 420 "c1 := asize − decimals;"
75.60000000000002 432 "c2 := c1 − 1;"
75.60000000000002 444 "_"
75.60000000000002 444 "i_"
82.20000000000002 444 "f c2 < 0 _"
141.59999999999997 444 "t_"
148.19999999999996 444 "h_"
154.79999999999995 444 "e_"
161.39999999999995 444 "n"
75.60000000000002 456 "_"
75.60000000000002 456 "b_"
82.20000000000002 456 "e_"
88.80000000000001 456 "g_"
95.4 456 "i_"
102 456 "n"
95.4 468 "c2 := c1;"
95.4 480 "cell2 := cell1"
75.60000000000002 492 "_"
75.60000000000002 492 "e_"
82.20000000000002 492 "n_"
88.80000000000001 492 "d if c2 < 0;"
75.60000000000002 504 "_"
75.60000000000002 504 "i_"
82.20000000000002 504 "f c1 < 0 _"
141.59999999999997 504 "t_"
148.19999999999996 504 "h_"
154.79999999999995 504 "e_"
161.39999999999995 504 "n c1 := c2 := cell1"
293.4 504 ":="
313.20000000000005 504 "cell2"
352.8000000000002 504 ":="
372.60000000000025 504 "0;"
36.00000000000003 516 "L1:"
62.400000000000034 516 "_"
62.40000000000003 516 "i_"
69.00000000000003 516 "f large _"
121.79999999999998 516 "t_"
128.39999999999998 516 "h_"
134.99999999999997 516 "e_"
141.59999999999997 516 "n"
75.60000000000002 528 "_"
75.60000000000002 528 "b_"
82.20000000000002 528 "e_"
88.80000000000001 528 "g_"
95.4 528 "i_"
102 528 "n"
95.4 540 "t1 := 1 + c1_"
174.59999999999994 540 ":40;"
95.4 552 "t2 := 1 + c2_"
174.59999999999994 552 ":40;"
95.4 564 "c1 := c1 _"
154.79999999999995 564 "m_"
161.39999999999995 564 "o_"
167.99999999999994 564 "d 40;"
95.4 576 "c2 := c2 _"
154.79999999999995 576 "m_"
161.39999999999995 576 "o_"
167.99999999999994 576 "d 40;"
95.4 588 "_"
95.4 588 "f_"
102 588 "o_"
108.6 588 "r count := 1 _"
194.39999999999992 588 "s_"
200.99999999999991 588 "t_"
207.5999999999999 588 "e_"
214.1999999999999 588 "p 1 _"
240.59999999999988 588 "u_"
247.19999999999987 588 "n_"
253.79999999999987 588 "t_"
260.39999999999986 588 "i_"
266.9999999999999 588 "l"
280.19999999999993 588 "step"
313.20000000000005 588 "_"
313.20000000000005 588 "d_"
319.80000000000007 588 "o"
95.4 600 "_"
95.4 600 "b_"
102 600 "e_"
108.6 600 "g_"
115.19999999999999 600 "i_"
121.79999999999998 600 "n"
115.19999999999999 612 "_"
115.19999999999999 612 "i_"
121.79999999999998 612 "f count = t1 _"
207.5999999999999 612 "t_"
214.1999999999999 612 "h_"
220.7999999999999 612 "e_"
227.3999999999999 612 "n"
115.19999999999999 624 "_"
115.19999999999999 624 "b_"
121.79999999999998 624 "e_"
128.39999999999998 624 "g_"
134.99999999999997 624 "i_"
141.59999999999997 624 "n"
134.99999999999997 636 "A[c1] := cell1;"
134.99999999999997 648 "_"
134.99999999999997 648 "i_"
141.59999999999997 648 "f t1 |"
174.59999999999994 648 "= t2 _"
207.5999999999999 648 "t_"
214.1999999999999 648 "h_"
220.7999999999999 648 "e_"
227.3999999999999 648 "n"
134.99999999999997 660 "_"
134.99999999999997 660 "b_"
141.59999999999997 660 "e_"
148.19999999999996 660 "g_"
154.79999999999995 660 "i_"
161.39999999999995 660 "n"
154.79999999999995 672 "put(A, FREE, na"
253.80000000000004 672 "×"
260.40000000000003 672 "step"
293.40000000000015 672 "+"
306.6000000000002 672 "t1);"
154.79999999999995 684 "A[c1] := 0;"
154.79999999999995 696 "A[c2] := cell2;"
154.79999999999995 708 "put(A, FREE, na"
253.80000000000004 708 "×"
260.40000000000003 708 "step"
293.40000000000015 708 "+"
306.6000000000002 708 "t2)"
134.99999999999997 720 "_"
134.99999999999997 720 "e_"
141.59999999999997 720 "n_"
148.19999999999996 720 "d different track"
134.99999999999997 732 "_"
134.99999999999997 732 "e_"
141.59999999999997 732 "l_"
148.19999999999996 732 "s_"
154.79999999999995 732 "e"
134.99999999999997 744 "_"
134.99999999999997 744 "b_"
141.59999999999997 744 "e_"
148.19999999999996 744 "g_"
154.79999999999995 744 "i_"
161.39999999999995 744 "n"
154.79999999999995 756 "A[c2] := cell2;"
154.79999999999995 768 "put(A, FREE, na"
253.80000000000004 768 "×"
260.40000000000003 768 "step"
293.40000000000015 768 "+"
306.6000000000002 768 "t1)"
134.99999999999997 780 "_"
134.99999999999997 780 "e_"
141.59999999999997 780 "n_"
148.19999999999996 780 "d same track;"
134.99999999999997 792 "A[c1] := A[c2] := 0"
115.19999999999996 36 "_"
115.19999999999996 36 "e_"
121.79999999999995 36 "n_"
128.39999999999995 36 "d this track"
115.19999999999996 48 "_"
115.19999999999996 48 "e_"
121.79999999999995 48 "l_"
128.39999999999995 48 "s_"
134.99999999999994 48 "e"
115.19999999999996 60 "put(A, FREE, na"
214.2 60 "×"
220.79999999999998 60 "step +"
267 60 "count)"
95.39999999999995 72 "_"
95.39999999999995 72 "e_"
101.99999999999994 72 "n_"
108.59999999999994 72 "d for count"
75.59999999999997 84 "_"
75.59999999999997 84 "e_"
82.19999999999996 84 "n_"
88.79999999999995 84 "d if large"
75.59999999999997 96 "_"
75.59999999999997 96 "e_"
82.19999999999996 96 "l_"
88.79999999999995 96 "s_"
95.39999999999995 96 "e"
75.59999999999997 108 "_"
75.59999999999997 108 "b_"
82.19999999999996 108 "e_"
88.79999999999995 108 "g_"
95.39999999999995 108 "i_"
101.99999999999994 108 "n"
95.39999999999995 120 "A[c1] := cell1;"
95.39999999999995 132 "A[c2] := cell2"
75.59999999999997 144 "_"
75.59999999999997 144 "e_"
82.19999999999996 144 "n_"
88.79999999999995 144 "d core"
55.799999999999976 156 "_"
55.799999999999976 156 "e_"
62.39999999999997 156 "n_"
68.99999999999997 156 "d ASSIGN;"
55.799999999999976 168 "_"
55.799999999999976 168 "i_"
62.39999999999997 168 "n_"
68.99999999999997 168 "t_"
75.59999999999997 168 "e_"
82.19999999999996 168 "g_"
88.79999999999995 168 "e_"
95.39999999999995 168 "r _"
108.59999999999994 168 "p_"
115.19999999999993 168 "r_"
121.79999999999993 168 "o_"
128.39999999999992 168 "c_"
134.99999999999991 168 "e_"
141.5999999999999 168 "d_"
148.1999999999999 168 "u_"
154.7999999999999 168 "r_"
161.3999999999999 168 "e MULT(A, asize,"
273.59999999999985 168 "na,"
299.99999999999994 168 "n);"
55.799999999999976 180 "_"
55.799999999999976 180 "v_"
62.39999999999997 180 "a_"
68.99999999999997 180 "l_"
75.59999999999997 180 "u_"
82.19999999999996 180 "e na, n;"
55.799999999999976 192 "_"
55.799999999999976 192 "i_"
62.39999999999997 192 "n_"
68.99999999999997 192 "t_"
75.59999999999997 192 "e_"
82.19999999999996 192 "g_"
88.79999999999995 192 "e_"
95.39999999999995 192 "r asize, na, n;"
55.799999999999976 204 "_"
55.799999999999976 204 "i_"
62.39999999999997 204 "n_"
68.99999999999997 204 "t_"
75.59999999999997 204 "e_"
82.19999999999996 204 "g_"
88.79999999999995 204 "e_"
95.39999999999995 204 "r _"
108.59999999999994 204 "a_"
115.19999999999993 204 "r_"
121.79999999999993 204 "r_"
128.39999999999992 204 "a_"
134.99999999999991 204 "y A;"
55.799999999999976 216 "_"
55.799999999999976 216 "b_"
62.39999999999997 216 "e_"
68.99999999999997 216 "g_"
75.59999999999997 216 "i_"
82.19999999999996 216 "n"
75.59999999999997 228 "_"
75.59999999999997 228 "i_"
82.19999999999996 228 "n_"
88.79999999999995 228 "t_"
95.39999999999995 228 "e_"
101.99999999999994 228 "g_"
108.59999999999994 228 "e_"
115.19999999999993 228 "r c, ta, c1, asize0;"
75.59999999999997 240 "asize0 := asize;"
75.59999999999997 252 "carry := c := 0;"
75.59999999999997 264 "ta := na"
128.39999999999998 264 "×"
134.99999999999997 264 "step + 1;"
75.59999999999997 276 "_"
75.59999999999997 276 "i_"
82.19999999999996 276 "f large _"
134.99999999999991 276 "t_"
141.5999999999999 276 "h_"
148.1999999999999 276 "e_"
154.7999999999999 276 "n get(A, FREE, ta);"
75.59999999999997 288 "c1 := limit − decimals;"
75.59999999999997 300 "_"
75.59999999999997 300 "f_"
82.19999999999996 300 "o_"
88.79999999999995 300 "r count := 0 _"
174.59999999999988 300 "s_"
181.19999999999987 300 "t_"
187.79999999999987 300 "e_"
194.39999999999986 300 "p 1 _"
220.79999999999984 300 "u_"
227.39999999999984 300 "n_"
233.99999999999983 300 "t_"
240.59999999999982 300 "i_"
247.19999999999982 300 "l c1"
280.1999999999999 300 "_"
280.1999999999999 300 "d_"
286.7999999999999 300 "o"
75.59999999999997 312 "_"
75.59999999999997 312 "b_"
82.19999999999996 312 "e_"
88.79999999999995 312 "g_"
95.39999999999995 312 "i_"
101.99999999999994 312 "n"
95.39999999999995 324 "cell := _"
148.1999999999999 324 "i_"
154.7999999999999 324 "f count > asize0"
266.99999999999983 324 "−"
280.1999999999999 324 "decimals"
339.6000000000001 324 "_"
339.6000000000001 324 "t_"
346.2000000000001 324 "h_"
352.8000000000001 324 "e_"
359.40000000000015 324 "n"
372.6000000000002 324 "0"
385.80000000000024 324 "_"
385.80000000000024 324 "e_"
392.40000000000026 324 "l_"
399.0000000000003 324 "s_"
405.6000000000003 324 "e"
418.80000000000035 324 "A[c];"
95.39999999999995 336 "_"
95.39999999999995 336 "c_"
101.99999999999994 336 "o_"
108.59999999999994 336 "d_"
115.19999999999993 336 "e cell, MODUL, carry, n;"
95.39999999999995 348 "2, 44;"
95.39999999999995 360 "2, 44;"
95.39999999999995 372 "2, 44;"
95.39999999999995 384 "3, 44;"
95.39999999999995 396 "arn a3, pm a1 ; R := carry,"
280.1999999999999 396 "M"
293.3999999999999 396 ":="
313.2 396 "cell"
95.39999999999995 408 "ml p+a4,dl a2 ; RM := (carry+cell"
313.19999999999993 408 "×"
319.79999999999995 408 "n)/MODUL"
95.39999999999992 420 "gr a3, gm a1 ; carry := quotient,"
319.8 420 "cell"
352.8000000000001 420 ":="
372.6000000000002 420 "rem."
95.39999999999992 432 "_"
95.39999999999992 432 "e ;"
95.39999999999992 444 "A[c] := cell;"
95.39999999999992 456 "c := c + 1;"
95.39999999999992 468 "_"
95.39999999999992 468 "i_"
101.99999999999991 468 "f large _"
154.79999999999987 468 "t_"
161.39999999999986 468 "h_"
167.99999999999986 468 "e_"
174.59999999999985 468 "n"
95.39999999999992 480 "_"
95.39999999999992 480 "b_"
101.99999999999991 480 "e_"
108.59999999999991 480 "g_"
115.1999999999999 480 "i_"
121.7999999999999 480 "n"
115.1999999999999 492 "_"
115.1999999999999 492 "i_"
121.7999999999999 492 "f c = 40 _"
181.19999999999985 492 "t_"
187.79999999999984 492 "h_"
194.39999999999984 492 "e_"
200.99999999999983 492 "n"
115.1999999999999 504 "_"
115.1999999999999 504 "b_"
121.7999999999999 504 "e_"
128.3999999999999 504 "g_"
134.9999999999999 504 "i_"
141.59999999999988 504 "n"
134.9999999999999 516 "c := 0;"
134.9999999999999 528 "put(A, FREE, ta);"
134.9999999999999 540 "ta := ta + 1;"
134.9999999999999 552 "get(A, FREE, ta)"
115.1999999999999 564 "_"
115.1999999999999 564 "e_"
121.7999999999999 564 "n_"
128.3999999999999 564 "d if c = 40"
95.39999999999992 576 "_"
95.39999999999992 576 "e_"
101.99999999999991 576 "n_"
108.59999999999991 576 "d if large;"
95.39999999999992 588 "_"
95.39999999999992 588 "i_"
101.99999999999991 588 "f count = asize − decimals"
280.1999999999999 588 "_"
280.1999999999999 588 "t_"
286.7999999999999 588 "h_"
293.3999999999999 588 "e_"
299.99999999999994 588 "n"
95.39999999999992 600 "_"
95.39999999999992 600 "b_"
101.99999999999991 600 "e_"
108.59999999999991 600 "g_"
115.1999999999999 600 "i_"
121.7999999999999 600 "n"
115.1999999999999 612 "_"
115.1999999999999 612 "i_"
121.7999999999999 612 "f carry = 0 _"
200.99999999999983 612 "t_"
207.59999999999982 612 "h_"
214.19999999999982 612 "e_"
220.7999999999998 612 "n _"
233.9999999999998 612 "g_"
240.5999999999998 612 "o_ _"
253.7999999999998 612 "t_"
260.3999999999998 612 "o"
273.59999999999985 612 "EX"
115.1999999999999 624 "_"
115.1999999999999 624 "e_"
121.7999999999999 624 "l_"
128.3999999999999 624 "s_"
134.9999999999999 624 "e"
115.1999999999999 636 "_"
115.1999999999999 636 "i_"
121.7999999999999 636 "f count < c1 _"
207.59999999999982 636 "t_"
214.19999999999982 636 "h_"
220.7999999999998 636 "e_"
227.3999999999998 636 "n asize"
280.1999999999999 636 ":="
299.99999999999994 636 "asize"
339.6000000000001 636 "+"
352.8000000000001 636 "1"
115.1999999999999 648 "_"
115.1999999999999 648 "e_"
121.7999999999999 648 "l_"
128.3999999999999 648 "s_"
134.9999999999999 648 "e ALARM(|"
187.79999999999984 648 "<<MULT|"
227.3999999999998 648 ">)"
95.39999999999992 660 "_"
95.39999999999992 660 "e_"
101.99999999999991 660 "n_"
108.59999999999991 660 "d if asize"
75.59999999999994 672 "_"
75.59999999999994 672 "e_"
82.19999999999993 672 "n_"
88.79999999999993 672 "d for count;"
35.99999999999994 684 "EX:"
62.39999999999995 684 "_"
62.39999999999994 684 "i_"
68.99999999999994 684 "f large _"
121.7999999999999 684 "t_"
128.3999999999999 684 "h_"
134.9999999999999 684 "e_"
141.59999999999988 684 "n put(A, FREE, ta)"
55.79999999999995 696 "_"
55.79999999999995 696 "e_"
62.39999999999994 696 "n_"
68.99999999999994 696 "d MULT;"
55.79999999999995 708 "_"
55.79999999999995 708 "i_"
62.39999999999994 708 "n_"
68.99999999999994 708 "t_"
75.59999999999994 708 "e_"
82.19999999999993 708 "g_"
88.79999999999993 708 "e_"
95.39999999999992 708 "r _"
108.59999999999991 708 "p_"
115.1999999999999 708 "r_"
121.7999999999999 708 "o_"
128.3999999999999 708 "c_"
134.9999999999999 708 "e_"
141.59999999999988 708 "d_"
148.19999999999987 708 "u_"
154.79999999999987 708 "r_"
161.39999999999986 708 "e DIVIDE(A, asize,"
286.7999999999999 708 "na,"
313.2 708 "n,"
333.00000000000006 708 "empty);"
55.79999999999995 720 "_"
55.79999999999995 720 "v_"
62.39999999999994 720 "a_"
68.99999999999994 720 "l_"
75.59999999999994 720 "u_"
82.19999999999993 720 "e na, n;"
55.79999999999995 732 "_"
55.79999999999995 732 "i_"
62.39999999999994 732 "n_"
68.99999999999994 732 "t_"
75.59999999999994 732 "e_"
82.19999999999993 732 "g_"
88.79999999999993 732 "e_"
95.39999999999992 732 "r asize, na, n;"
55.79999999999995 744 "_"
55.79999999999995 744 "b_"
62.39999999999994 744 "o_"
68.99999999999994 744 "o_"
75.59999999999994 744 "l_"
82.19999999999993 744 "e_"
88.79999999999993 744 "a_"
95.39999999999992 744 "n empty;"
55.79999999999995 756 "_"
55.79999999999995 756 "i_"
62.39999999999994 756 "n_"
68.99999999999994 756 "t_"
75.59999999999994 756 "e_"
82.19999999999993 756 "g_"
88.79999999999993 756 "e_"
95.39999999999992 756 "r _"
108.59999999999991 756 "a_"
115.1999999999999 756 "r_"
121.7999999999999 756 "r_"
128.3999999999999 756 "a_"
134.9999999999999 756 "y A;"
55.79999999999995 768 "_"
55.79999999999995 768 "b_"
62.39999999999994 768 "e_"
68.99999999999994 768 "g_"
75.59999999999994 768 "i_"
82.19999999999993 768 "n"
75.59999999999994 780 "_"
75.59999999999994 780 "i_"
82.19999999999993 780 "n_"
88.79999999999993 780 "t_"
95.39999999999992 780 "e_"
101.99999999999991 780 "g_"
108.59999999999991 780 "e_"
115.1999999999999 780 "r c, ta;"
75.59999999999994 792 "first := _"
134.9999999999999 792 "t_"
141.59999999999988 792 "r_"
148.19999999999987 792 "u_"
154.79999999999987 792 "e;"
75.6 36 "carry := 0;"
75.6 48 "c := asize − decimals;"
75.6 60 "ta := 1 + c_"
148.19999999999993 60 ":40 + na"
201 60 "×"
207.6 60 "step;"
75.6 72 "c := c _"
121.79999999999995 72 "m_"
128.39999999999995 72 "o_"
134.99999999999994 72 "d 40;"
75.6 84 "_"
75.6 84 "i_"
82.19999999999999 84 "f large _"
134.99999999999994 84 "t_"
141.59999999999994 84 "h_"
148.19999999999993 84 "e_"
154.79999999999993 84 "n get(A, FREE, ta);"
75.6 96 "_"
75.6 96 "f_"
82.19999999999999 96 "o_"
88.79999999999998 96 "r count := asize _"
200.9999999999999 96 "s_"
207.59999999999988 96 "t_"
214.19999999999987 96 "e_"
220.79999999999987 96 "p −1 _"
253.79999999999987 96 "u_"
260.39999999999986 96 "n_"
266.9999999999999 96 "t_"
273.5999999999999 96 "i_"
280.19999999999993 96 "l"
293.4 96 "decimals"
352.8000000000002 96 "_"
352.8000000000002 96 "d_"
359.4000000000002 96 "o"
75.6 108 "_"
75.6 108 "b_"
82.19999999999999 108 "e_"
88.79999999999998 108 "g_"
95.39999999999998 108 "i_"
101.99999999999997 108 "n"
95.39999999999998 120 "cell := A[c];"
95.39999999999998 132 "_"
95.39999999999998 132 "c_"
101.99999999999997 132 "o_"
108.59999999999997 132 "d_"
115.19999999999996 132 "e cell, MODUL, carry,"
260.39999999999986 132 "n;"
95.39999999999998 144 "2, 44;"
95.39999999999998 156 "2, 44;"
95.39999999999998 168 "2, 44;"
95.39999999999998 180 "3, 44;"
95.39999999999998 192 "arn a1, pm a3 ; R := cell,"
273.5999999999999 192 "M"
286.79999999999995 192 ":="
306.6 192 "carry"
95.39999999999998 204 "ml a2, dl p+a4; RM := (cell+carry"
313.2 204 "×"
319.8 204 "MODUL)/n"
95.39999999999998 216 "gr a1, gm a3 ; cell := quotient,"
313.20000000000005 216 "carry"
352.8000000000002 216 ":="
372.60000000000025 216 "rem."
95.39999999999998 228 "_"
95.39999999999998 228 "e ;"
95.39999999999998 240 "A[c] := cell;"
95.39999999999998 252 "c := c − 1;"
95.39999999999998 264 "_"
95.39999999999998 264 "i_"
101.99999999999997 264 "f large _"
154.79999999999993 264 "t_"
161.39999999999992 264 "h_"
167.99999999999991 264 "e_"
174.5999999999999 264 "n"
95.39999999999998 276 "_"
95.39999999999998 276 "b_"
101.99999999999997 276 "e_"
108.59999999999997 276 "g_"
115.19999999999996 276 "i_"
121.79999999999995 276 "n"
115.19999999999996 288 "_"
115.19999999999996 288 "i_"
121.79999999999995 288 "f c < 0 _"
174.5999999999999 288 "t_"
181.1999999999999 288 "h_"
187.7999999999999 288 "e_"
194.3999999999999 288 "n"
115.19999999999996 300 "_"
115.19999999999996 300 "b_"
121.79999999999995 300 "e_"
128.39999999999995 300 "g_"
134.99999999999994 300 "i_"
141.59999999999994 300 "n"
134.99999999999994 312 "c := 39;"
134.99999999999994 324 "put(A, FREE, ta);"
134.99999999999994 336 "ta := ta − 1;"
134.99999999999994 348 "get(A, FREE, ta)"
115.19999999999996 360 "_"
115.19999999999996 360 "e_"
121.79999999999995 360 "n_"
128.39999999999995 360 "d if c < 0"
95.39999999999998 372 "_"
95.39999999999998 372 "e_"
101.99999999999997 372 "n_"
108.59999999999997 372 "d if large;"
95.39999999999998 384 "_"
95.39999999999998 384 "i_"
101.99999999999997 384 "f first _"
154.79999999999993 384 "t_"
161.39999999999992 384 "h_"
167.99999999999991 384 "e_"
174.5999999999999 384 "n"
95.39999999999998 396 "_"
95.39999999999998 396 "b_"
101.99999999999997 396 "e_"
108.59999999999997 396 "g_"
115.19999999999996 396 "i_"
121.79999999999995 396 "n"
115.19999999999996 408 "_"
115.19999999999996 408 "i_"
121.79999999999995 408 "f cell > 0 _"
194.3999999999999 408 "t_"
200.9999999999999 408 "h_"
207.59999999999988 408 "e_"
214.19999999999987 408 "n first"
266.9999999999999 408 ":="
286.79999999999995 408 "_"
286.79999999999995 408 "f_"
293.4 408 "a_"
300 408 "l_"
306.6 408 "s_"
313.20000000000005 408 "e"
115.19999999999996 420 "_"
115.19999999999996 420 "e_"
121.79999999999995 420 "l_"
128.39999999999995 420 "s_"
134.99999999999994 420 "e"
115.19999999999996 432 "_"
115.19999999999996 432 "i_"
121.79999999999995 432 "f asize > decimals _"
247.19999999999985 432 "t_"
253.79999999999987 432 "h_"
260.39999999999986 432 "e_"
266.9999999999999 432 "n"
280.19999999999993 432 "asize"
319.80000000000007 432 ":="
339.60000000000014 432 "asize"
379.2000000000003 432 "−"
392.4000000000003 432 "1"
95.39999999999998 444 "_"
95.39999999999998 444 "e_"
101.99999999999997 444 "n_"
108.59999999999997 444 "d if first"
75.6 456 "_"
75.6 456 "e_"
82.19999999999999 456 "n_"
88.79999999999998 456 "d for count;"
75.6 468 "_"
75.6 468 "i_"
82.19999999999999 468 "f large _"
134.99999999999994 468 "t_"
141.59999999999994 468 "h_"
148.19999999999993 468 "e_"
154.79999999999993 468 "n put(A, FREE, ta);"
75.6 480 "empty := first"
174.6 480 "∧"
187.79999999999998 480 "cell = 0"
55.800000000000004 492 "_"
55.800000000000004 492 "e_"
62.4 492 "n_"
69 492 "d DIVIDE;"
55.800000000000004 504 "_"
55.800000000000004 504 "i_"
62.4 504 "n_"
69 504 "t_"
75.6 504 "e_"
82.19999999999999 504 "g_"
88.79999999999998 504 "e_"
95.39999999999998 504 "r _"
108.59999999999997 504 "p_"
115.19999999999996 504 "r_"
121.79999999999995 504 "o_"
128.39999999999995 504 "c_"
134.99999999999994 504 "e_"
141.59999999999994 504 "d_"
148.19999999999993 504 "u_"
154.79999999999993 504 "r_"
161.39999999999992 504 "e PRINT(A, asize,"
280.19999999999993 504 "na);"
55.800000000000004 516 "_"
55.800000000000004 516 "v_"
62.4 516 "a_"
69 516 "l_"
75.6 516 "u_"
82.19999999999999 516 "e asize, na;"
55.800000000000004 528 "_"
55.800000000000004 528 "i_"
62.4 528 "n_"
69 528 "t_"
75.6 528 "e_"
82.19999999999999 528 "g_"
88.79999999999998 528 "e_"
95.39999999999998 528 "r asize, na;"
55.800000000000004 540 "_"
55.800000000000004 540 "i_"
62.4 540 "n_"
69 540 "t_"
75.6 540 "e_"
82.19999999999999 540 "g_"
88.79999999999998 540 "e_"
95.39999999999998 540 "r _"
108.59999999999997 540 "a_"
115.19999999999996 540 "r_"
121.79999999999995 540 "r_"
128.39999999999995 540 "a_"
134.99999999999994 540 "y A;"
55.800000000000004 552 "_"
55.800000000000004 552 "b_"
62.4 552 "e_"
69 552 "g_"
75.6 552 "i_"
82.19999999999999 552 "n"
75.6 564 "_"
75.6 564 "b_"
82.19999999999999 564 "o_"
88.79999999999998 564 "o_"
95.39999999999998 564 "l_"
101.99999999999997 564 "e_"
108.59999999999997 564 "a_"
115.19999999999996 564 "n first;"
75.6 576 "_"
75.6 576 "i_"
82.19999999999999 576 "n_"
88.79999999999998 576 "t_"
95.39999999999998 576 "e_"
101.99999999999997 576 "g_"
108.59999999999997 576 "e_"
115.19999999999996 576 "r DIVISOR, digit, i, space,"
300 576 "group,"
346.20000000000016 576 "ta,"
372.60000000000025 576 "c;"
75.6 588 "_"
75.6 588 "i_"
82.19999999999999 588 "n_"
88.79999999999998 588 "t_"
95.39999999999998 588 "e_"
101.99999999999997 588 "g_"
108.59999999999997 588 "e_"
115.19999999999996 588 "r asize0;"
75.6 600 "_"
75.6 600 "p_"
82.19999999999999 600 "r_"
88.79999999999998 600 "o_"
95.39999999999998 600 "c_"
101.99999999999997 600 "e_"
108.59999999999997 600 "d_"
115.19999999999996 600 "u_"
121.79999999999995 600 "r_"
128.39999999999995 600 "e GROUP(n);"
75.6 612 "_"
75.6 612 "v_"
82.19999999999999 612 "a_"
88.79999999999998 612 "l_"
95.39999999999998 612 "u_"
101.99999999999997 612 "e n;"
75.6 624 "_"
75.6 624 "i_"
82.19999999999999 624 "n_"
88.79999999999998 624 "t_"
95.39999999999998 624 "e_"
101.99999999999997 624 "g_"
108.59999999999997 624 "e_"
115.19999999999996 624 "r n;"
75.6 636 "_"
75.6 636 "b_"
82.19999999999999 636 "e_"
88.79999999999998 636 "g_"
95.39999999999998 636 "i_"
101.99999999999997 636 "n"
95.39999999999998 648 "DIVISOR := MODUL_"
200.9999999999999 648 ":10;"
95.39999999999998 660 "space := _"
154.79999999999993 660 "i_"
161.39999999999992 660 "f first _"
214.19999999999987 660 "t_"
220.79999999999987 660 "h_"
227.39999999999986 660 "e_"
233.99999999999986 660 "n 0"
260.39999999999986 660 "_"
260.39999999999986 660 "e_"
266.9999999999999 660 "l_"
273.5999999999999 660 "s_"
280.19999999999993 660 "e"
293.4 660 "16;"
95.39999999999998 672 "_"
95.39999999999998 672 "f_"
101.99999999999997 672 "o_"
108.59999999999997 672 "r i := 1 _"
167.99999999999991 672 "s_"
174.5999999999999 672 "t_"
181.1999999999999 672 "e_"
187.7999999999999 672 "p 1 _"
214.19999999999987 672 "u_"
220.79999999999987 672 "n_"
227.39999999999986 672 "t_"
233.99999999999986 672 "i_"
240.59999999999985 672 "l 10"
273.5999999999999 672 "_"
273.5999999999999 672 "d_"
280.19999999999993 672 "o"
95.39999999999998 684 "_"
95.39999999999998 684 "b_"
101.99999999999997 684 "e_"
108.59999999999997 684 "g_"
115.19999999999996 684 "i_"
121.79999999999995 684 "n"
115.19999999999996 696 "digit := n_"
181.1999999999999 696 ":DIVISOR;"
115.19999999999996 708 "n := n _"
161.39999999999992 708 "m_"
167.99999999999991 708 "o_"
174.5999999999999 708 "d DIVISOR;"
115.19999999999996 720 "_"
115.19999999999996 720 "i_"
121.79999999999995 720 "f digit |"
174.5999999999999 720 "= 0 _"
200.9999999999999 720 "t_"
207.59999999999988 720 "h_"
214.19999999999987 720 "e_"
220.79999999999987 720 "n"
115.19999999999996 732 "_"
115.19999999999996 732 "b_"
121.79999999999995 732 "e_"
128.39999999999995 732 "g_"
134.99999999999994 732 "i_"
141.59999999999994 732 "n"
134.99999999999994 744 "writechar(digit);"
134.99999999999994 756 "first := _"
194.3999999999999 756 "f_"
200.9999999999999 756 "a_"
207.59999999999988 756 "l_"
214.19999999999987 756 "s_"
220.79999999999987 756 "e;"
134.99999999999994 768 "space := 16"
115.19999999999996 780 "_"
115.19999999999996 780 "e_"
121.79999999999995 780 "n_"
128.39999999999995 780 "d"
115.19999999999996 792 "_"
115.19999999999996 792 "e_"
121.79999999999995 792 "l_"
128.39999999999995 792 "s_"
134.99999999999994 792 "e writechar(space);"
115.19999999999996 36 "_"
115.19999999999996 36 "i_"
121.79999999999995 36 "f i = 5 _"
174.5999999999999 36 "t_"
181.1999999999999 36 "h_"
187.7999999999999 36 "e_"
194.3999999999999 36 "n writechar(0);"
115.19999999999996 48 "DIVISOR := DIVISOR_"
233.99999999999986 48 ":10"
95.39999999999998 60 "_"
95.39999999999998 60 "e_"
101.99999999999997 60 "n_"
108.59999999999997 60 "d for i"
75.6 72 "_"
75.6 72 "e_"
82.19999999999999 72 "n_"
88.79999999999998 72 "d GROUP;"
75.6 84 "_"
75.6 84 "i_"
82.19999999999999 84 "f kbon"
128.4 84 "∨"
141.6 84 "_"
141.6 84 "t_"
148.2 84 "r_"
154.79999999999998 84 "u_"
161.39999999999998 84 "e _"
174.59999999999997 84 "t_"
181.19999999999996 84 "h_"
187.79999999999995 84 "e_"
194.39999999999995 84 "n"
75.6 96 "_"
75.6 96 "b_"
82.19999999999999 96 "e_"
88.79999999999998 96 "g_"
95.39999999999998 96 "i_"
101.99999999999997 96 "n"
95.39999999999998 108 "LINE;"
95.39999999999998 120 "writetext( |"
167.99999999999991 120 "<<asize: |"
227.39999999999986 120 "> );"
95.39999999999998 132 "writeinteger( |"
187.7999999999999 132 "<−d|"
207.59999999999988 132 ">, asize"
266.9999999999999 132 ")"
75.6 144 "_"
75.6 144 "e_"
82.19999999999999 144 "n_"
88.79999999999998 144 "d;"
75.6 156 "first := _"
134.99999999999994 156 "t_"
141.59999999999994 156 "r_"
148.19999999999993 156 "u_"
154.79999999999993 156 "e;"
75.6 168 "group := 0;"
75.6 180 "LINE;"
75.6 192 "_"
75.6 192 "c_"
82.19999999999999 192 "o_"
88.79999999999998 192 "m_"
95.39999999999998 192 "m_"
101.99999999999997 192 "e_"
108.59999999999997 192 "n_"
115.19999999999996 192 "t _"
128.39999999999995 192 "i_"
134.99999999999994 192 "f asize < 0 _"
214.19999999999987 192 "t_"
220.79999999999987 192 "h_"
227.39999999999986 192 "e_"
233.99999999999986 192 "n asize"
286.79999999999995 192 ":="
306.6 192 "0;"
75.6 204 "asize0 := _"
141.59999999999994 204 "i_"
148.19999999999993 204 "f asize < 0 _"
227.39999999999986 204 "t_"
233.99999999999986 204 "h_"
240.59999999999985 204 "e_"
247.19999999999985 204 "n"
260.39999999999986 204 "0"
273.5999999999999 204 "_"
273.5999999999999 204 "e_"
280.19999999999993 204 "l_"
286.79999999999995 204 "s_"
293.4 204 "e"
306.6 204 "asize;"
75.6 216 "c := asize0 − decimals;"
75.6 228 "ta := 1 + c_"
148.19999999999993 228 ":40;"
75.6 240 "c := c _"
121.79999999999995 240 "m_"
128.39999999999995 240 "o_"
134.99999999999994 240 "d 40;"
75.6 252 "_"
75.6 252 "i_"
82.19999999999999 252 "f large _"
134.99999999999994 252 "t_"
141.59999999999994 252 "h_"
148.19999999999993 252 "e_"
154.79999999999993 252 "n get(A, FREE, na"
267 252 "×"
273.6 252 "step"
306.60000000000014 252 "+"
319.8000000000002 252 "ta);"
75.60000000000002 264 "_"
75.60000000000002 264 "f_"
82.20000000000002 264 "o_"
88.80000000000001 264 "r count := asize0 _"
207.5999999999999 264 "s_"
214.1999999999999 264 "t_"
220.7999999999999 264 "e_"
227.3999999999999 264 "p −1 _"
260.39999999999986 264 "u_"
266.9999999999999 264 "n_"
273.5999999999999 264 "t_"
280.19999999999993 264 "i_"
286.79999999999995 264 "l"
300 264 "decimals"
359.4000000000002 264 "_"
359.4000000000002 264 "d_"
366.0000000000002 264 "o"
75.60000000000002 276 "_"
75.60000000000002 276 "b_"
82.20000000000002 276 "e_"
88.80000000000001 276 "g_"
95.4 276 "i_"
102 276 "n"
95.4 288 "GROUP(_"
134.99999999999997 288 "i_"
141.59999999999997 288 "f count _"
194.39999999999992 288 "< asize _"
247.19999999999987 288 "t_"
253.79999999999987 288 "h_"
260.39999999999986 288 "e_"
266.9999999999999 288 "n"
280.19999999999993 288 "A[c]"
313.20000000000005 288 "_"
313.20000000000005 288 "e_"
319.80000000000007 288 "l_"
326.4000000000001 288 "s_"
333.0000000000001 288 "e"
346.20000000000016 288 "0);"
95.4 300 "_"
95.4 300 "i_"
102 300 "f count = 0"
181.20000000000002 300 "∧"
194.4 300 "decimals <"
267 300 "0"
280.20000000000005 300 "_"
280.20000000000005 300 "t_"
286.80000000000007 300 "h_"
293.4000000000001 300 "e_"
300.0000000000001 300 "n"
95.39999999999998 312 "_"
95.39999999999998 312 "b_"
101.99999999999997 312 "e_"
108.59999999999997 312 "g_"
115.19999999999996 312 "i_"
121.79999999999995 312 "n"
115.19999999999996 324 "writechar(59);"
115.19999999999996 336 "first := _"
174.5999999999999 336 "f_"
181.1999999999999 336 "a_"
187.7999999999999 336 "l_"
194.3999999999999 336 "s_"
200.9999999999999 336 "e"
95.39999999999998 348 "_"
95.39999999999998 348 "e_"
101.99999999999997 348 "n_"
108.59999999999997 348 "d"
95.39999999999998 360 "_"
95.39999999999998 360 "e_"
101.99999999999997 360 "l_"
108.59999999999997 360 "s_"
115.19999999999996 360 "e writechar(0);"
95.39999999999998 372 "group := group + 1;"
95.39999999999998 384 "_"
95.39999999999998 384 "i_"
101.99999999999997 384 "f (group _"
161.39999999999992 384 "m_"
167.99999999999991 384 "o_"
174.5999999999999 384 "d 6 = 0)"
234 384 "∧"
247.2 384 "count"
286.80000000000007 384 "|"
286.80000000000007 384 "="
300.0000000000001 384 "decimals"
359.4000000000003 384 "_"
359.4000000000003 384 "t_"
366.00000000000034 384 "h_"
372.60000000000036 384 "e_"
379.2000000000004 384 "n"
392.40000000000043 384 "LINE;"
95.39999999999998 396 "c := c − 1;"
95.39999999999998 408 "_"
95.39999999999998 408 "i_"
101.99999999999997 408 "f large _"
154.79999999999993 408 "t_"
161.39999999999992 408 "h_"
167.99999999999991 408 "e_"
174.5999999999999 408 "n"
95.39999999999998 420 "_"
95.39999999999998 420 "b_"
101.99999999999997 420 "e_"
108.59999999999997 420 "g_"
115.19999999999996 420 "i_"
121.79999999999995 420 "n"
115.19999999999996 432 "_"
115.19999999999996 432 "i_"
121.79999999999995 432 "f c < 0 _"
174.5999999999999 432 "t_"
181.1999999999999 432 "h_"
187.7999999999999 432 "e_"
194.3999999999999 432 "n"
115.19999999999996 444 "_"
115.19999999999996 444 "b_"
121.79999999999995 444 "e_"
128.39999999999995 444 "g_"
134.99999999999994 444 "i_"
141.59999999999994 444 "n"
134.99999999999994 456 "c := 39;"
134.99999999999994 468 "ta := ta − 1;"
134.99999999999994 480 "get(A, FREE, na"
234 480 "×"
240.6 480 "step"
273.6 480 "+"
286.80000000000007 480 "ta)"
115.19999999999996 492 "_"
115.19999999999996 492 "e_"
121.79999999999995 492 "n_"
128.39999999999995 492 "d if c < 0"
95.39999999999998 504 "_"
95.39999999999998 504 "e_"
101.99999999999997 504 "n_"
108.59999999999997 504 "d if large"
75.6 516 "_"
75.6 516 "e_"
82.19999999999999 516 "n_"
88.79999999999998 516 "d for count"
55.800000000000004 528 "_"
55.800000000000004 528 "e_"
62.4 528 "n_"
69 528 "d PRINT;"
55.800000000000004 540 "_"
55.800000000000004 540 "i_"
62.4 540 "n_"
69 540 "t_"
75.6 540 "e_"
82.19999999999999 540 "g_"
88.79999999999998 540 "e_"
95.39999999999998 540 "r _"
108.59999999999997 540 "p_"
115.19999999999996 540 "r_"
121.79999999999995 540 "o_"
128.39999999999995 540 "c_"
134.99999999999994 540 "e_"
141.59999999999994 540 "d_"
148.19999999999993 540 "u_"
154.79999999999993 540 "r_"
161.39999999999992 540 "e COPY(A, asize,"
273.5999999999999 540 "na,"
300 540 "B,"
319.80000000000007 540 "bsize,"
366.0000000000002 540 "nb);"
55.800000000000004 552 "_"
55.800000000000004 552 "v_"
62.4 552 "a_"
69 552 "l_"
75.6 552 "u_"
82.19999999999999 552 "e na, nb;"
55.800000000000004 564 "_"
55.800000000000004 564 "i_"
62.4 564 "n_"
69 564 "t_"
75.6 564 "e_"
82.19999999999999 564 "g_"
88.79999999999998 564 "e_"
95.39999999999998 564 "r asize, na, bsize, nb;"
55.800000000000004 576 "_"
55.800000000000004 576 "i_"
62.4 576 "n_"
69 576 "t_"
75.6 576 "e_"
82.19999999999999 576 "g_"
88.79999999999998 576 "e_"
95.39999999999998 576 "r _"
108.59999999999997 576 "a_"
115.19999999999996 576 "r_"
121.79999999999995 576 "r_"
128.39999999999995 576 "a_"
134.99999999999994 576 "y A, B;"
55.800000000000004 588 "_"
55.800000000000004 588 "b_"
62.4 588 "e_"
69 588 "g_"
75.6 588 "i_"
82.19999999999999 588 "n"
75.6 600 "_"
75.6 600 "i_"
82.19999999999999 600 "n_"
88.79999999999998 600 "t_"
95.39999999999998 600 "e_"
101.99999999999997 600 "g_"
108.59999999999997 600 "e_"
115.19999999999996 600 "r c, c1, t1, t2;"
75.6 612 "c1 := c39;"
75.6 624 "_"
75.6 624 "i_"
82.19999999999999 624 "f large _"
134.99999999999994 624 "t_"
141.59999999999994 624 "h_"
148.19999999999993 624 "e_"
154.79999999999993 624 "n"
75.6 636 "_"
75.6 636 "b_"
82.19999999999999 636 "e_"
88.79999999999998 636 "g_"
95.39999999999998 636 "i_"
101.99999999999997 636 "n"
95.39999999999998 648 "t1 := na"
148.2 648 "×"
154.79999999999998 648 "step;"
95.39999999999996 660 "t2 := nb"
148.2 660 "×"
154.79999999999998 660 "step;"
95.39999999999996 672 "_"
95.39999999999996 672 "f_"
101.99999999999996 672 "o_"
108.59999999999995 672 "r count := 1 _"
194.3999999999999 672 "s_"
200.9999999999999 672 "t_"
207.59999999999988 672 "e_"
214.19999999999987 672 "p 1 _"
240.59999999999985 672 "u_"
247.19999999999985 672 "n_"
253.79999999999987 672 "t_"
260.39999999999986 672 "i_"
266.9999999999999 672 "l"
280.19999999999993 672 "step"
313.20000000000005 672 "_"
313.20000000000005 672 "d_"
319.80000000000007 672 "o"
95.39999999999996 684 "_"
95.39999999999996 684 "b_"
101.99999999999996 684 "e_"
108.59999999999995 684 "g_"
115.19999999999995 684 "i_"
121.79999999999995 684 "n"
115.19999999999995 696 "t1 := t1 + 1;"
115.19999999999995 708 "t2 := t2 + 1;"
115.19999999999995 720 "get(A, FREE, t1);"
115.19999999999995 732 "put(A, FREE, t2)"
95.39999999999996 744 "_"
95.39999999999996 744 "e_"
101.99999999999996 744 "n_"
108.59999999999995 744 "d for count"
75.59999999999998 756 "_"
75.59999999999998 756 "e_"
82.19999999999997 756 "n_"
88.79999999999997 756 "d if large"
75.59999999999998 768 "_"
75.59999999999998 768 "e_"
82.19999999999997 768 "l_"
88.79999999999997 768 "s_"
95.39999999999996 768 "e"
75.59999999999998 780 "_"
75.59999999999998 780 "f_"
82.19999999999997 780 "o_"
88.79999999999997 780 "r c := 0 _"
148.19999999999993 780 "s_"
154.79999999999993 780 "t_"
161.39999999999992 780 "e_"
167.99999999999991 780 "p 1 _"
194.3999999999999 780 "u_"
200.9999999999999 780 "n_"
207.59999999999988 780 "t_"
214.19999999999987 780 "i_"
220.79999999999987 780 "l c1 _"
253.79999999999987 780 "d_"
260.39999999999986 780 "o"
273.5999999999999 780 "B[c]"
306.6 780 ":="
326.4000000000001 780 "A[c];"
75.59999999999998 792 "bsize := asize"
55.800000000000004 36 "_"
55.800000000000004 36 "e_"
62.4 36 "n_"
69 36 "d COPY;"
55.800000000000004 48 "_"
55.800000000000004 48 "i_"
62.4 48 "n_"
69 48 "t_"
75.6 48 "e_"
82.19999999999999 48 "g_"
88.79999999999998 48 "e_"
95.39999999999998 48 "r _"
108.59999999999997 48 "p_"
115.19999999999996 48 "r_"
121.79999999999995 48 "o_"
128.39999999999995 48 "c_"
134.99999999999994 48 "e_"
141.59999999999994 48 "d_"
148.19999999999993 48 "u_"
154.79999999999993 48 "r_"
161.39999999999992 48 "e ADD(B, bsize,"
266.9999999999999 48 "nb,"
293.4 48 "factor,"
346.20000000000016 48 "A,"
366.0000000000002 48 "asize,"
412.2000000000004 48 "na);"
55.800000000000004 60 "_"
55.800000000000004 60 "v_"
62.4 60 "a_"
69 60 "l_"
75.6 60 "u_"
82.19999999999999 60 "e bsize, nb, factor, na;"
55.800000000000004 72 "_"
55.800000000000004 72 "i_"
62.4 72 "n_"
69 72 "t_"
75.6 72 "e_"
82.19999999999999 72 "g_"
88.79999999999998 72 "e_"
95.39999999999998 72 "r bsize, nb, factor, asize,"
280.19999999999993 72 "na;"
55.800000000000004 84 "_"
55.800000000000004 84 "i_"
62.4 84 "n_"
69 84 "t_"
75.6 84 "e_"
82.19999999999999 84 "g_"
88.79999999999998 84 "e_"
95.39999999999998 84 "r _"
108.59999999999997 84 "a_"
115.19999999999996 84 "r_"
121.79999999999995 84 "r_"
128.39999999999995 84 "a_"
134.99999999999994 84 "y A, B;"
55.800000000000004 96 "_"
55.800000000000004 96 "b_"
62.4 96 "e_"
69 96 "g_"
75.6 96 "i_"
82.19999999999999 96 "n"
75.6 108 "_"
75.6 108 "i_"
82.19999999999999 108 "n_"
88.79999999999998 108 "t_"
95.39999999999998 108 "e_"
101.99999999999997 108 "g_"
108.59999999999997 108 "e_"
115.19999999999996 108 "r ta, tb, c;"
75.6 120 "_"
75.6 120 "i_"
82.19999999999999 120 "f large _"
134.99999999999994 120 "t_"
141.59999999999994 120 "h_"
148.19999999999993 120 "e_"
154.79999999999993 120 "n"
75.6 132 "_"
75.6 132 "b_"
82.19999999999999 132 "e_"
88.79999999999998 132 "g_"
95.39999999999998 132 "i_"
101.99999999999997 132 "n"
95.39999999999998 144 "ta := tb := 1;"
95.39999999999998 156 "get(A, FREE, na"
194.4 156 "×"
201 156 "step + ta);"
95.39999999999998 168 "get(B, FREE, nb"
194.4 168 "×"
201 168 "step + tb)"
75.6 180 "_"
75.6 180 "e_"
82.19999999999999 180 "n_"
88.79999999999998 180 "d if large;"
75.6 192 "c := − 1;"
75.6 204 "carry := 0;"
75.6 216 "_"
75.6 216 "f_"
82.19999999999999 216 "o_"
88.79999999999998 216 "r count := decimals _"
220.79999999999987 216 "s_"
227.39999999999986 216 "t_"
233.99999999999986 216 "e_"
240.59999999999985 216 "p 1"
266.9999999999999 216 "_"
266.9999999999999 216 "u_"
273.5999999999999 216 "n_"
280.19999999999993 216 "t_"
286.79999999999995 216 "i_"
293.4 216 "l"
306.6 216 "limit"
346.20000000000016 216 "_"
346.20000000000016 216 "d_"
352.8000000000002 216 "o"
75.6 228 "_"
75.6 228 "b_"
82.19999999999999 228 "e_"
88.79999999999998 228 "g_"
95.39999999999998 228 "i_"
101.99999999999997 228 "n"
95.39999999999998 240 "c := c + 1;"
95.39999999999998 252 "_"
95.39999999999998 252 "i_"
101.99999999999997 252 "f c = 40 _"
161.39999999999992 252 "t_"
167.99999999999991 252 "h_"
174.5999999999999 252 "e_"
181.1999999999999 252 "n"
95.39999999999998 264 "_"
95.39999999999998 264 "b_"
101.99999999999997 264 "e_"
108.59999999999997 264 "g_"
115.19999999999996 264 "i_"
121.79999999999995 264 "n"
115.19999999999996 276 "c := 0;"
115.19999999999996 288 "put(A, FREE, na"
214.2 288 "×"
220.79999999999998 288 "step +"
267 288 "ta);"
115.19999999999993 300 "ta := tb := ta + 1;"
115.19999999999993 312 "get(A, FREE, na"
214.19999999999996 312 "×"
220.79999999999995 312 "step +"
266.99999999999994 312 "ta);"
115.1999999999999 324 "get(B, FREE, nb"
214.19999999999993 324 "×"
220.79999999999993 324 "step +"
266.99999999999994 324 "tb)"
95.39999999999989 336 "_"
95.39999999999989 336 "e_"
101.99999999999989 336 "n_"
108.59999999999988 336 "d if c = 40;"
95.39999999999989 348 "_"
95.39999999999989 348 "c_"
101.99999999999989 348 "o_"
108.59999999999988 348 "m_"
115.19999999999987 348 "m_"
121.79999999999987 348 "e_"
128.39999999999986 348 "n_"
134.99999999999986 348 "t cell := A[c] + factor"
286.79999999999995 348 "×"
293.4 348 "B[c]"
326.4000000000001 348 "+"
339.60000000000014 348 "carry;"
95.39999999999998 360 "cell := (_"
154.79999999999993 360 "i_"
161.39999999999992 360 "f count _"
214.19999999999987 360 "< asize"
266.9999999999999 360 "_"
266.9999999999999 360 "t_"
273.5999999999999 360 "h_"
280.19999999999993 360 "e_"
286.79999999999995 360 "n"
300 360 "A[c]"
333.0000000000001 360 "_"
333.0000000000001 360 "e_"
339.60000000000014 360 "l_"
346.20000000000016 360 "s_"
352.8000000000002 360 "e"
366.0000000000002 360 "0)"
385.8000000000003 360 "+"
399.00000000000034 360 "(_"
405.60000000000036 360 "i_"
412.2000000000004 360 "f"
425.40000000000043 360 "count"
465.00000000000057 360 "_"
465.00000000000057 360 "<"
478.2000000000006 360 "bsize"
517.8000000000008 360 "_"
517.8000000000008 360 "t_"
524.4000000000008 360 "h_"
531.0000000000008 360 "e_"
537.6000000000008 360 "n"
550.8000000000009 360 "factor"
590.4 360 "×"
95.39999999999998 372 ""
95.39999999999998 372 "carry := 1;"
95.39999999999998 384 "_"
95.39999999999998 384 "f_"
101.99999999999997 384 "o_"
108.59999999999997 384 "r carry := carry −1 _"
240.59999999999985 384 "w_"
247.19999999999985 384 "h_"
253.79999999999987 384 "i_"
260.39999999999986 384 "l_"
266.9999999999999 384 "e"
280.19999999999993 384 "cell"
313.20000000000005 384 "<"
326.4000000000001 384 "0"
339.60000000000014 384 "_"
339.60000000000014 384 "d_"
346.20000000000016 384 "o"
95.39999999999998 396 "cell := cell + MODUL;"
95.39999999999998 408 "cell2 := cell_"
181.1999999999999 408 ":MODUL;"
95.39999999999998 420 "A[c] := cell − cell2"
227.4 420 "×"
234 420 "MODUL;"
95.39999999999998 432 "carry := carry + cell2;"
95.39999999999998 444 "_"
95.39999999999998 444 "i_"
101.99999999999997 444 "f count _"
154.79999999999993 444 "> bsize"
207.6 444 "∧"
220.79999999999998 444 "carry"
260.4 444 "="
273.6 444 "0"
286.80000000000007 444 "_"
286.80000000000007 444 "t_"
293.4000000000001 444 "h_"
300.0000000000001 444 "e_"
306.60000000000014 444 "n"
319.8000000000002 444 "_"
319.8000000000002 444 "g_"
326.4000000000002 444 "o_ _"
339.60000000000025 444 "t_"
346.2000000000003 444 "o"
359.4000000000003 444 "L1"
75.6 456 "_"
75.6 456 "e_"
82.19999999999999 456 "n_"
88.79999999999998 456 "d for count;"
36 468 "L1:"
62.400000000000006 468 "_"
62.4 468 "i_"
69 468 "f carry |"
121.79999999999995 468 "= 0 _"
148.19999999999993 468 "t_"
154.79999999999993 468 "h_"
161.39999999999992 468 "e_"
167.99999999999991 468 "n ALARM(|"
220.79999999999987 468 "<<ADD|"
253.79999999999987 468 ">);"
75.6 480 "_"
75.6 480 "i_"
82.19999999999999 480 "f large _"
134.99999999999994 480 "t_"
141.59999999999994 480 "h_"
148.19999999999993 480 "e_"
154.79999999999993 480 "n put(A, FREE, na"
267 480 "×"
273.6 480 "step"
306.60000000000014 480 "+"
319.8000000000002 480 "ta);"
75.60000000000002 492 "asize := limit + 1;"
75.60000000000002 504 "c := limit − decimals;"
75.60000000000002 516 "ta := 1 + c_"
148.19999999999996 516 ":40;"
75.60000000000002 528 "c := c _"
121.79999999999998 528 "m_"
128.39999999999998 528 "o_"
134.99999999999997 528 "d 40;"
75.60000000000002 540 "_"
75.60000000000002 540 "i_"
82.20000000000002 540 "f large _"
134.99999999999997 540 "t_"
141.59999999999997 540 "h_"
148.19999999999996 540 "e_"
154.79999999999995 540 "n get(A, FREE, na"
267 540 "×"
273.6 540 "step"
306.60000000000014 540 "+"
319.8000000000002 540 "ta);"
75.60000000000002 552 "_"
75.60000000000002 552 "f_"
82.20000000000002 552 "o_"
88.80000000000001 552 "r asize := asize −1 _"
220.7999999999999 552 "w_"
227.3999999999999 552 "h_"
233.9999999999999 552 "i_"
240.59999999999988 552 "l_"
247.19999999999987 552 "e asize"
300 552 ">"
313.20000000000005 552 "decimals"
372.60000000000025 552 "_"
372.60000000000025 552 "d_"
379.2000000000003 552 "o"
75.60000000000002 564 "_"
75.60000000000002 564 "b_"
82.20000000000002 564 "e_"
88.80000000000001 564 "g_"
95.4 564 "i_"
102 564 "n"
95.4 576 "_"
95.4 576 "i_"
102 576 "f A[c] |"
148.19999999999996 576 "= 0 _"
174.59999999999994 576 "t_"
181.19999999999993 576 "h_"
187.79999999999993 576 "e_"
194.39999999999992 576 "n _"
207.5999999999999 576 "g_"
214.1999999999999 576 "o_ _"
227.3999999999999 576 "t_"
233.9999999999999 576 "o L2;"
95.4 588 "c := c − 1;"
95.4 600 "_"
95.4 600 "i_"
102 600 "f c < 0 _"
154.79999999999995 600 "t_"
161.39999999999995 600 "h_"
167.99999999999994 600 "e_"
174.59999999999994 600 "n"
95.4 612 "_"
95.4 612 "b_"
102 612 "e_"
108.6 612 "g_"
115.19999999999999 612 "i_"
121.79999999999998 612 "n"
115.19999999999999 624 "c := 39;"
115.19999999999999 636 "ta := ta − 1;"
115.19999999999999 648 "get(A, FREE, na"
214.20000000000002 648 "×"
220.8 648 "step +"
267 648 "ta)"
95.39999999999998 660 "_"
95.39999999999998 660 "e_"
101.99999999999997 660 "n_"
108.59999999999997 660 "d if c < 0"
75.6 672 "_"
75.6 672 "e_"
82.19999999999999 672 "n_"
88.79999999999998 672 "d for asize;"
36 684 "L2:_"
55.800000000000004 684 "e_"
62.4 684 "n_"
69 684 "d ADD;"
55.800000000000004 696 "_"
55.800000000000004 696 "r_"
62.4 696 "e_"
69 696 "a_"
75.6 696 "l _"
88.79999999999998 696 "p_"
95.39999999999998 696 "r_"
101.99999999999997 696 "o_"
108.59999999999997 696 "c_"
115.19999999999996 696 "e_"
121.79999999999995 696 "d_"
128.39999999999995 696 "u_"
134.99999999999994 696 "r_"
141.59999999999994 696 "e TO REAL( A, asize,"
280.19999999999993 696 "na"
300 696 ");"
55.800000000000004 708 "_"
55.800000000000004 708 "v_"
62.4 708 "a_"
69 708 "l_"
75.6 708 "u_"
82.19999999999999 708 "e asize, na;"
55.800000000000004 720 "_"
55.800000000000004 720 "i_"
62.4 720 "n_"
69 720 "t_"
75.6 720 "e_"
82.19999999999999 720 "g_"
88.79999999999998 720 "e_"
95.39999999999998 720 "r asize, na;"
55.800000000000004 732 "_"
55.800000000000004 732 "i_"
62.4 732 "n_"
69 732 "t_"
75.6 732 "e_"
82.19999999999999 732 "g_"
88.79999999999998 732 "e_"
95.39999999999998 732 "r _"
108.59999999999997 732 "a_"
115.19999999999996 732 "r_"
121.79999999999995 732 "r_"
128.39999999999995 732 "a_"
134.99999999999994 732 "y A;"
55.800000000000004 744 "_"
55.800000000000004 744 "b_"
62.4 744 "e_"
69 744 "g_"
75.6 744 "i_"
82.19999999999999 744 "n"
75.6 756 "_"
75.6 756 "i_"
82.19999999999999 756 "n_"
88.79999999999998 756 "t_"
95.39999999999998 756 "e_"
101.99999999999997 756 "g_"
108.59999999999997 756 "e_"
115.19999999999996 756 "r xa, ca, sa;"
75.6 768 "_"
75.6 768 "r_"
82.19999999999999 768 "e_"
88.79999999999998 768 "a_"
95.39999999999998 768 "l r, r0;"
75.6 780 "r := 0.0;"
75.6 792 "sa := −1;"
75.6 36 "_"
75.6 36 "f_"
82.19999999999999 36 "o_"
88.79999999999998 36 "r xa := asize _"
181.1999999999999 36 "s_"
187.7999999999999 36 "t_"
194.3999999999999 36 "e_"
200.9999999999999 36 "p −1 _"
233.99999999999986 36 "u_"
240.59999999999985 36 "n_"
247.19999999999985 36 "t_"
253.79999999999987 36 "i_"
260.39999999999986 36 "l"
273.5999999999999 36 "decimals"
333.0000000000001 36 "_"
333.0000000000001 36 "d_"
339.60000000000014 36 "o"
75.6 48 "_"
75.6 48 "b_"
82.19999999999999 48 "e_"
88.79999999999998 48 "g_"
95.39999999999998 48 "i_"
101.99999999999997 48 "n"
95.39999999999998 60 "_"
95.39999999999998 60 "b_"
101.99999999999997 60 "e_"
108.59999999999997 60 "g_"
115.19999999999996 60 "i_"
121.79999999999995 60 "n ca := xa − decimals;"
273.5999999999999 60 "_"
273.5999999999999 60 "i_"
280.19999999999993 60 "f"
293.4 60 "large"
333.0000000000001 60 "_"
333.0000000000001 60 "t_"
339.60000000000014 60 "h_"
346.20000000000016 60 "e_"
352.8000000000002 60 "n"
366.0000000000002 60 "_"
366.0000000000002 60 "b_"
372.60000000000025 60 "e_"
379.2000000000003 60 "g_"
385.8000000000003 60 "i_"
392.4000000000003 60 "n"
405.60000000000036 60 "_"
405.60000000000036 60 "i_"
412.2000000000004 60 "f"
425.40000000000043 60 "ca"
445.2000000000005 60 "_"
445.2000000000005 60 ":"
458.40000000000055 60 "40"
478.2000000000006 60 "|"
478.2000000000006 60 "="
491.40000000000066 60 "sa"
511.2000000000007 60 "_"
511.2000000000007 60 "t_"
517.8000000000008 60 "h_"
524.4000000000008 60 "e_"
531.0000000000008 60 "n"
544.2000000000008 60 "_"
544.2000000000008 60 "b_"
550.8000000000009 60 "e_"
557.4000000000009 60 "g_"
564.0000000000009 60 "i_"
570.6000000000009 60 "n"
583.800000000001 60 "sa"
95.39999999999998 72 "r0 := r + A[ca]"
201 72 "×"
214.2 72 "MODUL |"
253.8 72 "∧"
267.00000000000006 72 "xa;"
95.4 84 "_"
95.4 84 "i_"
102 84 "f r |"
128.39999999999998 84 "= 0.0"
168.00000000000003 84 "∧"
181.20000000000002 84 "r = r0 _"
227.39999999999998 84 "t_"
233.99999999999997 84 "h_"
240.59999999999997 84 "e_"
247.19999999999996 84 "n"
260.4 84 "_"
260.4 84 "g_"
267 84 "o_"
273.6 84 "t_"
280.20000000000005 84 "o"
293.4000000000001 84 "TO"
313.20000000000016 84 "REAL"
346.2000000000003 84 "LOOP"
379.2000000000004 84 "END;"
95.4 96 "r := r0"
75.60000000000002 108 "_"
75.60000000000002 108 "e_"
82.20000000000002 108 "n_"
88.80000000000001 108 "d;"
75.60000000000002 120 "TO REAL LOOP END:"
75.60000000000002 132 "TO REAL := r"
55.80000000000003 144 "_"
55.80000000000003 144 "e_"
62.40000000000003 144 "n_"
69.00000000000003 144 "d TO REAL;"
55.80000000000003 156 "_"
55.80000000000003 156 "i_"
62.40000000000003 156 "n_"
69.00000000000003 156 "t_"
75.60000000000002 156 "e_"
82.20000000000002 156 "g_"
88.80000000000001 156 "e_"
95.4 156 "r _"
108.6 156 "p_"
115.19999999999999 156 "r_"
121.79999999999998 156 "o_"
128.39999999999998 156 "c_"
134.99999999999997 156 "e_"
141.59999999999997 156 "d_"
148.19999999999996 156 "u_"
154.79999999999995 156 "r_"
161.39999999999995 156 "e COMPARE(A, asize,"
293.4 156 "na,"
319.80000000000007 156 "B,"
339.60000000000014 156 "bsize,"
385.8000000000003 156 "nb,"
412.2000000000004 156 "size,"
451.8000000000005 156 "acell,"
498.0000000000007 156 "bcell"
537.6000000000008 156 ");"
55.80000000000003 168 "_"
55.80000000000003 168 "c_"
62.40000000000003 168 "o_"
69.00000000000003 168 "m_"
75.60000000000002 168 "m_"
82.20000000000002 168 "e_"
88.80000000000001 168 "n_"
95.4 168 "t Compare A and B. Return:"
95.4 180 "size: The index of the most"
280.19999999999993 180 "significant"
359.4000000000002 180 "differing"
425.40000000000043 180 "cell"
95.4 192 "acell and bcell: The actual"
280.19999999999993 192 "differing"
346.20000000000016 192 "cells"
75.60000000000002 204 "If identical, size = decimals−1"
286.79999999999995 204 "and"
313.20000000000005 204 "cells"
352.8000000000002 204 "are"
379.2000000000003 204 "zero;"
55.80000000000003 216 "_"
55.80000000000003 216 "v_"
62.40000000000003 216 "a_"
69.00000000000003 216 "l_"
75.60000000000002 216 "u_"
82.20000000000002 216 "e asize, na, bsize, nb;"
55.80000000000003 228 "_"
55.80000000000003 228 "i_"
62.40000000000003 228 "n_"
69.00000000000003 228 "t_"
75.60000000000002 228 "e_"
82.20000000000002 228 "g_"
88.80000000000001 228 "e_"
95.4 228 "r asize, na, bsize, nb, size,"
293.4 228 "acell,"
339.60000000000014 228 "bcell;"
55.80000000000003 240 "_"
55.80000000000003 240 "i_"
62.40000000000003 240 "n_"
69.00000000000003 240 "t_"
75.60000000000002 240 "e_"
82.20000000000002 240 "g_"
88.80000000000001 240 "e_"
95.4 240 "r _"
108.6 240 "a_"
115.19999999999999 240 "r_"
121.79999999999998 240 "r_"
128.39999999999998 240 "a_"
134.99999999999997 240 "y A, B;"
55.80000000000003 252 "_"
55.80000000000003 252 "b_"
62.40000000000003 252 "e_"
69.00000000000003 252 "g_"
75.60000000000002 252 "i_"
82.20000000000002 252 "n"
75.60000000000002 264 "_"
75.60000000000002 264 "i_"
82.20000000000002 264 "n_"
88.80000000000001 264 "t_"
95.4 264 "e_"
102 264 "g_"
108.6 264 "e_"
115.19999999999999 264 "r xa, ca, sa, xb, cb, sb;"
75.60000000000002 276 "sa := sb := −1;"
75.60000000000002 288 "_"
75.60000000000002 288 "f_"
82.20000000000002 288 "o_"
88.80000000000001 288 "r size := _"
154.79999999999995 288 "i_"
161.39999999999995 288 "f asize > bsize"
266.9999999999999 288 "_"
266.9999999999999 288 "t_"
273.5999999999999 288 "h_"
280.19999999999993 288 "e_"
286.79999999999995 288 "n"
300 288 "asize"
339.60000000000014 288 "_"
339.60000000000014 288 "e_"
346.20000000000016 288 "l_"
352.8000000000002 288 "s_"
359.4000000000002 288 "e"
372.60000000000025 288 "bsize"
412.2000000000004 288 "_"
412.2000000000004 288 "s_"
418.8000000000004 288 "t_"
425.40000000000043 288 "e_"
432.00000000000045 288 "p"
445.2000000000005 288 "−1"
465.00000000000057 288 "_"
465.00000000000057 288 "u_"
471.6000000000006 288 "n_"
478.2000000000006 288 "t_"
484.80000000000064 288 "i_"
491.40000000000066 288 "l"
504.6000000000007 288 "decimals"
564.0000000000009 288 "_"
564.0000000000009 288 "d_"
570.6000000000009 288 "o"
75.60000000000002 300 "_"
75.60000000000002 300 "b_"
82.20000000000002 300 "e_"
88.80000000000001 300 "g_"
95.4 300 "i_"
102 300 "n"
95.4 312 "xa := size;"
95.4 324 "_"
95.4 324 "b_"
102 324 "e_"
108.6 324 "g_"
115.19999999999999 324 "i_"
121.79999999999998 324 "n ca := xa − decimals;"
273.5999999999999 324 "_"
273.5999999999999 324 "i_"
280.19999999999993 324 "f"
293.4 324 "large"
333.0000000000001 324 "_"
333.0000000000001 324 "t_"
339.60000000000014 324 "h_"
346.20000000000016 324 "e_"
352.8000000000002 324 "n"
366.0000000000002 324 "_"
366.0000000000002 324 "b_"
372.60000000000025 324 "e_"
379.2000000000003 324 "g_"
385.8000000000003 324 "i_"
392.4000000000003 324 "n"
405.60000000000036 324 "_"
405.60000000000036 324 "i_"
412.2000000000004 324 "f"
425.40000000000043 324 "ca"
445.2000000000005 324 "_"
445.2000000000005 324 ":"
458.40000000000055 324 "40"
478.2000000000006 324 "|"
478.2000000000006 324 "="
491.40000000000066 324 "sa"
511.2000000000007 324 "_"
511.2000000000007 324 "t_"
517.8000000000008 324 "h_"
524.4000000000008 324 "e_"
531.0000000000008 324 "n"
544.2000000000008 324 "_"
544.2000000000008 324 "b_"
550.8000000000009 324 "e_"
557.4000000000009 324 "g_"
564.0000000000009 324 "i_"
570.6000000000009 324 "n"
583.800000000001 324 "sa"
95.4 336 "acell := _"
154.79999999999995 336 "i_"
161.39999999999995 336 "f xa > asize _"
247.19999999999987 336 "t_"
253.79999999999987 336 "h_"
260.39999999999986 336 "e_"
266.9999999999999 336 "n"
280.19999999999993 336 "0"
293.4 336 "_"
293.4 336 "e_"
300 336 "l_"
306.6 336 "s_"
313.20000000000005 336 "e"
326.4000000000001 336 "A[ca];"
95.4 348 "xb := size;"
95.4 360 "_"
95.4 360 "b_"
102 360 "e_"
108.6 360 "g_"
115.19999999999999 360 "i_"
121.79999999999998 360 "n cb := xb − decimals;"
273.5999999999999 360 "_"
273.5999999999999 360 "i_"
280.19999999999993 360 "f"
293.4 360 "large"
333.0000000000001 360 "_"
333.0000000000001 360 "t_"
339.60000000000014 360 "h_"
346.20000000000016 360 "e_"
352.8000000000002 360 "n"
366.0000000000002 360 "_"
366.0000000000002 360 "b_"
372.60000000000025 360 "e_"
379.2000000000003 360 "g_"
385.8000000000003 360 "i_"
392.4000000000003 360 "n"
405.60000000000036 360 "_"
405.60000000000036 360 "i_"
412.2000000000004 360 "f"
425.40000000000043 360 "cb"
445.2000000000005 360 "_"
445.2000000000005 360 ":"
458.40000000000055 360 "40"
478.2000000000006 360 "|"
478.2000000000006 360 "="
491.40000000000066 360 "sb"
511.2000000000007 360 "_"
511.2000000000007 360 "t_"
517.8000000000008 360 "h_"
524.4000000000008 360 "e_"
531.0000000000008 360 "n"
544.2000000000008 360 "_"
544.2000000000008 360 "b_"
550.8000000000009 360 "e_"
557.4000000000009 360 "g_"
564.0000000000009 360 "i_"
570.6000000000009 360 "n"
583.800000000001 360 "sb"
95.4 372 "bcell := _"
154.79999999999995 372 "i_"
161.39999999999995 372 "f xb > bsize _"
247.19999999999987 372 "t_"
253.79999999999987 372 "h_"
260.39999999999986 372 "e_"
266.9999999999999 372 "n"
280.19999999999993 372 "0"
293.4 372 "_"
293.4 372 "e_"
300 372 "l_"
306.6 372 "s_"
313.20000000000005 372 "e"
326.4000000000001 372 "B[cb];"
95.4 384 "_"
95.4 384 "i_"
102 384 "f acell |"
154.79999999999995 384 "= bcell _"
207.5999999999999 384 "t_"
214.1999999999999 384 "h_"
220.7999999999999 384 "e_"
227.3999999999999 384 "n"
95.4 396 "_"
95.4 396 "b_"
102 396 "e_"
108.6 396 "g_"
115.19999999999999 396 "i_"
121.79999999999998 396 "n"
115.19999999999999 408 "_"
115.19999999999999 408 "g_"
121.79999999999998 408 "o_"
128.39999999999998 408 "t_"
134.99999999999997 408 "o COMPARE LOOP END"
95.4 420 "_"
95.4 420 "e_"
102 420 "n_"
108.6 420 "d"
75.60000000000002 432 "_"
75.60000000000002 432 "e_"
82.20000000000002 432 "n_"
88.80000000000001 432 "d;"
75.60000000000002 444 "size := decimals − 1;"
75.60000000000002 456 "acell := bcell := 0;"
75.60000000000002 468 "COMPARE LOOP END:"
75.60000000000002 480 "_"
75.60000000000002 480 "i_"
82.20000000000002 480 "f kbon"
128.40000000000003 480 "∧"
141.60000000000002 480 "_"
141.60000000000002 480 "f_"
148.20000000000002 480 "a_"
154.8 480 "l_"
161.4 480 "s_"
168 480 "e _"
181.2 480 "t_"
187.79999999999998 480 "h_"
194.39999999999998 480 "e_"
200.99999999999997 480 "n"
75.60000000000002 492 "_"
75.60000000000002 492 "b_"
82.20000000000002 492 "e_"
88.80000000000001 492 "g_"
95.4 492 "i_"
102 492 "n"
95.4 504 "LINE;"
95.4 516 "writetext( |"
167.99999999999994 516 "<<COMPARE: size"
273.5999999999999 516 "="
286.79999999999995 516 "|"
286.79999999999995 516 ">"
300 516 ");"
95.4 528 "writeinteger( |"
187.79999999999993 528 "<−d|"
207.5999999999999 528 ">, size );"
95.4 540 "writetext( |"
167.99999999999994 540 "<<, acell = |"
247.19999999999987 540 "> );"
95.4 552 "writeinteger( |"
187.79999999999993 552 "<−d|"
207.5999999999999 552 ">, acell"
266.9999999999999 552 ");"
95.4 564 "writetext( |"
167.99999999999994 564 "<<, bcell = |"
247.19999999999987 564 "> );"
95.4 576 "writeinteger( |"
187.79999999999993 576 "<−d|"
207.5999999999999 576 ">, bcell"
266.9999999999999 576 ");"
95.4 588 "writetext( |"
167.99999999999994 588 "<<, A = |"
220.7999999999999 588 "> );"
95.4 600 "PRINT( A, asize, na );"
95.4 612 "LINE;"
95.4 624 "writetext( |"
167.99999999999994 624 "<< B = |"
214.1999999999999 624 "> );"
95.4 636 "PRINT( B, bsize, nb )"
75.60000000000002 648 "_"
75.60000000000002 648 "e_"
82.20000000000002 648 "n_"
88.80000000000001 648 "d"
55.80000000000003 660 "_"
55.80000000000003 660 "e_"
62.40000000000003 660 "n_"
69.00000000000003 660 "d COMPARE;"
55.80000000000003 672 "_"
55.80000000000003 672 "i_"
62.40000000000003 672 "n_"
69.00000000000003 672 "t_"
75.60000000000002 672 "e_"
82.20000000000002 672 "g_"
88.80000000000001 672 "e_"
95.4 672 "r _"
108.6 672 "p_"
115.19999999999999 672 "r_"
121.79999999999998 672 "o_"
128.39999999999998 672 "c_"
134.99999999999997 672 "e_"
141.59999999999997 672 "d_"
148.19999999999996 672 "u_"
154.79999999999995 672 "r_"
161.39999999999995 672 "e LONGMULT2(A, asize,"
306.6 672 "na,"
333.0000000000001 672 "B,"
352.8000000000002 672 "bsize,"
399.00000000000034 672 "nb,"
425.40000000000043 672 "C,"
445.2000000000005 672 "csize,"
491.40000000000066 672 "nc);"
55.80000000000003 684 "_"
55.80000000000003 684 "v_"
62.40000000000003 684 "a_"
69.00000000000003 684 "l_"
75.60000000000002 684 "u_"
82.20000000000002 684 "e asize, na, bsize, nb, nc;"
55.80000000000003 696 "_"
55.80000000000003 696 "i_"
62.40000000000003 696 "n_"
69.00000000000003 696 "t_"
75.60000000000002 696 "e_"
82.20000000000002 696 "g_"
88.80000000000001 696 "e_"
95.4 696 "r asize, na, bsize, nb, csize,"
300 696 "nc;"
55.80000000000003 708 "_"
55.80000000000003 708 "i_"
62.40000000000003 708 "n_"
69.00000000000003 708 "t_"
75.60000000000002 708 "e_"
82.20000000000002 708 "g_"
88.80000000000001 708 "e_"
95.4 708 "r _"
108.6 708 "a_"
115.19999999999999 708 "r_"
121.79999999999998 708 "r_"
128.39999999999998 708 "a_"
134.99999999999997 708 "y A, B, C;"
55.80000000000003 720 "_"
55.80000000000003 720 "b_"
62.40000000000003 720 "e_"
69.00000000000003 720 "g_"
75.60000000000002 720 "i_"
82.20000000000002 720 "n"
75.60000000000002 732 "_"
75.60000000000002 732 "i_"
82.20000000000002 732 "n_"
88.80000000000001 732 "t_"
95.4 732 "e_"
102 732 "g_"
108.6 732 "e_"
115.19999999999999 732 "r xa, ca, sa, acell, xb,"
280.19999999999993 732 "cb,"
306.6 732 "sb,"
333.0000000000001 732 "bcell,"
379.2000000000003 732 "xc,"
405.60000000000036 732 "cc,"
432.00000000000045 732 "sc,"
458.40000000000055 732 "ccell,"
504.6000000000007 732 "xcmin;"
75.60000000000002 744 "csize := decimals − 1; _"
227.3999999999999 744 "c_"
233.9999999999999 744 "o_"
240.59999999999988 744 "m_"
247.19999999999987 744 "m_"
253.79999999999987 744 "e_"
260.39999999999986 744 "n_"
266.9999999999999 744 "t"
280.19999999999993 744 "C"
293.4 744 ":="
313.20000000000005 744 "0;"
75.60000000000002 756 "sa := −1; _"
141.59999999999997 756 "c_"
148.19999999999996 756 "o_"
154.79999999999995 756 "m_"
161.39999999999995 756 "m_"
167.99999999999994 756 "e_"
174.59999999999994 756 "n_"
181.19999999999993 756 "t No data in"
266.9999999999999 756 "A"
280.19999999999993 756 "buffer;"
75.60000000000002 768 "sb := −1;"
75.60000000000002 780 "sc := −1;"
75.60000000000002 792 "_"
75.60000000000002 792 "f_"
82.20000000000002 792 "o_"
88.80000000000001 792 "r xb := decimals _"
200.99999999999991 792 "s_"
207.5999999999999 792 "t_"
214.1999999999999 792 "e_"
220.7999999999999 792 "p 1 _"
247.19999999999987 792 "u_"
253.79999999999987 792 "n_"
260.39999999999986 792 "t_"
266.9999999999999 792 "i_"
273.5999999999999 792 "l"
286.79999999999995 792 "bsize"
326.4000000000001 792 "_"
326.4000000000001 792 "d_"
333.0000000000001 792 "o"
75.6 36 "_"
75.6 36 "b_"
82.19999999999999 36 "e_"
88.79999999999998 36 "g_"
95.39999999999998 36 "i_"
101.99999999999997 36 "n"
95.39999999999998 48 "_"
95.39999999999998 48 "b_"
101.99999999999997 48 "e_"
108.59999999999997 48 "g_"
115.19999999999996 48 "i_"
121.79999999999995 48 "n cb := xb − decimals;"
273.5999999999999 48 "_"
273.5999999999999 48 "i_"
280.19999999999993 48 "f"
293.4 48 "large"
333.0000000000001 48 "_"
333.0000000000001 48 "t_"
339.60000000000014 48 "h_"
346.20000000000016 48 "e_"
352.8000000000002 48 "n"
366.0000000000002 48 "_"
366.0000000000002 48 "b_"
372.60000000000025 48 "e_"
379.2000000000003 48 "g_"
385.8000000000003 48 "i_"
392.4000000000003 48 "n"
405.60000000000036 48 "_"
405.60000000000036 48 "i_"
412.2000000000004 48 "f"
425.40000000000043 48 "cb"
445.2000000000005 48 "_"
445.2000000000005 48 ":"
458.40000000000055 48 "40"
478.2000000000006 48 "|"
478.2000000000006 48 "="
491.40000000000066 48 "sb"
511.2000000000007 48 "_"
511.2000000000007 48 "t_"
517.8000000000008 48 "h_"
524.4000000000008 48 "e_"
531.0000000000008 48 "n"
544.2000000000008 48 "_"
544.2000000000008 48 "b_"
550.8000000000009 48 "e_"
557.4000000000009 48 "g_"
564.0000000000009 48 "i_"
570.6000000000009 48 "n"
583.800000000001 48 "sb"
95.39999999999998 60 "bcell := B[cb];"
95.39999999999998 72 "_"
95.39999999999998 72 "c_"
101.99999999999997 72 "o_"
108.59999999999997 72 "m_"
115.19999999999996 72 "m_"
121.79999999999995 72 "e_"
128.39999999999995 72 "n_"
134.99999999999994 72 "t Ready to multiply"
266.9999999999999 72 "A"
280.19999999999993 72 "by"
300 72 "bcell;"
95.39999999999998 84 "carry := 0;"
95.39999999999998 96 "_"
95.39999999999998 96 "i_"
101.99999999999997 96 "f kbon"
148.2 96 "∧"
161.39999999999998 96 "_"
161.39999999999998 96 "f_"
167.99999999999997 96 "a_"
174.59999999999997 96 "l_"
181.19999999999996 96 "s_"
187.79999999999995 96 "e _"
200.99999999999994 96 "t_"
207.59999999999994 96 "h_"
214.19999999999993 96 "e_"
220.79999999999993 96 "n"
95.39999999999996 108 "_"
95.39999999999996 108 "b_"
101.99999999999996 108 "e_"
108.59999999999995 108 "g_"
115.19999999999995 108 "i_"
121.79999999999995 108 "n"
115.19999999999995 120 "LINE;"
115.19999999999995 132 "writetext( |"
187.7999999999999 132 "<<B[|"
214.19999999999987 132 "> );"
115.19999999999995 144 "writeinteger( |"
207.59999999999988 144 "<−d|"
227.39999999999986 144 ">, xb"
266.9999999999999 144 ");"
115.19999999999995 156 "writetext( |"
187.7999999999999 156 "<<] = |"
227.39999999999986 156 "> );"
115.19999999999995 168 "writeinteger( |"
207.59999999999988 168 "<−d|"
227.39999999999986 168 ">, bcell"
286.79999999999995 168 ");"
95.39999999999996 180 "_"
95.39999999999996 180 "e_"
101.99999999999996 180 "n_"
108.59999999999995 180 "d;"
95.39999999999996 192 "_"
95.39999999999996 192 "f_"
101.99999999999996 192 "o_"
108.59999999999995 192 "r xa := _"
161.39999999999992 192 "i_"
167.99999999999991 192 "f xb < 0 _"
227.39999999999986 192 "t_"
233.99999999999986 192 "h_"
240.59999999999985 192 "e_"
247.19999999999985 192 "n"
260.39999999999986 192 "decimals"
319.80000000000007 192 "−"
333.0000000000001 192 "xb"
352.8000000000002 192 "−"
366.0000000000002 192 "1"
379.2000000000003 192 "_"
379.2000000000003 192 "e_"
385.8000000000003 192 "l_"
392.4000000000003 192 "s_"
399.00000000000034 192 "e"
412.2000000000004 192 "decimals"
471.6000000000006 192 "_"
471.6000000000006 192 "s_"
478.2000000000006 192 "t_"
484.80000000000064 192 "e_"
491.40000000000066 192 "p"
504.6000000000007 192 "1"
517.8000000000008 192 "_"
517.8000000000008 192 "u_"
524.4000000000008 192 "n_"
531.0000000000008 192 "t_"
537.6000000000008 192 "i_"
544.2000000000008 192 "l"
557.4000000000009 192 "asize"
95.39999999999996 204 "_"
95.39999999999996 204 "b_"
101.99999999999996 204 "e_"
108.59999999999995 204 "g_"
115.19999999999995 204 "i_"
121.79999999999995 204 "n"
115.19999999999995 216 "_"
115.19999999999995 216 "i_"
121.79999999999995 216 "f xa > asize"
207.59999999999997 216 "∨"
220.79999999999995 216 "xa < decimals"
313.2000000000001 216 "_"
313.2000000000001 216 "t_"
319.8000000000001 216 "h_"
326.40000000000015 216 "e_"
333.00000000000017 216 "n"
115.19999999999993 228 "_"
115.19999999999993 228 "b_"
121.79999999999993 228 "e_"
128.39999999999992 228 "g_"
134.99999999999991 228 "i_"
141.5999999999999 228 "n"
134.99999999999991 240 "acell := 0"
115.19999999999993 252 "_"
115.19999999999993 252 "e_"
121.79999999999993 252 "n_"
128.39999999999992 252 "d"
115.19999999999993 264 "_"
115.19999999999993 264 "e_"
121.79999999999993 264 "l_"
128.39999999999992 264 "s_"
134.99999999999991 264 "e"
115.19999999999993 276 "_"
115.19999999999993 276 "b_"
121.79999999999993 276 "e_"
128.39999999999992 276 "g_"
134.99999999999991 276 "i_"
141.5999999999999 276 "n"
134.99999999999991 288 "_"
134.99999999999991 288 "b_"
141.5999999999999 288 "e_"
148.1999999999999 288 "g_"
154.7999999999999 288 "i_"
161.3999999999999 288 "n ca := xa − decimals;"
313.2 288 "_"
313.2 288 "i_"
319.8 288 "f"
333.00000000000006 288 "large"
372.6000000000002 288 "_"
372.6000000000002 288 "t_"
379.2000000000002 288 "h_"
385.80000000000024 288 "e_"
392.40000000000026 288 "n"
405.6000000000003 288 "_"
405.6000000000003 288 "b_"
412.20000000000033 288 "e_"
418.80000000000035 288 "g_"
425.4000000000004 288 "i_"
432.0000000000004 288 "n"
445.20000000000044 288 "_"
445.20000000000044 288 "i_"
451.80000000000047 288 "f"
465.0000000000005 288 "ca"
484.8000000000006 288 "_"
484.8000000000006 288 ":"
498.0000000000006 288 "40 |"
517.8000000000006 288 "="
531.0000000000007 288 "sa"
550.8000000000008 288 "_"
550.8000000000008 288 "t_"
557.4000000000008 288 "h_"
564.0000000000008 288 "e_"
570.6000000000008 288 "n"
583.8000000000009 288 "_"
583.8000000000009 288 "b_"
590.4000000000009 288 "e"
134.99999999999991 300 "acell := A[ca]"
115.19999999999993 312 "_"
115.19999999999993 312 "e_"
121.79999999999993 312 "n_"
128.39999999999992 312 "d;"
115.19999999999993 324 "xc := xa + xb;"
115.19999999999993 336 "_"
115.19999999999993 336 "i_"
121.79999999999993 336 "f xc > csize"
207.59999999999997 336 "∨"
220.79999999999995 336 "xc < decimals"
313.2000000000001 336 "_"
313.2000000000001 336 "t_"
319.8000000000001 336 "h_"
326.40000000000015 336 "e_"
333.00000000000017 336 "n"
115.19999999999993 348 "_"
115.19999999999993 348 "b_"
121.79999999999993 348 "e_"
128.39999999999992 348 "g_"
134.99999999999991 348 "i_"
141.5999999999999 348 "n"
134.99999999999991 360 "xcmin := csize + 1;"
134.99999999999991 372 "ccell := 0;"
115.19999999999993 384 "_"
115.19999999999993 384 "e_"
121.79999999999993 384 "n_"
128.39999999999992 384 "d"
115.19999999999993 396 "_"
115.19999999999993 396 "e_"
121.79999999999993 396 "l_"
128.39999999999992 396 "s_"
134.99999999999991 396 "e"
115.19999999999993 408 "_"
115.19999999999993 408 "b_"
121.79999999999993 408 "e_"
128.39999999999992 408 "g_"
134.99999999999991 408 "i_"
141.5999999999999 408 "n"
134.99999999999991 420 "xcmin := xc;"
134.99999999999991 432 "_"
134.99999999999991 432 "b_"
141.5999999999999 432 "e_"
148.1999999999999 432 "g_"
154.7999999999999 432 "i_"
161.3999999999999 432 "n cc := xc − decimals;"
313.2 432 "_"
313.2 432 "i_"
319.8 432 "f"
333.00000000000006 432 "large"
372.6000000000002 432 "_"
372.6000000000002 432 "t_"
379.2000000000002 432 "h_"
385.80000000000024 432 "e_"
392.40000000000026 432 "n"
405.6000000000003 432 "_"
405.6000000000003 432 "b_"
412.20000000000033 432 "e_"
418.80000000000035 432 "g_"
425.4000000000004 432 "i_"
432.0000000000004 432 "n"
445.20000000000044 432 "_"
445.20000000000044 432 "i_"
451.80000000000047 432 "f"
465.0000000000005 432 "cc"
484.8000000000006 432 "_"
484.8000000000006 432 ":"
498.0000000000006 432 "40 |"
517.8000000000006 432 "="
531.0000000000007 432 "sc"
550.8000000000008 432 "_"
550.8000000000008 432 "t_"
557.4000000000008 432 "h_"
564.0000000000008 432 "e_"
570.6000000000008 432 "n"
583.8000000000009 432 "_"
583.8000000000009 432 "b_"
590.4000000000009 432 "e"
134.99999999999991 444 "ccell := C[cc]"
115.19999999999993 456 "_"
115.19999999999993 456 "e_"
121.79999999999993 456 "n_"
128.39999999999992 456 "d;"
115.19999999999993 468 "_"
115.19999999999993 468 "i_"
121.79999999999993 468 "f kbon"
167.99999999999997 468 "∧"
181.19999999999996 468 "_"
181.19999999999996 468 "f_"
187.79999999999995 468 "a_"
194.39999999999995 468 "l_"
200.99999999999994 468 "s_"
207.59999999999994 468 "e _"
220.79999999999993 468 "t_"
227.39999999999992 468 "h_"
233.99999999999991 468 "e_"
240.5999999999999 468 "n"
115.19999999999993 480 "_"
115.19999999999993 480 "b_"
121.79999999999993 480 "e_"
128.39999999999992 480 "g_"
134.99999999999991 480 "i_"
141.5999999999999 480 "n"
134.99999999999991 492 "LINE;"
134.99999999999991 504 "writetext( |"
207.59999999999985 504 "<< A[|"
240.59999999999982 504 "> );"
134.99999999999991 516 "writeinteger( |"
227.39999999999984 516 "<−d|"
247.19999999999982 516 ">,"
266.99999999999983 516 "xa"
286.7999999999999 516 ");"
134.99999999999991 528 "writetext( |"
207.59999999999985 528 "<<] = |"
247.19999999999982 528 "> );"
134.99999999999991 540 "writeinteger( |"
227.39999999999984 540 "<−d|"
247.19999999999982 540 ">,"
266.99999999999983 540 "acell"
306.59999999999997 540 ");"
134.99999999999991 552 "writetext( |"
207.59999999999985 552 "<<, C[|"
247.19999999999982 552 "> );"
134.99999999999991 564 "writeinteger( |"
227.39999999999984 564 "<−d|"
247.19999999999982 564 ">,"
266.99999999999983 564 "xc"
286.7999999999999 564 ");"
134.99999999999991 576 "writetext( |"
207.59999999999985 576 "<<] = |"
247.19999999999982 576 "> );"
134.99999999999991 588 "writeinteger( |"
227.39999999999984 588 "<−d|"
247.19999999999982 588 ">,"
266.99999999999983 588 "ccell"
306.59999999999997 588 ");"
115.19999999999993 600 "_"
115.19999999999993 600 "e_"
121.79999999999993 600 "n_"
128.39999999999992 600 "d;"
115.19999999999993 612 "_"
115.19999999999993 612 "c_"
121.79999999999993 612 "o_"
128.39999999999992 612 "d_"
134.99999999999991 612 "e acell, bcell, carry,"
286.7999999999999 612 "ccell,"
333.00000000000006 612 "MODUL;"
115.19999999999993 624 "3, 44;"
115.19999999999993 636 "3, 44;"
115.19999999999993 648 "2, 44;"
115.19999999999993 660 "3, 44;"
115.19999999999993 672 "2, 44;"
115.19999999999993 684 "arn a3 , ar p+a4 ; R :="
273.59999999999985 684 "carry"
313.2 684 "+"
326.40000000000003 684 "ccell;"
115.19999999999993 696 "pm p+a1, ml p+a2 ; RM :="
280.1999999999999 696 "acell"
313.19999999999993 696 "×"
319.79999999999995 696 "bcell"
359.4000000000001 696 "+"
372.60000000000014 696 "carry"
412.2000000000003 696 "+"
425.4000000000003 696 "ccell;"
115.1999999999999 708 "dl a5 , gr a3 ; RM :="
260.3999999999998 708 "RM/MODUL;"
326.40000000000003 708 "carry"
366.00000000000017 708 ":="
385.80000000000024 708 "quotient;"
115.1999999999999 720 "gm p+a4 ; ccell := remainder"
115.1999999999999 732 "_"
115.1999999999999 732 "e ;"
115.1999999999999 744 "_"
115.1999999999999 744 "i_"
121.7999999999999 744 "f (ccell |"
181.19999999999985 744 "= 0"
207.59999999999994 744 "∨"
220.79999999999993 744 "csize"
260.3999999999999 744 "_"
260.3999999999999 744 ">"
273.59999999999997 744 "xc)"
299.99999999999994 744 "∧"
313.2 744 "xc"
333.00000000000006 744 "_"
333.00000000000006 744 ">"
346.2000000000001 744 "decimals"
405.6000000000003 744 "_"
405.6000000000003 744 "t_"
412.20000000000033 744 "h_"
418.80000000000035 744 "e_"
425.4000000000004 744 "n"
115.1999999999999 756 "_"
115.1999999999999 756 "b_"
121.7999999999999 756 "e_"
128.3999999999999 756 "g_"
134.9999999999999 756 "i_"
141.59999999999988 756 "n"
134.9999999999999 768 "_"
134.9999999999999 768 "i_"
141.59999999999988 768 "f xc > csize _"
227.3999999999998 768 "t_"
233.9999999999998 768 "h_"
240.5999999999998 768 "e_"
247.1999999999998 768 "n"
134.9999999999999 780 "_"
134.9999999999999 780 "b_"
141.59999999999988 780 "e_"
148.19999999999987 780 "g_"
154.79999999999987 780 "i_"
161.39999999999986 780 "n"
154.79999999999987 792 "csize := xc"
134.99999999999994 36 "_"
134.99999999999994 36 "e_"
141.59999999999994 36 "n_"
148.19999999999993 36 "d;"
134.99999999999994 48 "_"
134.99999999999994 48 "f_"
141.59999999999994 48 "o_"
148.19999999999993 48 "r xc := xcmin _"
240.59999999999985 48 "s_"
247.19999999999985 48 "t_"
253.79999999999987 48 "e_"
260.39999999999986 48 "p"
273.5999999999999 48 "1"
286.79999999999995 48 "_"
286.79999999999995 48 "u_"
293.4 48 "n_"
300 48 "t_"
306.6 48 "i_"
313.20000000000005 48 "l"
326.4000000000001 48 "xa"
346.20000000000016 48 "+"
359.4000000000002 48 "xb"
379.2000000000003 48 "_"
379.2000000000003 48 "d_"
385.8000000000003 48 "o"
134.99999999999994 60 "_"
134.99999999999994 60 "b_"
141.59999999999994 60 "e_"
148.19999999999993 60 "g_"
154.79999999999993 60 "i_"
161.39999999999992 60 "n"
154.79999999999993 72 "_"
154.79999999999993 72 "b_"
161.39999999999992 72 "e_"
167.99999999999991 72 "g_"
174.5999999999999 72 "i_"
181.1999999999999 72 "n cc := xc −"
266.9999999999999 72 "decimals;"
333.0000000000001 72 "_"
333.0000000000001 72 "i_"
339.60000000000014 72 "f"
352.8000000000002 72 "large"
392.4000000000003 72 "_"
392.4000000000003 72 "t_"
399.00000000000034 72 "h_"
405.60000000000036 72 "e_"
412.2000000000004 72 "n"
425.40000000000043 72 "_"
425.40000000000043 72 "b_"
432.00000000000045 72 "e_"
438.6000000000005 72 "g_"
445.2000000000005 72 "i_"
451.8000000000005 72 "n"
465.00000000000057 72 "_"
465.00000000000057 72 "i_"
471.6000000000006 72 "f"
484.80000000000064 72 "cc"
504.6000000000007 72 "_"
504.6000000000007 72 ":"
517.8000000000008 72 "40"
537.6000000000008 72 "|"
537.6000000000008 72 "="
550.8000000000009 72 "sc"
570.6000000000009 72 "_"
570.6000000000009 72 "t_"
577.200000000001 72 "h_"
583.800000000001 72 "e_"
590.400000000001 72 "n"
154.79999999999993 84 "C[cc] := _"
214.19999999999987 84 "i_"
220.79999999999987 84 "f xc <"
266.9999999999999 84 "xa"
286.79999999999995 84 "+"
300 84 "xb"
319.80000000000007 84 "_"
319.80000000000007 84 "t_"
326.4000000000001 84 "h_"
333.0000000000001 84 "e_"
339.60000000000014 84 "n"
352.8000000000002 84 "0"
366.0000000000002 84 "_"
366.0000000000002 84 "e_"
372.60000000000025 84 "l_"
379.2000000000003 84 "s_"
385.8000000000003 84 "e"
399.00000000000034 84 "ccell;"
154.79999999999993 96 "_"
154.79999999999993 96 "i_"
161.39999999999992 96 "f kbon"
207.6 96 "∧"
220.79999999999998 96 "_"
220.79999999999998 96 "f_"
227.39999999999998 96 "a_"
233.99999999999997 96 "l_"
240.59999999999997 96 "s_"
247.19999999999996 96 "e"
260.4 96 "_"
260.4 96 "t_"
267 96 "h_"
273.6 96 "e_"
280.20000000000005 96 "n"
154.79999999999993 108 "_"
154.79999999999993 108 "b_"
161.39999999999992 108 "e_"
167.99999999999991 108 "g_"
174.5999999999999 108 "i_"
181.1999999999999 108 "n"
174.5999999999999 120 "LINE;"
174.5999999999999 132 "writetext( |"
247.19999999999985 132 "<<"
266.9999999999999 132 "C[|"
280.19999999999993 132 ">"
293.4 132 ");"
174.5999999999999 144 "writeinteger("
266.9999999999999 144 "|"
266.9999999999999 144 "<−d|"
286.79999999999995 144 ">,"
306.6 144 "xc"
326.4000000000001 144 ");"
174.5999999999999 156 "writetext( |"
247.19999999999985 156 "<</|"
266.9999999999999 156 ">"
280.19999999999993 156 ");"
174.5999999999999 168 "writeinteger("
266.9999999999999 168 "|"
266.9999999999999 168 "<−d|"
286.79999999999995 168 ">,"
306.6 168 "cc"
326.4000000000001 168 ");"
174.5999999999999 180 "writetext( |"
247.19999999999985 180 "<<]"
273.5999999999999 180 "="
286.79999999999995 180 "|"
286.79999999999995 180 ">"
300 180 ");"
174.5999999999999 192 "writeinteger("
266.9999999999999 192 "|"
266.9999999999999 192 "<−d|"
286.79999999999995 192 ">,"
306.6 192 "C[cc]"
346.20000000000016 192 ");"
154.79999999999993 204 "_"
154.79999999999993 204 "e_"
161.39999999999992 204 "n_"
167.99999999999991 204 "d"
134.99999999999994 216 "_"
134.99999999999994 216 "e_"
141.59999999999994 216 "n_"
148.19999999999993 216 "d"
115.19999999999996 228 "_"
115.19999999999996 228 "e_"
121.79999999999995 228 "n_"
128.39999999999995 228 "d"
95.39999999999998 240 "_"
95.39999999999998 240 "e_"
101.99999999999997 240 "n_"
108.59999999999997 240 "d;"
95.39999999999998 252 "_"
95.39999999999998 252 "i_"
101.99999999999997 252 "f carry |"
154.79999999999993 252 "= 0 _"
181.1999999999999 252 "t_"
187.7999999999999 252 "h_"
194.3999999999999 252 "e_"
200.9999999999999 252 "n"
95.39999999999998 264 "_"
95.39999999999998 264 "b_"
101.99999999999997 264 "e_"
108.59999999999997 264 "g_"
115.19999999999996 264 "i_"
121.79999999999995 264 "n"
115.19999999999996 276 "ALARM(|"
154.79999999999993 276 "<<LONGMULT2|"
227.39999999999986 276 ">)"
95.39999999999998 288 "_"
95.39999999999998 288 "e_"
101.99999999999997 288 "n_"
108.59999999999997 288 "d"
75.6 300 "_"
75.6 300 "e_"
82.19999999999999 300 "n_"
88.79999999999998 300 "d;"
75.6 312 "_"
75.6 312 "i_"
82.19999999999999 312 "f large _"
134.99999999999994 312 "t_"
141.59999999999994 312 "h_"
148.19999999999993 312 "e_"
154.79999999999993 312 "n _"
167.99999999999991 312 "b_"
174.5999999999999 312 "e_"
181.1999999999999 312 "g_"
187.7999999999999 312 "i_"
194.3999999999999 312 "n _"
207.59999999999988 312 "i_"
214.19999999999987 312 "f sc _"
247.19999999999985 312 ">"
260.39999999999986 312 "0"
273.5999999999999 312 "_"
273.5999999999999 312 "t_"
280.19999999999993 312 "h_"
286.79999999999995 312 "e_"
293.4 312 "n"
306.6 312 "_"
306.6 312 "b_"
313.20000000000005 312 "e_"
319.80000000000007 312 "g_"
326.4000000000001 312 "i_"
333.0000000000001 312 "n"
346.20000000000016 312 "put("
379.2000000000003 312 "C,"
399.00000000000034 312 "FREE,"
438.6000000000005 312 "nc"
451.8 312 "×"
458.40000000000003 312 "step"
491.40000000000015 312 "+"
504.6000000000002 312 "1 +"
531.0000000000002 312 "sc"
550.8000000000003 312 ");"
570.6000000000004 312 "stat"
55.80000000000006 324 "_"
55.80000000000006 324 "e_"
62.400000000000055 324 "n_"
69.00000000000006 324 "d LONGMULT2;"
55.80000000000006 336 "_"
55.80000000000006 336 "i_"
62.400000000000055 336 "n_"
69.00000000000006 336 "t_"
75.60000000000005 336 "e_"
82.20000000000005 336 "g_"
88.80000000000004 336 "e_"
95.40000000000003 336 "r _"
108.60000000000002 336 "p_"
115.20000000000002 336 "r_"
121.80000000000001 336 "o_"
128.4 336 "c_"
135 336 "e_"
141.6 336 "d_"
148.2 336 "u_"
154.79999999999998 336 "r_"
161.39999999999998 336 "e LONGDIVIDE(A,"
266.99999999999994 336 "asize,"
313.2000000000001 336 "na,"
339.6000000000002 336 "B,"
359.40000000000026 336 "bsize,"
405.6000000000004 336 "nb,"
432.0000000000005 336 "C,"
451.8000000000006 336 "csize,"
498.00000000000074 336 "nc);"
55.80000000000006 348 "_"
55.80000000000006 348 "c_"
62.400000000000055 348 "o_"
69.00000000000006 348 "m_"
75.60000000000005 348 "m_"
82.20000000000005 348 "e_"
88.80000000000004 348 "n_"
95.40000000000003 348 "t ( C, A ) := ( A _"
214.19999999999993 348 ": B, A"
260.3999999999999 348 "_"
260.3999999999999 348 "m_"
266.99999999999994 348 "o_"
273.59999999999997 348 "d"
286.8 348 "B"
300.00000000000006 348 ");"
55.80000000000006 360 "_"
55.80000000000006 360 "v_"
62.400000000000055 360 "a_"
69.00000000000006 360 "l_"
75.60000000000005 360 "u_"
82.20000000000005 360 "e na, bsize, nb, nc;"
55.80000000000006 372 "_"
55.80000000000006 372 "i_"
62.400000000000055 372 "n_"
69.00000000000006 372 "t_"
75.60000000000005 372 "e_"
82.20000000000005 372 "g_"
88.80000000000004 372 "e_"
95.40000000000003 372 "r asize, na, bsize, nb, csize,"
300.00000000000006 372 "nc;"
55.80000000000006 384 "_"
55.80000000000006 384 "i_"
62.400000000000055 384 "n_"
69.00000000000006 384 "t_"
75.60000000000005 384 "e_"
82.20000000000005 384 "g_"
88.80000000000004 384 "e_"
95.40000000000003 384 "r _"
108.60000000000002 384 "a_"
115.20000000000002 384 "r_"
121.80000000000001 384 "r_"
128.4 384 "a_"
135 384 "y A, B, C;"
55.80000000000006 396 "_"
55.80000000000006 396 "b_"
62.400000000000055 396 "e_"
69.00000000000006 396 "g_"
75.60000000000005 396 "i_"
82.20000000000005 396 "n"
75.60000000000005 408 "LONGDIVIDE2(A, asize, na, B,"
266.99999999999994 408 "bsize,"
313.2000000000001 408 "nb,"
339.6000000000002 408 "C,"
359.40000000000026 408 "csize,"
405.6000000000004 408 "nc,"
432.0000000000005 408 "decimals);"
55.80000000000006 420 "_"
55.80000000000006 420 "e_"
62.400000000000055 420 "n_"
69.00000000000006 420 "d LONGDIVIDE;"
55.80000000000006 432 "_"
55.80000000000006 432 "i_"
62.400000000000055 432 "n_"
69.00000000000006 432 "t_"
75.60000000000005 432 "e_"
82.20000000000005 432 "g_"
88.80000000000004 432 "e_"
95.40000000000003 432 "r _"
108.60000000000002 432 "p_"
115.20000000000002 432 "r_"
121.80000000000001 432 "o_"
128.4 432 "c_"
135 432 "e_"
141.6 432 "d_"
148.2 432 "u_"
154.79999999999998 432 "r_"
161.39999999999998 432 "e LONGDIVIDE2(A,"
273.59999999999997 432 "asize,"
319.8000000000001 432 "na,"
346.2000000000002 432 "B,"
366.0000000000003 432 "bsize,"
412.20000000000044 432 "nb,"
438.60000000000053 432 "C,"
458.4000000000006 432 "csize,"
504.60000000000076 432 "nc,"
531.0000000000008 432 "decs);"
55.80000000000006 444 "_"
55.80000000000006 444 "c_"
62.400000000000055 444 "o_"
69.00000000000006 444 "m_"
75.60000000000005 444 "m_"
82.20000000000005 444 "e_"
88.80000000000004 444 "n_"
95.40000000000003 444 "t ( C, A ) := ( A _"
214.19999999999993 444 ": B, A"
260.3999999999999 444 "_"
260.3999999999999 444 "m_"
266.99999999999994 444 "o_"
273.59999999999997 444 "d"
286.8 444 "B"
300.00000000000006 444 ");"
55.80000000000006 456 "_"
55.80000000000006 456 "v_"
62.400000000000055 456 "a_"
69.00000000000006 456 "l_"
75.60000000000005 456 "u_"
82.20000000000005 456 "e na, bsize, nb, nc, decs;"
55.80000000000006 468 "_"
55.80000000000006 468 "i_"
62.400000000000055 468 "n_"
69.00000000000006 468 "t_"
75.60000000000005 468 "e_"
82.20000000000005 468 "g_"
88.80000000000004 468 "e_"
95.40000000000003 468 "r asize, na, bsize, nb, csize,"
300.00000000000006 468 "nc,"
326.40000000000015 468 "decs;"
55.80000000000006 480 "_"
55.80000000000006 480 "i_"
62.400000000000055 480 "n_"
69.00000000000006 480 "t_"
75.60000000000005 480 "e_"
82.20000000000005 480 "g_"
88.80000000000004 480 "e_"
95.40000000000003 480 "r _"
108.60000000000002 480 "a_"
115.20000000000002 480 "r_"
121.80000000000001 480 "r_"
128.4 480 "a_"
135 480 "y A, B, C;"
55.80000000000006 492 "_"
55.80000000000006 492 "b_"
62.400000000000055 492 "e_"
69.00000000000006 492 "g_"
75.60000000000005 492 "i_"
82.20000000000005 492 "n"
75.60000000000005 504 "_"
75.60000000000005 504 "i_"
82.20000000000005 504 "n_"
88.80000000000004 504 "t_"
95.40000000000003 504 "e_"
102.00000000000003 504 "g_"
108.60000000000002 504 "e_"
115.20000000000002 504 "r xa, ca, sa, xb, cb,"
260.3999999999999 504 "sb,"
286.8 504 "xc,"
313.2000000000001 504 "cc,"
339.6000000000002 504 "sc,"
366.0000000000003 504 "bn,"
392.4000000000004 504 "bn2,"
425.4000000000005 504 "acell,"
471.60000000000065 504 "bcell;"
75.60000000000005 516 "_"
75.60000000000005 516 "i_"
82.20000000000005 516 "n_"
88.80000000000004 516 "t_"
95.40000000000003 516 "e_"
102.00000000000003 516 "g_"
108.60000000000002 516 "e_"
115.20000000000002 516 "r an1, an, q, q0, digit,"
280.2 516 "carry2,"
333.00000000000017 516 "xamin,"
379.20000000000033 516 "asize2,"
432.0000000000005 516 "normfactor;"
75.60000000000005 528 "_"
75.60000000000005 528 "i_"
82.20000000000005 528 "f bsize < decs _"
181.19999999999996 528 "t_"
187.79999999999995 528 "h_"
194.39999999999995 528 "e_"
200.99999999999994 528 "n"
75.60000000000005 540 "_"
75.60000000000005 540 "b_"
82.20000000000005 540 "e_"
88.80000000000004 540 "g_"
95.40000000000003 540 "i_"
102.00000000000003 540 "n"
95.40000000000003 552 "ALARM(|"
135 552 "<<LONGDIVIDE2 1|"
233.99999999999991 552 ">)"
75.60000000000005 564 "_"
75.60000000000005 564 "e_"
82.20000000000005 564 "n_"
88.80000000000004 564 "d;"
75.60000000000005 576 "normfactor := 1;"
75.60000000000005 588 "NORMALIZE LOOP START:"
95.40000000000003 600 "xb := bsize;"
95.40000000000003 612 "sb := −1;"
95.40000000000003 624 "_"
95.40000000000003 624 "b_"
102.00000000000003 624 "e_"
108.60000000000002 624 "g_"
115.20000000000002 624 "i_"
121.80000000000001 624 "n cb := xb − decimals;"
273.59999999999997 624 "_"
273.59999999999997 624 "i_"
280.2 624 "f"
293.40000000000003 624 "large"
333.00000000000017 624 "_"
333.00000000000017 624 "t_"
339.6000000000002 624 "h_"
346.2000000000002 624 "e_"
352.80000000000024 624 "n"
366.0000000000003 624 "_"
366.0000000000003 624 "b_"
372.6000000000003 624 "e_"
379.20000000000033 624 "g_"
385.80000000000035 624 "i_"
392.4000000000004 624 "n"
405.6000000000004 624 "_"
405.6000000000004 624 "i_"
412.20000000000044 624 "f"
425.4000000000005 624 "cb"
445.20000000000056 624 "_"
445.20000000000056 624 ":"
458.4000000000006 624 "40"
478.20000000000067 624 "|"
478.20000000000067 624 "="
491.4000000000007 624 "sb"
511.2000000000008 624 "_"
511.2000000000007 624 "t_"
517.8000000000008 624 "h_"
524.4000000000008 624 "e_"
531.0000000000008 624 "n"
544.2000000000008 624 "_"
544.2000000000008 624 "b_"
550.8000000000009 624 "e_"
557.4000000000009 624 "g_"
564.0000000000009 624 "i_"
570.6000000000009 624 "n"
583.800000000001 624 "sb"
95.40000000000003 636 "bn := B[cb];"
95.40000000000003 648 "_"
95.40000000000003 648 "i_"
102.00000000000003 648 "f bn = 0 _"
161.39999999999998 648 "t_"
167.99999999999997 648 "h_"
174.59999999999997 648 "e_"
181.19999999999996 648 "n"
95.40000000000003 660 "_"
95.40000000000003 660 "b_"
102.00000000000003 660 "e_"
108.60000000000002 660 "g_"
115.20000000000002 660 "i_"
121.80000000000001 660 "n"
115.20000000000002 672 "ALARM(|"
154.79999999999998 672 "<<LONGDIVIDE2 2|"
253.79999999999993 672 ">)"
95.40000000000003 684 "_"
95.40000000000003 684 "e_"
102.00000000000003 684 "n_"
108.60000000000002 684 "d;"
95.40000000000003 696 "_"
95.40000000000003 696 "i_"
102.00000000000003 696 "f kbon _"
148.2 696 "t_"
154.79999999999998 696 "h_"
161.39999999999998 696 "e_"
167.99999999999997 696 "n"
95.40000000000003 708 "_"
95.40000000000003 708 "b_"
102.00000000000003 708 "e_"
108.60000000000002 708 "g_"
115.20000000000002 708 "i_"
121.80000000000001 708 "n"
115.20000000000002 720 "LINE;"
115.20000000000002 732 "writetext( |"
187.79999999999995 732 "<<LONG DIVIDE:"
286.8 732 "A:|"
300.00000000000006 732 ">"
313.2000000000001 732 ");"
115.20000000000002 744 "PRINT( A, asize, na );"
115.20000000000002 756 "LINE;"
115.20000000000002 768 "writetext( |"
187.79999999999995 768 "<< B:|"
220.79999999999993 768 "> );"
115.20000000000002 780 "PRINT( B, bsize, nb );"
115.20000000000002 792 "LINE;"
115.19999999999996 36 "writetext( |"
187.7999999999999 36 "<< bn = |"
240.59999999999985 36 "> );"
115.19999999999996 48 "writeinteger( |"
207.59999999999988 48 "<−d|"
227.39999999999986 48 ">, bn"
266.9999999999999 48 ")"
95.39999999999998 60 "_"
95.39999999999998 60 "e_"
101.99999999999997 60 "n_"
108.59999999999997 60 "d;"
95.39999999999998 72 "_"
95.39999999999998 72 "i_"
101.99999999999997 72 "f bn _"
134.99999999999994 72 "> MODUL _"
187.7999999999999 72 ": 2 _"
214.19999999999987 72 "t_"
220.79999999999987 72 "h_"
227.39999999999986 72 "e_"
233.99999999999986 72 "n _"
247.19999999999985 72 "g_"
253.79999999999987 72 "o_"
260.39999999999986 72 "t_"
266.9999999999999 72 "o"
280.19999999999993 72 "NORMALIZE"
346.20000000000016 72 "LOOP"
379.2000000000003 72 "END;"
95.39999999999998 84 "normfactor := MODUL _"
227.39999999999986 84 ": (bn"
266.9999999999999 84 "+"
280.19999999999993 84 "1);"
95.39999999999998 96 "_"
95.39999999999998 96 "i_"
101.99999999999997 96 "f kbon _"
148.19999999999993 96 "t_"
154.79999999999993 96 "h_"
161.39999999999992 96 "e_"
167.99999999999991 96 "n"
95.39999999999998 108 "_"
95.39999999999998 108 "b_"
101.99999999999997 108 "e_"
108.59999999999997 108 "g_"
115.19999999999996 108 "i_"
121.79999999999995 108 "n"
115.19999999999996 120 "LINE;"
115.19999999999996 132 "writetext( |"
187.7999999999999 132 "<<LONG DIVIDE:"
286.79999999999995 132 "normfactor"
359.4000000000002 132 "="
372.60000000000025 132 "|"
372.60000000000025 132 ">"
385.8000000000003 132 ");"
115.19999999999996 144 "writeinteger( |"
207.59999999999988 144 "<−d|"
227.39999999999986 144 ">, normfactor"
319.80000000000007 144 ")"
95.39999999999998 156 "_"
95.39999999999998 156 "e_"
101.99999999999997 156 "n_"
108.59999999999997 156 "d;"
95.39999999999998 168 "MULT( A, asize, na, normfactor"
300 168 ");"
95.39999999999998 180 "MULT( B, bsize, nb, normfactor"
300 180 ");"
95.39999999999998 192 "_"
95.39999999999998 192 "g_"
101.99999999999997 192 "o_"
108.59999999999997 192 "t_"
115.19999999999996 192 "o NORMALIZE LOOP START;"
75.6 204 "NORMALIZE LOOP END:"
75.6 216 "bn2 := bn + 2;"
75.6 228 "sa := sc := −1;"
75.6 240 "csize := decs − 1;"
75.6 252 "_"
75.6 252 "f_"
82.19999999999999 252 "o_"
88.79999999999998 252 "r xc := asize − bsize _"
233.99999999999986 252 "s_"
240.59999999999985 252 "t_"
247.19999999999985 252 "e_"
253.79999999999987 252 "p"
266.9999999999999 252 "−1"
286.79999999999995 252 "_"
286.79999999999995 252 "u_"
293.4 252 "n_"
300 252 "t_"
306.6 252 "i_"
313.20000000000005 252 "l"
326.4000000000001 252 "decs"
359.4000000000002 252 "_"
359.4000000000002 252 "d_"
366.0000000000002 252 "o"
75.6 264 "_"
75.6 264 "b_"
82.19999999999999 264 "e_"
88.79999999999998 264 "g_"
95.39999999999998 264 "i_"
101.99999999999997 264 "n"
95.39999999999998 276 "_"
95.39999999999998 276 "i_"
101.99999999999997 276 "f kbon _"
148.19999999999993 276 "t_"
154.79999999999993 276 "h_"
161.39999999999992 276 "e_"
167.99999999999991 276 "n"
95.39999999999998 288 "_"
95.39999999999998 288 "b_"
101.99999999999997 288 "e_"
108.59999999999997 288 "g_"
115.19999999999996 288 "i_"
121.79999999999995 288 "n"
115.19999999999996 300 "LINE;"
115.19999999999996 312 "writetext( |"
187.7999999999999 312 "<<LONG DIVIDE:"
286.79999999999995 312 "xc"
306.6 312 "="
319.80000000000007 312 "|"
319.80000000000007 312 ">"
333.0000000000001 312 ");"
115.19999999999996 324 "writeinteger( |"
207.59999999999988 324 "<−d|"
227.39999999999986 324 ">, xc"
266.9999999999999 324 ")"
95.39999999999998 336 "_"
95.39999999999998 336 "e_"
101.99999999999997 336 "n_"
108.59999999999997 336 "d;"
95.39999999999998 348 "q := 0;"
95.39999999999998 360 "_"
95.39999999999998 360 "c_"
101.99999999999997 360 "o_"
108.59999999999997 360 "m_"
115.19999999999996 360 "m_"
121.79999999999995 360 "e_"
128.39999999999995 360 "n_"
134.99999999999994 360 "t Outline of the loop"
280.19999999999993 360 "between"
333.0000000000001 360 "QLOOPSTART"
405.60000000000036 360 "and"
432.00000000000045 360 "QLOOPEND:"
115.19999999999996 372 "while A[xa..] _"
207.59999999999988 372 "> B[xb..]"
273.5999999999999 372 "do"
128.39999999999995 384 "q0 := guess at A[xa..]/B[xb..]"
333.0000000000001 384 "which"
372.60000000000025 384 "is"
392.4000000000003 384 "not"
418.8000000000004 384 "too"
445.2000000000005 384 "large"
128.39999999999995 396 "A[xa..] := A[xa..] −"
266.9999999999999 396 "q0"
280.2 396 "×"
286.8 396 "B[xb..]"
128.39999999999995 408 "q := q + q0;"
95.39999999999998 420 "QLOOPSTART:"
115.19999999999996 432 "xa := xc + bsize + 1;"
115.19999999999996 444 "_"
115.19999999999996 444 "i_"
121.79999999999995 444 "f xa > asize _"
207.59999999999988 444 "t_"
214.19999999999987 444 "h_"
220.79999999999987 444 "e_"
227.39999999999986 444 "n"
115.19999999999996 456 "_"
115.19999999999996 456 "b_"
121.79999999999995 456 "e_"
128.39999999999995 456 "g_"
134.99999999999994 456 "i_"
141.59999999999994 456 "n"
134.99999999999994 468 "an1 := 0"
115.19999999999996 480 "_"
115.19999999999996 480 "e_"
121.79999999999995 480 "n_"
128.39999999999995 480 "d"
115.19999999999996 492 "_"
115.19999999999996 492 "e_"
121.79999999999995 492 "l_"
128.39999999999995 492 "s_"
134.99999999999994 492 "e"
115.19999999999996 504 "_"
115.19999999999996 504 "b_"
121.79999999999995 504 "e_"
128.39999999999995 504 "g_"
134.99999999999994 504 "i_"
141.59999999999994 504 "n"
134.99999999999994 516 "_"
134.99999999999994 516 "b_"
141.59999999999994 516 "e_"
148.19999999999993 516 "g_"
154.79999999999993 516 "i_"
161.39999999999992 516 "n ca := xa − decimals;"
313.20000000000005 516 "_"
313.20000000000005 516 "i_"
319.80000000000007 516 "f"
333.0000000000001 516 "large"
372.60000000000025 516 "_"
372.60000000000025 516 "t_"
379.2000000000003 516 "h_"
385.8000000000003 516 "e_"
392.4000000000003 516 "n"
405.60000000000036 516 "_"
405.60000000000036 516 "b_"
412.2000000000004 516 "e_"
418.8000000000004 516 "g_"
425.40000000000043 516 "i_"
432.00000000000045 516 "n"
445.2000000000005 516 "_"
445.2000000000005 516 "i_"
451.8000000000005 516 "f"
465.00000000000057 516 "ca"
484.80000000000064 516 "_"
484.80000000000064 516 ":"
498.0000000000007 516 "40"
517.8000000000008 516 "|"
517.8000000000008 516 "="
531.0000000000008 516 "sa"
550.8000000000009 516 "_"
550.8000000000009 516 "t_"
557.4000000000009 516 "h_"
564.0000000000009 516 "e_"
570.6000000000009 516 "n"
583.800000000001 516 "_"
583.800000000001 516 "b_"
590.400000000001 516 "e"
134.99999999999994 528 "an1 := A[ca]"
115.19999999999996 540 "_"
115.19999999999996 540 "e_"
121.79999999999995 540 "n_"
128.39999999999995 540 "d;"
115.19999999999996 552 "_"
115.19999999999996 552 "i_"
121.79999999999995 552 "f an1 > 0 _"
187.7999999999999 552 "t_"
194.3999999999999 552 "h_"
200.9999999999999 552 "e_"
207.59999999999988 552 "n _"
220.79999999999987 552 "g_"
227.39999999999986 552 "o_"
233.99999999999986 552 "t_"
240.59999999999985 552 "o QMORE;"
115.19999999999996 564 "_"
115.19999999999996 564 "i_"
121.79999999999995 564 "f xc + bsize < decs _"
253.79999999999987 564 "t_"
260.39999999999986 564 "h_"
266.9999999999999 564 "e_"
273.5999999999999 564 "n"
286.79999999999995 564 "_"
286.79999999999995 564 "g_"
293.4 564 "o_"
300 564 "t_"
306.6 564 "o"
319.80000000000007 564 "QLOOPEND;"
115.19999999999996 576 "_"
115.19999999999996 576 "f_"
121.79999999999995 576 "o_"
128.39999999999995 576 "r xa := xc + bsize _"
253.79999999999987 576 "s_"
260.39999999999986 576 "t_"
266.9999999999999 576 "e_"
273.5999999999999 576 "p"
286.79999999999995 576 "−1"
306.6 576 "_"
306.6 576 "u_"
313.20000000000005 576 "n_"
319.80000000000007 576 "t_"
326.4000000000001 576 "i_"
333.0000000000001 576 "l"
346.20000000000016 576 "decs"
379.2000000000003 576 "_"
379.2000000000003 576 "d_"
385.8000000000003 576 "o"
115.19999999999996 588 "_"
115.19999999999996 588 "b_"
121.79999999999995 588 "e_"
128.39999999999995 588 "g_"
134.99999999999994 588 "i_"
141.59999999999994 588 "n"
134.99999999999994 600 "_"
134.99999999999994 600 "i_"
141.59999999999994 600 "f xa > asize _"
227.39999999999986 600 "t_"
233.99999999999986 600 "h_"
240.59999999999985 600 "e_"
247.19999999999985 600 "n"
134.99999999999994 612 "_"
134.99999999999994 612 "b_"
141.59999999999994 612 "e_"
148.19999999999993 612 "g_"
154.79999999999993 612 "i_"
161.39999999999992 612 "n"
154.79999999999993 624 "acell := 0"
134.99999999999994 636 "_"
134.99999999999994 636 "e_"
141.59999999999994 636 "n_"
148.19999999999993 636 "d"
134.99999999999994 648 "_"
134.99999999999994 648 "e_"
141.59999999999994 648 "l_"
148.19999999999993 648 "s_"
154.79999999999993 648 "e"
134.99999999999994 660 "_"
134.99999999999994 660 "b_"
141.59999999999994 660 "e_"
148.19999999999993 660 "g_"
154.79999999999993 660 "i_"
161.39999999999992 660 "n"
154.79999999999993 672 "_"
154.79999999999993 672 "b_"
161.39999999999992 672 "e_"
167.99999999999991 672 "g_"
174.5999999999999 672 "i_"
181.1999999999999 672 "n ca := xa −"
266.9999999999999 672 "decimals;"
333.0000000000001 672 "_"
333.0000000000001 672 "i_"
339.60000000000014 672 "f"
352.8000000000002 672 "large"
392.4000000000003 672 "_"
392.4000000000003 672 "t_"
399.00000000000034 672 "h_"
405.60000000000036 672 "e_"
412.2000000000004 672 "n"
425.40000000000043 672 "_"
425.40000000000043 672 "b_"
432.00000000000045 672 "e_"
438.6000000000005 672 "g_"
445.2000000000005 672 "i_"
451.8000000000005 672 "n"
465.00000000000057 672 "_"
465.00000000000057 672 "i_"
471.6000000000006 672 "f"
484.80000000000064 672 "ca"
504.6000000000007 672 "_"
504.6000000000007 672 ":"
517.8000000000008 672 "40"
537.6000000000008 672 "|"
537.6000000000008 672 "="
550.8000000000009 672 "sa"
570.6000000000009 672 "_"
570.6000000000009 672 "t_"
577.200000000001 672 "h_"
583.800000000001 672 "e_"
590.400000000001 672 "n"
154.79999999999993 684 "acell := A[ca]"
134.99999999999994 696 "_"
134.99999999999994 696 "e_"
141.59999999999994 696 "n_"
148.19999999999993 696 "d;"
134.99999999999994 708 "xb := xa − xc;"
134.99999999999994 720 "_"
134.99999999999994 720 "i_"
141.59999999999994 720 "f xb < decs _"
220.79999999999987 720 "t_"
227.39999999999986 720 "h_"
233.99999999999986 720 "e_"
240.59999999999985 720 "n"
134.99999999999994 732 "_"
134.99999999999994 732 "b_"
141.59999999999994 732 "e_"
148.19999999999993 732 "g_"
154.79999999999993 732 "i_"
161.39999999999992 732 "n"
154.79999999999993 744 "bcell := 0"
134.99999999999994 756 "_"
134.99999999999994 756 "e_"
141.59999999999994 756 "n_"
148.19999999999993 756 "d"
134.99999999999994 768 "_"
134.99999999999994 768 "e_"
141.59999999999994 768 "l_"
148.19999999999993 768 "s_"
154.79999999999993 768 "e"
134.99999999999994 780 "_"
134.99999999999994 780 "b_"
141.59999999999994 780 "e_"
148.19999999999993 780 "g_"
154.79999999999993 780 "i_"
161.39999999999992 780 "n"
154.79999999999993 792 "_"
154.79999999999993 792 "b_"
161.39999999999992 792 "e_"
167.99999999999991 792 "g_"
174.5999999999999 792 "i_"
181.1999999999999 792 "n cb := xb −"
266.9999999999999 792 "decimals;"
333.0000000000001 792 "_"
333.0000000000001 792 "i_"
339.60000000000014 792 "f"
352.8000000000002 792 "large"
392.4000000000003 792 "_"
392.4000000000003 792 "t_"
399.00000000000034 792 "h_"
405.60000000000036 792 "e_"
412.2000000000004 792 "n"
425.40000000000043 792 "_"
425.40000000000043 792 "b_"
432.00000000000045 792 "e_"
438.6000000000005 792 "g_"
445.2000000000005 792 "i_"
451.8000000000005 792 "n"
465.00000000000057 792 "_"
465.00000000000057 792 "i_"
471.6000000000006 792 "f"
484.80000000000064 792 "cb"
504.6000000000007 792 "_"
504.6000000000007 792 ":"
517.8000000000008 792 "40"
537.6000000000008 792 "|"
537.6000000000008 792 "="
550.8000000000009 792 "sb"
570.6000000000009 792 "_"
570.6000000000009 792 "t_"
577.200000000001 792 "h_"
583.800000000001 792 "e_"
590.400000000001 792 "n"
154.79999999999993 36 "bcell := B[cb]"
134.99999999999994 48 "_"
134.99999999999994 48 "e_"
141.59999999999994 48 "n_"
148.19999999999993 48 "d;"
134.99999999999994 60 "_"
134.99999999999994 60 "i_"
141.59999999999994 60 "f acell > bcell _"
247.19999999999985 60 "t_"
253.79999999999987 60 "h_"
260.39999999999986 60 "e_"
266.9999999999999 60 "n"
280.19999999999993 60 "_"
280.19999999999993 60 "g_"
286.79999999999995 60 "o_"
293.4 60 "t_"
300 60 "o"
313.20000000000005 60 "QMORE;"
134.99999999999994 72 "_"
134.99999999999994 72 "i_"
141.59999999999994 72 "f acell < bcell _"
247.19999999999985 72 "t_"
253.79999999999987 72 "h_"
260.39999999999986 72 "e_"
266.9999999999999 72 "n"
280.19999999999993 72 "_"
280.19999999999993 72 "g_"
286.79999999999995 72 "o_"
293.4 72 "t_"
300 72 "o"
313.20000000000005 72 "QLOOPEND;"
115.19999999999996 84 "_"
115.19999999999996 84 "e_"
121.79999999999995 84 "n_"
128.39999999999995 84 "d;"
115.19999999999996 96 "QMORE:"
115.19999999999996 108 "xa := xc + bsize;"
115.19999999999996 120 "_"
115.19999999999996 120 "i_"
121.79999999999995 120 "f xa > asize"
207.6 120 "∨"
220.79999999999998 120 "xa < decs"
286.80000000000007 120 "_"
286.80000000000007 120 "t_"
293.4000000000001 120 "h_"
300.0000000000001 120 "e_"
306.60000000000014 120 "n"
115.19999999999996 132 "_"
115.19999999999996 132 "b_"
121.79999999999995 132 "e_"
128.39999999999995 132 "g_"
134.99999999999994 132 "i_"
141.59999999999994 132 "n"
134.99999999999994 144 "an := 0"
115.19999999999996 156 "_"
115.19999999999996 156 "e_"
121.79999999999995 156 "n_"
128.39999999999995 156 "d"
115.19999999999996 168 "_"
115.19999999999996 168 "e_"
121.79999999999995 168 "l_"
128.39999999999995 168 "s_"
134.99999999999994 168 "e"
115.19999999999996 180 "_"
115.19999999999996 180 "b_"
121.79999999999995 180 "e_"
128.39999999999995 180 "g_"
134.99999999999994 180 "i_"
141.59999999999994 180 "n"
134.99999999999994 192 "_"
134.99999999999994 192 "b_"
141.59999999999994 192 "e_"
148.19999999999993 192 "g_"
154.79999999999993 192 "i_"
161.39999999999992 192 "n ca := xa − decimals;"
313.20000000000005 192 "_"
313.20000000000005 192 "i_"
319.80000000000007 192 "f"
333.0000000000001 192 "large"
372.60000000000025 192 "_"
372.60000000000025 192 "t_"
379.2000000000003 192 "h_"
385.8000000000003 192 "e_"
392.4000000000003 192 "n"
405.60000000000036 192 "_"
405.60000000000036 192 "b_"
412.2000000000004 192 "e_"
418.8000000000004 192 "g_"
425.40000000000043 192 "i_"
432.00000000000045 192 "n"
445.2000000000005 192 "_"
445.2000000000005 192 "i_"
451.8000000000005 192 "f"
465.00000000000057 192 "ca"
484.80000000000064 192 "_"
484.80000000000064 192 ":"
498.0000000000007 192 "40"
517.8000000000008 192 "|"
517.8000000000008 192 "="
531.0000000000008 192 "sa"
550.8000000000009 192 "_"
550.8000000000009 192 "t_"
557.4000000000009 192 "h_"
564.0000000000009 192 "e_"
570.6000000000009 192 "n"
583.800000000001 192 "_"
583.800000000001 192 "b_"
590.400000000001 192 "e"
134.99999999999994 204 "an := A[ca]"
115.19999999999996 216 "_"
115.19999999999996 216 "e_"
121.79999999999995 216 "n_"
128.39999999999995 216 "d;"
115.19999999999996 228 "_"
115.19999999999996 228 "c_"
121.79999999999995 228 "o_"
128.39999999999995 228 "d_"
134.99999999999994 228 "e an1, an, bn2, q0,"
266.9999999999999 228 "MODUL;"
115.19999999999996 240 "3, 44;"
115.19999999999996 252 "3, 44;"
115.19999999999996 264 "3, 44;"
115.19999999999996 276 "3, 44;"
115.19999999999996 288 "2, 44;"
115.19999999999996 300 "; arn p+a2, ar p+a3 ;"
260.39999999999986 300 "R"
273.5999999999999 300 ":="
293.4 300 "an"
313.20000000000005 300 "+"
326.4000000000001 300 "bn"
346.20000000000016 300 "−"
359.4000000000002 300 "1;"
115.19999999999996 312 "; sr c42 , pm p+a1 ;"
115.19999999999996 324 "arn p+a2, pm p+a1 ; R"
260.39999999999986 324 ":="
280.19999999999993 324 "an;"
306.6 324 "M"
319.80000000000007 324 ":="
339.60000000000014 324 "an1;"
115.19999999999996 336 "ml a5 , dl p+a3 ; q0 :="
273.5999999999999 336 "(an1"
300 336 "×"
306.6 336 "MODUL"
346.20000000000016 336 "+"
359.4000000000002 336 "an)"
385.8000000000003 336 "_"
385.8000000000003 336 ":"
399.00000000000034 336 "bn2;"
115.19999999999996 348 "gr p+a4 ;"
115.19999999999996 360 "_"
115.19999999999996 360 "e ;"
115.19999999999996 372 "_"
115.19999999999996 372 "c_"
121.79999999999995 372 "o_"
128.39999999999995 372 "m_"
134.99999999999994 372 "m_"
141.59999999999994 372 "e_"
148.19999999999993 372 "n_"
154.79999999999993 372 "t q0 := q0 − 2;"
115.19999999999996 384 "_"
115.19999999999996 384 "i_"
121.79999999999995 384 "f kbon _"
167.99999999999991 384 "t_"
174.5999999999999 384 "h_"
181.1999999999999 384 "e_"
187.7999999999999 384 "n"
115.19999999999996 396 "_"
115.19999999999996 396 "b_"
121.79999999999995 396 "e_"
128.39999999999995 396 "g_"
134.99999999999994 396 "i_"
141.59999999999994 396 "n"
134.99999999999994 408 "LINE;"
134.99999999999994 420 "writetext( |"
207.59999999999988 420 "<< QMORE:"
273.5999999999999 420 "(|"
280.19999999999993 420 ">"
293.4 420 ");"
134.99999999999994 432 "writeinteger( |"
227.39999999999986 432 "<−d|"
247.19999999999985 432 ">,"
266.9999999999999 432 "an1"
293.4 432 ");"
134.99999999999994 444 "writetext( |"
207.59999999999988 444 "<<,|"
227.39999999999986 444 "> );"
134.99999999999994 456 "writeinteger( |"
227.39999999999986 456 "<−d|"
247.19999999999985 456 ">,"
266.9999999999999 456 "an"
286.79999999999995 456 ");"
134.99999999999994 468 "writetext( |"
207.59999999999988 468 "<<, ..."
260.39999999999986 468 ")"
273.5999999999999 468 "_"
273.5999999999999 468 ":"
286.79999999999995 468 "|"
286.79999999999995 468 ">"
300 468 ");"
134.99999999999994 480 "writeinteger( |"
227.39999999999986 480 "<−d|"
247.19999999999985 480 ">,"
266.9999999999999 480 "bn"
286.79999999999995 480 ");"
134.99999999999994 492 "writetext( |"
207.59999999999988 492 "<< ... estimate:"
319.80000000000007 492 "|"
319.80000000000007 492 ">"
333.0000000000001 492 ");"
134.99999999999994 504 "writeinteger( |"
227.39999999999986 504 "<−d|"
247.19999999999985 504 ">,"
266.9999999999999 504 "q0"
286.79999999999995 504 ");"
115.19999999999996 516 "_"
115.19999999999996 516 "e_"
121.79999999999995 516 "n_"
128.39999999999995 516 "d;"
115.19999999999996 528 "_"
115.19999999999996 528 "i_"
121.79999999999995 528 "f q0 = 0 _"
181.1999999999999 528 "t_"
187.7999999999999 528 "h_"
194.3999999999999 528 "e_"
200.9999999999999 528 "n"
115.19999999999996 540 "_"
115.19999999999996 540 "b_"
121.79999999999995 540 "e_"
128.39999999999995 540 "g_"
134.99999999999994 540 "i_"
141.59999999999994 540 "n"
134.99999999999994 552 "q0 := 1;"
134.99999999999994 564 "_"
134.99999999999994 564 "i_"
141.59999999999994 564 "f kbon _"
187.7999999999999 564 "t_"
194.3999999999999 564 "h_"
200.9999999999999 564 "e_"
207.59999999999988 564 "n"
134.99999999999994 576 "_"
134.99999999999994 576 "b_"
141.59999999999994 576 "e_"
148.19999999999993 576 "g_"
154.79999999999993 576 "i_"
161.39999999999992 576 "n"
154.79999999999993 588 "writetext( |"
227.39999999999986 588 "<<, increased"
319.80000000000007 588 "to"
339.60000000000014 588 "|"
339.60000000000014 588 ">"
352.8000000000002 588 ");"
154.79999999999993 600 "writeinteger( |"
247.19999999999985 600 "<−d|"
266.9999999999999 600 ">,"
286.79999999999995 600 "q0"
306.6 600 ");"
134.99999999999994 612 "_"
134.99999999999994 612 "e_"
141.59999999999994 612 "n_"
148.19999999999993 612 "d"
115.19999999999996 624 "_"
115.19999999999996 624 "e_"
121.79999999999995 624 "n_"
128.39999999999995 624 "d;"
115.19999999999996 636 "_"
115.19999999999996 636 "i_"
121.79999999999995 636 "f q0 < 0 _"
181.1999999999999 636 "t_"
187.7999999999999 636 "h_"
194.3999999999999 636 "e_"
200.9999999999999 636 "n"
115.19999999999996 648 "_"
115.19999999999996 648 "b_"
121.79999999999995 648 "e_"
128.39999999999995 648 "g_"
134.99999999999994 648 "i_"
141.59999999999994 648 "n"
134.99999999999994 660 "ALARM( |"
181.1999999999999 660 "<<LONG DIVIDE"
273.5999999999999 660 "3|"
280.19999999999993 660 ">"
293.4 660 ")"
115.19999999999996 672 "_"
115.19999999999996 672 "e_"
121.79999999999995 672 "n_"
128.39999999999995 672 "d;"
115.19999999999996 684 "_"
115.19999999999996 684 "i_"
121.79999999999995 684 "f q0 _"
154.79999999999993 684 "> MODUL _"
207.59999999999988 684 "t_"
214.19999999999987 684 "h_"
220.79999999999987 684 "e_"
227.39999999999986 684 "n"
115.19999999999996 696 "_"
115.19999999999996 696 "b_"
121.79999999999995 696 "e_"
128.39999999999995 696 "g_"
134.99999999999994 696 "i_"
141.59999999999994 696 "n"
134.99999999999994 708 "q0 := MODUL − 1;"
134.99999999999994 720 "_"
134.99999999999994 720 "i_"
141.59999999999994 720 "f kbon _"
187.7999999999999 720 "t_"
194.3999999999999 720 "h_"
200.9999999999999 720 "e_"
207.59999999999988 720 "n"
134.99999999999994 732 "_"
134.99999999999994 732 "b_"
141.59999999999994 732 "e_"
148.19999999999993 732 "g_"
154.79999999999993 732 "i_"
161.39999999999992 732 "n"
154.79999999999993 744 "writetext( |"
227.39999999999986 744 "<<, reduced"
306.6 744 "to"
326.4000000000001 744 "|"
326.4000000000001 744 ">"
339.60000000000014 744 ");"
154.79999999999993 756 "writeinteger( |"
247.19999999999985 756 "<−d|"
266.9999999999999 756 ">,"
286.79999999999995 756 "q0"
306.6 756 ");"
134.99999999999994 768 "_"
134.99999999999994 768 "e_"
141.59999999999994 768 "n_"
148.19999999999993 768 "d"
115.19999999999996 780 "_"
115.19999999999996 780 "e_"
121.79999999999995 780 "n_"
128.39999999999995 780 "d;"
115.19999999999996 792 "carry := digit := carry2"
280.19999999999993 792 ":="
300 792 "0;"
115.19999999999996 36 "asize2 := decs − 1;"
115.19999999999996 48 "_"
115.19999999999996 48 "f_"
121.79999999999995 48 "o_"
128.39999999999995 48 "r xb := _"
181.1999999999999 48 "i_"
187.7999999999999 48 "f xc < 0 _"
247.19999999999985 48 "t_"
253.79999999999987 48 "h_"
260.39999999999986 48 "e_"
266.9999999999999 48 "n"
280.19999999999993 48 "decs"
313.20000000000005 48 "−"
326.4000000000001 48 "xc"
346.20000000000016 48 "−"
359.4000000000002 48 "1"
372.60000000000025 48 "_"
372.60000000000025 48 "e_"
379.2000000000003 48 "l_"
385.8000000000003 48 "s_"
392.4000000000003 48 "e"
405.60000000000036 48 "decs"
438.6000000000005 48 "_"
438.6000000000005 48 "s_"
445.2000000000005 48 "t_"
451.8000000000005 48 "e_"
458.40000000000055 48 "p"
471.6000000000006 48 "1"
484.80000000000064 48 "_"
484.80000000000064 48 "u_"
491.40000000000066 48 "n_"
498.0000000000007 48 "t_"
504.6000000000007 48 "i_"
511.2000000000007 48 "l"
524.4000000000008 48 "bsize"
564.0000000000009 48 "+"
577.200000000001 48 "1"
590.400000000001 48 "_"
590.400000000001 48 "d"
115.19999999999996 60 "_"
115.19999999999996 60 "b_"
121.79999999999995 60 "e_"
128.39999999999995 60 "g_"
134.99999999999994 60 "i_"
141.59999999999994 60 "n"
134.99999999999994 72 "_"
134.99999999999994 72 "i_"
141.59999999999994 72 "f xb > bsize _"
227.39999999999986 72 "t_"
233.99999999999986 72 "h_"
240.59999999999985 72 "e_"
247.19999999999985 72 "n"
134.99999999999994 84 "_"
134.99999999999994 84 "b_"
141.59999999999994 84 "e_"
148.19999999999993 84 "g_"
154.79999999999993 84 "i_"
161.39999999999992 84 "n"
154.79999999999993 96 "bcell := 0"
134.99999999999994 108 "_"
134.99999999999994 108 "e_"
141.59999999999994 108 "n_"
148.19999999999993 108 "d"
134.99999999999994 120 "_"
134.99999999999994 120 "e_"
141.59999999999994 120 "l_"
148.19999999999993 120 "s_"
154.79999999999993 120 "e"
134.99999999999994 132 "_"
134.99999999999994 132 "b_"
141.59999999999994 132 "e_"
148.19999999999993 132 "g_"
154.79999999999993 132 "i_"
161.39999999999992 132 "n"
154.79999999999993 144 "_"
154.79999999999993 144 "b_"
161.39999999999992 144 "e_"
167.99999999999991 144 "g_"
174.5999999999999 144 "i_"
181.1999999999999 144 "n cb := xb −"
266.9999999999999 144 "decimals;"
333.0000000000001 144 "_"
333.0000000000001 144 "i_"
339.60000000000014 144 "f"
352.8000000000002 144 "large"
392.4000000000003 144 "_"
392.4000000000003 144 "t_"
399.00000000000034 144 "h_"
405.60000000000036 144 "e_"
412.2000000000004 144 "n"
425.40000000000043 144 "_"
425.40000000000043 144 "b_"
432.00000000000045 144 "e_"
438.6000000000005 144 "g_"
445.2000000000005 144 "i_"
451.8000000000005 144 "n"
465.00000000000057 144 "_"
465.00000000000057 144 "i_"
471.6000000000006 144 "f"
484.80000000000064 144 "cb"
504.6000000000007 144 "_"
504.6000000000007 144 ":"
517.8000000000008 144 "40"
537.6000000000008 144 "|"
537.6000000000008 144 "="
550.8000000000009 144 "sb"
570.6000000000009 144 "_"
570.6000000000009 144 "t_"
577.200000000001 144 "h_"
583.800000000001 144 "e_"
590.400000000001 144 "n"
154.79999999999993 156 "bcell := B[cb]"
134.99999999999994 168 "_"
134.99999999999994 168 "e_"
141.59999999999994 168 "n_"
148.19999999999993 168 "d;"
134.99999999999994 180 "_"
134.99999999999994 180 "i_"
141.59999999999994 180 "f kbon"
187.8 180 "∧"
201 180 "_"
201 180 "f_"
207.6 180 "a_"
214.2 180 "l_"
220.79999999999998 180 "s_"
227.39999999999998 180 "e _"
240.59999999999997 180 "t_"
247.19999999999996 180 "h_"
253.79999999999998 180 "e_"
260.4 180 "n"
134.99999999999994 192 "_"
134.99999999999994 192 "b_"
141.59999999999994 192 "e_"
148.19999999999993 192 "g_"
154.79999999999993 192 "i_"
161.39999999999992 192 "n"
154.79999999999993 204 "LINE;"
154.79999999999993 216 "writetext( |"
227.39999999999986 216 "<< (|"
253.79999999999987 216 ">"
266.9999999999999 216 ");"
154.79999999999993 228 "writeinteger( |"
247.19999999999985 228 "<−d|"
266.9999999999999 228 ">,"
286.79999999999995 228 "carry"
326.4000000000001 228 ");"
154.79999999999993 240 "writetext( |"
227.39999999999986 240 "<<,|"
247.19999999999985 240 ">"
260.39999999999986 240 ");"
154.79999999999993 252 "writeinteger( |"
247.19999999999985 252 "<−d|"
266.9999999999999 252 ">,"
286.79999999999995 252 "bcell"
326.4000000000001 252 ");"
154.79999999999993 264 "writetext( |"
227.39999999999986 264 "<<)"
253.8 264 "×"
267.00000000000006 264 "|"
267.00000000000006 264 ">"
280.2000000000001 264 ");"
154.79999999999995 276 "writeinteger( |"
247.19999999999987 276 "<−d|"
266.9999999999999 276 ">,"
286.79999999999995 276 "q0"
306.6 276 ");"
134.99999999999997 288 "_"
134.99999999999997 288 "e_"
141.59999999999997 288 "n_"
148.19999999999996 288 "d;"
134.99999999999997 300 "_"
134.99999999999997 300 "c_"
141.59999999999997 300 "o_"
148.19999999999996 300 "d_"
154.79999999999995 300 "e bcell, q0, carry,"
286.79999999999995 300 "digit,"
333.0000000000001 300 "MODUL;"
134.99999999999997 312 "3, 44;"
134.99999999999997 324 "3, 44;"
134.99999999999997 336 "2, 44;"
134.99999999999997 348 "3, 44;"
134.99999999999997 360 "2, 44;"
134.99999999999997 372 "arn a3 , pm p+a1 ; R"
273.5999999999999 372 ":="
293.4 372 "carry;"
339.60000000000014 372 "M"
352.8000000000002 372 ":="
372.60000000000025 372 "bcell;"
134.99999999999997 384 "ml p+a2, dl a5 ; (carry,digit)"
339.60000000000014 384 ":="
134.99999999999997 396 "gr a3 , gm p+a4 ; (bcell"
293.4 396 "×"
300 396 "q0"
319.80000000000007 396 "+"
333.0000000000001 396 "carry)"
379.2000000000003 396 "_"
379.2000000000003 396 ":"
392.4000000000003 396 "/"
405.60000000000036 396 "_"
405.60000000000036 396 "m_"
412.2000000000004 396 "o_"
418.8000000000004 396 "d"
432.00000000000045 396 "MODUL;"
134.99999999999994 408 "_"
134.99999999999994 408 "e ;"
134.99999999999994 420 "_"
134.99999999999994 420 "i_"
141.59999999999994 420 "f kbon"
187.8 420 "∧"
201 420 "_"
201 420 "f_"
207.6 420 "a_"
214.2 420 "l_"
220.79999999999998 420 "s_"
227.39999999999998 420 "e _"
240.59999999999997 420 "t_"
247.19999999999996 420 "h_"
253.79999999999998 420 "e_"
260.4 420 "n"
134.99999999999994 432 "_"
134.99999999999994 432 "b_"
141.59999999999994 432 "e_"
148.19999999999993 432 "g_"
154.79999999999993 432 "i_"
161.39999999999992 432 "n"
154.79999999999993 444 "writetext( |"
227.39999999999986 444 "<< −>"
266.9999999999999 444 "(|"
273.5999999999999 444 ">"
286.79999999999995 444 ");"
154.79999999999993 456 "writeinteger( |"
247.19999999999985 456 "<−d|"
266.9999999999999 456 ">,"
286.79999999999995 456 "carry"
326.4000000000001 456 ");"
154.79999999999993 468 "writetext( |"
227.39999999999986 468 "<<,|"
247.19999999999985 468 ">"
260.39999999999986 468 ");"
154.79999999999993 480 "writeinteger( |"
247.19999999999985 480 "<−d|"
266.9999999999999 480 ">,"
286.79999999999995 480 "digit"
326.4000000000001 480 ");"
154.79999999999993 492 "writetext( |"
227.39999999999986 492 "<<)|"
247.19999999999985 492 ">"
260.39999999999986 492 ");"
134.99999999999994 504 "_"
134.99999999999994 504 "e_"
141.59999999999994 504 "n_"
148.19999999999993 504 "d;"
134.99999999999994 516 "xa := xc + xb;"
134.99999999999994 528 "_"
134.99999999999994 528 "i_"
141.59999999999994 528 "f xa > asize"
227.4 528 "∨"
240.6 528 "xa <"
273.6 528 "decs"
306.60000000000014 528 "_"
306.60000000000014 528 "t_"
313.20000000000016 528 "h_"
319.8000000000002 528 "e_"
326.4000000000002 528 "n"
134.99999999999994 540 "_"
134.99999999999994 540 "b_"
141.59999999999994 540 "e_"
148.19999999999993 540 "g_"
154.79999999999993 540 "i_"
161.39999999999992 540 "n"
154.79999999999993 552 "xamin := asize +"
266.9999999999999 552 "1;"
154.79999999999993 564 "acell := 0"
134.99999999999994 576 "_"
134.99999999999994 576 "e_"
141.59999999999994 576 "n_"
148.19999999999993 576 "d"
134.99999999999994 588 "_"
134.99999999999994 588 "e_"
141.59999999999994 588 "l_"
148.19999999999993 588 "s_"
154.79999999999993 588 "e"
134.99999999999994 600 "_"
134.99999999999994 600 "b_"
141.59999999999994 600 "e_"
148.19999999999993 600 "g_"
154.79999999999993 600 "i_"
161.39999999999992 600 "n"
154.79999999999993 612 "xamin := xa;"
154.79999999999993 624 "_"
154.79999999999993 624 "b_"
161.39999999999992 624 "e_"
167.99999999999991 624 "g_"
174.5999999999999 624 "i_"
181.1999999999999 624 "n ca := xa −"
266.9999999999999 624 "decimals;"
333.0000000000001 624 "_"
333.0000000000001 624 "i_"
339.60000000000014 624 "f"
352.8000000000002 624 "large"
392.4000000000003 624 "_"
392.4000000000003 624 "t_"
399.00000000000034 624 "h_"
405.60000000000036 624 "e_"
412.2000000000004 624 "n"
425.40000000000043 624 "_"
425.40000000000043 624 "b_"
432.00000000000045 624 "e_"
438.6000000000005 624 "g_"
445.2000000000005 624 "i_"
451.8000000000005 624 "n"
465.00000000000057 624 "_"
465.00000000000057 624 "i_"
471.6000000000006 624 "f"
484.80000000000064 624 "ca"
504.6000000000007 624 "_"
504.6000000000007 624 ":"
517.8000000000008 624 "40"
537.6000000000008 624 "|"
537.6000000000008 624 "="
550.8000000000009 624 "sa"
570.6000000000009 624 "_"
570.6000000000009 624 "t_"
577.200000000001 624 "h_"
583.800000000001 624 "e_"
590.400000000001 624 "n"
154.79999999999993 636 "acell := A[ca]"
134.99999999999994 648 "_"
134.99999999999994 648 "e_"
141.59999999999994 648 "n_"
148.19999999999993 648 "d;"
134.99999999999994 660 "acell := acell − digit"
286.79999999999995 660 "+"
300 660 "carry2"
346.20000000000016 660 "+"
359.4000000000002 660 "MODUL;"
134.99999999999994 672 "carry2 := acell _"
240.59999999999985 672 ": MODUL"
293.4 672 "−"
306.6 672 "1;"
134.99999999999994 684 "acell := acell _"
233.99999999999986 684 "m_"
240.59999999999985 684 "o_"
247.19999999999985 684 "d"
260.39999999999986 684 "MODUL;"
134.99999999999994 696 "_"
134.99999999999994 696 "i_"
141.59999999999994 696 "f acell |"
194.3999999999999 696 "= 0 _"
220.79999999999987 696 "t_"
227.39999999999986 696 "h_"
233.99999999999986 696 "e_"
240.59999999999985 696 "n"
134.99999999999994 708 "_"
134.99999999999994 708 "b_"
141.59999999999994 708 "e_"
148.19999999999993 708 "g_"
154.79999999999993 708 "i_"
161.39999999999992 708 "n"
154.79999999999993 720 "asize2 := xa"
134.99999999999994 732 "_"
134.99999999999994 732 "e_"
141.59999999999994 732 "n_"
148.19999999999993 732 "d;"
134.99999999999994 744 "_"
134.99999999999994 744 "i_"
141.59999999999994 744 "f (acell |"
200.9999999999999 744 "= 0"
227.4 744 "∨"
240.6 744 "asize"
280.20000000000005 744 "_"
280.20000000000005 744 ">"
293.4000000000001 744 "xa)"
319.8 744 "∧"
333.00000000000006 744 "xa"
352.8000000000001 744 "_"
352.8000000000001 744 ">"
366.00000000000017 744 "decs"
399.0000000000003 744 "_"
399.0000000000003 744 "t_"
405.6000000000003 744 "h_"
412.20000000000033 744 "e_"
418.80000000000035 744 "n"
135 756 "_"
135 756 "b_"
141.6 756 "e_"
148.2 756 "g_"
154.79999999999998 756 "i_"
161.39999999999998 756 "n"
154.79999999999998 768 "_"
154.79999999999998 768 "i_"
161.39999999999998 768 "f xa > asize _"
247.1999999999999 768 "t_"
253.79999999999993 768 "h_"
260.3999999999999 768 "e_"
266.99999999999994 768 "n"
154.79999999999998 780 "_"
154.79999999999998 780 "b_"
161.39999999999998 780 "e_"
167.99999999999997 780 "g_"
174.59999999999997 780 "i_"
181.19999999999996 780 "n"
174.59999999999997 792 "ALARM( |"
220.79999999999993 792 "<<LONG"
266.99999999999994 792 "DIVIDE"
313.2000000000001 792 "4|"
319.8000000000001 792 ">"
333.00000000000017 792 ")"
154.79999999999993 36 "_"
154.79999999999993 36 "e_"
161.39999999999992 36 "n_"
167.99999999999991 36 "d;"
154.79999999999993 48 "_"
154.79999999999993 48 "f_"
161.39999999999992 48 "o_"
167.99999999999991 48 "r xa := xamin"
260.39999999999986 48 "_"
260.39999999999986 48 "s_"
266.9999999999999 48 "t_"
273.5999999999999 48 "e_"
280.19999999999993 48 "p"
293.4 48 "1"
306.6 48 "_"
306.6 48 "u_"
313.20000000000005 48 "n_"
319.80000000000007 48 "t_"
326.4000000000001 48 "i_"
333.0000000000001 48 "l"
346.20000000000016 48 "xc"
366.0000000000002 48 "+"
379.2000000000003 48 "xb"
399.00000000000034 48 "_"
399.00000000000034 48 "d_"
405.60000000000036 48 "o"
154.79999999999993 60 "_"
154.79999999999993 60 "b_"
161.39999999999992 60 "e_"
167.99999999999991 60 "g_"
174.5999999999999 60 "i_"
181.1999999999999 60 "n"
174.5999999999999 72 "_"
174.5999999999999 72 "b_"
181.1999999999999 72 "e_"
187.7999999999999 72 "g_"
194.3999999999999 72 "i_"
200.9999999999999 72 "n ca := xa"
273.5999999999999 72 "−"
286.79999999999995 72 "decimals;"
352.8000000000002 72 "_"
352.8000000000002 72 "i_"
359.4000000000002 72 "f"
372.60000000000025 72 "large"
412.2000000000004 72 "_"
412.2000000000004 72 "t_"
418.8000000000004 72 "h_"
425.40000000000043 72 "e_"
432.00000000000045 72 "n"
445.2000000000005 72 "_"
445.2000000000005 72 "b_"
451.8000000000005 72 "e_"
458.40000000000055 72 "g_"
465.00000000000057 72 "i_"
471.6000000000006 72 "n"
484.80000000000064 72 "_"
484.80000000000064 72 "i_"
491.40000000000066 72 "f"
504.6000000000007 72 "ca"
524.4000000000008 72 "_"
524.4000000000008 72 ":"
537.6000000000008 72 "40"
557.4000000000009 72 "|"
557.4000000000009 72 "="
570.6000000000009 72 "sa"
590.400000000001 72 "_"
590.400000000001 72 "t"
174.5999999999999 84 "A[ca] := _"
233.99999999999986 84 "i_"
240.59999999999985 84 "f xa"
273.5999999999999 84 "<"
286.79999999999995 84 "xc"
306.6 84 "+"
319.80000000000007 84 "xb"
339.60000000000014 84 "_"
339.60000000000014 84 "t_"
346.20000000000016 84 "h_"
352.8000000000002 84 "e_"
359.4000000000002 84 "n"
372.60000000000025 84 "0"
385.8000000000003 84 "_"
385.8000000000003 84 "e_"
392.4000000000003 84 "l_"
399.00000000000034 84 "s_"
405.60000000000036 84 "e"
418.8000000000004 84 "acell;"
174.5999999999999 96 "_"
174.5999999999999 96 "i_"
181.1999999999999 96 "f kbon"
227.4 96 "∧"
240.6 96 "_"
240.6 96 "f_"
247.2 96 "a_"
253.79999999999998 96 "l_"
260.4 96 "s_"
267 96 "e"
280.20000000000005 96 "_"
280.20000000000005 96 "t_"
286.80000000000007 96 "h_"
293.4000000000001 96 "e_"
300.0000000000001 96 "n"
174.5999999999999 108 "_"
174.5999999999999 108 "b_"
181.1999999999999 108 "e_"
187.7999999999999 108 "g_"
194.3999999999999 108 "i_"
200.9999999999999 108 "n"
194.3999999999999 120 "LINE;"
194.3999999999999 132 "writetext("
266.9999999999999 132 "|"
266.9999999999999 132 "<<"
286.79999999999995 132 "A[|"
300 132 ">"
313.20000000000005 132 ");"
194.3999999999999 144 "writeinteger("
286.79999999999995 144 "|"
286.79999999999995 144 "<−d|"
306.6 144 ">,"
326.4000000000001 144 "xa"
346.20000000000016 144 ");"
194.3999999999999 156 "writetext("
266.9999999999999 156 "|"
266.9999999999999 156 "<<]"
293.4 156 ":="
313.20000000000005 156 "|"
313.20000000000005 156 ">"
326.4000000000001 156 ");"
194.3999999999999 168 "writeinteger("
286.79999999999995 168 "|"
286.79999999999995 168 "<−d|"
306.6 168 ">,"
326.4000000000001 168 "A[ca]"
366.0000000000002 168 ");"
174.5999999999999 180 "_"
174.5999999999999 180 "e_"
181.1999999999999 180 "n_"
187.7999999999999 180 "d"
154.79999999999993 192 "_"
154.79999999999993 192 "e_"
161.39999999999992 192 "n_"
167.99999999999991 192 "d"
134.99999999999994 204 "_"
134.99999999999994 204 "e_"
141.59999999999994 204 "n_"
148.19999999999993 204 "d"
115.19999999999996 216 "_"
115.19999999999996 216 "e_"
121.79999999999995 216 "n_"
128.39999999999995 216 "d;"
115.19999999999996 228 "_"
115.19999999999996 228 "i_"
121.79999999999995 228 "f carry |"
174.5999999999999 228 "= 0 _"
200.9999999999999 228 "t_"
207.59999999999988 228 "h_"
214.19999999999987 228 "e_"
220.79999999999987 228 "n"
115.19999999999996 240 "_"
115.19999999999996 240 "b_"
121.79999999999995 240 "e_"
128.39999999999995 240 "g_"
134.99999999999994 240 "i_"
141.59999999999994 240 "n"
134.99999999999994 252 "ALARM( |"
181.1999999999999 252 "<<LONG DIVIDE"
273.5999999999999 252 "5|"
280.19999999999993 252 ">"
293.4 252 ")"
115.19999999999996 264 "_"
115.19999999999996 264 "e_"
121.79999999999995 264 "n_"
128.39999999999995 264 "d;"
115.19999999999996 276 "_"
115.19999999999996 276 "i_"
121.79999999999995 276 "f carry2 |"
181.1999999999999 276 "= 0 _"
207.59999999999988 276 "t_"
214.19999999999987 276 "h_"
220.79999999999987 276 "e_"
227.39999999999986 276 "n"
115.19999999999996 288 "_"
115.19999999999996 288 "b_"
121.79999999999995 288 "e_"
128.39999999999995 288 "g_"
134.99999999999994 288 "i_"
141.59999999999994 288 "n"
134.99999999999994 300 "ALARM( |"
181.1999999999999 300 "<<LONG DIVIDE"
273.5999999999999 300 "6|"
280.19999999999993 300 ">"
293.4 300 ")"
115.19999999999996 312 "_"
115.19999999999996 312 "e_"
121.79999999999995 312 "n_"
128.39999999999995 312 "d;"
115.19999999999996 324 "q := q + q0;"
115.19999999999996 336 "_"
115.19999999999996 336 "i_"
121.79999999999995 336 "f kbon _"
167.99999999999991 336 "t_"
174.5999999999999 336 "h_"
181.1999999999999 336 "e_"
187.7999999999999 336 "n"
115.19999999999996 348 "_"
115.19999999999996 348 "b_"
121.79999999999995 348 "e_"
128.39999999999995 348 "g_"
134.99999999999994 348 "i_"
141.59999999999994 348 "n"
134.99999999999994 360 "LINE;"
134.99999999999994 372 "writetext( |"
207.59999999999988 372 "<< q +="
260.39999999999986 372 "|"
260.39999999999986 372 ">"
273.5999999999999 372 ");"
134.99999999999994 384 "writeinteger( |"
227.39999999999986 384 "<−d|"
247.19999999999985 384 ">,"
266.9999999999999 384 "q0"
286.79999999999995 384 ");"
134.99999999999994 396 "writetext( |"
207.59999999999988 396 "<< −> |"
247.19999999999985 396 ">"
260.39999999999986 396 ");"
134.99999999999994 408 "writeinteger( |"
227.39999999999986 408 "<−d|"
247.19999999999985 408 ">,"
266.9999999999999 408 "q"
280.19999999999993 408 ");"
134.99999999999994 420 "LINE;"
134.99999999999994 432 "writetext( |"
207.59999999999988 432 "<< asize"
266.9999999999999 432 "|"
266.9999999999999 432 ">"
280.19999999999993 432 ");"
134.99999999999994 444 "writeinteger( |"
227.39999999999986 444 "<−d|"
247.19999999999985 444 ">,"
266.9999999999999 444 "asize"
306.6 444 ");"
134.99999999999994 456 "writetext( |"
207.59999999999988 456 "<< −> |"
247.19999999999985 456 ">"
260.39999999999986 456 ");"
134.99999999999994 468 "writeinteger( |"
227.39999999999986 468 "<−d|"
247.19999999999985 468 ">,"
266.9999999999999 468 "asize2"
313.20000000000005 468 ");"
115.19999999999996 480 "_"
115.19999999999996 480 "e_"
121.79999999999995 480 "n_"
128.39999999999995 480 "d;"
115.19999999999996 492 "asize := asize2;"
115.19999999999996 504 "_"
115.19999999999996 504 "g_"
121.79999999999995 504 "o_"
128.39999999999995 504 "t_"
134.99999999999994 504 "o QLOOPSTART;"
95.39999999999998 516 "QLOOPEND:"
95.39999999999998 528 "_"
95.39999999999998 528 "i_"
101.99999999999997 528 "f q |"
128.39999999999995 528 "= 0"
154.8 528 "∧"
168 528 "csize < xc _"
240.59999999999994 528 "t_"
247.19999999999993 528 "h_"
253.79999999999993 528 "e_"
260.3999999999999 528 "n"
95.39999999999998 540 "_"
95.39999999999998 540 "b_"
101.99999999999997 540 "e_"
108.59999999999997 540 "g_"
115.19999999999996 540 "i_"
121.79999999999995 540 "n"
115.19999999999996 552 "csize := xc"
95.39999999999998 564 "_"
95.39999999999998 564 "e_"
101.99999999999997 564 "n_"
108.59999999999997 564 "d;"
95.39999999999998 576 "_"
95.39999999999998 576 "i_"
101.99999999999997 576 "f csize _"
154.79999999999993 576 "> xc _"
187.7999999999999 576 "t_"
194.3999999999999 576 "h_"
200.9999999999999 576 "e_"
207.59999999999988 576 "n"
95.39999999999998 588 "_"
95.39999999999998 588 "b_"
101.99999999999997 588 "e_"
108.59999999999997 588 "g_"
115.19999999999996 588 "i_"
121.79999999999995 588 "n"
115.19999999999996 600 "cc := xc − decimals;"
115.19999999999996 612 "_"
115.19999999999996 612 "i_"
121.79999999999995 612 "f large _"
174.5999999999999 612 "t_"
181.1999999999999 612 "h_"
187.7999999999999 612 "e_"
194.3999999999999 612 "n"
115.19999999999996 624 "_"
115.19999999999996 624 "b_"
121.79999999999995 624 "e_"
128.39999999999995 624 "g_"
134.99999999999994 624 "i_"
141.59999999999994 624 "n"
134.99999999999994 636 "_"
134.99999999999994 636 "i_"
141.59999999999994 636 "f cc _"
174.5999999999999 636 ": 40 |"
207.59999999999988 636 "= sc _"
240.59999999999985 636 "t_"
247.19999999999985 636 "h_"
253.79999999999987 636 "e_"
260.39999999999986 636 "n"
134.99999999999994 648 "_"
134.99999999999994 648 "b_"
141.59999999999994 648 "e_"
148.19999999999993 648 "g_"
154.79999999999993 648 "i_"
161.39999999999992 648 "n"
154.79999999999993 660 "_"
154.79999999999993 660 "i_"
161.39999999999992 660 "f sc _"
194.3999999999999 660 "> 0 _"
220.79999999999987 660 "t_"
227.39999999999986 660 "h_"
233.99999999999986 660 "e_"
240.59999999999985 660 "n _"
253.79999999999987 660 "b_"
260.39999999999986 660 "e_"
266.9999999999999 660 "g_"
273.5999999999999 660 "i_"
280.19999999999993 660 "n"
293.4 660 "put("
326.4000000000001 660 "C,"
346.20000000000016 660 "FREE,"
385.8000000000003 660 "nc"
399 660 "×"
405.6 660 "step"
438.60000000000014 660 "+"
451.8000000000002 660 "1"
465.0000000000002 660 "+"
478.2000000000003 660 "sc"
498.00000000000034 660 ");"
517.8000000000004 660 "stat"
550.8000000000005 660 "LONGDIV"
154.79999999999993 672 "sc := cc _"
214.19999999999987 672 ": 40"
134.99999999999994 684 "_"
134.99999999999994 684 "e_"
141.59999999999994 684 "n_"
148.19999999999993 684 "d;"
134.99999999999994 696 "cc := cc _"
194.3999999999999 696 "m_"
200.9999999999999 696 "o_"
207.59999999999988 696 "d 40"
115.19999999999996 708 "_"
115.19999999999996 708 "e_"
121.79999999999995 708 "n_"
128.39999999999995 708 "d;"
115.19999999999996 720 "C[cc] := q;"
115.19999999999996 732 "_"
115.19999999999996 732 "i_"
121.79999999999995 732 "f kbon _"
167.99999999999991 732 "t_"
174.5999999999999 732 "h_"
181.1999999999999 732 "e_"
187.7999999999999 732 "n"
115.19999999999996 744 "_"
115.19999999999996 744 "b_"
121.79999999999995 744 "e_"
128.39999999999995 744 "g_"
134.99999999999994 744 "i_"
141.59999999999994 744 "n"
134.99999999999994 756 "LINE;"
134.99999999999994 768 "writetext( |"
207.59999999999988 768 "<< C[|"
240.59999999999985 768 "> );"
134.99999999999994 780 "writeinteger( |"
227.39999999999986 780 "<−d|"
247.19999999999985 780 ">,"
266.9999999999999 780 "xc"
286.79999999999995 780 ");"
134.99999999999994 792 "writetext( |"
207.59999999999988 792 "<<] := |"
253.79999999999987 792 ">"
266.9999999999999 792 ");"
134.99999999999994 36 "writeinteger( |"
227.39999999999986 36 "<−d|"
247.19999999999985 36 ">,"
266.9999999999999 36 "q"
280.19999999999993 36 ");"
115.19999999999996 48 "_"
115.19999999999996 48 "e_"
121.79999999999995 48 "n_"
128.39999999999995 48 "d;"
95.39999999999998 60 "_"
95.39999999999998 60 "e_"
101.99999999999997 60 "n_"
108.59999999999997 60 "d"
75.6 72 "_"
75.6 72 "e_"
82.19999999999999 72 "n_"
88.79999999999998 72 "d;"
75.6 84 "_"
75.6 84 "i_"
82.19999999999999 84 "f large _"
134.99999999999994 84 "t_"
141.59999999999994 84 "h_"
148.19999999999993 84 "e_"
154.79999999999993 84 "n _"
167.99999999999991 84 "b_"
174.5999999999999 84 "e_"
181.1999999999999 84 "g_"
187.7999999999999 84 "i_"
194.3999999999999 84 "n _"
207.59999999999988 84 "i_"
214.19999999999987 84 "f sc _"
247.19999999999985 84 ">"
260.39999999999986 84 "0"
273.5999999999999 84 "_"
273.5999999999999 84 "t_"
280.19999999999993 84 "h_"
286.79999999999995 84 "e_"
293.4 84 "n"
306.6 84 "_"
306.6 84 "b_"
313.20000000000005 84 "e_"
319.80000000000007 84 "g_"
326.4000000000001 84 "i_"
333.0000000000001 84 "n"
346.20000000000016 84 "put("
379.2000000000003 84 "C,"
399.00000000000034 84 "FREE,"
438.6000000000005 84 "nc"
451.8 84 "×"
458.40000000000003 84 "step"
491.40000000000015 84 "+"
504.6000000000002 84 "1 +"
531.0000000000002 84 "sc"
550.8000000000003 84 ");"
570.6000000000004 84 "stat"
75.60000000000005 96 "_"
75.60000000000005 96 "i_"
82.20000000000005 96 "f normfactor |"
167.99999999999997 96 "= 1 _"
194.39999999999995 96 "t_"
200.99999999999994 96 "h_"
207.59999999999994 96 "e_"
214.19999999999993 96 "n"
75.60000000000005 108 "_"
75.60000000000005 108 "b_"
82.20000000000005 108 "e_"
88.80000000000004 108 "g_"
95.40000000000003 108 "i_"
102.00000000000003 108 "n"
95.40000000000003 120 "DIVIDE( A, asize, na, normfactor,"
319.8000000000001 120 "empty"
359.40000000000026 120 ");"
95.40000000000003 132 "DIVIDE( B, bsize, nb, normfactor,"
319.8000000000001 132 "empty"
359.40000000000026 132 ")"
75.60000000000005 144 "_"
75.60000000000005 144 "e_"
82.20000000000005 144 "n_"
88.80000000000004 144 "d"
55.80000000000006 156 "_"
55.80000000000006 156 "e_"
62.400000000000055 156 "n_"
69.00000000000006 156 "d LONGDIVIDE2;"
55.80000000000006 168 "_"
55.80000000000006 168 "i_"
62.400000000000055 168 "n_"
69.00000000000006 168 "t_"
75.60000000000005 168 "e_"
82.20000000000005 168 "g_"
88.80000000000004 168 "e_"
95.40000000000003 168 "r _"
108.60000000000002 168 "p_"
115.20000000000002 168 "r_"
121.80000000000001 168 "o_"
128.4 168 "c_"
135 168 "e_"
141.6 168 "d_"
148.2 168 "u_"
154.79999999999998 168 "r_"
161.39999999999998 168 "e LONGMULT(A, asize,"
300.00000000000006 168 "na,"
326.40000000000015 168 "B,"
346.2000000000002 168 "bsize,"
392.4000000000004 168 "nb,"
418.80000000000047 168 "C,"
438.60000000000053 168 "csize,"
484.8000000000007 168 "nc);"
55.80000000000006 180 "_"
55.80000000000006 180 "v_"
62.400000000000055 180 "a_"
69.00000000000006 180 "l_"
75.60000000000005 180 "u_"
82.20000000000005 180 "e asize, na, bsize, nb, nc;"
55.80000000000006 192 "_"
55.80000000000006 192 "i_"
62.400000000000055 192 "n_"
69.00000000000006 192 "t_"
75.60000000000005 192 "e_"
82.20000000000005 192 "g_"
88.80000000000004 192 "e_"
95.40000000000003 192 "r asize, na, bsize, nb, csize,"
300.00000000000006 192 "nc;"
55.80000000000006 204 "_"
55.80000000000006 204 "i_"
62.400000000000055 204 "n_"
69.00000000000006 204 "t_"
75.60000000000005 204 "e_"
82.20000000000005 204 "g_"
88.80000000000004 204 "e_"
95.40000000000003 204 "r _"
108.60000000000002 204 "a_"
115.20000000000002 204 "r_"
121.80000000000001 204 "r_"
128.4 204 "a_"
135 204 "y A, B, C;"
55.80000000000006 216 "_"
55.80000000000006 216 "b_"
62.400000000000055 216 "e_"
69.00000000000006 216 "g_"
75.60000000000005 216 "i_"
82.20000000000005 216 "n"
75.60000000000005 228 "_"
75.60000000000005 228 "i_"
82.20000000000005 228 "n_"
88.80000000000004 228 "t_"
95.40000000000003 228 "e_"
102.00000000000003 228 "g_"
108.60000000000002 228 "e_"
115.20000000000002 228 "r c, factor, rsize, nr,"
273.59999999999997 228 "s,"
293.40000000000003 228 "shift,"
339.6000000000002 228 "cb,"
366.0000000000003 228 "tb,"
392.4000000000004 228 "c1,"
418.80000000000047 228 "t1,"
445.20000000000056 228 "c2,"
471.60000000000065 228 "t2,"
498.00000000000074 228 "s1,"
75.60000000000005 240 "s2, s3;"
75.60000000000005 252 "_"
75.60000000000005 252 "i_"
82.20000000000005 252 "n_"
88.80000000000004 252 "t_"
95.40000000000003 252 "e_"
102.00000000000003 252 "g_"
108.60000000000002 252 "e_"
115.20000000000002 252 "r _"
128.4 252 "a_"
135 252 "r_"
141.6 252 "r_"
148.2 252 "a_"
154.79999999999998 252 "y RES[0:c39];"
75.60000000000005 264 "nr := ftrack;"
75.60000000000005 276 "ftrack := ftrack + 1;"
75.60000000000005 288 "_"
75.60000000000005 288 "i_"
82.20000000000005 288 "f kbon _"
128.4 288 "t_"
135 288 "h_"
141.6 288 "e_"
148.2 288 "n"
75.60000000000005 300 "_"
75.60000000000005 300 "b_"
82.20000000000005 300 "e_"
88.80000000000004 300 "g_"
95.40000000000003 300 "i_"
102.00000000000003 300 "n"
95.40000000000003 312 "LINE;"
95.40000000000003 324 "writetext( |"
167.99999999999997 324 "<<LONGMULT: A:|"
260.3999999999999 324 ">"
273.59999999999997 324 ");"
95.40000000000003 336 "PRINT( A, asize, na );"
95.40000000000003 348 "LINE;"
95.40000000000003 360 "writetext( |"
167.99999999999997 360 "<< B:|"
200.99999999999994 360 "> );"
95.40000000000003 372 "PRINT( B, bsize, nb );"
75.60000000000005 384 "_"
75.60000000000005 384 "e_"
82.20000000000005 384 "n_"
88.80000000000004 384 "d kbon;"
75.60000000000005 396 "ASSIGN(0, C, csize, nc);"
75.60000000000005 408 "tb := 1 + nb"
154.80000000000007 408 "×"
161.40000000000006 408 "step;"
75.60000000000005 420 "cb := 0;"
75.60000000000005 432 "_"
75.60000000000005 432 "i_"
82.20000000000005 432 "f large _"
135 432 "t_"
141.6 432 "h_"
148.2 432 "e_"
154.79999999999998 432 "n"
75.60000000000005 444 "_"
75.60000000000005 444 "b_"
82.20000000000005 444 "e_"
88.80000000000004 444 "g_"
95.40000000000003 444 "i_"
102.00000000000003 444 "n"
95.40000000000003 456 "get(B, FREE, tb);"
95.40000000000003 468 "stat LONGMULT get B 1 :="
260.3999999999999 468 "stat"
293.40000000000003 468 "LONGMULT"
352.80000000000024 468 "get"
379.20000000000033 468 "B"
392.4000000000004 468 "1"
405.6000000000004 468 "+"
418.80000000000047 468 "1"
75.60000000000005 480 "_"
75.60000000000005 480 "e_"
82.20000000000005 480 "n_"
88.80000000000004 480 "d;"
75.60000000000005 492 "_"
75.60000000000005 492 "f_"
82.20000000000005 492 "o_"
88.80000000000004 492 "r c := 0 _"
148.2 492 "s_"
154.79999999999998 492 "t_"
161.39999999999998 492 "e_"
167.99999999999997 492 "p 1 _"
194.39999999999995 492 "u_"
200.99999999999994 492 "n_"
207.59999999999994 492 "t_"
214.19999999999993 492 "i_"
220.79999999999993 492 "l bsize"
273.59999999999997 492 "−"
286.8 492 "decimals"
346.2000000000002 492 "_"
346.2000000000002 492 "d_"
352.80000000000024 492 "o"
75.60000000000005 504 "_"
75.60000000000005 504 "b_"
82.20000000000005 504 "e_"
88.80000000000004 504 "g_"
95.40000000000003 504 "i_"
102.00000000000003 504 "n"
95.40000000000003 516 "shift := c + decimals;"
95.40000000000003 528 "_"
95.40000000000003 528 "i_"
102.00000000000003 528 "f large _"
154.79999999999998 528 "t_"
161.39999999999998 528 "h_"
167.99999999999997 528 "e_"
174.59999999999997 528 "n"
95.40000000000003 540 "_"
95.40000000000003 540 "b_"
102.00000000000003 540 "e_"
108.60000000000002 540 "g_"
115.20000000000002 540 "i_"
121.80000000000001 540 "n"
115.20000000000002 552 "factor := B[cb];"
115.20000000000002 564 "cb := cb + 1;"
115.20000000000002 576 "_"
115.20000000000002 576 "i_"
121.80000000000001 576 "f cb = 40 _"
187.79999999999995 576 "t_"
194.39999999999995 576 "h_"
200.99999999999994 576 "e_"
207.59999999999994 576 "n"
115.20000000000002 588 "_"
115.20000000000002 588 "b_"
121.80000000000001 588 "e_"
128.4 588 "g_"
135 588 "i_"
141.6 588 "n"
135 600 "cb := 0;"
135 612 "tb := tb + 1;"
135 624 "get(B, FREE, tb);"
135 636 "stat LONGMULT get B"
266.99999999999994 636 "2"
280.2 636 ":="
300.00000000000006 636 "stat"
333.00000000000017 636 "LONGMULT"
392.4000000000004 636 "get"
418.80000000000047 636 "B"
432.0000000000005 636 "2"
445.20000000000056 636 "+"
458.4000000000006 636 "1"
115.20000000000002 648 "_"
115.20000000000002 648 "e_"
121.80000000000001 648 "n_"
128.4 648 "d new B track"
95.40000000000003 660 "_"
95.40000000000003 660 "e_"
102.00000000000003 660 "n_"
108.60000000000002 660 "d large"
95.40000000000003 672 "_"
95.40000000000003 672 "e_"
102.00000000000003 672 "l_"
108.60000000000002 672 "s_"
115.20000000000002 672 "e"
95.40000000000003 684 "factor := B[c];"
95.40000000000003 696 "COPY(A, asize, na, RES, rsize,"
300.00000000000006 696 "nr);"
95.40000000000003 708 "MULT(RES, rsize, nr, factor);"
95.40000000000003 720 "_"
95.40000000000003 720 "i_"
102.00000000000003 720 "f shift |"
154.79999999999998 720 "= 0 _"
181.19999999999996 720 "t_"
187.79999999999995 720 "h_"
194.39999999999995 720 "e_"
200.99999999999994 720 "n"
95.40000000000003 732 "_"
95.40000000000003 732 "b_"
102.00000000000003 732 "e_"
108.60000000000002 732 "g_"
115.20000000000002 732 "i_"
121.80000000000001 732 "n"
115.20000000000002 744 "s1 := _"
154.79999999999998 744 "i_"
161.39999999999998 744 "f shift < 0 _"
240.5999999999999 744 "t_"
247.1999999999999 744 "h_"
253.79999999999993 744 "e_"
260.3999999999999 744 "n"
273.59999999999997 744 "−c"
293.40000000000003 744 "_"
293.40000000000003 744 "e_"
300.00000000000006 744 "l_"
306.6000000000001 744 "s_"
313.2000000000001 744 "e"
326.40000000000015 744 "limit"
366.0000000000003 744 "−"
379.20000000000033 744 "decimals;"
115.20000000000002 756 "s2 := − sign(shift);"
115.20000000000002 768 "_"
115.20000000000002 768 "c_"
121.80000000000001 768 "o_"
128.4 768 "m_"
135 768 "m_"
141.6 768 "e_"
148.2 768 "n_"
154.79999999999998 768 "t MK: Next line"
260.3999999999999 768 "changed"
313.2000000000001 768 "from"
346.2000000000002 768 "limit"
385.80000000000035 768 "−"
399.0000000000004 768 "decimals"
458.4000000000006 768 "−"
471.60000000000065 768 "c;"
115.20000000000002 780 "s3 := _"
154.79999999999998 780 "i_"
161.39999999999998 780 "f shift < 0 _"
240.5999999999999 780 "t_"
247.1999999999999 780 "h_"
253.79999999999993 780 "e_"
260.3999999999999 780 "n"
273.59999999999997 780 "limit"
313.2000000000001 780 "−"
326.40000000000015 780 "decimals"
385.80000000000035 780 "_"
385.80000000000035 780 "e_"
392.4000000000004 780 "l_"
399.0000000000004 780 "s_"
405.6000000000004 780 "e"
418.80000000000047 780 "−"
432.0000000000005 780 "c;"
115.20000000000002 792 "_"
115.20000000000002 792 "f_"
121.80000000000001 792 "o_"
128.4 792 "r s := s1 _"
194.39999999999995 792 "s_"
200.99999999999994 792 "t_"
207.59999999999994 792 "e_"
214.19999999999993 792 "p s2 _"
247.1999999999999 792 "u_"
253.79999999999993 792 "n_"
260.3999999999999 792 "t_"
266.99999999999994 792 "i_"
273.59999999999997 792 "l"
286.8 792 "s3"
306.6000000000001 792 "_"
306.6000000000001 792 "d_"
313.2000000000001 792 "o"
115.19999999999996 36 "_"
115.19999999999996 36 "b_"
121.79999999999995 36 "e_"
128.39999999999995 36 "g_"
134.99999999999994 36 "i_"
141.59999999999994 36 "n"
134.99999999999994 48 "_"
134.99999999999994 48 "i_"
141.59999999999994 48 "f s < 0"
194.4 48 "∨"
207.6 48 "s > limit"
273.6 48 "−"
286.80000000000007 48 "decimals"
346.2000000000003 48 "_"
346.2000000000003 48 "t_"
352.8000000000003 48 "h_"
359.4000000000003 48 "e_"
366.00000000000034 48 "n"
134.99999999999994 60 "cell := 0"
134.99999999999994 72 "_"
134.99999999999994 72 "e_"
141.59999999999994 72 "l_"
148.19999999999993 72 "s_"
154.79999999999993 72 "e"
134.99999999999994 84 "_"
134.99999999999994 84 "i_"
141.59999999999994 84 "f large _"
194.3999999999999 84 "t_"
200.9999999999999 84 "h_"
207.59999999999988 84 "e_"
214.19999999999987 84 "n"
134.99999999999994 96 "_"
134.99999999999994 96 "b_"
141.59999999999994 96 "e_"
148.19999999999993 96 "g_"
154.79999999999993 96 "i_"
161.39999999999992 96 "n"
154.79999999999993 108 "t1 := nr"
207.6 108 "×"
214.2 108 "step +"
260.4 108 "1"
273.6 108 "+"
286.80000000000007 108 "s_"
293.4000000000001 108 ":40;"
154.79999999999993 120 "c1 := s _"
207.59999999999988 120 "m_"
214.19999999999987 120 "o_"
220.79999999999987 120 "d 40;"
154.79999999999993 132 "get(RES, FREE, t1);"
154.79999999999993 144 "stat LONGMULT get"
273.5999999999999 144 "RES"
300 144 "1"
313.20000000000005 144 ":="
333.0000000000001 144 "stat"
366.0000000000002 144 "LONGMULT"
425.40000000000043 144 "get"
451.8000000000005 144 "RES"
478.2000000000006 144 "1"
491.40000000000066 144 "+"
504.6000000000007 144 "1;"
154.79999999999993 156 "cell := RES[c1]"
134.99999999999994 168 "_"
134.99999999999994 168 "e_"
141.59999999999994 168 "n_"
148.19999999999993 168 "d large"
134.99999999999994 180 "_"
134.99999999999994 180 "e_"
141.59999999999994 180 "l_"
148.19999999999993 180 "s_"
154.79999999999993 180 "e"
134.99999999999994 192 "cell := RES[s];"
134.99999999999994 204 "c2 := s + shift;"
134.99999999999994 216 "_"
134.99999999999994 216 "i_"
141.59999999999994 216 "f c2 > limit − decimals"
300 216 "_"
300 216 "t_"
306.6 216 "h_"
313.20000000000005 216 "e_"
319.80000000000007 216 "n"
134.99999999999994 228 "_"
134.99999999999994 228 "b_"
141.59999999999994 228 "e_"
148.19999999999993 228 "g_"
154.79999999999993 228 "i_"
161.39999999999992 228 "n"
148.19999999999993 240 "_"
148.19999999999993 240 "i_"
154.79999999999993 240 "f cell |"
200.9999999999999 240 "= 0 _"
227.39999999999986 240 "t_"
233.99999999999986 240 "h_"
240.59999999999985 240 "e_"
247.19999999999985 240 "n"
260.39999999999986 240 "ALARM(|"
300 240 "<<LONGMULT|"
366.0000000000002 240 ">)"
134.99999999999994 252 "_"
134.99999999999994 252 "e_"
141.59999999999994 252 "n_"
148.19999999999993 252 "d if too big"
134.99999999999994 264 "_"
134.99999999999994 264 "e_"
141.59999999999994 264 "l_"
148.19999999999993 264 "s_"
154.79999999999993 264 "e"
134.99999999999994 276 "_"
134.99999999999994 276 "i_"
141.59999999999994 276 "f c2 _"
174.5999999999999 276 "> 0 _"
200.9999999999999 276 "t_"
207.59999999999988 276 "h_"
214.19999999999987 276 "e_"
220.79999999999987 276 "n"
134.99999999999994 288 "_"
134.99999999999994 288 "b_"
141.59999999999994 288 "e_"
148.19999999999993 288 "g_"
154.79999999999993 288 "i_"
161.39999999999992 288 "n"
154.79999999999993 300 "_"
154.79999999999993 300 "i_"
161.39999999999992 300 "f large _"
214.19999999999987 300 "t_"
220.79999999999987 300 "h_"
227.39999999999986 300 "e_"
233.99999999999986 300 "n"
154.79999999999993 312 "_"
154.79999999999993 312 "b_"
161.39999999999992 312 "e_"
167.99999999999991 312 "g_"
174.5999999999999 312 "i_"
181.1999999999999 312 "n"
174.5999999999999 324 "t2 := nr"
227.4 324 "×"
234 324 "step"
267 324 "+"
280.20000000000005 324 "1"
293.4000000000001 324 "+"
306.60000000000014 324 "c2_"
319.8000000000002 324 ":40;"
174.5999999999999 336 "c2 := c2 _"
233.99999999999986 336 "m_"
240.59999999999985 336 "o_"
247.19999999999985 336 "d"
260.39999999999986 336 "40;"
174.5999999999999 348 "get(RES, FREE,"
273.5999999999999 348 "t2);"
174.5999999999999 360 "stat LONGMULT"
266.9999999999999 360 "get"
293.4 360 "RES"
319.80000000000007 360 "2"
333.0000000000001 360 ":="
352.8000000000002 360 "stat"
385.8000000000003 360 "LONGMULT"
445.2000000000005 360 "get"
471.6000000000006 360 "RES"
498.0000000000007 360 "2"
511.2000000000007 360 "+"
524.4000000000008 360 "1;"
174.5999999999999 372 "RES[c2] := cell;"
174.5999999999999 384 "put(RES, FREE,"
273.5999999999999 384 "t2);"
174.5999999999999 396 "stat LONGMULT"
266.9999999999999 396 "put"
293.4 396 "RES"
319.80000000000007 396 ":="
339.60000000000014 396 "stat"
372.60000000000025 396 "LONGMULT"
432.00000000000045 396 "put"
458.40000000000055 396 "RES"
484.80000000000064 396 "+"
498.0000000000007 396 "1"
154.79999999999993 408 "_"
154.79999999999993 408 "e_"
161.39999999999992 408 "n_"
167.99999999999991 408 "d if large"
154.79999999999993 420 "_"
154.79999999999993 420 "e_"
161.39999999999992 420 "l_"
167.99999999999991 420 "s_"
174.5999999999999 420 "e"
154.79999999999993 432 "RES[c2] := cell"
134.99999999999994 444 "_"
134.99999999999994 444 "e_"
141.59999999999994 444 "n_"
148.19999999999993 444 "d if not c2 > limit"
280.19999999999993 444 "−"
293.4 444 "decimals"
115.19999999999996 456 "_"
115.19999999999996 456 "e_"
121.79999999999995 456 "n_"
128.39999999999995 456 "d for s"
95.39999999999998 468 "_"
95.39999999999998 468 "e_"
101.99999999999997 468 "n_"
108.59999999999997 468 "d if shift |"
181.1999999999999 468 "= 0;"
95.39999999999998 480 "rsize := rsize + shift;"
95.39999999999998 492 "ADD(RES, rsize, nr, 1, C,"
266.9999999999999 492 "csize,"
313.20000000000005 492 "nc)"
75.6 504 "_"
75.6 504 "e_"
82.19999999999999 504 "n_"
88.79999999999998 504 "d for c;"
75.6 516 "ftrack := ftrack − 1"
55.800000000000004 528 "_"
55.800000000000004 528 "e_"
62.4 528 "n_"
69 528 "d LONGMULT;"
55.800000000000004 540 "_"
55.800000000000004 540 "i_"
62.4 540 "n_"
69 540 "t_"
75.6 540 "e_"
82.19999999999999 540 "g_"
88.79999999999998 540 "e_"
95.39999999999998 540 "r _"
108.59999999999997 540 "p_"
115.19999999999996 540 "r_"
121.79999999999995 540 "o_"
128.39999999999995 540 "c_"
134.99999999999994 540 "e_"
141.59999999999994 540 "d_"
148.19999999999993 540 "u_"
154.79999999999993 540 "r_"
161.39999999999992 540 "e EXP(X, xsize,"
266.9999999999999 540 "nx,"
293.4 540 "A,"
313.20000000000005 540 "asize,"
359.4000000000002 540 "na,"
385.8000000000003 540 "XN,"
412.2000000000004 540 "xnsize,"
465.00000000000057 540 "nxn);"
55.800000000000004 552 "_"
55.800000000000004 552 "v_"
62.4 552 "a_"
69 552 "l_"
75.6 552 "u_"
82.19999999999999 552 "e xsize, nx, na, nxn;"
55.800000000000004 564 "_"
55.800000000000004 564 "i_"
62.4 564 "n_"
69 564 "t_"
75.6 564 "e_"
82.19999999999999 564 "g_"
88.79999999999998 564 "e_"
95.39999999999998 564 "r xsize, nx, asize, na, xnsize,"
306.6 564 "nxn;"
55.800000000000004 576 "_"
55.800000000000004 576 "i_"
62.4 576 "n_"
69 576 "t_"
75.6 576 "e_"
82.19999999999999 576 "g_"
88.79999999999998 576 "e_"
95.39999999999998 576 "r _"
108.59999999999997 576 "a_"
115.19999999999996 576 "r_"
121.79999999999995 576 "r_"
128.39999999999995 576 "a_"
134.99999999999994 576 "y X, A, XN;"
55.800000000000004 588 "_"
55.800000000000004 588 "b_"
62.4 588 "e_"
69 588 "g_"
75.6 588 "i_"
82.19999999999999 588 "n"
75.6 600 "_"
75.6 600 "b_"
82.19999999999999 600 "o_"
88.79999999999998 600 "o_"
95.39999999999998 600 "l_"
101.99999999999997 600 "e_"
108.59999999999997 600 "a_"
115.19999999999996 600 "n out;"
75.6 612 "_"
75.6 612 "i_"
82.19999999999999 612 "n_"
88.79999999999998 612 "t_"
95.39999999999998 612 "e_"
101.99999999999997 612 "g_"
108.59999999999997 612 "e_"
115.19999999999996 612 "r tsize, nt, m;"
75.6 624 "_"
75.6 624 "i_"
82.19999999999999 624 "n_"
88.79999999999998 624 "t_"
95.39999999999998 624 "e_"
101.99999999999997 624 "g_"
108.59999999999997 624 "e_"
115.19999999999996 624 "r _"
128.39999999999995 624 "a_"
134.99999999999994 624 "r_"
141.59999999999994 624 "r_"
148.19999999999993 624 "a_"
154.79999999999993 624 "y TERM[0:c39];"
75.6 636 "nt := ftrack;"
75.6 648 "ftrack := ftrack + 1;"
75.6 660 "ASSIGN(1, A, asize, na);"
75.6 672 "COPY(X, xsize, nx, TERM, tsize,"
286.79999999999995 672 "nt);"
75.6 684 "ADD(X, xsize, nx, 1, A, asize,"
280.19999999999993 684 "na);"
75.6 696 "out := _"
121.79999999999995 696 "f_"
128.39999999999995 696 "a_"
134.99999999999994 696 "l_"
141.59999999999994 696 "s_"
148.19999999999993 696 "e;"
75.6 708 "m := 1;"
75.6 720 "_"
75.6 720 "f_"
82.19999999999999 720 "o_"
88.79999999999998 720 "r m := m + 1 _"
174.5999999999999 720 "w_"
181.1999999999999 720 "h_"
187.7999999999999 720 "i_"
194.3999999999999 720 "l_"
200.9999999999999 720 "e −, out"
260.39999999999986 720 "_"
260.39999999999986 720 "d_"
266.9999999999999 720 "o"
75.6 732 "_"
75.6 732 "b_"
82.19999999999999 732 "e_"
88.79999999999998 732 "g_"
95.39999999999998 732 "i_"
101.99999999999997 732 "n"
95.39999999999998 744 "LONGMULT(X, xsize, nx, TERM,"
286.79999999999995 744 "tsize,"
333.0000000000001 744 "nt,"
359.4000000000002 744 "XN,"
385.8000000000003 744 "xnsize,"
438.6000000000005 744 "nxn);"
95.39999999999998 756 "COPY(XN, xnsize, nxn, TERM,"
280.19999999999993 756 "tsize,"
326.4000000000001 756 "nt);"
95.39999999999998 768 "DIVIDE(TERM, tsize, nt, m,"
273.5999999999999 768 "out);"
95.39999999999998 780 "ADD(TERM, tsize, nt, 1, A,"
273.5999999999999 780 "asize,"
319.80000000000007 780 "na)"
75.6 792 "_"
75.6 792 "e_"
82.19999999999999 792 "n_"
88.79999999999998 792 "d for m;"
75.6 36 "ftrack := ftrack − 1"
55.800000000000004 48 "_"
55.800000000000004 48 "e_"
62.4 48 "n_"
69 48 "d EXP;"
55.800000000000004 60 "_"
55.800000000000004 60 "i_"
62.4 60 "n_"
69 60 "t_"
75.6 60 "e_"
82.19999999999999 60 "g_"
88.79999999999998 60 "e_"
95.39999999999998 60 "r _"
108.59999999999997 60 "p_"
115.19999999999996 60 "r_"
121.79999999999995 60 "o_"
128.39999999999995 60 "c_"
134.99999999999994 60 "e_"
141.59999999999994 60 "d_"
148.19999999999993 60 "u_"
154.79999999999993 60 "r_"
161.39999999999992 60 "e PI TO(A, asize,"
280.19999999999993 60 "na,"
306.6 60 "T2,"
333.0000000000001 60 "t2size,"
385.8000000000003 60 "n2,"
412.2000000000004 60 "T3,"
438.6000000000005 60 "t3size,"
491.40000000000066 60 "n3);"
55.800000000000004 72 "_"
55.800000000000004 72 "v_"
62.4 72 "a_"
69 72 "l_"
75.6 72 "u_"
82.19999999999999 72 "e na, n2, n3;"
55.800000000000004 84 "_"
55.800000000000004 84 "i_"
62.4 84 "n_"
69 84 "t_"
75.6 84 "e_"
82.19999999999999 84 "g_"
88.79999999999998 84 "e_"
95.39999999999998 84 "r asize, na, t2size, n2,"
260.39999999999986 84 "t3size,"
313.20000000000005 84 "n3;"
55.800000000000004 96 "_"
55.800000000000004 96 "i_"
62.4 96 "n_"
69 96 "t_"
75.6 96 "e_"
82.19999999999999 96 "g_"
88.79999999999998 96 "e_"
95.39999999999998 96 "r _"
108.59999999999997 96 "a_"
115.19999999999996 96 "r_"
121.79999999999995 96 "r_"
128.39999999999995 96 "a_"
134.99999999999994 96 "y A, T2, T3;"
55.800000000000004 108 "_"
55.800000000000004 108 "b_"
62.4 108 "e_"
69 108 "g_"
75.6 108 "i_"
82.19999999999999 108 "n"
75.6 120 "_"
75.6 120 "b_"
82.19999999999999 120 "o_"
88.79999999999998 120 "o_"
95.39999999999998 120 "l_"
101.99999999999997 120 "e_"
108.59999999999997 120 "a_"
115.19999999999996 120 "n out1, out2, out3, out;"
75.6 132 "_"
75.6 132 "i_"
82.19999999999999 132 "n_"
88.79999999999998 132 "t_"
95.39999999999998 132 "e_"
101.99999999999997 132 "g_"
108.59999999999997 132 "e_"
115.19999999999996 132 "r factor, m, ns, n1, ssize,"
300 132 "t1size;"
75.6 144 "_"
75.6 144 "i_"
82.19999999999999 144 "n_"
88.79999999999998 144 "t_"
95.39999999999998 144 "e_"
101.99999999999997 144 "g_"
108.59999999999997 144 "e_"
115.19999999999996 144 "r _"
128.39999999999995 144 "a_"
134.99999999999994 144 "r_"
141.59999999999994 144 "r_"
148.19999999999993 144 "a_"
154.79999999999993 144 "y SUM, T1[0:c39];"
75.6 156 "ns := ftrack;"
75.6 168 "n1 := ns + 1;"
75.6 180 "ftrack := ftrack + 2;"
75.6 192 "ASSIGN(0, A, asize, na);"
75.6 204 "ASSIGN(3, T1, t1size, n1);"
75.6 216 "out1 := _"
128.39999999999995 216 "f_"
134.99999999999994 216 "a_"
141.59999999999994 216 "l_"
148.19999999999993 216 "s_"
154.79999999999993 216 "e;"
75.6 228 "ASSIGN(24, T2, t2size, n2);"
75.6 240 "DIVIDE(T2, t2size, n2, 171,"
260.39999999999986 240 "out2);"
75.6 252 "ASSIGN(24, T3, t3size, n3);"
75.6 264 "DIVIDE(T3, t3size, n3, 1434,"
266.9999999999999 264 "out3);"
75.6 276 "factor := m := − 1;"
75.6 288 "_"
75.6 288 "f_"
82.19999999999999 288 "o_"
88.79999999999998 288 "r m := m + 2 _"
174.5999999999999 288 "w_"
181.1999999999999 288 "h_"
187.7999999999999 288 "i_"
194.3999999999999 288 "l_"
200.9999999999999 288 "e −, out1"
266.9999999999999 288 "_"
266.9999999999999 288 "d_"
273.5999999999999 288 "o"
75.6 300 "_"
75.6 300 "b_"
82.19999999999999 300 "e_"
88.79999999999998 300 "g_"
95.39999999999998 300 "i_"
101.99999999999997 300 "n"
95.39999999999998 312 "ASSIGN(0, SUM, ssize, ns);"
95.39999999999998 324 "ADD(T1, t1size, n1, 1, SUM,"
280.19999999999993 324 "ssize,"
326.4000000000001 324 "ns);"
95.39999999999998 336 "_"
95.39999999999998 336 "i_"
101.99999999999997 336 "f −, out2 _"
167.99999999999991 336 "t_"
174.5999999999999 336 "h_"
181.1999999999999 336 "e_"
187.7999999999999 336 "n"
95.39999999999998 348 "ADD(T2, t2size, n2, 1, SUM,"
280.19999999999993 348 "ssize,"
326.4000000000001 348 "ns);"
95.39999999999998 360 "_"
95.39999999999998 360 "i_"
101.99999999999997 360 "f −, out3 _"
167.99999999999991 360 "t_"
174.5999999999999 360 "h_"
181.1999999999999 360 "e_"
187.7999999999999 360 "n"
95.39999999999998 372 "ADD(T3, t3size, n3, 1, SUM,"
280.19999999999993 372 "ssize,"
326.4000000000001 372 "ns);"
95.39999999999998 384 "DIVIDE(SUM, ssize, ns, m,"
266.9999999999999 384 "out);"
95.39999999999998 396 "factor := − factor;"
95.39999999999998 408 "ADD(SUM, ssize, ns, factor,"
280.19999999999993 408 "A,"
300 408 "asize,"
346.20000000000016 408 "na);"
95.39999999999998 420 "DIVIDE(T1, t1size, n1, 64,"
273.5999999999999 420 "out1);"
95.39999999999998 432 "_"
95.39999999999998 432 "i_"
101.99999999999997 432 "f −, out2 _"
167.99999999999991 432 "t_"
174.5999999999999 432 "h_"
181.1999999999999 432 "e_"
187.7999999999999 432 "n"
95.39999999999998 444 "DIVIDE(T2, t2size, n2, 3249,"
286.79999999999995 444 "out2);"
95.39999999999998 456 "_"
95.39999999999998 456 "i_"
101.99999999999997 456 "f −, out3 _"
167.99999999999991 456 "t_"
174.5999999999999 456 "h_"
181.1999999999999 456 "e_"
187.7999999999999 456 "n"
95.39999999999998 468 "DIVIDE(T3, t3size, n3, 57121,"
293.4 468 "out3)"
75.6 480 "_"
75.6 480 "e_"
82.19999999999999 480 "n_"
88.79999999999998 480 "d for m;"
75.6 492 "ftrack := ftrack − 2"
55.800000000000004 504 "_"
55.800000000000004 504 "e_"
62.4 504 "n_"
69 504 "d PI TO;"
55.800000000000004 516 "_"
55.800000000000004 516 "i_"
62.4 516 "n_"
69 516 "t_"
75.6 516 "e_"
82.19999999999999 516 "g_"
88.79999999999998 516 "e_"
95.39999999999998 516 "r _"
108.59999999999997 516 "p_"
115.19999999999996 516 "r_"
121.79999999999995 516 "o_"
128.39999999999995 516 "c_"
134.99999999999994 516 "e_"
141.59999999999994 516 "d_"
148.19999999999993 516 "u_"
154.79999999999993 516 "r_"
161.39999999999992 516 "e SQRT(x, A, asize,"
293.4 516 "na,"
319.80000000000007 516 "B,"
339.60000000000014 516 "bsize,"
385.8000000000003 516 "nb,"
412.2000000000004 516 "C,"
432.00000000000045 516 "csize,"
478.2000000000006 516 "nc);"
55.800000000000004 528 "_"
55.800000000000004 528 "v_"
62.4 528 "a_"
69 528 "l_"
75.6 528 "u_"
82.19999999999999 528 "e x, na, nb, nc;"
55.800000000000004 540 "_"
55.800000000000004 540 "r_"
62.4 540 "e_"
69 540 "a_"
75.6 540 "l x;"
55.800000000000004 552 "_"
55.800000000000004 552 "i_"
62.4 552 "n_"
69 552 "t_"
75.6 552 "e_"
82.19999999999999 552 "g_"
88.79999999999998 552 "e_"
95.39999999999998 552 "r asize, na, bsize, nb, csize,"
300 552 "nc;"
55.800000000000004 564 "_"
55.800000000000004 564 "i_"
62.4 564 "n_"
69 564 "t_"
75.6 564 "e_"
82.19999999999999 564 "g_"
88.79999999999998 564 "e_"
95.39999999999998 564 "r _"
108.59999999999997 564 "a_"
115.19999999999996 564 "r_"
121.79999999999995 564 "r_"
128.39999999999995 564 "a_"
134.99999999999994 564 "y A, B, C;"
55.800000000000004 576 "_"
55.800000000000004 576 "b_"
62.4 576 "e_"
69 576 "g_"
75.6 576 "i_"
82.19999999999999 576 "n"
75.6 588 "_"
75.6 588 "b_"
82.19999999999999 588 "o_"
88.79999999999998 588 "o_"
95.39999999999998 588 "l_"
101.99999999999997 588 "e_"
108.59999999999997 588 "a_"
115.19999999999996 588 "n empty;"
75.6 600 "_"
75.6 600 "i_"
82.19999999999999 600 "n_"
88.79999999999998 600 "t_"
95.39999999999998 600 "e_"
101.99999999999997 600 "g_"
108.59999999999997 600 "e_"
115.19999999999996 600 "r xsize, zsize, nx, nz,"
273.5999999999999 600 "i,"
293.4 600 "imax;"
75.6 612 "_"
75.6 612 "i_"
82.19999999999999 612 "n_"
88.79999999999998 612 "t_"
95.39999999999998 612 "e_"
101.99999999999997 612 "g_"
108.59999999999997 612 "e_"
115.19999999999996 612 "r _"
128.39999999999995 612 "a_"
134.99999999999994 612 "r_"
141.59999999999994 612 "r_"
148.19999999999993 612 "a_"
154.79999999999993 612 "y X, Z[0:c39];"
75.6 624 "nx := ftrack;"
75.6 636 "nz := nx + 1;"
75.6 648 "ftrack := ftrack + 2;"
75.6 660 "ASSIGN(x, X, xsize, nx);"
75.6 672 "ASSIGN(sqrt(x), A, asize, na);"
75.6 684 "ASSIGN(1/sqrt(x), Z, zsize,"
260.39999999999986 684 "nz);"
75.6 696 "imax := _"
128.39999999999995 696 "i_"
134.99999999999994 696 "f asize > zsize _"
240.59999999999985 696 "t_"
247.19999999999985 696 "h_"
253.79999999999987 696 "e_"
260.39999999999986 696 "n"
273.5999999999999 696 "asize"
313.20000000000005 696 "_"
313.20000000000005 696 "e_"
319.80000000000007 696 "l_"
326.4000000000001 696 "s_"
333.0000000000001 696 "e"
346.20000000000016 696 "zsize;"
75.6 708 "imax := imax − decimals + 1;"
75.6 720 "_"
75.6 720 "f_"
82.19999999999999 720 "o_"
88.79999999999998 720 "r i := 1 _"
148.19999999999993 720 "s_"
154.79999999999993 720 "t_"
161.39999999999992 720 "e_"
167.99999999999991 720 "p 1 _"
194.3999999999999 720 "u_"
200.9999999999999 720 "n_"
207.59999999999988 720 "t_"
214.19999999999987 720 "i_"
220.79999999999987 720 "l imax"
266.9999999999999 720 "_"
266.9999999999999 720 "d_"
273.5999999999999 720 "o"
75.6 732 "_"
75.6 732 "b_"
82.19999999999999 732 "e_"
88.79999999999998 732 "g_"
95.39999999999998 732 "i_"
101.99999999999997 732 "n"
95.39999999999998 744 "_"
95.39999999999998 744 "i_"
101.99999999999997 744 "f kbon _"
148.19999999999993 744 "t_"
154.79999999999993 744 "h_"
161.39999999999992 744 "e_"
167.99999999999991 744 "n"
95.39999999999998 756 "_"
95.39999999999998 756 "b_"
101.99999999999997 756 "e_"
108.59999999999997 756 "g_"
115.19999999999996 756 "i_"
121.79999999999995 756 "n"
115.19999999999996 768 "LINE;"
115.19999999999996 780 "writetext( |"
187.7999999999999 780 "<<SQRT: i ="
266.9999999999999 780 "|"
266.9999999999999 780 ">"
280.19999999999993 780 ");"
115.19999999999996 792 "writeinteger( |"
207.59999999999988 792 "<p|"
220.79999999999987 792 ">, i );"
115.19999999999996 36 "writetext( |"
187.7999999999999 36 "<<, A =|"
233.99999999999986 36 "> );"
115.19999999999996 48 "PRINT( A, asize, na )"
95.39999999999998 60 "_"
95.39999999999998 60 "e_"
101.99999999999997 60 "n_"
108.59999999999997 60 "d;"
95.39999999999998 72 "LONGMULT(A, asize, na, Z,"
266.9999999999999 72 "zsize,"
313.20000000000005 72 "nz,"
339.60000000000014 72 "B,"
359.4000000000002 72 "bsize,"
405.60000000000036 72 "nb);"
95.39999999999998 84 "_"
95.39999999999998 84 "i_"
101.99999999999997 84 "f kbon _"
148.19999999999993 84 "t_"
154.79999999999993 84 "h_"
161.39999999999992 84 "e_"
167.99999999999991 84 "n"
95.39999999999998 96 "_"
95.39999999999998 96 "b_"
101.99999999999997 96 "e_"
108.59999999999997 96 "g_"
115.19999999999996 96 "i_"
121.79999999999995 96 "n"
115.19999999999996 108 "LINE;"
115.19999999999996 120 "writetext( |"
187.7999999999999 120 "<< B =|"
227.39999999999986 120 "> );"
115.19999999999996 132 "PRINT( B, bsize, nb )"
95.39999999999998 144 "_"
95.39999999999998 144 "e_"
101.99999999999997 144 "n_"
108.59999999999997 144 "d;"
95.39999999999998 156 "ASSIGN(2, C, csize, nc);"
95.39999999999998 168 "ADD(B, bsize, nb, −1, C,"
260.39999999999986 168 "csize,"
306.6 168 "nc);"
95.39999999999998 180 "LONGMULT(Z, zsize, nz, C,"
266.9999999999999 180 "csize,"
313.20000000000005 180 "nc,"
339.60000000000014 180 "B,"
359.4000000000002 180 "bsize,"
405.60000000000036 180 "nb);"
95.39999999999998 192 "LONGMULT(B, bsize, nb, X,"
266.9999999999999 192 "xsize,"
313.20000000000005 192 "nx,"
339.60000000000014 192 "C,"
359.4000000000002 192 "csize,"
405.60000000000036 192 "nc);"
95.39999999999998 204 "COPY(B, bsize, nb, Z, zsize,"
286.79999999999995 204 "nz);"
95.39999999999998 216 "ADD(C, csize, nc, 1, A, asize,"
300 216 "na);"
95.39999999999998 228 "DIVIDE(A, asize, na, 2, empty);"
49.2 240 "_"
49.2 240 "i_"
55.800000000000004 240 "f kbon"
102 240 "∧"
115.19999999999999 240 "_"
115.19999999999999 240 "f_"
121.79999999999998 240 "a_"
128.39999999999998 240 "l_"
134.99999999999997 240 "s_"
141.59999999999997 240 "e _"
154.79999999999995 240 "t_"
161.39999999999995 240 "h_"
167.99999999999994 240 "e_"
174.59999999999994 240 "n"
49.2 252 "_"
49.2 252 "b_"
55.800000000000004 252 "e_"
62.4 252 "g_"
69 252 "i_"
75.6 252 "n"
115.19999999999996 264 "LINE;"
115.19999999999996 276 "writetext(|"
181.1999999999999 276 "<<i: |"
214.19999999999987 276 ">);"
115.19999999999996 288 "write integer(|"
207.59999999999988 288 "<−ddddd|"
253.79999999999987 288 ">,"
273.5999999999999 288 "i);"
115.19999999999996 300 "writetext(|"
181.1999999999999 300 "<<, A: |"
227.39999999999986 300 ">);"
115.19999999999996 312 "PRINT(A, asize, na)"
49.2 324 "_"
49.2 324 "e_"
55.800000000000004 324 "n_"
62.4 324 "d"
75.6 336 "_"
75.6 336 "e_"
82.19999999999999 336 "n_"
88.79999999999998 336 "d for i;"
75.6 348 "_"
75.6 348 "i_"
82.19999999999999 348 "f kbon _"
128.39999999999995 348 "t_"
134.99999999999994 348 "h_"
141.59999999999994 348 "e_"
148.19999999999993 348 "n"
75.6 360 "_"
75.6 360 "b_"
82.19999999999999 360 "e_"
88.79999999999998 360 "g_"
95.39999999999998 360 "i_"
101.99999999999997 360 "n"
95.39999999999998 372 "LINE;"
95.39999999999998 384 "writetext( |"
167.99999999999991 384 "<<SQRT end A ="
266.9999999999999 384 "|"
266.9999999999999 384 ">"
280.19999999999993 384 ");"
95.39999999999998 396 "PRINT( A, asize, na )"
75.6 408 "_"
75.6 408 "e_"
82.19999999999999 408 "n_"
88.79999999999998 408 "d;"
75.6 420 "ftrack := ftrack − 2"
55.800000000000004 432 "_"
55.800000000000004 432 "e_"
62.4 432 "n_"
69 432 "d SQRT;"
55.800000000000004 444 "_"
55.800000000000004 444 "i_"
62.4 444 "n_"
69 444 "t_"
75.6 444 "e_"
82.19999999999999 444 "g_"
88.79999999999998 444 "e_"
95.39999999999998 444 "r _"
108.59999999999997 444 "p_"
115.19999999999996 444 "r_"
121.79999999999995 444 "o_"
128.39999999999995 444 "c_"
134.99999999999994 444 "e_"
141.59999999999994 444 "d_"
148.19999999999993 444 "u_"
154.79999999999993 444 "r_"
161.39999999999992 444 "e SQUARE(A, asize,"
286.79999999999995 444 "na,"
313.20000000000005 444 "B,"
333.0000000000001 444 "bsize,"
379.2000000000003 444 "nb);"
55.800000000000004 456 "_"
55.800000000000004 456 "c_"
62.4 456 "o_"
69 456 "m_"
75.6 456 "m_"
82.19999999999999 456 "e_"
88.79999999999998 456 "n_"
95.39999999999998 456 "t B := A"
148.2 456 "×"
154.79999999999998 456 "A;"
55.79999999999999 468 "_"
55.79999999999999 468 "v_"
62.399999999999984 468 "a_"
68.99999999999999 468 "l_"
75.59999999999998 468 "u_"
82.19999999999997 468 "e na, nb;"
55.79999999999999 480 "_"
55.79999999999999 480 "i_"
62.399999999999984 480 "n_"
68.99999999999999 480 "t_"
75.59999999999998 480 "e_"
82.19999999999997 480 "g_"
88.79999999999997 480 "e_"
95.39999999999996 480 "r asize, na, bsize, nb;"
55.79999999999999 492 "_"
55.79999999999999 492 "i_"
62.399999999999984 492 "n_"
68.99999999999999 492 "t_"
75.59999999999998 492 "e_"
82.19999999999997 492 "g_"
88.79999999999997 492 "e_"
95.39999999999996 492 "r _"
108.59999999999995 492 "a_"
115.19999999999995 492 "r_"
121.79999999999995 492 "r_"
128.39999999999995 492 "a_"
134.99999999999994 492 "y A, B;"
55.79999999999999 504 "_"
55.79999999999999 504 "b_"
62.399999999999984 504 "e_"
68.99999999999999 504 "g_"
75.59999999999998 504 "i_"
82.19999999999997 504 "n"
75.59999999999998 516 "_"
75.59999999999998 516 "i_"
82.19999999999997 516 "n_"
88.79999999999997 516 "t_"
95.39999999999996 516 "e_"
101.99999999999996 516 "g_"
108.59999999999995 516 "e_"
115.19999999999995 516 "r"
128.39999999999995 516 "xsize, nx;"
75.59999999999998 528 "_"
75.59999999999998 528 "i_"
82.19999999999997 528 "n_"
88.79999999999997 528 "t_"
95.39999999999996 528 "e_"
101.99999999999996 528 "g_"
108.59999999999995 528 "e_"
115.19999999999995 528 "r"
128.39999999999995 528 "_"
128.39999999999995 528 "a_"
134.99999999999994 528 "r_"
141.59999999999994 528 "r_"
148.19999999999993 528 "a_"
154.79999999999993 528 "y X[0:c39];"
75.59999999999998 540 "nx := ftrack;"
75.59999999999998 552 "ftrack := ftrack + 1;"
75.59999999999998 564 "COPY( A, asize, na, X, xsize,"
273.5999999999999 564 "nx"
293.4 564 ");"
75.59999999999998 576 "LONGMULT2( A, asize, na, X,"
260.39999999999986 576 "xsize,"
306.6 576 "nx,"
333.0000000000001 576 "B,"
352.8000000000002 576 "bsize,"
399.00000000000034 576 "nb"
418.8000000000004 576 ");"
75.59999999999998 588 "ftrack := ftrack − 1"
55.79999999999999 600 "_"
55.79999999999999 600 "e_"
62.399999999999984 600 "n_"
68.99999999999999 600 "d SQUARE;"
55.79999999999999 612 "_"
55.79999999999999 612 "i_"
62.399999999999984 612 "n_"
68.99999999999999 612 "t_"
75.59999999999998 612 "e_"
82.19999999999997 612 "g_"
88.79999999999997 612 "e_"
95.39999999999996 612 "r _"
108.59999999999995 612 "p_"
115.19999999999995 612 "r_"
121.79999999999995 612 "o_"
128.39999999999995 612 "c_"
134.99999999999994 612 "e_"
141.59999999999994 612 "d_"
148.19999999999993 612 "u_"
154.79999999999993 612 "r_"
161.39999999999992 612 "e SQRT2(x, A, asize,"
300 612 "na,"
326.4000000000001 612 "B,"
346.20000000000016 612 "bsize,"
392.4000000000003 612 "nb,"
418.8000000000004 612 "C,"
438.6000000000005 612 "csize,"
484.80000000000064 612 "nc);"
55.79999999999999 624 "_"
55.79999999999999 624 "v_"
62.399999999999984 624 "a_"
68.99999999999999 624 "l_"
75.59999999999998 624 "u_"
82.19999999999997 624 "e x, na, nb, nc;"
55.79999999999999 636 "_"
55.79999999999999 636 "r_"
62.399999999999984 636 "e_"
68.99999999999999 636 "a_"
75.59999999999998 636 "l x;"
55.79999999999999 648 "_"
55.79999999999999 648 "i_"
62.399999999999984 648 "n_"
68.99999999999999 648 "t_"
75.59999999999998 648 "e_"
82.19999999999997 648 "g_"
88.79999999999997 648 "e_"
95.39999999999996 648 "r asize, na, bsize, nb, csize,"
300 648 "nc;"
55.79999999999999 660 "_"
55.79999999999999 660 "i_"
62.399999999999984 660 "n_"
68.99999999999999 660 "t_"
75.59999999999998 660 "e_"
82.19999999999997 660 "g_"
88.79999999999997 660 "e_"
95.39999999999996 660 "r _"
108.59999999999995 660 "a_"
115.19999999999995 660 "r_"
121.79999999999995 660 "r_"
128.39999999999995 660 "a_"
134.99999999999994 660 "y A, B, C;"
55.79999999999999 672 "_"
55.79999999999999 672 "b_"
62.399999999999984 672 "e_"
68.99999999999999 672 "g_"
75.59999999999998 672 "i_"
82.19999999999997 672 "n"
75.59999999999998 684 "_"
75.59999999999998 684 "b_"
82.19999999999997 684 "o_"
88.79999999999997 684 "o_"
95.39999999999996 684 "l_"
101.99999999999996 684 "e_"
108.59999999999995 684 "a_"
115.19999999999995 684 "n"
128.39999999999995 684 "empty;"
75.59999999999998 696 "_"
75.59999999999998 696 "i_"
82.19999999999997 696 "n_"
88.79999999999997 696 "t_"
95.39999999999996 696 "e_"
101.99999999999996 696 "g_"
108.59999999999995 696 "e_"
115.19999999999995 696 "r"
128.39999999999995 696 "xsize, zsize, nx, nz,"
273.5999999999999 696 "i,"
293.4 696 "imax;"
75.59999999999998 708 "_"
75.59999999999998 708 "i_"
82.19999999999997 708 "n_"
88.79999999999997 708 "t_"
95.39999999999996 708 "e_"
101.99999999999996 708 "g_"
108.59999999999995 708 "e_"
115.19999999999995 708 "r"
128.39999999999995 708 "_"
128.39999999999995 708 "a_"
134.99999999999994 708 "r_"
141.59999999999994 708 "r_"
148.19999999999993 708 "a_"
154.79999999999993 708 "y X, Z[0:c39];"
75.59999999999998 720 "nx := ftrack;"
75.59999999999998 732 "nz := nx + 1;"
75.59999999999998 744 "ftrack := ftrack + 2;"
75.59999999999998 756 "ASSIGN(x, X, xsize, nx);"
75.59999999999998 768 "ASSIGN(sqrt(x), A, asize, na);"
75.59999999999998 780 "ASSIGN(1/sqrt(x), Z, zsize,"
260.39999999999986 780 "nz);"
75.59999999999998 792 "imax :="
128.39999999999995 792 "_"
128.39999999999995 792 "i_"
134.99999999999994 792 "f asize > zsize _"
240.59999999999985 792 "t_"
247.19999999999985 792 "h_"
253.79999999999987 792 "e_"
260.39999999999986 792 "n"
273.5999999999999 792 "asize"
313.20000000000005 792 "_"
313.20000000000005 792 "e_"
319.80000000000007 792 "l_"
326.4000000000001 792 "s_"
333.0000000000001 792 "e"
346.20000000000016 792 "zsize;"
75.6 36 "imax := imax − decimals + 1;"
75.6 48 "_"
75.6 48 "f_"
82.19999999999999 48 "o_"
88.79999999999998 48 "r i := 1 _"
148.19999999999993 48 "s_"
154.79999999999993 48 "t_"
161.39999999999992 48 "e_"
167.99999999999991 48 "p 1 _"
194.3999999999999 48 "u_"
200.9999999999999 48 "n_"
207.59999999999988 48 "t_"
214.19999999999987 48 "i_"
220.79999999999987 48 "l imax"
266.9999999999999 48 "_"
266.9999999999999 48 "d_"
273.5999999999999 48 "o"
75.6 60 "_"
75.6 60 "b_"
82.19999999999999 60 "e_"
88.79999999999998 60 "g_"
95.39999999999998 60 "i_"
101.99999999999997 60 "n"
95.39999999999998 72 "_"
95.39999999999998 72 "i_"
101.99999999999997 72 "f kbon _"
148.19999999999993 72 "t_"
154.79999999999993 72 "h_"
161.39999999999992 72 "e_"
167.99999999999991 72 "n"
95.39999999999998 84 "_"
95.39999999999998 84 "b_"
101.99999999999997 84 "e_"
108.59999999999997 84 "g_"
115.19999999999996 84 "i_"
121.79999999999995 84 "n"
115.19999999999996 96 "LINE;"
115.19999999999996 108 "writetext( |"
187.7999999999999 108 "<<SQRT2: i"
260.39999999999986 108 "="
273.5999999999999 108 "|"
273.5999999999999 108 ">"
286.79999999999995 108 ");"
115.19999999999996 120 "writeinteger( |"
207.59999999999988 120 "<p|"
220.79999999999987 120 ">, i );"
115.19999999999996 132 "writetext( |"
187.7999999999999 132 "<<, A =|"
233.99999999999986 132 "> );"
115.19999999999996 144 "PRINT( A, asize, na )"
95.39999999999998 156 "_"
95.39999999999998 156 "e_"
101.99999999999997 156 "n_"
108.59999999999997 156 "d;"
95.39999999999998 168 "LONGMULT2(A, asize, na, Z,"
273.5999999999999 168 "zsize,"
319.80000000000007 168 "nz,"
346.20000000000016 168 "B,"
366.0000000000002 168 "bsize,"
412.2000000000004 168 "nb);"
95.39999999999998 180 "_"
95.39999999999998 180 "i_"
101.99999999999997 180 "f kbon _"
148.19999999999993 180 "t_"
154.79999999999993 180 "h_"
161.39999999999992 180 "e_"
167.99999999999991 180 "n"
95.39999999999998 192 "_"
95.39999999999998 192 "b_"
101.99999999999997 192 "e_"
108.59999999999997 192 "g_"
115.19999999999996 192 "i_"
121.79999999999995 192 "n"
115.19999999999996 204 "LINE;"
115.19999999999996 216 "writetext( |"
187.7999999999999 216 "<< B =|"
227.39999999999986 216 "> );"
115.19999999999996 228 "PRINT( B, bsize, nb )"
95.39999999999998 240 "_"
95.39999999999998 240 "e_"
101.99999999999997 240 "n_"
108.59999999999997 240 "d;"
95.39999999999998 252 "ASSIGN(2, C, csize, nc);"
95.39999999999998 264 "ADD(B, bsize, nb, −1, C,"
260.39999999999986 264 "csize,"
306.6 264 "nc);"
95.39999999999998 276 "LONGMULT2(Z, zsize, nz, C,"
273.5999999999999 276 "csize,"
319.80000000000007 276 "nc,"
346.20000000000016 276 "B,"
366.0000000000002 276 "bsize,"
412.2000000000004 276 "nb);"
95.39999999999998 288 "LONGMULT2(B, bsize, nb, X,"
273.5999999999999 288 "xsize,"
319.80000000000007 288 "nx,"
346.20000000000016 288 "C,"
366.0000000000002 288 "csize,"
412.2000000000004 288 "nc);"
95.39999999999998 300 "COPY(B, bsize, nb, Z, zsize,"
286.79999999999995 300 "nz);"
95.39999999999998 312 "ADD(C, csize, nc, 1, A, asize,"
300 312 "na);"
95.39999999999998 324 "DIVIDE(A, asize, na, 2, empty);"
49.2 336 "_"
49.2 336 "i_"
55.800000000000004 336 "f kbon"
102 336 "∧"
115.19999999999999 336 "_"
115.19999999999999 336 "f_"
121.79999999999998 336 "a_"
128.39999999999998 336 "l_"
134.99999999999997 336 "s_"
141.59999999999997 336 "e _"
154.79999999999995 336 "t_"
161.39999999999995 336 "h_"
167.99999999999994 336 "e_"
174.59999999999994 336 "n"
49.2 348 "_"
49.2 348 "b_"
55.800000000000004 348 "e_"
62.4 348 "g_"
69 348 "i_"
75.6 348 "n"
115.19999999999996 360 "LINE;"
115.19999999999996 372 "writetext(|"
181.1999999999999 372 "<<i: |"
214.19999999999987 372 ">);"
115.19999999999996 384 "write integer(|"
207.59999999999988 384 "<−ddddd|"
253.79999999999987 384 ">,"
273.5999999999999 384 "i);"
115.19999999999996 396 "writetext(|"
181.1999999999999 396 "<<, A: |"
227.39999999999986 396 ">);"
115.19999999999996 408 "PRINT(A, asize, na)"
49.2 420 "_"
49.2 420 "e_"
55.800000000000004 420 "n_"
62.4 420 "d"
75.6 432 "_"
75.6 432 "e_"
82.19999999999999 432 "n_"
88.79999999999998 432 "d for i;"
75.6 444 "_"
75.6 444 "i_"
82.19999999999999 444 "f kbon _"
128.39999999999995 444 "t_"
134.99999999999994 444 "h_"
141.59999999999994 444 "e_"
148.19999999999993 444 "n"
75.6 456 "_"
75.6 456 "b_"
82.19999999999999 456 "e_"
88.79999999999998 456 "g_"
95.39999999999998 456 "i_"
101.99999999999997 456 "n"
95.39999999999998 468 "LINE;"
95.39999999999998 480 "writetext( |"
167.99999999999991 480 "<<SQRT2 end A"
260.39999999999986 480 "="
273.5999999999999 480 "|"
273.5999999999999 480 ">"
286.79999999999995 480 ");"
95.39999999999998 492 "PRINT( A, asize, na )"
75.6 504 "_"
75.6 504 "e_"
82.19999999999999 504 "n_"
88.79999999999998 504 "d;"
75.6 516 "ftrack := ftrack − 2"
55.800000000000004 528 "_"
55.800000000000004 528 "e_"
62.4 528 "n_"
69 528 "d SQRT2;"
55.800000000000004 540 "_"
55.800000000000004 540 "i_"
62.4 540 "n_"
69 540 "t_"
75.6 540 "e_"
82.19999999999999 540 "g_"
88.79999999999998 540 "e_"
95.39999999999998 540 "r _"
108.59999999999997 540 "p_"
115.19999999999996 540 "r_"
121.79999999999995 540 "o_"
128.39999999999995 540 "c_"
134.99999999999994 540 "e_"
141.59999999999994 540 "d_"
148.19999999999993 540 "u_"
154.79999999999993 540 "r_"
161.39999999999992 540 "e SQRT3(x, A, asize,"
300 540 "na,"
326.4000000000001 540 "B,"
346.20000000000016 540 "bsize,"
392.4000000000003 540 "nb,"
418.8000000000004 540 "C,"
438.6000000000005 540 "csize,"
484.80000000000064 540 "nc);"
55.800000000000004 552 "_"
55.800000000000004 552 "v_"
62.4 552 "a_"
69 552 "l_"
75.6 552 "u_"
82.19999999999999 552 "e x, na, nb, nc;"
55.800000000000004 564 "_"
55.800000000000004 564 "r_"
62.4 564 "e_"
69 564 "a_"
75.6 564 "l x;"
55.800000000000004 576 "_"
55.800000000000004 576 "i_"
62.4 576 "n_"
69 576 "t_"
75.6 576 "e_"
82.19999999999999 576 "g_"
88.79999999999998 576 "e_"
95.39999999999998 576 "r asize, na, bsize, nb, csize,"
300 576 "nc;"
55.800000000000004 588 "_"
55.800000000000004 588 "i_"
62.4 588 "n_"
69 588 "t_"
75.6 588 "e_"
82.19999999999999 588 "g_"
88.79999999999998 588 "e_"
95.39999999999998 588 "r _"
108.59999999999997 588 "a_"
115.19999999999996 588 "r_"
121.79999999999995 588 "r_"
128.39999999999995 588 "a_"
134.99999999999994 588 "y A, B, C;"
55.800000000000004 600 "_"
55.800000000000004 600 "b_"
62.4 600 "e_"
69 600 "g_"
75.6 600 "i_"
82.19999999999999 600 "n"
75.6 612 "ASSIGN( x, B, bsize, nb );"
75.6 624 "SQRT4( A, asize, na, B, bsize,"
280.19999999999993 624 "nb,"
306.6 624 "C,"
326.4000000000001 624 "csize,"
372.60000000000025 624 "nc"
392.4000000000003 624 ")"
55.800000000000004 636 "_"
55.800000000000004 636 "e_"
62.4 636 "n_"
69 636 "d SQRT3;"
55.800000000000004 648 "_"
55.800000000000004 648 "i_"
62.4 648 "n_"
69 648 "t_"
75.6 648 "e_"
82.19999999999999 648 "g_"
88.79999999999998 648 "e_"
95.39999999999998 648 "r _"
108.59999999999997 648 "p_"
115.19999999999996 648 "r_"
121.79999999999995 648 "o_"
128.39999999999995 648 "c_"
134.99999999999994 648 "e_"
141.59999999999994 648 "d_"
148.19999999999993 648 "u_"
154.79999999999993 648 "r_"
161.39999999999992 648 "e SQRT4(A, asize,"
280.19999999999993 648 "na,"
306.6 648 "B,"
326.4000000000001 648 "bsize,"
372.60000000000025 648 "nb,"
399.00000000000034 648 "C,"
418.8000000000004 648 "csize,"
465.00000000000057 648 "nc);"
55.800000000000004 660 "_"
55.800000000000004 660 "c_"
62.4 660 "o_"
69 660 "m_"
75.6 660 "m_"
82.19999999999999 660 "e_"
88.79999999999998 660 "n_"
95.39999999999998 660 "t A := sqrt(B);"
55.800000000000004 672 "_"
55.800000000000004 672 "v_"
62.4 672 "a_"
69 672 "l_"
75.6 672 "u_"
82.19999999999999 672 "e na, nb, nc;"
55.800000000000004 684 "_"
55.800000000000004 684 "i_"
62.4 684 "n_"
69 684 "t_"
75.6 684 "e_"
82.19999999999999 684 "g_"
88.79999999999998 684 "e_"
95.39999999999998 684 "r asize, na, bsize, nb, csize,"
300 684 "nc;"
55.800000000000004 696 "_"
55.800000000000004 696 "i_"
62.4 696 "n_"
69 696 "t_"
75.6 696 "e_"
82.19999999999999 696 "g_"
88.79999999999998 696 "e_"
95.39999999999998 696 "r _"
108.59999999999997 696 "a_"
115.19999999999996 696 "r_"
121.79999999999995 696 "r_"
128.39999999999995 696 "a_"
134.99999999999994 696 "y A, B, C;"
55.800000000000004 708 "_"
55.800000000000004 708 "b_"
62.4 708 "e_"
69 708 "g_"
75.6 708 "i_"
82.19999999999999 708 "n"
75.6 720 "ASSIGN(sqrt(TO REAL( B, bsize,"
280.19999999999993 720 "nb"
300 720 ")),"
326.4000000000001 720 "A,"
346.20000000000016 720 "asize,"
392.4000000000003 720 "na);"
75.6 732 "SQRT5(A, asize, na, B, bsize,"
273.5999999999999 732 "nb,"
300 732 "C,"
319.80000000000007 732 "csize,"
366.0000000000002 732 "nc)"
55.800000000000004 744 "_"
55.800000000000004 744 "e_"
62.4 744 "n_"
69 744 "d SQRT4;"
55.800000000000004 756 "_"
55.800000000000004 756 "i_"
62.4 756 "n_"
69 756 "t_"
75.6 756 "e_"
82.19999999999999 756 "g_"
88.79999999999998 756 "e_"
95.39999999999998 756 "r _"
108.59999999999997 756 "p_"
115.19999999999996 756 "r_"
121.79999999999995 756 "o_"
128.39999999999995 756 "c_"
134.99999999999994 756 "e_"
141.59999999999994 756 "d_"
148.19999999999993 756 "u_"
154.79999999999993 756 "r_"
161.39999999999992 756 "e SQRT5(A, asize,"
280.19999999999993 756 "na,"
306.6 756 "B,"
326.4000000000001 756 "bsize,"
372.60000000000025 756 "nb,"
399.00000000000034 756 "C,"
418.8000000000004 756 "csize,"
465.00000000000057 756 "nc);"
55.800000000000004 768 "_"
55.800000000000004 768 "c_"
62.4 768 "o_"
69 768 "m_"
75.6 768 "m_"
82.19999999999999 768 "e_"
88.79999999999998 768 "n_"
95.39999999999998 768 "t A := sqrt(B) using A as"
266.9999999999999 768 "starting"
326.4000000000001 768 "value;"
55.800000000000004 780 "_"
55.800000000000004 780 "v_"
62.4 780 "a_"
69 780 "l_"
75.6 780 "u_"
82.19999999999999 780 "e na, nb, nc;"
55.800000000000004 792 "_"
55.800000000000004 792 "i_"
62.4 792 "n_"
69 792 "t_"
75.6 792 "e_"
82.19999999999999 792 "g_"
88.79999999999998 792 "e_"
95.39999999999998 792 "r asize, na, bsize, nb, csize,"
300 792 "nc;"
55.800000000000004 36 "_"
55.800000000000004 36 "i_"
62.4 36 "n_"
69 36 "t_"
75.6 36 "e_"
82.19999999999999 36 "g_"
88.79999999999998 36 "e_"
95.39999999999998 36 "r _"
108.59999999999997 36 "a_"
115.19999999999996 36 "r_"
121.79999999999995 36 "r_"
128.39999999999995 36 "a_"
134.99999999999994 36 "y A, B, C;"
55.800000000000004 48 "_"
55.800000000000004 48 "b_"
62.4 48 "e_"
69 48 "g_"
75.6 48 "i_"
82.19999999999999 48 "n"
75.6 60 "_"
75.6 60 "i_"
82.19999999999999 60 "n_"
88.79999999999998 60 "t_"
95.39999999999998 60 "e_"
101.99999999999997 60 "g_"
108.59999999999997 60 "e_"
115.19999999999996 60 "r xsize, nx, prevsize,"
266.9999999999999 60 "size,"
306.6 60 "acell,"
352.8000000000002 60 "ccell;"
75.6 72 "_"
75.6 72 "i_"
82.19999999999999 72 "n_"
88.79999999999998 72 "t_"
95.39999999999998 72 "e_"
101.99999999999997 72 "g_"
108.59999999999997 72 "e_"
115.19999999999996 72 "r _"
128.39999999999995 72 "a_"
134.99999999999994 72 "r_"
141.59999999999994 72 "r_"
148.19999999999993 72 "a_"
154.79999999999993 72 "y X[0:c39];"
75.6 84 "_"
75.6 84 "b_"
82.19999999999999 84 "o_"
88.79999999999998 84 "o_"
95.39999999999998 84 "l_"
101.99999999999997 84 "e_"
108.59999999999997 84 "a_"
115.19999999999996 84 "n empty;"
75.6 96 "_"
75.6 96 "i_"
82.19999999999999 96 "n_"
88.79999999999998 96 "t_"
95.39999999999998 96 "e_"
101.99999999999997 96 "g_"
108.59999999999997 96 "e_"
115.19999999999996 96 "r i, sd;"
75.6 108 "_"
75.6 108 "b_"
82.19999999999999 108 "o_"
88.79999999999998 108 "o_"
95.39999999999998 108 "l_"
101.99999999999997 108 "e_"
108.59999999999997 108 "a_"
115.19999999999996 108 "n kbonSQRT5;"
75.6 120 "kbonSQRT5 := _"
161.39999999999992 120 "f_"
167.99999999999991 120 "a_"
174.5999999999999 120 "l_"
181.1999999999999 120 "s_"
187.7999999999999 120 "e;"
75.6 132 "nx := ftrack;"
75.6 144 "ftrack := ftrack + 1;"
75.6 156 "sd := 7;"
75.6 168 "prevsize := decimals + 1;"
75.6 180 "_"
75.6 180 "f_"
82.19999999999999 180 "o_"
88.79999999999998 180 "r i := 1, i + 1 _"
194.3999999999999 180 "w_"
200.9999999999999 180 "h_"
207.59999999999988 180 "i_"
214.19999999999987 180 "l_"
220.79999999999987 180 "e _"
233.99999999999986 180 "t_"
240.59999999999985 180 "r_"
247.19999999999985 180 "u_"
253.79999999999987 180 "e"
266.9999999999999 180 "_"
266.9999999999999 180 "d_"
273.5999999999999 180 "o"
75.6 192 "_"
75.6 192 "b_"
82.19999999999999 192 "e_"
88.79999999999998 192 "g_"
95.39999999999998 192 "i_"
101.99999999999997 192 "n"
95.39999999999998 204 "_"
95.39999999999998 204 "i_"
101.99999999999997 204 "f kbon"
148.2 204 "∨"
161.39999999999998 204 "kbonSQRT5 _"
227.39999999999992 204 "t_"
233.99999999999991 204 "h_"
240.5999999999999 204 "e_"
247.1999999999999 204 "n"
95.39999999999996 216 "_"
95.39999999999996 216 "b_"
101.99999999999996 216 "e_"
108.59999999999995 216 "g_"
115.19999999999995 216 "i_"
121.79999999999995 216 "n"
115.19999999999995 228 "LINE;"
115.19999999999995 240 "writetext( |"
187.7999999999999 240 "<<SQRT5: i"
260.39999999999986 240 "="
273.5999999999999 240 "|"
273.5999999999999 240 ">"
286.79999999999995 240 ");"
115.19999999999995 252 "writeinteger( |"
207.59999999999988 252 "<p|"
220.79999999999987 252 ">, i );"
115.19999999999995 264 "writetext( |"
187.7999999999999 264 "<<, sd = |"
247.19999999999985 264 ">"
260.39999999999986 264 ");"
115.19999999999995 276 "writeinteger( |"
207.59999999999988 276 "<p|"
220.79999999999987 276 ">, sd"
260.39999999999986 276 ");"
115.19999999999995 288 "writetext( |"
187.7999999999999 288 "<<, A =|"
233.99999999999986 288 "> );"
115.19999999999995 300 "PRINT( A, asize, na )"
95.39999999999996 312 "_"
95.39999999999996 312 "e_"
101.99999999999996 312 "n_"
108.59999999999995 312 "d;"
95.39999999999996 324 "COPY( B, bsize, nb, X, xsize,"
293.4 324 "nx"
313.20000000000005 324 ");"
95.39999999999996 336 "LONGDIVIDE( X, xsize, nx,"
266.9999999999999 336 "A,"
286.79999999999995 336 "asize,"
333.0000000000001 336 "na,"
359.4000000000002 336 "C,"
379.2000000000003 336 "csize,"
425.40000000000043 336 "nc"
445.2000000000005 336 ");"
95.39999999999996 348 "COMPARE( A, asize, na, C,"
266.9999999999999 348 "csize,"
313.20000000000005 348 "nc,"
339.60000000000014 348 "size,"
379.2000000000003 348 "acell,"
425.40000000000043 348 "ccell"
465.00000000000057 348 ");"
95.39999999999996 360 "_"
95.39999999999996 360 "i_"
101.99999999999996 360 "f kbon"
148.2 360 "∨"
161.39999999999998 360 "kbonSQRT5 _"
227.39999999999992 360 "t_"
233.99999999999991 360 "h_"
240.5999999999999 360 "e_"
247.1999999999999 360 "n"
95.39999999999996 372 "_"
95.39999999999996 372 "b_"
101.99999999999996 372 "e_"
108.59999999999995 372 "g_"
115.19999999999995 372 "i_"
121.79999999999995 372 "n"
115.19999999999995 384 "LINE;"
115.19999999999995 396 "writetext( |"
187.7999999999999 396 "<< prevsize"
266.9999999999999 396 "="
280.19999999999993 396 "|"
280.19999999999993 396 ">"
293.4 396 ");"
115.19999999999995 408 "writeinteger( |"
207.59999999999988 408 "<−d|"
227.39999999999986 408 ">, prevsize"
306.6 408 ");"
115.19999999999995 420 "writetext( |"
187.7999999999999 420 "<<, size ="
260.39999999999986 420 "|"
260.39999999999986 420 ">"
273.5999999999999 420 ");"
115.19999999999995 432 "writeinteger( |"
207.59999999999988 432 "<−d|"
227.39999999999986 432 ">, size"
280.19999999999993 432 ");"
115.19999999999995 444 "writetext( |"
187.7999999999999 444 "<<, acell ="
266.9999999999999 444 "|"
266.9999999999999 444 ">"
280.19999999999993 444 ");"
115.19999999999995 456 "writeinteger( |"
207.59999999999988 456 "<−d|"
227.39999999999986 456 ">, acell"
286.79999999999995 456 ");"
115.19999999999995 468 "writetext( |"
187.7999999999999 468 "<<, ccell ="
266.9999999999999 468 "|"
266.9999999999999 468 ">"
280.19999999999993 468 ");"
115.19999999999995 480 "writeinteger( |"
207.59999999999988 480 "<−d|"
227.39999999999986 480 ">, ccell"
286.79999999999995 480 ");"
115.19999999999995 492 "writetext( |"
187.7999999999999 492 "<<, C =|"
233.99999999999986 492 "> );"
115.19999999999995 504 "PRINT( C, csize, nc )"
95.39999999999996 516 "_"
95.39999999999996 516 "e_"
101.99999999999996 516 "n_"
108.59999999999995 516 "d;"
95.39999999999996 528 "_"
95.39999999999996 528 "i_"
101.99999999999996 528 "f prevsize _"
174.5999999999999 528 "< decimals"
247.2 528 "∨"
260.4 528 "size"
293.4000000000001 528 "<"
306.60000000000014 528 "decimals"
366 528 "∨"
379.20000000000005 528 "size"
412.20000000000016 528 "="
425.4000000000002 528 "decimals"
484.8 528 "∧"
498.00000000000006 528 "_"
498.00000000000006 528 "a_"
504.6000000000001 528 "b_"
511.20000000000005 528 "s"
524.4000000000001 528 "(acell"
570.6000000000003 528 "−"
583.8000000000003 528 "cc"
95.40000000000003 540 "_"
95.40000000000003 540 "b_"
102.00000000000003 540 "e_"
108.60000000000002 540 "g_"
115.20000000000002 540 "i_"
121.80000000000001 540 "n"
115.20000000000002 552 "_"
115.20000000000002 552 "g_"
121.80000000000001 552 "o_"
128.4 552 "t_"
135 552 "o SQRT5 LOOP END"
95.40000000000003 564 "_"
95.40000000000003 564 "e_"
102.00000000000003 564 "n_"
108.60000000000002 564 "d;"
95.40000000000003 576 "prevsize := size;"
95.40000000000003 588 "ADD(C, csize, nc, 1, A, asize,"
300.00000000000006 588 "na);"
95.40000000000003 600 "DIVIDE(A, asize, na, 2, empty);"
95.40000000000003 612 "sd := sd + sd"
75.60000000000005 624 "_"
75.60000000000005 624 "e_"
82.20000000000005 624 "n_"
88.80000000000004 624 "d for i;"
75.60000000000005 636 "SQRT5 LOOP END:"
75.60000000000005 648 "_"
75.60000000000005 648 "i_"
82.20000000000005 648 "f kbon _"
128.4 648 "t_"
135 648 "h_"
141.6 648 "e_"
148.2 648 "n"
75.60000000000005 660 "_"
75.60000000000005 660 "b_"
82.20000000000005 660 "e_"
88.80000000000004 660 "g_"
95.40000000000003 660 "i_"
102.00000000000003 660 "n"
95.40000000000003 672 "LINE;"
95.40000000000003 684 "writetext( |"
167.99999999999997 684 "<<SQRT5 end A"
260.3999999999999 684 "="
273.59999999999997 684 "|"
273.59999999999997 684 ">"
286.8 684 ");"
95.40000000000003 696 "PRINT( A, asize, na )"
75.60000000000005 708 "_"
75.60000000000005 708 "e_"
82.20000000000005 708 "n_"
88.80000000000004 708 "d;"
75.60000000000005 720 "ftrack := ftrack − 1"
55.80000000000006 732 "_"
55.80000000000006 732 "e_"
62.400000000000055 732 "n_"
69.00000000000006 732 "d SQRT5;"
55.80000000000006 744 "_"
55.80000000000006 744 "i_"
62.400000000000055 744 "n_"
69.00000000000006 744 "t_"
75.60000000000005 744 "e_"
82.20000000000005 744 "g_"
88.80000000000004 744 "e_"
95.40000000000003 744 "r _"
108.60000000000002 744 "p_"
115.20000000000002 744 "r_"
121.80000000000001 744 "o_"
128.4 744 "c_"
135 744 "e_"
141.6 744 "d_"
148.2 744 "u_"
154.79999999999998 744 "r_"
161.39999999999998 744 "e SQRT6(A, asize,"
280.2 744 "na,"
306.6000000000001 744 "B,"
326.40000000000015 744 "bsize,"
372.6000000000003 744 "nb,"
399.0000000000004 744 "C,"
418.80000000000047 744 "csize,"
465.0000000000006 744 "nc);"
55.80000000000006 756 "_"
55.80000000000006 756 "c_"
62.400000000000055 756 "o_"
69.00000000000006 756 "m_"
75.60000000000005 756 "m_"
82.20000000000005 756 "e_"
88.80000000000004 756 "n_"
95.40000000000003 756 "t A := sqrt(B) using A as"
266.99999999999994 756 "starting"
326.40000000000015 756 "value;"
55.80000000000006 768 "_"
55.80000000000006 768 "v_"
62.400000000000055 768 "a_"
69.00000000000006 768 "l_"
75.60000000000005 768 "u_"
82.20000000000005 768 "e na, nb, nc;"
55.80000000000006 780 "_"
55.80000000000006 780 "i_"
62.400000000000055 780 "n_"
69.00000000000006 780 "t_"
75.60000000000005 780 "e_"
82.20000000000005 780 "g_"
88.80000000000004 780 "e_"
95.40000000000003 780 "r asize, na, bsize, nb, csize,"
300.00000000000006 780 "nc;"
55.80000000000006 792 "_"
55.80000000000006 792 "i_"
62.400000000000055 792 "n_"
69.00000000000006 792 "t_"
75.60000000000005 792 "e_"
82.20000000000005 792 "g_"
88.80000000000004 792 "e_"
95.40000000000003 792 "r _"
108.60000000000002 792 "a_"
115.20000000000002 792 "r_"
121.80000000000001 792 "r_"
128.4 792 "a_"
135 792 "y A, B, C;"
55.800000000000004 36 "_"
55.800000000000004 36 "b_"
62.4 36 "e_"
69 36 "g_"
75.6 36 "i_"
82.19999999999999 36 "n"
75.6 48 "_"
75.6 48 "i_"
82.19999999999999 48 "n_"
88.79999999999998 48 "t_"
95.39999999999998 48 "e_"
101.99999999999997 48 "g_"
108.59999999999997 48 "e_"
115.19999999999996 48 "r xsize, nx, prevsize,"
266.9999999999999 48 "size,"
306.6 48 "acell,"
352.8000000000002 48 "ccell;"
75.6 60 "_"
75.6 60 "i_"
82.19999999999999 60 "n_"
88.79999999999998 60 "t_"
95.39999999999998 60 "e_"
101.99999999999997 60 "g_"
108.59999999999997 60 "e_"
115.19999999999996 60 "r _"
128.39999999999995 60 "a_"
134.99999999999994 60 "r_"
141.59999999999994 60 "r_"
148.19999999999993 60 "a_"
154.79999999999993 60 "y X[0:c39];"
75.6 72 "_"
75.6 72 "b_"
82.19999999999999 72 "o_"
88.79999999999998 72 "o_"
95.39999999999998 72 "l_"
101.99999999999997 72 "e_"
108.59999999999997 72 "a_"
115.19999999999996 72 "n empty;"
75.6 84 "_"
75.6 84 "i_"
82.19999999999999 84 "n_"
88.79999999999998 84 "t_"
95.39999999999998 84 "e_"
101.99999999999997 84 "g_"
108.59999999999997 84 "e_"
115.19999999999996 84 "r i, sd, decs;"
75.6 96 "_"
75.6 96 "b_"
82.19999999999999 96 "o_"
88.79999999999998 96 "o_"
95.39999999999998 96 "l_"
101.99999999999997 96 "e_"
108.59999999999997 96 "a_"
115.19999999999996 96 "n kbonSQRT6;"
75.6 108 "kbonSQRT6 := _"
161.39999999999992 108 "f_"
167.99999999999991 108 "a_"
174.5999999999999 108 "l_"
181.1999999999999 108 "s_"
187.7999999999999 108 "e;"
75.6 120 "nx := ftrack;"
75.6 132 "ftrack := ftrack + 1;"
75.6 144 "sd := 7;"
75.6 156 "prevsize := decimals + 1;"
75.6 168 "decs := decimals;"
75.6 180 "_"
75.6 180 "f_"
82.19999999999999 180 "o_"
88.79999999999998 180 "r i := 1, i + 1 _"
194.3999999999999 180 "w_"
200.9999999999999 180 "h_"
207.59999999999988 180 "i_"
214.19999999999987 180 "l_"
220.79999999999987 180 "e _"
233.99999999999986 180 "t_"
240.59999999999985 180 "r_"
247.19999999999985 180 "u_"
253.79999999999987 180 "e"
266.9999999999999 180 "_"
266.9999999999999 180 "d_"
273.5999999999999 180 "o"
75.6 192 "_"
75.6 192 "b_"
82.19999999999999 192 "e_"
88.79999999999998 192 "g_"
95.39999999999998 192 "i_"
101.99999999999997 192 "n"
95.39999999999998 204 "_"
95.39999999999998 204 "i_"
101.99999999999997 204 "f kbon"
148.2 204 "∨"
161.39999999999998 204 "kbonSQRT6 _"
227.39999999999992 204 "t_"
233.99999999999991 204 "h_"
240.5999999999999 204 "e_"
247.1999999999999 204 "n"
95.39999999999996 216 "_"
95.39999999999996 216 "b_"
101.99999999999996 216 "e_"
108.59999999999995 216 "g_"
115.19999999999995 216 "i_"
121.79999999999995 216 "n"
115.19999999999995 228 "LINE;"
115.19999999999995 240 "writetext( |"
187.7999999999999 240 "<<SQRT6: i"
260.39999999999986 240 "="
273.5999999999999 240 "|"
273.5999999999999 240 ">"
286.79999999999995 240 ");"
115.19999999999995 252 "writeinteger( |"
207.59999999999988 252 "<p|"
220.79999999999987 252 ">, i );"
115.19999999999995 264 "writetext( |"
187.7999999999999 264 "<<, sd = |"
247.19999999999985 264 ">"
260.39999999999986 264 ");"
115.19999999999995 276 "writeinteger( |"
207.59999999999988 276 "<p|"
220.79999999999987 276 ">, sd"
260.39999999999986 276 ");"
115.19999999999995 288 "writetext( |"
187.7999999999999 288 "<<, decs ="
260.39999999999986 288 "|"
260.39999999999986 288 ">"
273.5999999999999 288 ");"
115.19999999999995 300 "writeinteger( |"
207.59999999999988 300 "<−d|"
227.39999999999986 300 ">, decs"
280.19999999999993 300 ");"
115.19999999999995 312 "writetext( |"
187.7999999999999 312 "<<, A =|"
233.99999999999986 312 "> );"
115.19999999999995 324 "PRINT( A, asize, na )"
95.39999999999996 336 "_"
95.39999999999996 336 "e_"
101.99999999999996 336 "n_"
108.59999999999995 336 "d;"
95.39999999999996 348 "COPY( B, bsize, nb, X, xsize,"
293.4 348 "nx"
313.20000000000005 348 ");"
95.39999999999996 360 "LONGDIVIDE2( X, xsize, nx,"
273.5999999999999 360 "A,"
293.4 360 "asize,"
339.60000000000014 360 "na,"
366.0000000000002 360 "C,"
385.8000000000003 360 "csize,"
432.00000000000045 360 "nc,"
458.40000000000055 360 "_"
458.40000000000055 360 "i_"
465.00000000000057 360 "f"
478.2000000000006 360 "decs"
511.2000000000007 360 "<"
524.4000000000008 360 "decimals"
583.800000000001 360 "_"
583.800000000001 360 "t_"
590.400000000001 360 "h"
95.39999999999996 372 "COMPARE( A, asize, na, C,"
266.9999999999999 372 "csize,"
313.20000000000005 372 "nc,"
339.60000000000014 372 "size,"
379.2000000000003 372 "acell,"
425.40000000000043 372 "ccell"
465.00000000000057 372 ");"
95.39999999999996 384 "_"
95.39999999999996 384 "i_"
101.99999999999996 384 "f kbon"
148.2 384 "∨"
161.39999999999998 384 "kbonSQRT6 _"
227.39999999999992 384 "t_"
233.99999999999991 384 "h_"
240.5999999999999 384 "e_"
247.1999999999999 384 "n"
95.39999999999996 396 "_"
95.39999999999996 396 "b_"
101.99999999999996 396 "e_"
108.59999999999995 396 "g_"
115.19999999999995 396 "i_"
121.79999999999995 396 "n"
115.19999999999995 408 "LINE;"
115.19999999999995 420 "writetext( |"
187.7999999999999 420 "<< prevsize"
266.9999999999999 420 "="
280.19999999999993 420 "|"
280.19999999999993 420 ">"
293.4 420 ");"
115.19999999999995 432 "writeinteger( |"
207.59999999999988 432 "<−d|"
227.39999999999986 432 ">, prevsize"
306.6 432 ");"
115.19999999999995 444 "writetext( |"
187.7999999999999 444 "<<, size ="
260.39999999999986 444 "|"
260.39999999999986 444 ">"
273.5999999999999 444 ");"
115.19999999999995 456 "writeinteger( |"
207.59999999999988 456 "<−d|"
227.39999999999986 456 ">, size"
280.19999999999993 456 ");"
115.19999999999995 468 "writetext( |"
187.7999999999999 468 "<<, acell ="
266.9999999999999 468 "|"
266.9999999999999 468 ">"
280.19999999999993 468 ");"
115.19999999999995 480 "writeinteger( |"
207.59999999999988 480 "<−d|"
227.39999999999986 480 ">, acell"
286.79999999999995 480 ");"
115.19999999999995 492 "writetext( |"
187.7999999999999 492 "<<, ccell ="
266.9999999999999 492 "|"
266.9999999999999 492 ">"
280.19999999999993 492 ");"
115.19999999999995 504 "writeinteger( |"
207.59999999999988 504 "<−d|"
227.39999999999986 504 ">, ccell"
286.79999999999995 504 ");"
115.19999999999995 516 "writetext( |"
187.7999999999999 516 "<<, C =|"
233.99999999999986 516 "> );"
115.19999999999995 528 "PRINT( C, csize, nc )"
95.39999999999996 540 "_"
95.39999999999996 540 "e_"
101.99999999999996 540 "n_"
108.59999999999995 540 "d;"
95.39999999999996 552 "_"
95.39999999999996 552 "i_"
101.99999999999996 552 "f prevsize _"
174.5999999999999 552 "< decimals"
247.2 552 "∨"
260.4 552 "size"
293.4000000000001 552 "<"
306.60000000000014 552 "decimals"
366 552 "∨"
379.20000000000005 552 "size"
412.20000000000016 552 "="
425.4000000000002 552 "decimals"
484.8 552 "∧"
498.00000000000006 552 "_"
498.00000000000006 552 "a_"
504.6000000000001 552 "b_"
511.20000000000005 552 "s"
524.4000000000001 552 "(acell"
570.6000000000003 552 "−"
583.8000000000003 552 "cc"
95.40000000000003 564 "_"
95.40000000000003 564 "b_"
102.00000000000003 564 "e_"
108.60000000000002 564 "g_"
115.20000000000002 564 "i_"
121.80000000000001 564 "n"
115.20000000000002 576 "_"
115.20000000000002 576 "g_"
121.80000000000001 576 "o_"
128.4 576 "t_"
135 576 "o SQRT6 LOOP END"
95.40000000000003 588 "_"
95.40000000000003 588 "e_"
102.00000000000003 588 "n_"
108.60000000000002 588 "d;"
95.40000000000003 600 "prevsize := size;"
95.40000000000003 612 "ADD(C, csize, nc, 1, A, asize,"
300.00000000000006 612 "na);"
95.40000000000003 624 "DIVIDE(A, asize, na, 2, empty);"
95.40000000000003 636 "sd := sd + sd;"
95.40000000000003 648 "decs := _"
148.2 648 "i_"
154.79999999999998 648 "f size < 0 _"
227.39999999999992 648 "t_"
233.99999999999991 648 "h_"
240.5999999999999 648 "e_"
247.1999999999999 648 "n"
260.3999999999999 648 "3"
267.00000000000006 648 "×"
273.6000000000001 648 "size"
306.6000000000002 648 "_"
306.6000000000002 648 "e_"
313.2000000000002 648 "l_"
319.80000000000024 648 "s_"
326.40000000000026 648 "e"
339.6000000000003 648 "decimals"
75.60000000000008 660 "_"
75.60000000000008 660 "e_"
82.20000000000007 660 "n_"
88.80000000000007 660 "d for i;"
75.60000000000008 672 "SQRT6 LOOP END:"
75.60000000000008 684 "_"
75.60000000000008 684 "i_"
82.20000000000007 684 "f kbon _"
128.40000000000003 684 "t_"
135.00000000000003 684 "h_"
141.60000000000002 684 "e_"
148.20000000000002 684 "n"
75.60000000000008 696 "_"
75.60000000000008 696 "b_"
82.20000000000007 696 "e_"
88.80000000000007 696 "g_"
95.40000000000006 696 "i_"
102.00000000000006 696 "n"
95.40000000000006 708 "LINE;"
95.40000000000006 720 "writetext( |"
168 720 "<<SQRT6 end A ="
273.59999999999997 720 "|"
273.59999999999997 720 ">"
286.8 720 ");"
95.40000000000006 732 "PRINT( A, asize, na )"
75.60000000000008 744 "_"
75.60000000000008 744 "e_"
82.20000000000007 744 "n_"
88.80000000000007 744 "d;"
75.60000000000008 756 "ftrack := ftrack − 1"
55.80000000000009 768 "_"
55.80000000000009 768 "e_"
62.400000000000084 768 "n_"
69.00000000000009 768 "d SQRT6;"
55.80000000000009 780 "_"
55.80000000000009 780 "i_"
62.400000000000084 780 "n_"
69.00000000000009 780 "t_"
75.60000000000008 780 "e_"
82.20000000000007 780 "g_"
88.80000000000007 780 "e_"
95.40000000000006 780 "r _"
108.60000000000005 780 "p_"
115.20000000000005 780 "r_"
121.80000000000004 780 "o_"
128.40000000000003 780 "c_"
135.00000000000003 780 "e_"
141.60000000000002 780 "d_"
148.20000000000002 780 "u_"
154.8 780 "r_"
161.4 780 "e AGM( A, asize,"
273.59999999999997 780 "na,"
300.00000000000006 780 "B,"
319.8000000000001 780 "bsize,"
366.0000000000003 780 "nb,"
392.4000000000004 780 "C,"
412.20000000000044 780 "csize,"
458.4000000000006 780 "nc"
478.20000000000067 780 ");"
55.80000000000009 792 "_"
55.80000000000009 792 "c_"
62.400000000000084 792 "o_"
69.00000000000009 792 "m_"
75.60000000000008 792 "m_"
82.20000000000007 792 "e_"
88.80000000000007 792 "n_"
95.40000000000006 792 "t (A,B) := agm(A,B) and C"
266.99999999999994 792 ":="
286.8 792 "sum("
319.8000000000001 792 "2"
333.00000000000017 792 "|"
333.0000000000001 792 "∧"
346.20000000000016 792 "(j+1)"
385.8000000000001 792 "×"
399.00000000000017 792 "C[j]"
432.0000000000003 792 ")."
451.80000000000035 792 "See"
95.39999999999998 36 "Eugene Salamin,"
207.59999999999988 36 "Computation"
286.79999999999995 36 "of"
306.6 36 "pi"
326.4000000000001 36 "Using"
366.0000000000002 36 "Arithmetic−"
445.2000000000005 36 "Geometric"
511.2000000000007 36 "Mean"
544.2000000000008 36 ","
95.39999999999998 48 "Math. Comp., vol. 30, no"
260.39999999999986 48 "135,"
293.4 48 "July"
326.4000000000001 48 "1976,"
366.0000000000002 48 "pp."
392.4000000000003 48 "565−570;"
55.800000000000004 60 "_"
55.800000000000004 60 "v_"
62.4 60 "a_"
69 60 "l_"
75.6 60 "u_"
82.19999999999999 60 "e na, nb, nc;"
55.800000000000004 72 "_"
55.800000000000004 72 "i_"
62.4 72 "n_"
69 72 "t_"
75.6 72 "e_"
82.19999999999999 72 "g_"
88.79999999999998 72 "e_"
95.39999999999998 72 "r asize, na, bsize, nb, csize,"
300 72 "nc;"
55.800000000000004 84 "_"
55.800000000000004 84 "i_"
62.4 84 "n_"
69 84 "t_"
75.6 84 "e_"
82.19999999999999 84 "g_"
88.79999999999998 84 "e_"
95.39999999999998 84 "r _"
108.59999999999997 84 "a_"
115.19999999999996 84 "r_"
121.79999999999995 84 "r_"
128.39999999999995 84 "a_"
134.99999999999994 84 "y A, B, C;"
55.800000000000004 96 "_"
55.800000000000004 96 "b_"
62.4 96 "e_"
69 96 "g_"
75.6 96 "i_"
82.19999999999999 96 "n"
75.6 108 "_"
75.6 108 "i_"
82.19999999999999 108 "n_"
88.79999999999998 108 "t_"
95.39999999999998 108 "e_"
101.99999999999997 108 "g_"
108.59999999999997 108 "e_"
115.19999999999996 108 "r w1size, nw1, w2size,"
266.9999999999999 108 "nw2,"
300 108 "twoPower,"
366.0000000000002 108 "i,"
385.8000000000003 108 "prevw1size,"
465.00000000000057 108 "size,"
504.6000000000007 108 "acell,"
550.8000000000009 108 "bcell,"
75.6 120 "_"
75.6 120 "i_"
82.19999999999999 120 "n_"
88.79999999999998 120 "t_"
95.39999999999998 120 "e_"
101.99999999999997 120 "g_"
108.59999999999997 120 "e_"
115.19999999999996 120 "r _"
128.39999999999995 120 "a_"
134.99999999999994 120 "r_"
141.59999999999994 120 "r_"
148.19999999999993 120 "a_"
154.79999999999993 120 "y W1, W2[0:c39];"
75.6 132 "_"
75.6 132 "b_"
82.19999999999999 132 "o_"
88.79999999999998 132 "o_"
95.39999999999998 132 "l_"
101.99999999999997 132 "e_"
108.59999999999997 132 "a_"
115.19999999999996 132 "n kbonAGM;"
75.6 144 "kbonAGM := _"
148.19999999999993 144 "f_"
154.79999999999993 144 "a_"
161.39999999999992 144 "l_"
167.99999999999991 144 "s_"
174.5999999999999 144 "e;"
75.6 156 "nw1 := ftrack; ftrack := ftrack"
286.79999999999995 156 "+"
300 156 "1;"
75.6 168 "nw2 := ftrack; ftrack := ftrack"
286.79999999999995 168 "+"
300 168 "1;"
75.6 180 "ASSIGN( 0, C, csize, nc );"
75.6 192 "twoPower := 1;"
75.6 204 "prevw1size := decimals + 1;"
75.6 216 "_"
75.6 216 "c_"
82.19999999999999 216 "o_"
88.79999999999998 216 "m_"
95.39999999999998 216 "m_"
101.99999999999997 216 "e_"
108.59999999999997 216 "n_"
115.19999999999996 216 "t End loop by _"
207.59999999999988 216 "g_"
214.19999999999987 216 "o_"
220.79999999999987 216 "t_"
227.39999999999986 216 "o AGM"
266.9999999999999 216 "LOOP"
300 216 "END;"
75.6 228 "_"
75.6 228 "f_"
82.19999999999999 228 "o_"
88.79999999999998 228 "r i := 1, i + 1 _"
194.3999999999999 228 "w_"
200.9999999999999 228 "h_"
207.59999999999988 228 "i_"
214.19999999999987 228 "l_"
220.79999999999987 228 "e _"
233.99999999999986 228 "t_"
240.59999999999985 228 "r_"
247.19999999999985 228 "u_"
253.79999999999987 228 "e"
266.9999999999999 228 "_"
266.9999999999999 228 "d_"
273.5999999999999 228 "o"
75.6 240 "_"
75.6 240 "b_"
82.19999999999999 240 "e_"
88.79999999999998 240 "g_"
95.39999999999998 240 "i_"
101.99999999999997 240 "n"
95.39999999999998 252 "COPY( A, asize, na, W1, w1size,"
306.6 252 "nw1"
333.0000000000001 252 ");"
95.39999999999998 264 "ADD( B, bsize, nb, −1, W1,"
273.5999999999999 264 "w1size,"
326.4000000000001 264 "nw1"
352.8000000000002 264 ");"
95.39999999999998 276 "COMPARE( A, asize, na, B,"
266.9999999999999 276 "bsize,"
313.20000000000005 276 "nb,"
339.60000000000014 276 "size,"
379.2000000000003 276 "acell,"
425.40000000000043 276 "bcell"
465.00000000000057 276 ");"
95.39999999999998 288 "idcount := (_"
174.5999999999999 288 "i_"
181.1999999999999 288 "f asize > bsize"
286.79999999999995 288 "_"
286.79999999999995 288 "t_"
293.4 288 "h_"
300 288 "e_"
306.6 288 "n"
319.80000000000007 288 "asize"
359.4000000000002 288 "_"
359.4000000000002 288 "e_"
366.0000000000002 288 "l_"
372.60000000000025 288 "s_"
379.2000000000003 288 "e"
392.4000000000003 288 "bsize)"
438.6000000000005 288 "−"
451.8000000000005 288 "size;"
95.39999999999998 300 "_"
95.39999999999998 300 "i_"
101.99999999999997 300 "f kbon"
148.2 300 "∨"
161.39999999999998 300 "kbonAGM _"
214.19999999999993 300 "t_"
220.79999999999993 300 "h_"
227.39999999999992 300 "e_"
233.99999999999991 300 "n"
95.39999999999996 312 "_"
95.39999999999996 312 "b_"
101.99999999999996 312 "e_"
108.59999999999995 312 "g_"
115.19999999999995 312 "i_"
121.79999999999995 312 "n"
115.19999999999995 324 "LINE;"
115.19999999999995 336 "writetext( |"
187.7999999999999 336 "<<AGM: i ="
260.39999999999986 336 "|"
260.39999999999986 336 ">"
273.5999999999999 336 ");"
115.19999999999995 348 "writeinteger( |"
207.59999999999988 348 "<−d|"
227.39999999999986 348 ">, i"
260.39999999999986 348 ");"
115.19999999999995 360 "writetext( |"
187.7999999999999 360 "<<, twoPower"
273.5999999999999 360 "="
286.79999999999995 360 "|"
286.79999999999995 360 ">"
300 360 ");"
115.19999999999995 372 "writeinteger( |"
207.59999999999988 372 "<−d|"
227.39999999999986 372 ">, twoPower"
306.6 372 ");"
115.19999999999995 384 "writetext( |"
187.7999999999999 384 "<<, w1size"
260.39999999999986 384 "="
273.5999999999999 384 "|"
273.5999999999999 384 ">"
286.79999999999995 384 ");"
115.19999999999995 396 "writeinteger( |"
207.59999999999988 396 "<−d|"
227.39999999999986 396 ">, w1size"
293.4 396 ");"
115.19999999999995 408 "writetext( |"
187.7999999999999 408 "<<, prevw1size"
286.79999999999995 408 "="
300 408 "|"
300 408 ">"
313.20000000000005 408 ");"
115.19999999999995 420 "writeinteger( |"
207.59999999999988 420 "<−d|"
227.39999999999986 420 ">, prevw1size"
319.80000000000007 420 ");"
115.19999999999995 432 "writetext( |"
187.7999999999999 432 "<<, A =|"
233.99999999999986 432 "> );"
115.19999999999995 444 "PRINT( A, asize, na );"
115.19999999999995 456 "LINE;"
115.19999999999995 468 "writetext( |"
187.7999999999999 468 "<< compare"
260.39999999999986 468 "size"
293.4 468 "="
306.6 468 "|"
306.6 468 ">"
319.80000000000007 468 ");"
115.19999999999995 480 "writeinteger( |"
207.59999999999988 480 "<−d|"
227.39999999999986 480 ">, size"
280.19999999999993 480 ");"
115.19999999999995 492 "writetext( |"
187.7999999999999 492 "<<, idcount"
266.9999999999999 492 "="
280.19999999999993 492 "|"
280.19999999999993 492 ">"
293.4 492 ");"
115.19999999999995 504 "writeinteger( |"
207.59999999999988 504 "<−d|"
227.39999999999986 504 ">, idcount"
300 504 ");"
115.19999999999995 516 "writetext( |"
187.7999999999999 516 "<<, B =|"
233.99999999999986 516 "> );"
115.19999999999995 528 "PRINT( B, bsize, nb )"
95.39999999999996 540 "_"
95.39999999999996 540 "e_"
101.99999999999996 540 "n_"
108.59999999999995 540 "d;"
95.39999999999996 552 "_"
95.39999999999996 552 "i_"
101.99999999999996 552 "f prevw1size _"
187.7999999999999 552 "< decimals"
260.39999999999986 552 "_"
260.39999999999986 552 "t_"
266.9999999999999 552 "h_"
273.5999999999999 552 "e_"
280.19999999999993 552 "n"
293.4 552 "_"
293.4 552 "g_"
300 552 "o_"
306.6 552 "t_"
313.20000000000005 552 "o"
326.4000000000001 552 "AGM"
352.8000000000002 552 "LOOP"
385.8000000000003 552 "END;"
95.39999999999996 564 "prevw1size := w1size;"
95.39999999999996 576 "SQUARE( W1, w1size, nw1,"
260.39999999999986 576 "W2,"
286.79999999999995 576 "w2size,"
339.60000000000014 576 "nw2"
366.0000000000002 576 ");"
95.39999999999996 588 "MULT( W2, w2size, nw2, twoPower"
306.6 588 ");"
95.39999999999996 600 "DIVIDE( W2, w2size, nw2,"
260.39999999999986 600 "4,"
280.19999999999993 600 "empty"
319.80000000000007 600 ");"
95.39999999999996 612 "ADD("
128.39999999999995 612 "W2, w2size, nw2, 1,"
260.39999999999986 612 "C,"
280.19999999999993 612 "csize,"
326.4000000000001 612 "nc"
346.20000000000016 612 ");"
95.39999999999996 624 "twoPower := twoPower + twoPower;"
95.39999999999996 636 "COPY( A, asize, na, W1, w1size,"
306.6 636 "nw1"
333.0000000000001 636 ");"
95.39999999999996 648 "ADD("
128.39999999999995 648 "B, bsize, nb, 1, W1,"
266.9999999999999 648 "w1size,"
319.80000000000007 648 "nw1"
346.20000000000016 648 ");"
95.39999999999996 660 "LONGMULT2( A, asize, na,"
260.39999999999986 660 "B,"
280.19999999999993 660 "bsize,"
326.4000000000001 660 "nb,"
352.8000000000002 660 "W2,"
379.2000000000003 660 "w2size,"
432.00000000000045 660 "nw2"
458.40000000000055 660 ");"
95.39999999999996 672 "COPY( W1, w1size, nw1, A,"
266.9999999999999 672 "asize,"
313.20000000000005 672 "na"
333.0000000000001 672 ");"
95.39999999999996 684 "DIVIDE( A, asize, na, 2,"
260.39999999999986 684 "empty"
300 684 ");"
95.39999999999996 696 "_"
95.39999999999996 696 "i_"
101.99999999999996 696 "f idcount _"
167.99999999999991 696 "< 0 _"
194.3999999999999 696 "t_"
200.9999999999999 696 "h_"
207.59999999999988 696 "e_"
214.19999999999987 696 "n"
95.39999999999996 708 "_"
95.39999999999996 708 "b_"
101.99999999999996 708 "e_"
108.59999999999995 708 "g_"
115.19999999999995 708 "i_"
121.79999999999995 708 "n"
115.19999999999995 720 "SQRT4( B, bsize, nb, W2,"
280.19999999999993 720 "w2size,"
333.0000000000001 720 "nw2,"
366.0000000000002 720 "W1,"
392.4000000000003 720 "w1size,"
445.2000000000005 720 "nw1"
471.6000000000006 720 ")"
95.39999999999996 732 "_"
95.39999999999996 732 "e_"
101.99999999999996 732 "n_"
108.59999999999995 732 "d"
95.39999999999996 744 "_"
95.39999999999996 744 "e_"
101.99999999999996 744 "l_"
108.59999999999995 744 "s_"
115.19999999999995 744 "e"
95.39999999999996 756 "_"
95.39999999999996 756 "b_"
101.99999999999996 756 "e_"
108.59999999999995 756 "g_"
115.19999999999995 756 "i_"
121.79999999999995 756 "n"
115.19999999999995 768 "COPY( A, asize, na, B,"
266.9999999999999 768 "bsize,"
313.20000000000005 768 "nb"
333.0000000000001 768 ");"
115.19999999999995 780 "SQRT5( B, bsize, nb, W2,"
280.19999999999993 780 "w2size,"
333.0000000000001 780 "nw2,"
366.0000000000002 780 "W1,"
392.4000000000003 780 "w1size,"
445.2000000000005 780 "nw1"
471.6000000000006 780 ")"
95.39999999999996 792 "_"
95.39999999999996 792 "e_"
101.99999999999996 792 "n_"
108.59999999999995 792 "d"
75.6 36 "_"
75.6 36 "e_"
82.19999999999999 36 "n_"
88.79999999999998 36 "d;"
75.6 48 "AGM LOOP END:"
75.6 60 "ftrack := ftrack − 2"
55.800000000000004 72 "_"
55.800000000000004 72 "e_"
62.4 72 "n_"
69 72 "d EXPISQN;"
55.800000000000004 84 "_"
55.800000000000004 84 "i_"
62.4 84 "n_"
69 84 "t_"
75.6 84 "e_"
82.19999999999999 84 "g_"
88.79999999999998 84 "e_"
95.39999999999998 84 "r _"
108.59999999999997 84 "p_"
115.19999999999996 84 "r_"
121.79999999999995 84 "o_"
128.39999999999995 84 "c_"
134.99999999999994 84 "e_"
141.59999999999994 84 "d_"
148.19999999999993 84 "u_"
154.79999999999993 84 "r_"
161.39999999999992 84 "e PI TO 2( A, asize,"
300 84 "na,"
326.4000000000001 84 "B,"
346.20000000000016 84 "bsize,"
392.4000000000003 84 "nb,"
418.8000000000004 84 "C,"
438.6000000000005 84 "csize,"
484.80000000000064 84 "nc"
504.6000000000007 84 ");"
55.800000000000004 96 "_"
55.800000000000004 96 "c_"
62.4 96 "o_"
69 96 "m_"
75.6 96 "m_"
82.19999999999999 96 "e_"
88.79999999999998 96 "n_"
95.39999999999998 96 "t A := pi using AGM;"
55.800000000000004 108 "_"
55.800000000000004 108 "v_"
62.4 108 "a_"
69 108 "l_"
75.6 108 "u_"
82.19999999999999 108 "e na, nb, nc;"
55.800000000000004 120 "_"
55.800000000000004 120 "i_"
62.4 120 "n_"
69 120 "t_"
75.6 120 "e_"
82.19999999999999 120 "g_"
88.79999999999998 120 "e_"
95.39999999999998 120 "r asize, na, bsize, nb, csize,"
300 120 "nc;"
55.800000000000004 132 "_"
55.800000000000004 132 "i_"
62.4 132 "n_"
69 132 "t_"
75.6 132 "e_"
82.19999999999999 132 "g_"
88.79999999999998 132 "e_"
95.39999999999998 132 "r _"
108.59999999999997 132 "a_"
115.19999999999996 132 "r_"
121.79999999999995 132 "r_"
128.39999999999995 132 "a_"
134.99999999999994 132 "y A, B, C;"
55.800000000000004 144 "_"
55.800000000000004 144 "b_"
62.4 144 "e_"
69 144 "g_"
75.6 144 "i_"
82.19999999999999 144 "n"
75.6 156 "SQRT3( 0.5, B, bsize, nb, A,"
266.9999999999999 156 "asize,"
313.20000000000005 156 "na,"
339.60000000000014 156 "C,"
359.4000000000002 156 "csize,"
405.60000000000036 156 "nc"
425.40000000000043 156 ");"
75.6 168 "ASSIGN( 1.0, A, asize, na );"
75.6 180 "AGM( A, asize, na, B, bsize,"
266.9999999999999 180 "nb,"
293.4 180 "C,"
313.20000000000005 180 "csize,"
359.4000000000002 180 "nc"
379.2000000000003 180 ");"
75.6 192 "MULT( C, csize, nc, 4 );"
75.6 204 "ASSIGN( 1.0, B, bsize, nb );"
75.6 216 "ADD( C, csize, nc, −1, B, bsize,"
293.4 216 "nb"
313.20000000000005 216 ");"
75.6 228 "MULT( A, asize, na, 2 );"
75.6 240 "SQUARE( A, asize, na, C, csize,"
286.79999999999995 240 "nc"
306.6 240 ");"
75.6 252 "LONGDIVIDE( C, csize, nc, B,"
266.9999999999999 252 "bsize,"
313.20000000000005 252 "nb,"
339.60000000000014 252 "A,"
359.4000000000002 252 "asize,"
405.60000000000036 252 "na"
425.40000000000043 252 ")"
55.800000000000004 264 "_"
55.800000000000004 264 "e_"
62.4 264 "n_"
69 264 "d PI TO 2;"
55.800000000000004 276 "_"
55.800000000000004 276 "i_"
62.4 276 "n_"
69 276 "t_"
75.6 276 "e_"
82.19999999999999 276 "g_"
88.79999999999998 276 "e_"
95.39999999999998 276 "r _"
108.59999999999997 276 "p_"
115.19999999999996 276 "r_"
121.79999999999995 276 "o_"
128.39999999999995 276 "c_"
134.99999999999994 276 "e_"
141.59999999999994 276 "d_"
148.19999999999993 276 "u_"
154.79999999999993 276 "r_"
161.39999999999992 276 "e EXPISQN(N, A,"
266.9999999999999 276 "asize,"
313.20000000000005 276 "na,"
339.60000000000014 276 "B,"
359.4000000000002 276 "bsize,"
405.60000000000036 276 "nb,"
432.00000000000045 276 "C,"
451.8000000000005 276 "csize,"
498.0000000000007 276 "nc);"
55.800000000000004 288 "_"
55.800000000000004 288 "v_"
62.4 288 "a_"
69 288 "l_"
75.6 288 "u_"
82.19999999999999 288 "e N, na, nb, nc;"
55.800000000000004 300 "_"
55.800000000000004 300 "i_"
62.4 300 "n_"
69 300 "t_"
75.6 300 "e_"
82.19999999999999 300 "g_"
88.79999999999998 300 "e_"
95.39999999999998 300 "r N, asize, na, bsize, nb,"
273.5999999999999 300 "csize,"
319.80000000000007 300 "nc;"
55.800000000000004 312 "_"
55.800000000000004 312 "i_"
62.4 312 "n_"
69 312 "t_"
75.6 312 "e_"
82.19999999999999 312 "g_"
88.79999999999998 312 "e_"
95.39999999999998 312 "r _"
108.59999999999997 312 "a_"
115.19999999999996 312 "r_"
121.79999999999995 312 "r_"
128.39999999999995 312 "a_"
134.99999999999994 312 "y A, B, C;"
55.800000000000004 324 "_"
55.800000000000004 324 "b_"
62.4 324 "e_"
69 324 "g_"
75.6 324 "i_"
82.19999999999999 324 "n"
75.6 336 "_"
75.6 336 "i_"
82.19999999999999 336 "n_"
88.79999999999998 336 "t_"
95.39999999999998 336 "e_"
101.99999999999997 336 "g_"
108.59999999999997 336 "e_"
115.19999999999996 336 "r xsize, nx;"
75.6 348 "_"
75.6 348 "i_"
82.19999999999999 348 "n_"
88.79999999999998 348 "t_"
95.39999999999998 348 "e_"
101.99999999999997 348 "g_"
108.59999999999997 348 "e_"
115.19999999999996 348 "r _"
128.39999999999995 348 "a_"
134.99999999999994 348 "r_"
141.59999999999994 348 "r_"
148.19999999999993 348 "a_"
154.79999999999993 348 "y X[0:c39];"
75.6 360 "nx := ftrack;"
75.6 372 "ftrack := ftrack + 1;"
75.6 384 "PI TO(A, asize, na, B, bsize,"
273.5999999999999 384 "nb,"
300 384 "C,"
319.80000000000007 384 "csize,"
366.0000000000002 384 "nc);"
75.6 396 "SQRT(N, B, bsize, nb, C, csize,"
286.79999999999995 396 "nc,"
313.20000000000005 396 "X,"
333.0000000000001 396 "xsize,"
379.2000000000003 396 "nx);"
75.6 408 "LONGMULT(A, asize, na, B, bsize,"
293.4 408 "nb,"
319.80000000000007 408 "C,"
339.60000000000014 408 "csize,"
385.8000000000003 408 "nc);"
75.6 420 "EXP(C, csize, nc, A, asize,"
260.39999999999986 420 "na,"
286.79999999999995 420 "B,"
306.6 420 "bsize,"
352.8000000000002 420 "nb);"
75.6 432 "ftrack := ftrack − 1"
55.800000000000004 444 "_"
55.800000000000004 444 "e_"
62.4 444 "n_"
69 444 "d EXPISQN;"
55.800000000000004 456 "_"
55.800000000000004 456 "i_"
62.4 456 "n_"
69 456 "t_"
75.6 456 "e_"
82.19999999999999 456 "g_"
88.79999999999998 456 "e_"
95.39999999999998 456 "r _"
108.59999999999997 456 "p_"
115.19999999999996 456 "r_"
121.79999999999995 456 "o_"
128.39999999999995 456 "c_"
134.99999999999994 456 "e_"
141.59999999999994 456 "d_"
148.19999999999993 456 "u_"
154.79999999999993 456 "r_"
161.39999999999992 456 "e FACTAB(from,"
260.39999999999986 456 "step,"
300 456 "to,"
326.4000000000001 456 "A,"
346.20000000000016 456 "asize,"
392.4000000000003 456 "na);"
55.800000000000004 468 "_"
55.800000000000004 468 "v_"
62.4 468 "a_"
69 468 "l_"
75.6 468 "u_"
82.19999999999999 468 "e from, step, to, na;"
55.800000000000004 480 "_"
55.800000000000004 480 "i_"
62.4 480 "n_"
69 480 "t_"
75.6 480 "e_"
82.19999999999999 480 "g_"
88.79999999999998 480 "e_"
95.39999999999998 480 "r from, step, to, asize,"
260.39999999999986 480 "na;"
55.800000000000004 492 "_"
55.800000000000004 492 "i_"
62.4 492 "n_"
69 492 "t_"
75.6 492 "e_"
82.19999999999999 492 "g_"
88.79999999999998 492 "e_"
95.39999999999998 492 "r _"
108.59999999999997 492 "a_"
115.19999999999996 492 "r_"
121.79999999999995 492 "r_"
128.39999999999995 492 "a_"
134.99999999999994 492 "y A;"
55.800000000000004 504 "_"
55.800000000000004 504 "b_"
62.4 504 "e_"
69 504 "g_"
75.6 504 "i_"
82.19999999999999 504 "n"
75.6 516 "_"
75.6 516 "i_"
82.19999999999999 516 "n_"
88.79999999999998 516 "t_"
95.39999999999998 516 "e_"
101.99999999999997 516 "g_"
108.59999999999997 516 "e_"
115.19999999999996 516 "r N, n;"
75.6 528 "ACCEPT(limit > 1 + 0.05"
227.4 528 "×"
234 528 "to"
247.2 528 "×"
253.79999999999998 528 "ln(to));"
75.59999999999997 540 "ASSIGN(1, A, asize, na);"
75.59999999999997 552 "_"
75.59999999999997 552 "f_"
82.19999999999996 552 "o_"
88.79999999999995 552 "r N := 2 _"
148.1999999999999 552 "s_"
154.7999999999999 552 "t_"
161.3999999999999 552 "e_"
167.9999999999999 552 "p 1 _"
194.39999999999986 552 "u_"
200.99999999999986 552 "n_"
207.59999999999985 552 "t_"
214.19999999999985 552 "i_"
220.79999999999984 552 "l from"
266.99999999999983 552 "−1"
286.7999999999999 552 "_"
286.7999999999999 552 "d_"
293.3999999999999 552 "o"
75.59999999999997 564 "MULT(A, asize, na, N);"
75.59999999999997 576 "n := step −1;"
75.59999999999997 588 "_"
75.59999999999997 588 "f_"
82.19999999999996 588 "o_"
88.79999999999995 588 "r N := from _"
167.9999999999999 588 "s_"
174.59999999999988 588 "t_"
181.19999999999987 588 "e_"
187.79999999999987 588 "p 1 _"
214.19999999999985 588 "u_"
220.79999999999984 588 "n_"
227.39999999999984 588 "t_"
233.99999999999983 588 "i_"
240.59999999999982 588 "l to"
273.59999999999985 588 "_"
273.59999999999985 588 "d_"
280.1999999999999 588 "o"
75.59999999999997 600 "_"
75.59999999999997 600 "b_"
82.19999999999996 600 "e_"
88.79999999999995 600 "g_"
95.39999999999995 600 "i_"
101.99999999999994 600 "n"
95.39999999999995 612 "MULT(A, asize, na, N);"
95.39999999999995 624 "n := n + 1;"
95.39999999999995 636 "_"
95.39999999999995 636 "i_"
101.99999999999994 636 "f n = step _"
174.59999999999988 636 "t_"
181.19999999999987 636 "h_"
187.79999999999987 636 "e_"
194.39999999999986 636 "n"
95.39999999999995 648 "_"
95.39999999999995 648 "b_"
101.99999999999994 648 "e_"
108.59999999999994 648 "g_"
115.19999999999993 648 "i_"
121.79999999999993 648 "n"
115.19999999999993 660 "n := 0;"
115.19999999999993 672 "LINE;"
115.19999999999993 684 "writetext(|"
181.19999999999987 684 "<<N: |"
214.19999999999985 684 ">);"
115.19999999999993 696 "write integer(|"
207.59999999999985 696 "<−ddddd|"
253.7999999999998 696 ">,"
273.59999999999985 696 "N);"
115.19999999999993 708 "writetext(|"
181.19999999999987 708 "<<, FAC(N): |"
260.3999999999998 708 ">);"
115.19999999999993 720 "PRINT(A, asize, na)"
95.39999999999995 732 "_"
95.39999999999995 732 "e_"
101.99999999999994 732 "n_"
108.59999999999994 732 "d if n"
75.59999999999997 744 "_"
75.59999999999997 744 "e_"
82.19999999999996 744 "n_"
88.79999999999995 744 "d for N"
55.799999999999976 756 "_"
55.799999999999976 756 "e_"
62.39999999999997 756 "n_"
68.99999999999997 756 "d FACTAB;"
55.799999999999976 768 "_"
55.799999999999976 768 "i_"
62.39999999999997 768 "n_"
68.99999999999997 768 "t_"
75.59999999999997 768 "e_"
82.19999999999996 768 "g_"
88.79999999999995 768 "e_"
95.39999999999995 768 "r _"
108.59999999999994 768 "p_"
115.19999999999993 768 "r_"
121.79999999999993 768 "o_"
128.39999999999992 768 "c_"
134.99999999999991 768 "e_"
141.5999999999999 768 "d_"
148.1999999999999 768 "u_"
154.7999999999999 768 "r_"
161.3999999999999 768 "e POWTAB1(from,"
266.99999999999983 768 "step,"
306.59999999999997 768 "to,"
333.00000000000006 768 "a,"
352.8000000000001 768 "A,"
372.6000000000002 768 "asize,"
418.80000000000035 768 "na);"
55.799999999999976 780 "_"
55.799999999999976 780 "v_"
62.39999999999997 780 "a_"
68.99999999999997 780 "l_"
75.59999999999997 780 "u_"
82.19999999999996 780 "e from, step, to, a, na;"
55.799999999999976 792 "_"
55.799999999999976 792 "i_"
62.39999999999997 792 "n_"
68.99999999999997 792 "t_"
75.59999999999997 792 "e_"
82.19999999999996 792 "g_"
88.79999999999995 792 "e_"
95.39999999999995 792 "r from, step, to, a, asize,"
280.1999999999999 792 "na;"
55.800000000000004 36 "_"
55.800000000000004 36 "i_"
62.4 36 "n_"
69 36 "t_"
75.6 36 "e_"
82.19999999999999 36 "g_"
88.79999999999998 36 "e_"
95.39999999999998 36 "r _"
108.59999999999997 36 "a_"
115.19999999999996 36 "r_"
121.79999999999995 36 "r_"
128.39999999999995 36 "a_"
134.99999999999994 36 "y A;"
55.800000000000004 48 "_"
55.800000000000004 48 "b_"
62.4 48 "e_"
69 48 "g_"
75.6 48 "i_"
82.19999999999999 48 "n"
75.6 60 "_"
75.6 60 "i_"
82.19999999999999 60 "n_"
88.79999999999998 60 "t_"
95.39999999999998 60 "e_"
101.99999999999997 60 "g_"
108.59999999999997 60 "e_"
115.19999999999996 60 "r N, n;"
75.6 72 "ACCEPT(limit > 1 + 0.05"
227.4 72 "×"
234 72 "to"
247.2 72 "×"
253.79999999999998 72 "ln(a));"
75.59999999999997 84 "LINE;"
75.59999999999997 96 "writetext(|"
141.5999999999999 96 "<<a: |"
174.59999999999988 96 ">);"
75.59999999999997 108 "write integer(|"
167.9999999999999 108 "<−dddddddddd|"
247.19999999999982 108 ">,"
266.99999999999983 108 "a);"
75.59999999999997 120 "ASSIGN(1, A, asize, na);"
75.59999999999997 132 "_"
75.59999999999997 132 "f_"
82.19999999999996 132 "o_"
88.79999999999995 132 "r N := 1 _"
148.1999999999999 132 "s_"
154.7999999999999 132 "t_"
161.3999999999999 132 "e_"
167.9999999999999 132 "p 1 _"
194.39999999999986 132 "u_"
200.99999999999986 132 "n_"
207.59999999999985 132 "t_"
214.19999999999985 132 "i_"
220.79999999999984 132 "l from"
266.99999999999983 132 "−1"
286.7999999999999 132 "_"
286.7999999999999 132 "d_"
293.3999999999999 132 "o"
75.59999999999997 144 "MULT(A, asize, na, a);"
75.59999999999997 156 "n := step −1;"
75.59999999999997 168 "_"
75.59999999999997 168 "f_"
82.19999999999996 168 "o_"
88.79999999999995 168 "r N := from _"
167.9999999999999 168 "s_"
174.59999999999988 168 "t_"
181.19999999999987 168 "e_"
187.79999999999987 168 "p 1 _"
214.19999999999985 168 "u_"
220.79999999999984 168 "n_"
227.39999999999984 168 "t_"
233.99999999999983 168 "i_"
240.59999999999982 168 "l to"
273.59999999999985 168 "_"
273.59999999999985 168 "d_"
280.1999999999999 168 "o"
75.59999999999997 180 "_"
75.59999999999997 180 "b_"
82.19999999999996 180 "e_"
88.79999999999995 180 "g_"
95.39999999999995 180 "i_"
101.99999999999994 180 "n"
95.39999999999995 192 "MULT(A, asize, na, a);"
95.39999999999995 204 "n := n + 1;"
95.39999999999995 216 "_"
95.39999999999995 216 "i_"
101.99999999999994 216 "f n = step _"
174.59999999999988 216 "t_"
181.19999999999987 216 "h_"
187.79999999999987 216 "e_"
194.39999999999986 216 "n"
95.39999999999995 228 "_"
95.39999999999995 228 "b_"
101.99999999999994 228 "e_"
108.59999999999994 228 "g_"
115.19999999999993 228 "i_"
121.79999999999993 228 "n"
115.19999999999993 240 "n := 0;"
115.19999999999993 252 "LINE;"
115.19999999999993 264 "writetext(|"
181.19999999999987 264 "<<N : |"
220.79999999999984 264 ">);"
115.19999999999993 276 "write integer(|"
207.59999999999985 276 "<−ddddd|"
253.7999999999998 276 ">,"
273.59999999999985 276 "N);"
115.19999999999993 288 "writetext(|"
181.19999999999987 288 "<<, a|"
214.19999999999996 288 "∧"
220.79999999999995 288 "N: |"
240.59999999999994 288 ">);"
115.1999999999999 300 "PRINT(A, asize, na)"
95.39999999999992 312 "_"
95.39999999999992 312 "e_"
101.99999999999991 312 "n_"
108.59999999999991 312 "d if n"
75.59999999999994 324 "_"
75.59999999999994 324 "e_"
82.19999999999993 324 "n_"
88.79999999999993 324 "d for N"
55.79999999999995 336 "_"
55.79999999999995 336 "e_"
62.39999999999994 336 "n_"
68.99999999999994 336 "d POWTAB1;"
55.79999999999995 348 "_"
55.79999999999995 348 "i_"
62.39999999999994 348 "n_"
68.99999999999994 348 "t_"
75.59999999999994 348 "e_"
82.19999999999993 348 "g_"
88.79999999999993 348 "e_"
95.39999999999992 348 "r _"
108.59999999999991 348 "p_"
115.1999999999999 348 "r_"
121.7999999999999 348 "o_"
128.3999999999999 348 "c_"
134.9999999999999 348 "e_"
141.59999999999988 348 "d_"
148.19999999999987 348 "u_"
154.79999999999987 348 "r_"
161.39999999999986 348 "e POWTAB2(from,"
266.99999999999983 348 "step,"
306.59999999999997 348 "to,"
333.00000000000006 348 "b,"
352.8000000000001 348 "A,"
372.6000000000002 348 "asize,"
418.80000000000035 348 "na);"
55.79999999999995 360 "_"
55.79999999999995 360 "v_"
62.39999999999994 360 "a_"
68.99999999999994 360 "l_"
75.59999999999994 360 "u_"
82.19999999999993 360 "e from, step, to, b, na;"
55.79999999999995 372 "_"
55.79999999999995 372 "i_"
62.39999999999994 372 "n_"
68.99999999999994 372 "t_"
75.59999999999994 372 "e_"
82.19999999999993 372 "g_"
88.79999999999993 372 "e_"
95.39999999999992 372 "r from, step, to, b, asize,"
280.1999999999999 372 "na;"
55.79999999999995 384 "_"
55.79999999999995 384 "i_"
62.39999999999994 384 "n_"
68.99999999999994 384 "t_"
75.59999999999994 384 "e_"
82.19999999999993 384 "g_"
88.79999999999993 384 "e_"
95.39999999999992 384 "r _"
108.59999999999991 384 "a_"
115.1999999999999 384 "r_"
121.7999999999999 384 "r_"
128.3999999999999 384 "a_"
134.9999999999999 384 "y A;"
55.79999999999995 396 "_"
55.79999999999995 396 "b_"
62.39999999999994 396 "e_"
68.99999999999994 396 "g_"
75.59999999999994 396 "i_"
82.19999999999993 396 "n"
75.59999999999994 408 "_"
75.59999999999994 408 "i_"
82.19999999999993 408 "n_"
88.79999999999993 408 "t_"
95.39999999999992 408 "e_"
101.99999999999991 408 "g_"
108.59999999999991 408 "e_"
115.1999999999999 408 "r N, n;"
75.59999999999994 420 "ACCEPT(limit > 1 + 0.05"
227.39999999999995 420 "×"
233.99999999999994 420 "b"
240.59999999999994 420 "×"
247.19999999999993 420 "ln(to));"
75.59999999999994 432 "LINE;"
75.59999999999994 444 "writetext(|"
141.59999999999988 444 "<<b: |"
174.59999999999985 444 ">);"
75.59999999999994 456 "write integer(|"
167.99999999999986 456 "<−dddddddddd|"
247.1999999999998 456 ">,"
266.99999999999983 456 "b);"
75.59999999999994 468 "_"
75.59999999999994 468 "f_"
82.19999999999993 468 "o_"
88.79999999999993 468 "r N := from _"
167.99999999999986 468 "s_"
174.59999999999985 468 "t_"
181.19999999999985 468 "e_"
187.79999999999984 468 "p step _"
233.9999999999998 468 "u_"
240.5999999999998 468 "n_"
247.1999999999998 468 "t_"
253.7999999999998 468 "i_"
260.3999999999998 468 "l"
273.59999999999985 468 "to"
293.3999999999999 468 "_"
293.3999999999999 468 "d_"
299.99999999999994 468 "o"
75.59999999999994 480 "_"
75.59999999999994 480 "b_"
82.19999999999993 480 "e_"
88.79999999999993 480 "g_"
95.39999999999992 480 "i_"
101.99999999999991 480 "n"
95.39999999999992 492 "ASSIGN(1, A, asize, na);"
95.39999999999992 504 "_"
95.39999999999992 504 "f_"
101.99999999999991 504 "o_"
108.59999999999991 504 "r n := 1 _"
167.99999999999986 504 "s_"
174.59999999999985 504 "t_"
181.19999999999985 504 "e_"
187.79999999999984 504 "p 1 _"
214.19999999999982 504 "u_"
220.7999999999998 504 "n_"
227.3999999999998 504 "t_"
233.9999999999998 504 "i_"
240.5999999999998 504 "l b"
266.99999999999983 504 "_"
266.99999999999983 504 "d_"
273.59999999999985 504 "o"
95.39999999999992 516 "MULT(A, asize, na, N);"
95.39999999999992 528 "LINE;"
95.39999999999992 540 "writetext(|"
161.39999999999986 540 "<<N: |"
194.39999999999984 540 ">);"
95.39999999999992 552 "write integer(|"
187.79999999999984 552 "<−dddddddddd|"
266.99999999999983 552 ">,"
286.7999999999999 552 "N);"
95.39999999999992 564 "writetext(|"
161.39999999999986 564 "<<, N|"
194.39999999999995 564 "∧"
200.99999999999994 564 "b: |"
220.79999999999993 564 ">);"
95.39999999999992 576 "PRINT(A, asize, na)"
75.59999999999994 588 "_"
75.59999999999994 588 "e_"
82.19999999999993 588 "n_"
88.79999999999993 588 "d for N"
55.79999999999995 600 "_"
55.79999999999995 600 "e_"
62.39999999999994 600 "n_"
68.99999999999994 600 "d POWTAB2;"
55.79999999999995 612 "_"
55.79999999999995 612 "i_"
62.39999999999994 612 "n_"
68.99999999999994 612 "t_"
75.59999999999994 612 "e_"
82.19999999999993 612 "g_"
88.79999999999993 612 "e_"
95.39999999999992 612 "r _"
108.59999999999991 612 "p_"
115.1999999999999 612 "r_"
121.7999999999999 612 "o_"
128.3999999999999 612 "c_"
134.9999999999999 612 "e_"
141.59999999999988 612 "d_"
148.19999999999987 612 "u_"
154.79999999999987 612 "r_"
161.39999999999986 612 "e ISOM(N, PRI,"
260.3999999999998 612 "psize,"
306.59999999999997 612 "np,"
333.00000000000006 612 "SEC,"
366.00000000000017 612 "ssize,"
55.79999999999995 624 "ns, TER, tsize, nt);"
55.79999999999995 636 "_"
55.79999999999995 636 "v_"
62.39999999999994 636 "a_"
68.99999999999994 636 "l_"
75.59999999999994 636 "u_"
82.19999999999993 636 "e N, np, ns, nt;"
55.79999999999995 648 "_"
55.79999999999995 648 "i_"
62.39999999999994 648 "n_"
68.99999999999994 648 "t_"
75.59999999999994 648 "e_"
82.19999999999993 648 "g_"
88.79999999999993 648 "e_"
95.39999999999992 648 "r N, psize, np, ssize, ns,"
273.59999999999985 648 "tsize,"
319.8 648 "nt;"
55.79999999999995 660 "_"
55.79999999999995 660 "i_"
62.39999999999994 660 "n_"
68.99999999999994 660 "t_"
75.59999999999994 660 "e_"
82.19999999999993 660 "g_"
88.79999999999993 660 "e_"
95.39999999999992 660 "r _"
108.59999999999991 660 "a_"
115.1999999999999 660 "r_"
121.7999999999999 660 "r_"
128.3999999999999 660 "a_"
134.9999999999999 660 "y PRI, SEC, TER;"
55.79999999999995 672 "_"
55.79999999999995 672 "b_"
62.39999999999994 672 "e_"
68.99999999999994 672 "g_"
75.59999999999994 672 "i_"
82.19999999999993 672 "n"
75.59999999999994 684 "_"
75.59999999999994 684 "i_"
82.19999999999993 684 "n_"
88.79999999999993 684 "t_"
95.39999999999992 684 "e_"
101.99999999999991 684 "g_"
108.59999999999991 684 "e_"
115.1999999999999 684 "r sbase, nu, nv, usize,"
273.59999999999985 684 "vsize,"
319.8 684 "k,"
339.6000000000001 684 "n,"
359.40000000000015 684 "m,"
379.2000000000002 684 "i,"
399.0000000000003 684 "j,"
418.80000000000035 684 "si,"
445.20000000000044 684 "sj,"
471.60000000000053 684 "q,"
491.4000000000006 684 "sk, f;"
75.59999999999994 696 "_"
75.59999999999994 696 "b_"
82.19999999999993 696 "o_"
88.79999999999993 696 "o_"
95.39999999999992 696 "l_"
101.99999999999991 696 "e_"
108.59999999999991 696 "a_"
115.1999999999999 696 "n empty;"
75.59999999999994 708 "_"
75.59999999999994 708 "i_"
82.19999999999993 708 "n_"
88.79999999999993 708 "t_"
95.39999999999992 708 "e_"
101.99999999999991 708 "g_"
108.59999999999991 708 "e_"
115.1999999999999 708 "r _"
128.3999999999999 708 "a_"
134.9999999999999 708 "r_"
141.59999999999988 708 "r_"
148.19999999999987 708 "a_"
154.79999999999987 708 "y U, V[0:c39];"
75.59999999999994 720 "_"
75.59999999999994 720 "i_"
82.19999999999993 720 "n_"
88.79999999999993 720 "t_"
95.39999999999992 720 "e_"
101.99999999999991 720 "g_"
108.59999999999991 720 "e_"
115.1999999999999 720 "r _"
128.3999999999999 720 "p_"
134.9999999999999 720 "r_"
141.59999999999988 720 "o_"
148.19999999999987 720 "c_"
154.79999999999987 720 "e_"
161.39999999999986 720 "d_"
167.99999999999986 720 "u_"
174.59999999999985 720 "r_"
181.19999999999985 720 "e size(n);"
75.59999999999994 732 "_"
75.59999999999994 732 "v_"
82.19999999999993 732 "a_"
88.79999999999993 732 "l_"
95.39999999999992 732 "u_"
101.99999999999991 732 "e n;"
75.59999999999994 744 "_"
75.59999999999994 744 "i_"
82.19999999999993 744 "n_"
88.79999999999993 744 "t_"
95.39999999999992 744 "e_"
101.99999999999991 744 "g_"
108.59999999999991 744 "e_"
115.1999999999999 744 "r n;"
75.59999999999994 756 "_"
75.59999999999994 756 "b_"
82.19999999999993 756 "e_"
88.79999999999993 756 "g_"
95.39999999999992 756 "i_"
101.99999999999991 756 "n"
95.39999999999992 768 "get(U, FREE, sbase + n_"
240.5999999999998 768 ":40);"
95.39999999999992 780 "size := U[n _"
174.59999999999985 780 "m_"
181.19999999999985 780 "o_"
187.79999999999984 780 "d 40]"
75.59999999999994 792 "_"
75.59999999999994 792 "e_"
82.19999999999993 792 "n_"
88.79999999999993 792 "d size;"
75.6 36 "_"
75.6 36 "p_"
82.19999999999999 36 "r_"
88.79999999999998 36 "o_"
95.39999999999998 36 "c_"
101.99999999999997 36 "e_"
108.59999999999997 36 "d_"
115.19999999999996 36 "u_"
121.79999999999995 36 "r_"
128.39999999999995 36 "e store(n, size);"
75.6 48 "_"
75.6 48 "v_"
82.19999999999999 48 "a_"
88.79999999999998 48 "l_"
95.39999999999998 48 "u_"
101.99999999999997 48 "e n, size;"
75.6 60 "_"
75.6 60 "i_"
82.19999999999999 60 "n_"
88.79999999999998 60 "t_"
95.39999999999998 60 "e_"
101.99999999999997 60 "g_"
108.59999999999997 60 "e_"
115.19999999999996 60 "r n, size;"
75.6 72 "_"
75.6 72 "b_"
82.19999999999999 72 "e_"
88.79999999999998 72 "g_"
95.39999999999998 72 "i_"
101.99999999999997 72 "n"
95.39999999999998 84 "get(U, FREE, sbase + n_"
240.59999999999985 84 ":40);"
95.39999999999998 96 "U[n _"
121.79999999999995 96 "m_"
128.39999999999995 96 "o_"
134.99999999999994 96 "d 40] := size;"
95.39999999999998 108 "put(U, FREE, sbase + n_"
240.59999999999985 108 ":40)"
75.6 120 "_"
75.6 120 "e_"
82.19999999999999 120 "n_"
88.79999999999998 120 "d store;"
75.6 132 "large := _"
134.99999999999994 132 "t_"
141.59999999999994 132 "r_"
148.19999999999993 132 "u_"
154.79999999999993 132 "e;"
75.6 144 "nu := ftrack;"
75.6 156 "nv := nu + 1;"
75.6 168 "f:=nv+1;"
75.6 180 "sbase:=1+step"
161.4 180 "×"
168 180 "(1+f+N);"
75.6 192 "ftrack:=f+1+N+1+N_"
187.7999999999999 192 ":40;"
75.6 204 "ASSIGN(1, PRI, psize, f);"
75.6 216 "store(0, psize);"
75.6 228 "_"
75.6 228 "f_"
82.19999999999999 228 "o_"
88.79999999999998 228 "r n := 1 _"
148.19999999999993 228 "s_"
154.79999999999993 228 "t_"
161.39999999999992 228 "e_"
167.99999999999991 228 "p 1 _"
194.3999999999999 228 "u_"
200.9999999999999 228 "n_"
207.59999999999988 228 "t_"
214.19999999999987 228 "i_"
220.79999999999987 228 "l N _"
247.19999999999985 228 "d_"
253.79999999999987 228 "o"
75.6 240 "_"
75.6 240 "b_"
82.19999999999999 240 "e_"
88.79999999999998 240 "g_"
95.39999999999998 240 "i_"
101.99999999999997 240 "n"
95.39999999999998 252 "ASSIGN(0, SEC, ssize, ns);"
95.39999999999998 264 "ASSIGN(0, TER, tsize, nt);"
95.39999999999998 276 "m := (n − 1)_"
174.5999999999999 276 ":2;"
95.39999999999998 288 "_"
95.39999999999998 288 "f_"
101.99999999999997 288 "o_"
108.59999999999997 288 "r i := 1 _"
167.99999999999991 288 "s_"
174.5999999999999 288 "t_"
181.1999999999999 288 "e_"
187.7999999999999 288 "p 1 _"
214.19999999999987 288 "u_"
220.79999999999987 288 "n_"
227.39999999999986 288 "t_"
233.99999999999986 288 "i_"
240.59999999999985 288 "l m"
266.9999999999999 288 "_"
266.9999999999999 288 "d_"
273.5999999999999 288 "o"
95.39999999999998 300 "_"
95.39999999999998 300 "b_"
101.99999999999997 300 "e_"
108.59999999999997 300 "g_"
115.19999999999996 300 "i_"
121.79999999999995 300 "n"
115.19999999999996 312 "j := n − 1 − i;"
115.19999999999996 324 "si := size(i);"
115.19999999999996 336 "sj := size(j);"
115.19999999999996 348 "_"
115.19999999999996 348 "i_"
121.79999999999995 348 "f i < j _"
174.5999999999999 348 "t_"
181.1999999999999 348 "h_"
187.7999999999999 348 "e_"
194.3999999999999 348 "n"
115.19999999999996 360 "LONGMULT(PRI, si,"
115.19999999999996 372 "f + i, U, sj, f + j, V,"
273.5999999999999 372 "vsize,"
319.80000000000007 372 "nv)"
115.19999999999996 384 "_"
115.19999999999996 384 "e_"
121.79999999999995 384 "l_"
128.39999999999995 384 "s_"
134.99999999999994 384 "e"
115.19999999999996 396 "_"
115.19999999999996 396 "b_"
121.79999999999995 396 "e_"
128.39999999999995 396 "g_"
134.99999999999994 396 "i_"
141.59999999999994 396 "n"
134.99999999999994 408 "ASSIGN(1, U, usize,"
266.9999999999999 408 "nu);"
134.99999999999994 420 "ADD(V, sj, f+ j, 1,"
134.99999999999994 432 "U, usize, nu);"
134.99999999999994 444 "LONGMULT(PRI, si,"
134.99999999999994 456 "f + i, U, usize, nu,"
273.5999999999999 456 "V,"
293.4 456 "vsize,"
339.60000000000014 456 "nv);"
134.99999999999994 468 "DIVIDE(V, vsize, nv,"
273.5999999999999 468 "2,"
293.4 468 "empty)"
115.19999999999996 480 "_"
115.19999999999996 480 "e_"
121.79999999999995 480 "n_"
128.39999999999995 480 "d i _"
154.79999999999993 480 "> j;"
115.19999999999996 492 "ADD(V, vsize, nv, 1, SEC,"
286.79999999999995 492 "ssize,"
333.0000000000001 492 "ns)"
95.39999999999998 504 "_"
95.39999999999998 504 "e_"
101.99999999999997 504 "n_"
108.59999999999997 504 "d for i;"
95.39999999999998 516 "m := (n − 2)_"
174.5999999999999 516 ":2;"
95.39999999999998 528 "_"
95.39999999999998 528 "f_"
101.99999999999997 528 "o_"
108.59999999999997 528 "r i := 1 _"
167.99999999999991 528 "s_"
174.5999999999999 528 "t_"
181.1999999999999 528 "e_"
187.7999999999999 528 "p 1 _"
214.19999999999987 528 "u_"
220.79999999999987 528 "n_"
227.39999999999986 528 "t_"
233.99999999999986 528 "i_"
240.59999999999985 528 "l m"
266.9999999999999 528 "_"
266.9999999999999 528 "d_"
273.5999999999999 528 "o"
95.39999999999998 540 "_"
95.39999999999998 540 "b_"
101.99999999999997 540 "e_"
108.59999999999997 540 "g_"
115.19999999999996 540 "i_"
121.79999999999995 540 "n"
115.19999999999996 552 "j := n − 1 − 2"
207.6 552 "×"
214.2 552 "i;"
115.19999999999996 564 "si := size(i);"
115.19999999999996 576 "sj := size(j);"
115.19999999999996 588 "ASSIGN(_"
161.39999999999992 588 "i_"
167.99999999999991 588 "f i |"
194.3999999999999 588 "= j _"
220.79999999999987 588 "t_"
227.39999999999986 588 "h_"
233.99999999999986 588 "e_"
240.59999999999985 588 "n 0"
266.9999999999999 588 "_"
266.9999999999999 588 "e_"
273.5999999999999 588 "l_"
280.19999999999993 588 "s_"
286.79999999999995 588 "e"
300 588 "2,"
319.80000000000007 588 "U,"
339.60000000000014 588 "usize,"
385.8000000000003 588 "nu);"
115.19999999999996 600 "ADD(PRI, sj, f + j, 1,"
115.19999999999996 612 "U, usize, nu);"
115.19999999999996 624 "LONGMULT(PRI, si,"
115.19999999999996 636 "f + i, U, usize, nu, V,"
273.5999999999999 636 "vsize,"
319.80000000000007 636 "nv);"
115.19999999999996 648 "ADD(U, usize, nu, 1, V,"
273.5999999999999 648 "vsize,"
319.80000000000007 648 "nv);"
115.19999999999996 660 "LONGMULT(V, vsize, nv,"
115.19999999999996 672 "PRI, si, f + i, U, usize,"
286.79999999999995 672 "nu);"
115.19999999999996 684 "DIVIDE(U, usize, nu, _"
253.79999999999987 684 "i_"
260.39999999999986 684 "f"
273.5999999999999 684 "i"
286.79999999999995 684 "|"
286.79999999999995 684 "="
300 684 "j"
313.20000000000005 684 "_"
313.20000000000005 684 "t_"
319.80000000000007 684 "h_"
326.4000000000001 684 "e_"
333.0000000000001 684 "n"
115.19999999999996 696 "2 _"
128.39999999999995 696 "e_"
134.99999999999994 696 "l_"
141.59999999999994 696 "s_"
148.19999999999993 696 "e 6, empty);"
115.19999999999996 708 "ADD(U, usize, nu, 1, TER,"
286.79999999999995 708 "tsize,"
333.0000000000001 708 "nt)"
95.39999999999998 720 "_"
95.39999999999998 720 "e_"
101.99999999999997 720 "n_"
108.59999999999997 720 "d for i;"
95.39999999999998 732 "m := (n − 4)_"
174.5999999999999 732 ":3;"
95.39999999999998 744 "_"
95.39999999999998 744 "f_"
101.99999999999997 744 "o_"
108.59999999999997 744 "r i := 1 _"
167.99999999999991 744 "s_"
174.5999999999999 744 "t_"
181.1999999999999 744 "e_"
187.7999999999999 744 "p 1 _"
214.19999999999987 744 "u_"
220.79999999999987 744 "n_"
227.39999999999986 744 "t_"
233.99999999999986 744 "i_"
240.59999999999985 744 "l m"
266.9999999999999 744 "_"
266.9999999999999 744 "d_"
273.5999999999999 744 "o"
95.39999999999998 756 "_"
95.39999999999998 756 "b_"
101.99999999999997 756 "e_"
108.59999999999997 756 "g_"
115.19999999999996 756 "i_"
121.79999999999995 756 "n"
115.19999999999996 768 "q := (n − 2 − i)_"
220.79999999999987 768 ":2;"
115.19999999999996 780 "_"
115.19999999999996 780 "f_"
121.79999999999995 780 "o_"
128.39999999999995 780 "r j := i + 1 _"
214.19999999999987 780 "s_"
220.79999999999987 780 "t_"
227.39999999999986 780 "e_"
233.99999999999986 780 "p 1"
260.39999999999986 780 "_"
260.39999999999986 780 "u_"
266.9999999999999 780 "n_"
273.5999999999999 780 "t_"
280.19999999999993 780 "i_"
286.79999999999995 780 "l"
300 780 "q"
313.20000000000005 780 "_"
313.20000000000005 780 "d_"
319.80000000000007 780 "o"
115.19999999999996 792 "_"
115.19999999999996 792 "b_"
121.79999999999995 792 "e_"
128.39999999999995 792 "g_"
134.99999999999994 792 "i_"
141.59999999999994 792 "n"
134.99999999999994 36 "k := n − 1 − i − j;"
134.99999999999994 48 "si := size(i);"
134.99999999999994 60 "sj := size(j);"
134.99999999999994 72 "sk := size(k);"
134.99999999999994 84 "LONGMULT(PRI,"
134.99999999999994 96 "sj, f + j, U, sk, f"
266.9999999999999 96 "+"
280.19999999999993 96 "k,"
300 96 "V,"
319.80000000000007 96 "vsize,"
366.0000000000002 96 "nv);"
134.99999999999994 108 "LONGMULT(V, vsize,"
134.99999999999994 120 "nv, PRI, si, f + i,"
266.9999999999999 120 "U,"
286.79999999999995 120 "usize,"
333.0000000000001 120 "nu);"
134.99999999999994 132 "ADD(U, usize, nu, 1,"
273.5999999999999 132 "TER,"
306.6 132 "tsize,"
352.8000000000002 132 "nt)"
115.19999999999996 144 "_"
115.19999999999996 144 "e_"
121.79999999999995 144 "n_"
128.39999999999995 144 "d for j"
95.39999999999998 156 "_"
95.39999999999998 156 "e_"
101.99999999999997 156 "n_"
108.59999999999997 156 "d for i;"
95.39999999999998 168 "LINE;"
95.39999999999998 180 "writetext(|"
161.39999999999992 180 "<<N: |"
194.3999999999999 180 ">);"
95.39999999999998 192 "write integer(|"
187.7999999999999 192 "<−ddddddd|"
247.19999999999985 192 ">,"
266.9999999999999 192 "n);"
95.39999999999998 204 "LINE;"
95.39999999999998 216 "writetext(|"
161.39999999999992 216 "<<PRI(N):|"
220.79999999999987 216 ">);"
95.39999999999998 228 "PRINT(PRI, size(n − 1), f"
266.9999999999999 228 "+"
280.19999999999993 228 "n"
293.4 228 "−"
306.6 228 "1);"
95.39999999999998 240 "LINE;"
95.39999999999998 252 "writetext(|"
161.39999999999992 252 "<<SEC(N):|"
220.79999999999987 252 ">);"
95.39999999999998 264 "PRINT(SEC, ssize, ns);"
95.39999999999998 276 "LINE;"
95.39999999999998 288 "writetext(|"
161.39999999999992 288 "<<TER(N):|"
220.79999999999987 288 ">);"
95.39999999999998 300 "PRINT(TER, tsize, nt);"
95.39999999999998 312 "LINE;"
95.39999999999998 324 "ADD(TER, tsize, nt, 1, SEC,"
280.19999999999993 324 "ssize,"
326.4000000000001 324 "ns);"
95.39999999999998 336 "ADD(PRI, size(n − 1), f +"
266.9999999999999 336 "n"
280.19999999999993 336 "−"
293.4 336 "1,"
313.20000000000005 336 "1,"
95.39999999999998 348 "SEC, ssize, ns);"
95.39999999999998 360 "COPY(SEC, ssize, ns, U, usize,"
300 360 "f"
313.20000000000005 360 "+"
326.4000000000001 360 "n);"
95.39999999999998 372 "store(n, usize)"
75.6 384 "_"
75.6 384 "e_"
82.19999999999999 384 "n_"
88.79999999999998 384 "d for n;"
75.6 396 "ftrack := ftrack − (4 + N +"
260.39999999999986 396 "N_"
266.9999999999999 396 ":40)"
55.800000000000004 408 "_"
55.800000000000004 408 "e_"
62.4 408 "n_"
69 408 "d IOSM;"
55.800000000000004 420 "_"
55.800000000000004 420 "r_"
62.4 420 "e_"
69 420 "a_"
75.6 420 "l _"
88.79999999999998 420 "p_"
95.39999999999998 420 "r_"
101.99999999999997 420 "o_"
108.59999999999997 420 "c_"
115.19999999999996 420 "e_"
121.79999999999995 420 "d_"
128.39999999999995 420 "u_"
134.99999999999994 420 "r_"
141.59999999999994 420 "e clock count;"
55.800000000000004 432 "_"
55.800000000000004 432 "c_"
62.4 432 "o_"
69 432 "d_"
75.6 432 "e clock count;"
55.800000000000004 444 "1, 37;"
69 456 "zl , grf p−1 ; RF:=clock count;"
280.19999999999993 456 "clock"
319.80000000000007 456 "count:=0;"
385.8000000000003 456 "stack[p−1]:=RF;"
55.800000000000004 468 "_"
55.800000000000004 468 "e;"
55.800000000000004 480 "_"
55.800000000000004 480 "p_"
62.4 480 "r_"
69 480 "o_"
75.6 480 "c_"
82.19999999999999 480 "e_"
88.79999999999998 480 "d_"
95.39999999999998 480 "u_"
101.99999999999997 480 "r_"
108.59999999999997 480 "e CALCULATE;"
55.800000000000004 492 "_"
55.800000000000004 492 "b_"
62.4 492 "e_"
69 492 "g_"
75.6 492 "i_"
82.19999999999999 492 "n"
75.6 504 "_"
75.6 504 "i_"
82.19999999999999 504 "n_"
88.79999999999998 504 "t_"
95.39999999999998 504 "e_"
101.99999999999997 504 "g_"
108.59999999999997 504 "e_"
115.19999999999996 504 "r _"
128.39999999999995 504 "a_"
134.99999999999994 504 "r_"
141.59999999999994 504 "r_"
148.19999999999993 504 "a_"
154.79999999999993 504 "y A, B, C[0:c39];"
75.6 516 "_"
75.6 516 "i_"
82.19999999999999 516 "n_"
88.79999999999998 516 "t_"
95.39999999999998 516 "e_"
101.99999999999997 516 "g_"
108.59999999999997 516 "e_"
115.19999999999996 516 "r _"
128.39999999999995 516 "p_"
134.99999999999994 516 "r_"
141.59999999999994 516 "o_"
148.19999999999993 516 "c_"
154.79999999999993 516 "e_"
161.39999999999992 516 "d_"
167.99999999999991 516 "u_"
174.5999999999999 516 "r_"
181.1999999999999 516 "e next;"
75.6 528 "_"
75.6 528 "b_"
82.19999999999999 528 "e_"
88.79999999999998 528 "g_"
95.39999999999998 528 "i_"
101.99999999999997 528 "n"
95.39999999999998 540 "_"
95.39999999999998 540 "i_"
101.99999999999997 540 "n_"
108.59999999999997 540 "t_"
115.19999999999996 540 "e_"
121.79999999999995 540 "g_"
128.39999999999995 540 "e_"
134.99999999999994 540 "r x;"
95.39999999999998 552 "_"
95.39999999999998 552 "i_"
101.99999999999997 552 "f show _"
148.19999999999993 552 "t_"
154.79999999999993 552 "h_"
161.39999999999992 552 "e_"
167.99999999999991 552 "n LINE;"
95.39999999999998 564 "writetext(|"
161.39999999999992 564 "<<r := |"
207.59999999999988 564 ">);"
95.39999999999998 576 "x := read integer;"
95.39999999999998 588 "_"
95.39999999999998 588 "i_"
101.99999999999997 588 "f show"
148.2 588 "∨"
161.39999999999998 588 "showAll _"
214.19999999999993 588 "t_"
220.79999999999993 588 "h_"
227.39999999999992 588 "e_"
233.99999999999991 588 "n write(|"
286.8 588 "<ddddddddd|"
352.80000000000024 588 ">,"
372.6000000000003 588 "x);"
95.39999999999996 600 "next"
128.39999999999995 600 ":= x"
75.59999999999998 612 "_"
75.59999999999998 612 "e_"
82.19999999999997 612 "n_"
88.79999999999997 612 "d next;"
75.59999999999998 624 "_"
75.59999999999998 624 "r_"
82.19999999999997 624 "e_"
88.79999999999997 624 "a_"
95.39999999999996 624 "l _"
108.59999999999995 624 "p_"
115.19999999999995 624 "r_"
121.79999999999995 624 "o_"
128.39999999999995 624 "c_"
134.99999999999994 624 "e_"
141.59999999999994 624 "d_"
148.19999999999993 624 "u_"
154.79999999999993 624 "r_"
161.39999999999992 624 "e next real;"
75.59999999999998 636 "_"
75.59999999999998 636 "b_"
82.19999999999997 636 "e_"
88.79999999999997 636 "g_"
95.39999999999996 636 "i_"
101.99999999999996 636 "n"
95.39999999999996 648 "_"
95.39999999999996 648 "r_"
101.99999999999996 648 "e_"
108.59999999999995 648 "a_"
115.19999999999995 648 "l"
128.39999999999995 648 "x;"
95.39999999999996 660 "_"
95.39999999999996 660 "i_"
101.99999999999996 660 "f show _"
148.19999999999993 660 "t_"
154.79999999999993 660 "h_"
161.39999999999992 660 "e_"
167.99999999999991 660 "n LINE;"
95.39999999999996 672 "writetext(|"
161.39999999999992 672 "<<r := |"
207.59999999999988 672 ">);"
95.39999999999996 684 "x :="
128.39999999999995 684 "read real;"
95.39999999999996 696 "_"
95.39999999999996 696 "i_"
101.99999999999996 696 "f show"
148.2 696 "∨"
161.39999999999998 696 "showAll _"
214.19999999999993 696 "t_"
220.79999999999993 696 "h_"
227.39999999999992 696 "e_"
233.99999999999991 696 "n write(|"
286.8 696 "<d.dddddd"
346.2 698 "10"
352.8 696 "−ddd|"
379.2000000000001 696 ">,"
399.00000000000017 696 "x);"
95.39999999999998 708 "next real:= x"
75.6 720 "_"
75.6 720 "e_"
82.19999999999999 720 "n_"
88.79999999999998 720 "d next real;"
75.6 732 "_"
75.6 732 "i_"
82.19999999999999 732 "n_"
88.79999999999998 732 "t_"
95.39999999999998 732 "e_"
101.99999999999997 732 "g_"
108.59999999999997 732 "e_"
115.19999999999996 732 "r _"
128.39999999999995 732 "p_"
134.99999999999994 732 "r_"
141.59999999999994 732 "o_"
148.19999999999993 732 "c_"
154.79999999999993 732 "e_"
161.39999999999992 732 "d_"
167.99999999999991 732 "u_"
174.5999999999999 732 "r_"
181.1999999999999 732 "e STOP;"
75.6 744 "_"
75.6 744 "g_"
82.19999999999999 744 "o_ _"
95.39999999999998 744 "t_"
101.99999999999997 744 "o EX;"
75.6 756 "_"
75.6 756 "p_"
82.19999999999999 756 "r_"
88.79999999999998 756 "o_"
95.39999999999998 756 "c_"
101.99999999999997 756 "e_"
108.59999999999997 756 "d_"
115.19999999999996 756 "u_"
121.79999999999995 756 "r_"
128.39999999999995 756 "e ORDER(text, command);"
75.6 768 "_"
75.6 768 "s_"
82.19999999999999 768 "t_"
88.79999999999998 768 "r_"
95.39999999999998 768 "i_"
101.99999999999997 768 "n_"
108.59999999999997 768 "g text;"
75.6 780 "_"
75.6 780 "i_"
82.19999999999999 780 "n_"
88.79999999999998 780 "t_"
95.39999999999998 780 "e_"
101.99999999999997 780 "g_"
108.59999999999997 780 "e_"
115.19999999999996 780 "r command;"
75.6 792 "_"
75.6 792 "b_"
82.19999999999999 792 "e_"
88.79999999999998 792 "g_"
95.39999999999998 792 "i_"
101.99999999999997 792 "n"
95.39999999999998 36 "_"
95.39999999999998 36 "i_"
101.99999999999997 36 "n_"
108.59999999999997 36 "t_"
115.19999999999996 36 "e_"
121.79999999999995 36 "g_"
128.39999999999995 36 "e_"
134.99999999999994 36 "r dummy;"
95.39999999999998 48 "type := type + 1;"
95.39999999999998 60 "_"
95.39999999999998 60 "i_"
101.99999999999997 60 "f type = TYPE _"
194.3999999999999 60 "t_"
200.9999999999999 60 "h_"
207.59999999999988 60 "e_"
214.19999999999987 60 "n"
95.39999999999998 72 "_"
95.39999999999998 72 "b_"
101.99999999999997 72 "e_"
108.59999999999997 72 "g_"
115.19999999999996 72 "i_"
121.79999999999995 72 "n"
115.19999999999996 84 "writetext(text);"
115.19999999999996 96 "clock count;"
115.19999999999996 108 "dummy := command;"
115.19999999999996 120 "LINE;"
115.19999999999996 132 "writetext( |"
187.7999999999999 132 "<<clock count:"
286.79999999999995 132 "|"
286.79999999999995 132 ">"
300 132 ");"
115.19999999999996 144 "write(|"
154.79999999999993 144 "<ddddddd.d|"
220.79999999999987 144 ">, clock"
280.19999999999993 144 "count);"
115.19999999999996 156 "_"
115.19999999999996 156 "g_"
121.79999999999995 156 "o_ _"
134.99999999999994 156 "t_"
141.59999999999994 156 "o NEW"
95.39999999999998 168 "_"
95.39999999999998 168 "e_"
101.99999999999997 168 "n_"
108.59999999999997 168 "d if this type"
75.6 180 "_"
75.6 180 "e_"
82.19999999999999 180 "n_"
88.79999999999998 180 "d ORDER;"
75.6 192 "ftrack := 4;"
36 204 "NEW: LINE;"
75.6 216 "LINE;"
75.6 228 "writetext(|"
141.59999999999994 228 "<<No: |"
181.1999999999999 228 ">);"
75.6 240 "TYPE := read integer;"
75.6 252 "_"
75.6 252 "i_"
82.19999999999999 252 "f show"
128.4 252 "∨"
141.6 252 "showAll _"
194.39999999999995 252 "t_"
200.99999999999994 252 "h_"
207.59999999999994 252 "e_"
214.19999999999993 252 "n write"
266.99999999999994 252 "(|"
273.59999999999997 252 "<dd|"
293.40000000000003 252 ">,"
313.2000000000001 252 "TYPE);"
75.6 264 "type := 0;"
75.6 276 "ORDER(|"
115.19999999999996 276 "<< A := r;|"
181.1999999999999 276 ">, ASSIGN(next"
280.19999999999993 276 "real,"
319.80000000000007 276 "A,"
339.60000000000014 276 "asize,"
385.8000000000003 276 "1));"
75.6 288 "ORDER(|"
115.19999999999996 288 "<< write(A);|"
194.3999999999999 288 ">, PRINT(A,"
273.5999999999999 288 "asize,"
319.80000000000007 288 "1));"
75.6 300 "ORDER(|"
115.19999999999996 300 "<< B := A;|"
181.1999999999999 300 ">, COPY(A, asize,"
300 300 "1,"
319.80000000000007 300 "B,"
339.60000000000014 300 "bsize,"
385.8000000000003 300 "2));"
75.6 312 "ORDER(|"
115.19999999999996 312 "<< C := A;|"
181.1999999999999 312 ">, COPY(A, asize,"
300 312 "1,"
319.80000000000007 312 "C,"
339.60000000000014 312 "csize,"
385.8000000000003 312 "3));"
75.6 324 "ORDER(|"
115.19999999999996 324 "<< A := B;|"
181.1999999999999 324 ">, COPY(B, bsize,"
300 324 "2,"
319.80000000000007 324 "A,"
339.60000000000014 324 "asize,"
385.8000000000003 324 "1));"
75.6 336 "ORDER(|"
115.19999999999996 336 "<< C := B;|"
181.1999999999999 336 ">, COPY(B, bsize,"
300 336 "2,"
319.80000000000007 336 "C,"
339.60000000000014 336 "csize,"
385.8000000000003 336 "3));"
75.6 348 "ORDER(|"
115.19999999999996 348 "<< A := C;|"
181.1999999999999 348 ">, COPY(C, csize,"
300 348 "3,"
319.80000000000007 348 "A,"
339.60000000000014 348 "asize,"
385.8000000000003 348 "1));"
75.6 360 "ORDER(|"
115.19999999999996 360 "<< B := C;|"
181.1999999999999 360 ">, COPY(C, csize,"
300 360 "3,"
319.80000000000007 360 "B,"
339.60000000000014 360 "bsize,"
385.8000000000003 360 "2));"
75.6 372 "ORDER(|"
115.19999999999996 372 "<< A := A + B;|"
207.59999999999988 372 ">, ADD(B,"
273.5999999999999 372 "bsize,"
319.80000000000007 372 "2,"
339.60000000000014 372 "1,"
359.4000000000002 372 "A,"
379.2000000000003 372 "asize,"
425.40000000000043 372 "1));"
75.6 384 "ORDER(|"
115.19999999999996 384 "<< A := A − B;|"
207.59999999999988 384 ">, ADD(B,"
273.5999999999999 384 "bsize,"
319.80000000000007 384 "2,"
339.60000000000014 384 "−1,"
366.0000000000002 384 "A,"
385.8000000000003 384 "asize,"
432.00000000000045 384 "1));"
75.6 396 "ORDER(|"
115.19999999999996 396 "<< A := A"
174.6 396 "×"
181.2 396 "r;|"
194.39999999999998 396 ">, MULT(A,"
266.99999999999994 396 "asize,"
313.2000000000001 396 "1,"
333.00000000000017 396 "next));"
75.6 408 "ORDER(|"
115.19999999999996 408 "<< A := A/r;|"
194.3999999999999 408 ">, DIVIDE(A,"
280.19999999999993 408 "asize,"
326.4000000000001 408 "1,"
346.20000000000016 408 "next,"
385.8000000000003 408 "empty));"
75.6 420 "ORDER(|"
115.19999999999996 420 "<< C := A"
174.6 420 "×"
181.2 420 "B;|"
194.39999999999998 420 ">, LONGMULT(A,"
293.40000000000003 420 "asize,"
339.6000000000002 420 "1,"
359.40000000000026 420 "B,"
379.20000000000033 420 "bsize,"
425.4000000000005 420 "2,"
445.20000000000056 420 "C,"
465.0000000000006 420 "csize,"
511.2000000000008 420 "3));"
75.6 432 "ORDER(|"
115.19999999999996 432 "<< A := PI;|"
187.7999999999999 432 ">, PI TO(A,"
266.9999999999999 432 "asize,"
313.20000000000005 432 "1,"
333.0000000000001 432 "B,"
352.8000000000002 432 "bsize,"
399.00000000000034 432 "2,"
418.8000000000004 432 "C,"
438.6000000000005 432 "csize,"
484.80000000000064 432 "3));"
75.6 444 "ORDER(|"
115.19999999999996 444 "<< A := exp(B);|"
214.19999999999987 444 ">, EXP(B,"
280.19999999999993 444 "bsize,"
326.4000000000001 444 "2,"
346.20000000000016 444 "A,"
366.0000000000002 444 "asize,"
412.2000000000004 444 "1,"
432.00000000000045 444 "C,"
451.8000000000005 444 "csize,"
498.0000000000007 444 "3));"
75.6 456 "ORDER(|"
115.19999999999996 456 "<< A := sqrt(r);|"
220.79999999999987 456 ">, SQRT(next"
306.6 456 "real,"
346.20000000000016 456 "A,"
366.0000000000002 456 "asize,"
412.2000000000004 456 "1,"
432.00000000000045 456 "B,"
451.8000000000005 456 "bsize,"
498.0000000000007 456 "2,"
517.8000000000008 456 "C,"
537.6000000000008 456 "csize,"
583.800000000001 456 "3)"
75.6 468 "ORDER(|"
115.19999999999996 468 "<< A := exp(PI"
207.6 468 "×"
214.2 468 "sqrt(r));|"
273.6 468 ">,"
75.6 480 "EXPISQN(next, A, asize, 1, B,"
273.5999999999999 480 "bsize,"
319.80000000000007 480 "2,"
339.60000000000014 480 "C,"
359.4000000000002 480 "csize,"
405.60000000000036 480 "3));"
75.6 492 "ORDER(|"
115.19999999999996 492 "<< FACTORIAL TABLE(r,"
260.39999999999986 492 "r,"
280.19999999999993 492 "r);|"
300 492 ">,"
75.6 504 "FACTAB(next, next, next, A,"
260.39999999999986 504 "asize,"
306.6 504 "1));"
75.6 516 "ORDER(|"
115.19999999999996 516 "<< POWER TABLE(r, r, r,"
273.5999999999999 516 "r|"
280.2 516 "∧"
286.8 516 "variable);|"
352.80000000000024 516 ">,"
75.6 528 "POWTAB1(next, next, next, next,"
286.79999999999995 528 "A,"
306.6 528 "asize,"
352.8000000000002 528 "1));"
75.6 540 "ORDER(|"
115.19999999999996 540 "<< POWER TABLE(r, r, r,"
273.5999999999999 540 "variable|"
326.4 540 "∧"
333 540 "r);|"
352.80000000000007 540 ">,"
75.6 552 "POWTAB2(next, next, next, next,"
286.79999999999995 552 "A,"
306.6 552 "asize,"
352.8000000000002 552 "1));"
75.6 564 "ORDER(|"
115.19999999999996 564 "<< ISOMER TABLE(r);|"
240.59999999999985 564 ">,"
75.6 576 "ISOM(next, A, asize, 1, B, bsize,"
300 576 "2,"
319.80000000000007 576 "C,"
339.60000000000014 576 "csize,"
385.8000000000003 576 "3));"
75.6 588 "ORDER(|"
115.19999999999996 588 "<< stop|"
161.39999999999992 588 ">, STOP);"
75.6 600 "ORDER(|"
115.19999999999996 600 "<< PRINT STATISTICS|"
240.59999999999985 600 ">,"
260.39999999999986 600 "STATISTICS"
333.0000000000001 600 "PRINT);"
75.6 612 "ORDER(|"
115.19999999999996 612 "<< C := A<"
181.2 612 "×"
187.79999999999998 612 "2>B;|"
214.19999999999996 612 ">, LONGMULT2(A,"
319.8000000000001 612 "asize,"
366.0000000000003 612 "1,"
385.80000000000035 612 "B,"
405.6000000000004 612 "bsize,"
451.8000000000006 612 "2,"
471.60000000000065 612 "C,"
491.4000000000007 612 "csize,"
537.6000000000008 612 "3));"
75.59999999999997 624 "ORDER(|"
115.19999999999993 624 "<< (C,A) := (A_"
207.59999999999985 624 ":B,A _"
240.59999999999982 624 "m_"
247.19999999999982 624 "o_"
253.7999999999998 624 "d"
266.99999999999983 624 "B);|"
286.7999999999999 624 ">,"
306.59999999999997 624 "LONGDIVIDE(A,"
399.0000000000003 624 "asize,"
445.20000000000044 624 "1,"
465.0000000000005 624 "B,"
484.8000000000006 624 "bsize,"
531.0000000000007 624 "2,"
550.8000000000008 624 "C,"
570.6000000000008 624 "csiz"
75.59999999999997 636 "ORDER(|"
115.19999999999993 636 "<< A := sqrt2(r);|"
227.39999999999984 636 ">, SQRT2(next"
319.8 636 "real,"
359.40000000000015 636 "A,"
379.2000000000002 636 "asize,"
425.4000000000004 636 "1,"
445.20000000000044 636 "B,"
465.0000000000005 636 "bsize,"
511.20000000000067 636 "2,"
531.0000000000007 636 "C,"
550.8000000000008 636 "csize,"
75.59999999999997 648 "ORDER(|"
115.19999999999993 648 "<< A := sqrt3(r);|"
227.39999999999984 648 ">, SQRT3(next"
319.8 648 "real,"
359.40000000000015 648 "A,"
379.2000000000002 648 "asize,"
425.4000000000004 648 "1,"
445.20000000000044 648 "B,"
465.0000000000005 648 "bsize,"
511.20000000000067 648 "2,"
531.0000000000007 648 "C,"
550.8000000000008 648 "csize,"
75.59999999999997 660 "ORDER(|"
115.19999999999993 660 "<< A := TO REAL(A);|"
240.59999999999982 660 ">, ASSIGN(TO"
326.40000000000003 660 "REAL("
366.00000000000017 660 "A,"
385.80000000000024 660 "asize,"
432.0000000000004 660 "1),"
458.4000000000005 660 "A,"
478.20000000000056 660 "asize,"
524.4000000000007 660 "1));"
75.59999999999997 672 "ORDER(|"
115.19999999999993 672 "<< A := sqrt(B);|"
220.79999999999984 672 ">, SQRT4(A,"
299.99999999999994 672 "asize,"
346.2000000000001 672 "1,"
366.00000000000017 672 "B,"
385.80000000000024 672 "bsize,"
432.0000000000004 672 "2,"
451.80000000000047 672 "C,"
471.60000000000053 672 "csize, 3));"
75.59999999999997 684 "ORDER(|"
115.19999999999993 684 "<< (A,B,C) := AGM(A,B);|"
266.99999999999983 684 ">,"
286.7999999999999 684 "AGM(A,"
333.00000000000006 684 "asize,"
379.2000000000002 684 "1,"
399.0000000000003 684 "B,"
418.80000000000035 684 "bsize,"
465.0000000000005 684 "2,"
484.8000000000006 684 "C,"
504.60000000000065 684 "csize,"
550.8000000000008 684 "3));"
75.59999999999997 696 "ORDER(|"
115.19999999999993 696 "<< A := PI 2;|"
200.99999999999986 696 ">, PI TO 2(A,"
293.3999999999999 696 "asize,"
339.6000000000001 696 "1,"
359.40000000000015 696 "B,"
379.2000000000002 696 "bsize,"
425.4000000000004 696 "2,"
445.20000000000044 696 "C,"
465.0000000000005 696 "csize,"
511.20000000000067 696 "3));"
75.59999999999997 708 "ORDER(|"
115.19999999999993 708 "<< A := sqrt5(B) starting"
286.7999999999999 708 "at"
306.59999999999997 708 "A;|"
319.8 708 ">,"
339.6000000000001 708 "SQRT5(A,"
399.0000000000003 708 "asize,"
445.20000000000044 708 "1,"
465.0000000000005 708 "B,"
484.8000000000006 708 "bsize,"
531.0000000000007 708 "2,"
550.8000000000008 708 "C,"
570.6000000000008 708 "csiz"
75.59999999999997 720 "ORDER(|"
115.19999999999993 720 "<< (C,A) := (A_"
207.59999999999985 720 ":B,A _"
240.59999999999982 720 "m_"
247.19999999999982 720 "o_"
253.7999999999998 720 "d"
266.99999999999983 720 "B)"
286.7999999999999 720 "with"
319.8 720 "r"
333.00000000000006 720 "decimals;|"
392.40000000000026 720 ">,"
412.20000000000033 720 "LONGDIVIDE2(A,"
511.20000000000067 720 "asize,"
557.4000000000008 720 "1,"
577.2000000000008 720 "B,"
75.59999999999997 732 "ORDER(|"
115.19999999999993 732 "<< A := sqrt6(B) starting"
286.7999999999999 732 "at"
306.59999999999997 732 "A;|"
319.8 732 ">,"
339.6000000000001 732 "SQRT6(A,"
399.0000000000003 732 "asize,"
445.20000000000044 732 "1,"
465.0000000000005 732 "B,"
484.8000000000006 732 "bsize,"
531.0000000000007 732 "2,"
550.8000000000008 732 "C,"
570.6000000000008 732 "csiz"
75.59999999999997 744 "_"
75.59999999999997 744 "g_"
82.19999999999996 744 "o_ _"
95.39999999999995 744 "t_"
101.99999999999994 744 "o NEW;"
35.99999999999997 756 "EX:_"
55.799999999999976 756 "e_"
62.39999999999997 756 "n_"
68.99999999999997 756 "d CALCULATE;"
55.799999999999976 768 "STATISTICS INIT;"
55.799999999999976 780 "linerest := 69;"
55.799999999999976 792 "MODUL := 10000000000;"
55.800000000000004 36 "select(17);"
55.800000000000004 48 "LINE;"
55.800000000000004 60 "writetext( |"
128.39999999999995 60 "<<2011−Aug−03 18.09"
260.39999999999986 60 "/"
273.5999999999999 60 "TN|"
286.79999999999995 60 ">"
300 60 ");"
55.800000000000004 72 "SELECT LANGUAGE;"
55.800000000000004 84 "LINE;"
55.800000000000004 96 "WRITE TEXT("
55.800000000000004 108 "|"
55.800000000000004 108 "<<PROGRAM DEMON−5. Beregning af"
266.9999999999999 108 "store"
306.6 108 "tal."
339.60000000000014 108 "Programmet"
412.2000000000004 108 "simulerer"
478.2000000000006 108 "en"
498.0000000000007 108 "maskine"
550.8000000000009 108 "med"
36 120 "3"
49.2 120 "registre, A, B og C, som har D decimaler"
319.80000000000007 120 "og"
339.60000000000014 120 "E"
352.8000000000002 120 "cifre"
392.4000000000003 120 "før"
418.8000000000004 120 "kommaet."
36 132 "Der"
62.400000000000006 132 "anvendes følgende ordresystem:|"
260.39999999999986 132 ">,"
55.800000000000004 144 "|"
55.800000000000004 144 "<<PROGRAM DEMON−5. Calculation"
260.39999999999986 144 "of"
280.19999999999993 144 "large"
319.80000000000007 144 "number."
372.60000000000025 144 "The"
399.00000000000034 144 "program"
451.8000000000005 144 "simulates"
517.8000000000008 144 "a"
531.0000000000008 144 "computer"
36 156 "with 3 registers, A, B, and C, with"
273.5999999999999 156 "D"
286.79999999999995 156 "decimals"
346.20000000000016 156 "and"
372.60000000000025 156 "E"
385.8000000000003 156 "integer"
438.6000000000005 156 "digits."
36 168 "The"
62.400000000000006 168 "following command system is used:|"
280.19999999999993 168 ">,"
55.800000000000004 180 "|"
55.800000000000004 180 "<<PROGRAMME DEMON−5. Calcul des"
266.9999999999999 180 "nombres"
319.80000000000007 180 "eleves."
372.60000000000025 180 "Le"
392.4000000000003 180 "programme"
458.40000000000055 180 "simule"
504.6000000000007 180 "une"
531.0000000000008 180 "machine"
583.800000000001 180 "a"
36 192 "3"
49.2 192 "registres, A, B, et C, avec D decimales"
313.20000000000005 192 "et"
333.0000000000001 192 "E"
346.20000000000016 192 "chiffres"
405.60000000000036 192 "entiers."
36 204 "On"
55.800000000000004 204 "utilise les commandes suivantes:|"
266.9999999999999 204 ">,"
55.800000000000004 216 "|"
55.800000000000004 216 "<<PROGRAMM DEMON−5. Berechnung"
260.39999999999986 216 "von"
286.79999999999995 216 "grossen"
339.60000000000014 216 "Zahlen."
392.4000000000003 216 "Das"
418.8000000000004 216 "Programm"
478.2000000000006 216 "simuliert"
544.2000000000008 216 "eine"
36 228 "Maschine mit 3 Registern, A, B, und"
273.5999999999999 228 "C,"
293.4 228 "mit"
319.80000000000007 228 "D"
333.0000000000001 228 "dezimalstellen"
432.00000000000045 228 "und"
458.40000000000055 228 "E"
471.6000000000006 228 "Ganzzahlstellen."
36 240 "Man"
62.400000000000006 240 "verwendet die folgende Befehle:|"
266.9999999999999 240 ">);"
55.800000000000004 252 "linerest := linerest − 2;"
55.800000000000004 264 "LINE;"
55.800000000000004 276 "LINE;"
55.800000000000004 288 "writetext(|"
121.79999999999995 288 "<<"
49.2 300 "No:"
55.800000000000004 312 "1: A := typein; 13: C := A"
227.4 312 "×"
234 312 "B;"
55.800000000000004 324 "2: write(A); 14: A := PI;"
55.800000000000004 336 "3: B := A; 15: A := exp(B);"
55.800000000000004 348 "4: C := A; 16: A := sqrt(typein);"
55.800000000000004 360 "5: A := B; 17: A := exp(PI"
227.4 360 "×"
234 360 "sqrt(r));"
55.800000000000004 372 "6: C := B; 18: A := table of factorial"
313.20000000000005 372 "function;"
55.800000000000004 384 "7: A := C; 19: A := table of a|"
253.8 384 "∧"
260.40000000000003 384 "N;"
55.80000000000003 396 "8: B := C; 20: A := table of N|"
253.80000000000004 396 "∧"
260.40000000000003 396 "b;"
55.80000000000003 408 "9: A := A + B; 21: A := table of"
273.5999999999999 408 "alcohol"
326.4000000000001 408 "isomers;"
49.20000000000003 420 "10: A := A − B; 22: STOP;"
49.20000000000003 432 "11: A := A"
115.20000000000003 432 "×"
121.80000000000003 432 "typein; 23: print statistics"
49.20000000000003 444 "12: A := A/typein; 24: C := A<"
247.20000000000002 444 "×"
253.8 444 "2>B;"
207.59999999999988 456 "25: (C,A)"
273.5999999999999 456 ":="
293.4 456 "(A_"
306.6 456 ":B,A"
339.60000000000014 456 "_"
339.60000000000014 456 "m_"
346.20000000000016 456 "o_"
352.8000000000002 456 "d"
366.0000000000002 456 "B)"
207.59999999999988 468 "26: A :="
266.9999999999999 468 "sqrt2(typein);"
207.59999999999988 480 "27: A :="
266.9999999999999 480 "sqrt3(typein);"
207.59999999999988 492 "28: A :="
266.9999999999999 492 "TO"
286.79999999999995 492 "REAL(A);"
207.59999999999988 504 "29: A :="
266.9999999999999 504 "sqrt(B);"
207.59999999999988 516 "30: (A,B,C)"
286.79999999999995 516 ":="
306.6 516 "AGM(A,B);"
207.59999999999988 528 "31: A :="
266.9999999999999 528 "PI"
286.79999999999995 528 "2;"
207.59999999999988 540 "32: A :="
266.9999999999999 540 "sqrt5(B);"
333.0000000000001 540 "starting"
392.4000000000003 540 "at"
412.2000000000004 540 "A"
207.59999999999988 552 "33: (C,A)"
273.5999999999999 552 ":="
293.4 552 "(A_"
306.6 552 ":B,A"
339.60000000000014 552 "_"
339.60000000000014 552 "m_"
346.20000000000016 552 "o_"
352.8000000000002 552 "d"
366.0000000000002 552 "B)"
385.8000000000003 552 "with"
418.8000000000004 552 "typein"
465.00000000000057 552 "decimals"
207.59999999999988 564 "34: A :="
266.9999999999999 564 "sqrt6(B);"
333.0000000000001 564 "starting"
392.4000000000003 564 "at"
412.2000000000004 564 "A"
36 576 "|"
36 576 ">);"
55.800000000000004 588 "linerest := linerest − 14;"
55.800000000000004 600 "LINE;"
55.800000000000004 612 "WRITE TEXT("
55.800000000000004 624 "|"
55.800000000000004 624 "<<Vi lader først maskinen demonstrere"
306.6 624 "nogle"
346.20000000000016 624 "eksempler:|"
412.2000000000004 624 ">,"
55.800000000000004 636 "|"
55.800000000000004 636 "<<We first let the computer show"
273.5999999999999 636 "some"
306.6 636 "examples:|"
366.0000000000002 636 ">,"
55.800000000000004 648 "|"
55.800000000000004 648 "<<La machine nous donne d abord"
266.9999999999999 648 "quelques"
326.4000000000001 648 "examples:|"
385.8000000000003 648 ">,"
55.800000000000004 660 "|"
55.800000000000004 660 "<<Zuerst zeigt die Maschine einige"
286.79999999999995 660 "Beispiele:|"
352.8000000000002 660 ">);"
55.800000000000004 672 "show := _"
108.59999999999997 672 "t_"
115.19999999999996 672 "r_"
121.79999999999995 672 "u_"
128.39999999999995 672 "e;"
55.800000000000004 684 "showAll := _"
128.39999999999995 684 "t_"
134.99999999999994 684 "r_"
141.59999999999994 684 "u_"
148.19999999999993 684 "e;"
55.800000000000004 696 "_"
55.800000000000004 696 "c_"
62.4 696 "o_"
69 696 "m_"
75.6 696 "m_"
82.19999999999999 696 "e_"
88.79999999999998 696 "n_"
95.39999999999998 696 "t MK: where moved;"
55.800000000000004 708 "where(|"
95.39999999999998 708 "<<free|"
134.99999999999994 708 ">, FREE);"
55.800000000000004 720 "_"
55.800000000000004 720 "i_"
62.4 720 "f _"
75.6 720 "t_"
82.19999999999999 720 "r_"
88.79999999999998 720 "u_"
95.39999999999998 720 "e _"
108.59999999999997 720 "t_"
115.19999999999996 720 "h_"
121.79999999999995 720 "e_"
128.39999999999995 720 "n"
55.800000000000004 732 "_"
55.800000000000004 732 "b_"
62.4 732 "e_"
69 732 "g_"
75.6 732 "i_"
82.19999999999999 732 "n"
55.800000000000004 744 "select(16);"
55.800000000000004 756 "_"
55.800000000000004 756 "f_"
62.4 756 "o_"
69 756 "r D := read integer _"
200.9999999999999 756 "w_"
207.59999999999988 756 "h_"
214.19999999999987 756 "i_"
220.79999999999987 756 "l_"
227.39999999999986 756 "e D _"
253.79999999999987 756 ">"
266.9999999999999 756 "0"
280.19999999999993 756 "_"
280.19999999999993 756 "d_"
286.79999999999995 756 "o"
55.800000000000004 768 "_"
55.800000000000004 768 "b_"
62.4 768 "e_"
69 768 "g_"
75.6 768 "i_"
82.19999999999999 768 "n"
75.6 780 "LINE;"
75.6 792 "writetext(|"
141.59999999999994 792 "<<D:|"
167.99999999999991 792 ">);"
75.6 36 "writeinteger(|"
161.39999999999992 36 "<−ddddddd|"
220.79999999999987 36 ">, D);"
75.6 48 "decimals := D;"
75.6 60 "_"
75.6 60 "i_"
82.19999999999999 60 "f decimals > 0 _"
181.1999999999999 60 "t_"
187.7999999999999 60 "h_"
194.3999999999999 60 "e_"
200.9999999999999 60 "n"
75.6 72 "decimals := −((decimals−1)_"
247.19999999999985 72 ":10+1);"
75.6 84 "E := read integer;"
75.6 96 "LINE;"
75.6 108 "writetext(|"
141.59999999999994 108 "<<E:|"
167.99999999999991 108 ">);"
75.6 120 "writeinteger(|"
161.39999999999992 120 "<−ddddddd|"
220.79999999999987 120 ">, E);"
75.6 132 "limit := (E−1)_"
167.99999999999991 132 ":10;"
75.6 144 "step := (limit − decimals)_"
247.19999999999985 144 ":40"
273.5999999999999 144 "+"
286.79999999999995 144 "1;"
75.6 156 "large := step > 1;"
75.6 168 "c39 := _"
121.79999999999995 168 "i_"
128.39999999999995 168 "f large _"
181.1999999999999 168 "t_"
187.7999999999999 168 "h_"
194.3999999999999 168 "e_"
200.9999999999999 168 "n 39 _"
233.99999999999986 168 "e_"
240.59999999999985 168 "l_"
247.19999999999985 168 "s_"
253.79999999999987 168 "e"
266.9999999999999 168 "limit"
306.6 168 "−"
319.80000000000007 168 "decimals;"
75.6 180 "CALCULATE;"
36 192 "E1:_"
55.800000000000004 192 "e_"
62.4 192 "n_"
69 192 "d for decimals;"
55.800000000000004 204 "LINE"
55.800000000000004 216 "_"
55.800000000000004 216 "e_"
62.4 216 "n_"
69 216 "d;"
55.800000000000004 228 "LINE;"
55.800000000000004 240 "show := _"
108.59999999999997 240 "f_"
115.19999999999996 240 "a_"
121.79999999999995 240 "l_"
128.39999999999995 240 "s_"
134.99999999999994 240 "e;"
55.800000000000004 252 "select(17);"
55.800000000000004 264 "WRITE TEXT("
55.800000000000004 276 "|"
55.800000000000004 276 "<<Nu kan De forsøge:|"
187.7999999999999 276 ">,"
55.800000000000004 288 "|"
55.800000000000004 288 "<<Now you may try:|"
174.5999999999999 288 ">,"
55.800000000000004 300 "|"
55.800000000000004 300 "<<Maintenant vous pouvez essaier:|"
273.5999999999999 300 ">,"
55.800000000000004 312 "|"
55.800000000000004 312 "<<Jetzt koennen Sie versuchen:|"
253.79999999999987 312 ">);"
55.800000000000004 324 "_"
55.800000000000004 324 "f_"
62.4 324 "o_"
69 324 "r D := ASK NUMBER("
55.800000000000004 336 "|"
55.800000000000004 336 "<<Opgiv antal decimaler, D. −1"
260.39999999999986 336 "er"
280.19999999999993 336 "stop|"
306.6 336 ">,"
55.800000000000004 348 "|"
55.800000000000004 348 "<<Specify number of decimals, D."
273.5999999999999 348 "−1"
293.4 348 "is"
313.20000000000005 348 "stop|"
339.60000000000014 348 ">,"
55.800000000000004 360 "|"
55.800000000000004 360 "<<Specifiez le nombre de decimales,"
293.4 360 "D."
313.20000000000005 360 "−1"
333.0000000000001 360 "est"
359.4000000000002 360 "termination|"
432.00000000000045 360 ">,"
55.800000000000004 372 "|"
55.800000000000004 372 "<<Bitte, die Anzahl von Dezimalstellen,"
319.80000000000007 372 "D,"
339.60000000000014 372 "angeben."
399.00000000000034 372 "−1"
418.8000000000004 372 "is"
438.6000000000005 372 "Schluss|"
484.80000000000064 372 ">)"
55.800000000000004 384 "_"
55.800000000000004 384 "w_"
62.4 384 "h_"
69 384 "i_"
75.6 384 "l_"
82.19999999999999 384 "e D _"
108.59999999999997 384 "> 0 _"
134.99999999999994 384 "d_"
141.59999999999994 384 "o"
55.800000000000004 396 "_"
55.800000000000004 396 "b_"
62.4 396 "e_"
69 396 "g_"
75.6 396 "i_"
82.19999999999999 396 "n"
75.6 408 "_"
75.6 408 "i_"
82.19999999999999 408 "f showAll _"
148.19999999999993 408 "t_"
154.79999999999993 408 "h_"
161.39999999999992 408 "e_"
167.99999999999991 408 "n"
75.6 420 "_"
75.6 420 "b_"
82.19999999999999 420 "e_"
88.79999999999998 420 "g_"
95.39999999999998 420 "i_"
101.99999999999997 420 "n"
95.39999999999998 432 "writeinteger( |"
187.7999999999999 432 "<−d|"
207.59999999999988 432 ">, D )"
75.6 444 "_"
75.6 444 "e_"
82.19999999999999 444 "n_"
88.79999999999998 444 "d;"
75.6 456 "decimals := D;"
75.6 468 "_"
75.6 468 "i_"
82.19999999999999 468 "f decimals > 0 _"
181.1999999999999 468 "t_"
187.7999999999999 468 "h_"
194.3999999999999 468 "e_"
200.9999999999999 468 "n"
75.6 480 "decimals := −((decimals−1)_"
247.19999999999985 480 ":10"
273.5999999999999 480 "+"
286.79999999999995 480 "1);"
75.6 492 "E := ASK NUMBER("
75.6 504 "|"
75.6 504 "<<Og antallet af heltalscifre,"
280.19999999999993 504 "E|"
286.79999999999995 504 ">,"
75.6 516 "|"
75.6 516 "<<And the number of integer"
260.39999999999986 516 "digits,"
313.20000000000005 516 "E|"
319.80000000000007 516 ">,"
75.6 528 "|"
75.6 528 "<<Et le nombre de chiffres entiers,"
313.20000000000005 528 "E|"
319.80000000000007 528 ">,"
75.6 540 "|"
75.6 540 "<<Und die Anzahl der Ganzzahlstellen,"
326.4000000000001 540 "E|"
333.0000000000001 540 ">);"
75.6 552 "_"
75.6 552 "i_"
82.19999999999999 552 "f showAll _"
148.19999999999993 552 "t_"
154.79999999999993 552 "h_"
161.39999999999992 552 "e_"
167.99999999999991 552 "n"
75.6 564 "_"
75.6 564 "b_"
82.19999999999999 564 "e_"
88.79999999999998 564 "g_"
95.39999999999998 564 "i_"
101.99999999999997 564 "n"
95.39999999999998 576 "writeinteger( |"
187.7999999999999 576 "<−d|"
207.59999999999988 576 ">, E )"
75.6 588 "_"
75.6 588 "e_"
82.19999999999999 588 "n_"
88.79999999999998 588 "d;"
75.6 600 "limit := (E−1)_"
167.99999999999991 600 ":10;"
75.6 612 "step := (limit − decimals)_"
247.19999999999985 612 ":40"
273.5999999999999 612 "+"
286.79999999999995 612 "1;"
75.6 624 "large := step > 1;"
75.6 636 "c39 := _"
121.79999999999995 636 "i_"
128.39999999999995 636 "f large _"
181.1999999999999 636 "t_"
187.7999999999999 636 "h_"
194.3999999999999 636 "e_"
200.9999999999999 636 "n 39 _"
233.99999999999986 636 "e_"
240.59999999999985 636 "l_"
247.19999999999985 636 "s_"
253.79999999999987 636 "e"
266.9999999999999 636 "limit"
306.6 636 "−"
319.80000000000007 636 "decimals;"
75.6 648 "CALCULATE;"
36 660 "E2:_"
55.800000000000004 660 "e_"
62.4 660 "n_"
69 660 "d for decimals"
36 672 "_"
36 672 "e_"
42.6 672 "n_"
49.2 672 "d"
36 684 "t<"
36 696 "Ff"
36 708 "380, 20"
36 720 "16,"
62.400000000000006 720 "2, 2"
36 732 "26,"
62.400000000000006 732 "2, 2"
36 744 "27,"
62.400000000000006 744 "2, 2"
36 756 "1,"
55.800000000000004 756 "2"
36 768 "29,"
62.400000000000006 768 "2, 2"
36 780 "22,"
62.400000000000006 780 "−1,"