36 36 "algol,_"
75.6 36 "n<"
36 48 "_"
36 48 "b_"
42.6 48 "e_"
49.2 48 "g_"
55.800000000000004 48 "i_"
62.4 48 "n"
55.800000000000004 60 "_"
55.800000000000004 60 "c_"
62.4 60 "o_"
69 60 "m_"
75.6 60 "m_"
82.19999999999999 60 "e_"
88.79999999999998 60 "n_"
95.39999999999998 60 "t"
88.79999999999998 84 "GC7J6KQ"
55.800000000000004 108 "Time buffer:"
167.99999999999991 108 "2427.59s = 40m"
266.9999999999999 108 "27.59s"
55.800000000000004 120 "Time nonbuffer:"
167.99999999999991 120 "2403.38s = 40m"
266.9999999999999 120 "03.38s"
55.800000000000004 144 "No buffer:"
55.800000000000004 168 "Time classic:"
194.3999999999999 168 "2402.93"
55.800000000000004 180 "Time turbo:"
194.3999999999999 180 "2295.14 4.5pct"
55.800000000000004 204 "Buffer:"
55.800000000000004 228 "Time classic:"
194.3999999999999 228 "2427.87"
55.800000000000004 240 "Time turbo:"
194.3999999999999 240 "2274.49 6.3pct"
55.800000000000004 264 ";"
55.800000000000004 276 "_"
55.800000000000004 276 "c_"
62.4 276 "o_"
69 276 "m_"
75.6 276 "m_"
82.19999999999999 276 "e_"
88.79999999999998 276 "n_"
95.39999999999998 276 "t PERM code taken from APL/360"
300 276 "ADVANCEDEX"
372.60000000000025 276 "PERM"
405.60000000000036 276 "function;"
55.800000000000004 288 "_"
55.800000000000004 288 "p_"
62.4 288 "r_"
69 288 "o_"
75.6 288 "c_"
82.19999999999999 288 "e_"
88.79999999999998 288 "d_"
95.39999999999998 288 "u_"
101.99999999999997 288 "r_"
108.59999999999997 288 "e PERM(Z,a,b);"
55.800000000000004 300 "_"
55.800000000000004 300 "v_"
62.4 300 "a_"
69 300 "l_"
75.6 300 "u_"
82.19999999999999 300 "e a,b;"
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 a,b;"
55.800000000000004 324 "_"
55.800000000000004 324 "i_"
62.4 324 "n_"
69 324 "t_"
75.6 324 "e_"
82.19999999999999 324 "g_"
88.79999999999998 324 "e_"
95.39999999999998 324 "r _"
108.59999999999997 324 "a_"
115.19999999999996 324 "r_"
121.79999999999995 324 "r_"
128.39999999999995 324 "a_"
134.99999999999994 324 "y Z;"
55.800000000000004 336 "_"
55.800000000000004 336 "b_"
62.4 336 "e_"
69 336 "g_"
75.6 336 "i_"
82.19999999999999 336 "n"
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 i,j,rem;"
75.6 360 "rem:=b−1;"
75.6 372 "_"
75.6 372 "f_"
82.19999999999999 372 "o_"
88.79999999999998 372 "r i:=1 _"
134.99999999999994 372 "s_"
141.59999999999994 372 "t_"
148.19999999999993 372 "e_"
154.79999999999993 372 "p 1 _"
181.1999999999999 372 "u_"
187.7999999999999 372 "n_"
194.3999999999999 372 "t_"
200.9999999999999 372 "i_"
207.59999999999988 372 "l a _"
233.99999999999986 372 "d_"
240.59999999999985 372 "o"
75.6 384 "_"
75.6 384 "b_"
82.19999999999999 384 "e_"
88.79999999999998 384 "g_"
95.39999999999998 384 "i_"
101.99999999999997 384 "n"
95.39999999999998 396 "Z[a−i+1]:=1+rem _"
200.9999999999999 396 "m_"
207.59999999999988 396 "o_"
214.19999999999987 396 "d i;"
95.39999999999998 408 "rem:=rem_"
148.19999999999993 408 ":i"
75.6 420 "_"
75.6 420 "e_"
82.19999999999999 420 "n_"
88.79999999999998 420 "d;"
75.6 432 "_"
75.6 432 "f_"
82.19999999999999 432 "o_"
88.79999999999998 432 "r i:=a−1 _"
148.19999999999993 432 "s_"
154.79999999999993 432 "t_"
161.39999999999992 432 "e_"
167.99999999999991 432 "p −1 _"
200.9999999999999 432 "u_"
207.59999999999988 432 "n_"
214.19999999999987 432 "t_"
220.79999999999987 432 "i_"
227.39999999999986 432 "l 1 _"
253.79999999999987 432 "d_"
260.39999999999986 432 "o"
75.6 444 "_"
75.6 444 "f_"
82.19999999999999 444 "o_"
88.79999999999998 444 "r j:=i+1 _"
148.19999999999993 444 "s_"
154.79999999999993 444 "t_"
161.39999999999992 444 "e_"
167.99999999999991 444 "p 1 _"
194.3999999999999 444 "u_"
200.9999999999999 444 "n_"
207.59999999999988 444 "t_"
214.19999999999987 444 "i_"
220.79999999999987 444 "l a _"
247.19999999999985 444 "d_"
253.79999999999987 444 "o"
75.6 456 "_"
75.6 456 "i_"
82.19999999999999 456 "f Z[i]_"
121.79999999999995 456 "<Z[j] _"
161.39999999999992 456 "t_"
167.99999999999991 456 "h_"
174.5999999999999 456 "e_"
181.1999999999999 456 "n Z[j]:=Z[j]+1"
55.800000000000004 468 "_"
55.800000000000004 468 "e_"
62.4 468 "n_"
69 468 "d PERM;"
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 _"
108.59999999999997 480 "p_"
115.19999999999996 480 "r_"
121.79999999999995 480 "o_"
128.39999999999995 480 "c_"
134.99999999999994 480 "e_"
141.59999999999994 480 "d_"
148.19999999999993 480 "u_"
154.79999999999993 480 "r_"
161.39999999999992 480 "e ord(s);"
55.800000000000004 492 "_"
55.800000000000004 492 "s_"
62.4 492 "t_"
69 492 "r_"
75.6 492 "i_"
82.19999999999999 492 "n_"
88.79999999999998 492 "g s;"
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 c1,c2,c3;"
75.6 528 "_"
75.6 528 "b_"
82.19999999999999 528 "o_"
88.79999999999998 528 "o_"
95.39999999999998 528 "l_"
101.99999999999997 528 "e_"
108.59999999999997 528 "a_"
115.19999999999996 528 "n b;"
75.6 540 "b:=_"
95.39999999999998 540 "b_"
101.99999999999997 540 "o_"
108.59999999999997 540 "o_"
115.19999999999996 540 "l_"
121.79999999999995 540 "e_"
128.39999999999995 540 "a_"
134.99999999999994 540 "n s;"
75.6 552 "c1 := _"
115.19999999999996 552 "i_"
121.79999999999995 552 "n_"
128.39999999999995 552 "t_"
134.99999999999994 552 "e_"
141.59999999999994 552 "g_"
148.19999999999993 552 "e_"
154.79999999999993 552 "r (b"
181.2 552 "∧"
187.79999999999998 552 "_"
187.79999999999998 552 "4_"
194.39999999999998 552 "0 63);"
75.59999999999997 564 "c2 := _"
115.19999999999993 564 "i_"
121.79999999999993 564 "n_"
128.39999999999992 564 "t_"
134.99999999999991 564 "e_"
141.5999999999999 564 "g_"
148.1999999999999 564 "e_"
154.7999999999999 564 "r ((b _"
194.39999999999986 564 "s_"
200.99999999999986 564 "h_"
207.59999999999985 564 "i_"
214.19999999999985 564 "f_"
220.79999999999984 564 "t −6)"
253.79999999999998 564 "∧"
260.4 564 "_"
260.4 564 "4_"
267 564 "0"
280.20000000000005 564 "63);"
75.59999999999997 576 "c3 := _"
115.19999999999993 576 "i_"
121.79999999999993 576 "n_"
128.39999999999992 576 "t_"
134.99999999999991 576 "e_"
141.5999999999999 576 "g_"
148.1999999999999 576 "e_"
154.7999999999999 576 "r ((b _"
194.39999999999986 576 "s_"
200.99999999999986 576 "h_"
207.59999999999985 576 "i_"
214.19999999999985 576 "f_"
220.79999999999984 576 "t −12)"
260.4 576 "∧"
267 576 "_"
267 576 "4_"
273.6 576 "0"
286.80000000000007 576 "63);"
75.6 588 "ord := _"
121.79999999999995 588 "i_"
128.39999999999995 588 "f c1=60 _"
181.1999999999999 588 "t_"
187.7999999999999 588 "h_"
194.3999999999999 588 "e_"
200.9999999999999 588 "n c2+128"
260.39999999999986 588 "_"
260.39999999999986 588 "e_"
266.9999999999999 588 "l_"
273.5999999999999 588 "s_"
280.19999999999993 588 "e"
293.4 588 "c1"
55.800000000000004 600 "_"
55.800000000000004 600 "e_"
62.4 600 "n_"
69 600 "d;"
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 xor(a,b);"
55.800000000000004 624 "_"
55.800000000000004 624 "v_"
62.4 624 "a_"
69 624 "l_"
75.6 624 "u_"
82.19999999999999 624 "e a,b;"
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 a,b;"
55.800000000000004 648 "xor:=_"
88.79999999999998 648 "i_"
95.39999999999998 648 "n_"
101.99999999999997 648 "t_"
108.59999999999997 648 "e_"
115.19999999999996 648 "g_"
121.79999999999995 648 "e_"
128.39999999999995 648 "r (−,((_"
174.5999999999999 648 "b_"
181.1999999999999 648 "o_"
187.7999999999999 648 "o_"
194.3999999999999 648 "l_"
200.9999999999999 648 "e_"
207.59999999999988 648 "a_"
214.19999999999987 648 "n a) _"
247.19999999999985 648 "="
260.39999999999986 648 "(_"
266.9999999999999 648 "b_"
273.5999999999999 648 "o_"
280.19999999999993 648 "o_"
286.79999999999995 648 "l_"
293.4 648 "e_"
300 648 "a_"
306.6 648 "n"
319.80000000000007 648 "b)));"
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 _"
108.59999999999997 660 "p_"
115.19999999999996 660 "r_"
121.79999999999995 660 "o_"
128.39999999999995 660 "c_"
134.99999999999994 660 "e_"
141.59999999999994 660 "d_"
148.19999999999993 660 "u_"
154.79999999999993 660 "r_"
161.39999999999992 660 "e fetch char(A,offset);"
55.800000000000004 672 "_"
55.800000000000004 672 "v_"
62.4 672 "a_"
69 672 "l_"
75.6 672 "u_"
82.19999999999999 672 "e offset;"
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 _"
108.59999999999997 684 "a_"
115.19999999999996 684 "r_"
121.79999999999995 684 "r_"
128.39999999999995 684 "a_"
134.99999999999994 684 "y A;"
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 offset;"
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 "_"
75.6 720 "i_"
82.19999999999999 720 "n_"
88.79999999999998 720 "t_"
95.39999999999998 720 "e_"
101.99999999999997 720 "g_"
108.59999999999997 720 "e_"
115.19999999999996 720 "r i,j;"
75.6 732 "i:=_"
95.39999999999998 732 "i_"
101.99999999999997 732 "n_"
108.59999999999997 732 "t_"
115.19999999999996 732 "e_"
121.79999999999995 732 "g_"
128.39999999999995 732 "e_"
134.99999999999994 732 "r (((_"
167.99999999999991 732 "b_"
174.5999999999999 732 "o_"
181.1999999999999 732 "o_"
187.7999999999999 732 "l_"
194.3999999999999 732 "e_"
200.9999999999999 732 "a_"
207.59999999999988 732 "n offset)_"
266.9999999999999 732 "s_"
273.5999999999999 732 "h_"
280.19999999999993 732 "i_"
286.79999999999995 732 "f_"
293.4 732 "t"
306.6 732 "−3)"
326.4 732 "∧"
333 732 "_"
333 732 "3"
346.20000000000005 732 "0"
359.4000000000001 732 "_"
359.4000000000001 732 "3_"
366.0000000000001 732 "7"
379.20000000000016 732 "m);"
75.6 744 "j:=(_"
101.99999999999997 744 "i_"
108.59999999999997 744 "n_"
115.19999999999996 744 "t_"
121.79999999999995 744 "e_"
128.39999999999995 744 "g_"
134.99999999999994 744 "e_"
141.59999999999994 744 "r((_"
161.39999999999992 744 "b_"
167.99999999999991 744 "o_"
174.5999999999999 744 "o_"
181.1999999999999 744 "l_"
187.7999999999999 744 "e_"
194.3999999999999 744 "a_"
200.9999999999999 744 "n offset)"
260.4 744 "∧"
267 744 "_"
267 744 "3_"
273.6 744 "7"
286.80000000000007 744 "0"
300.0000000000001 744 "_"
300.0000000000001 744 "3"
313.20000000000016 744 "m))"
333 744 "×"
339.6 744 "5;"
75.6 756 "fetch char := _"
167.99999999999991 756 "i_"
174.5999999999999 756 "n_"
181.1999999999999 756 "t_"
187.7999999999999 756 "e_"
194.3999999999999 756 "g_"
200.9999999999999 756 "e_"
207.59999999999988 756 "r (((_"
240.59999999999985 756 "b_"
247.19999999999985 756 "o_"
253.79999999999987 756 "o_"
260.39999999999986 756 "l_"
266.9999999999999 756 "e_"
273.5999999999999 756 "a_"
280.19999999999993 756 "n"
293.4 756 "A[i])_"
326.4000000000001 756 "s_"
333.0000000000001 756 "h_"
339.60000000000014 756 "i_"
346.20000000000016 756 "f_"
352.8000000000002 756 "t"
366.0000000000002 756 "−j)"
115.2 768 ""
115.2 768 "∧"
128.4 768 "_"
128.4 768 "3_"
135 768 "5 0 _"
161.39999999999998 768 "5 m)"
55.800000000000004 780 "_"
55.800000000000004 780 "e_"
62.4 780 "n_"
69 780 "d fetch char;"
55.800000000000004 792 "_"
55.800000000000004 792 "p_"
62.4 792 "r_"
69 792 "o_"
75.6 792 "c_"
82.19999999999999 792 "e_"
88.79999999999998 792 "d_"
95.39999999999998 792 "u_"
101.99999999999997 792 "r_"
108.59999999999997 792 "e WRITE CHAR(c);"
55.800000000000004 36 "_"
55.800000000000004 36 "v_"
62.4 36 "a_"
69 36 "l_"
75.6 36 "u_"
82.19999999999999 36 "e c;"
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 c;"
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 "f −,((c>127) _"
167.99999999999991 72 "= (case>127))"
260.39999999999986 72 "_"
260.39999999999986 72 "t_"
266.9999999999999 72 "h_"
273.5999999999999 72 "e_"
280.19999999999993 72 "n"
75.6 84 "_"
75.6 84 "b_"
82.19999999999999 84 "e_"
88.79999999999998 84 "g_"
95.39999999999998 84 "i_"
101.99999999999997 84 "n"
95.39999999999998 96 "case:=128−case;"
95.39999999999998 108 "writechar(58+case_"
207.59999999999988 108 ":64)"
75.6 120 "_"
75.6 120 "e_"
82.19999999999999 120 "n_"
88.79999999999998 120 "d change case;"
75.6 132 "writechar(c _"
154.79999999999993 132 "m_"
161.39999999999992 132 "o_"
167.99999999999991 132 "d 128)"
55.800000000000004 144 "_"
55.800000000000004 144 "e_"
62.4 144 "n_"
69 144 "d WRITECHAR;"
55.800000000000004 156 "_"
55.800000000000004 156 "i_"
62.4 156 "n_"
69 156 "t_"
75.6 156 "e_"
82.19999999999999 156 "g_"
88.79999999999998 156 "e_"
95.39999999999998 156 "r _"
108.59999999999997 156 "a_"
115.19999999999996 156 "r_"
121.79999999999995 156 "r_"
128.39999999999995 156 "a_"
134.99999999999994 156 "y cipher[0:285];"
55.800000000000004 168 "_"
55.800000000000004 168 "i_"
62.4 168 "n_"
69 168 "t_"
75.6 168 "e_"
82.19999999999999 168 "g_"
88.79999999999998 168 "e_"
95.39999999999998 168 "r _"
108.59999999999997 168 "a_"
115.19999999999996 168 "r_"
121.79999999999995 168 "r_"
128.39999999999995 168 "a_"
134.99999999999994 168 "y lookfor[0:2];"
55.800000000000004 180 "_"
55.800000000000004 180 "i_"
62.4 180 "n_"
69 180 "t_"
75.6 180 "e_"
82.19999999999999 180 "g_"
88.79999999999998 180 "e_"
95.39999999999998 180 "r cipherlen,lookforlen;"
55.800000000000004 192 "_"
55.800000000000004 192 "i_"
62.4 192 "n_"
69 192 "t_"
75.6 192 "e_"
82.19999999999999 192 "g_"
88.79999999999998 192 "e_"
95.39999999999998 192 "r _"
108.59999999999997 192 "a_"
115.19999999999996 192 "r_"
121.79999999999995 192 "r_"
128.39999999999995 192 "a_"
134.99999999999994 192 "y baudot[0:31];"
55.800000000000004 204 "_"
55.800000000000004 204 "i_"
62.4 204 "n_"
69 204 "t_"
75.6 204 "e_"
82.19999999999999 204 "g_"
88.79999999999998 204 "e_"
95.39999999999998 204 "r case,iperm;"
55.800000000000004 216 "_"
55.800000000000004 216 "r_"
62.4 216 "e_"
69 216 "a_"
75.6 216 "l _"
88.79999999999998 216 "p_"
95.39999999999998 216 "r_"
101.99999999999997 216 "o_"
108.59999999999997 216 "c_"
115.19999999999996 216 "e_"
121.79999999999995 216 "d_"
128.39999999999995 216 "u_"
134.99999999999994 216 "r_"
141.59999999999994 216 "e clock count;"
55.800000000000004 228 "_"
55.800000000000004 228 "c_"
62.4 228 "o_"
69 228 "d_"
75.6 228 "e clock count;"
55.800000000000004 240 "1, 37;"
69 252 "zl"
134.99999999999994 252 ", grf p−1"
214.19999999999987 252 "; RF:=clock"
293.4 252 "count;"
339.60000000000014 252 "stack[p−1]:=RF;"
55.800000000000004 264 "_"
55.800000000000004 264 "e;"
55.800000000000004 276 "select(32);"
55.800000000000004 288 "clock count;"
55.800000000000004 300 "baudot[0]:=ord(|"
154.79999999999993 300 "<</|"
174.5999999999999 300 ">);"
55.800000000000004 312 "baudot[0]:=ord(|"
154.79999999999993 312 "<<2|"
174.5999999999999 312 ">);"
55.800000000000004 324 "baudot[1]:=ord(|"
154.79999999999993 324 "<<T|"
174.5999999999999 324 ">);"
55.800000000000004 336 "baudot[2]:=ord(|"
154.79999999999993 336 "<<3|"
174.5999999999999 336 ">);"
55.800000000000004 348 "baudot[3]:=ord(|"
154.79999999999993 348 "<<O|"
174.5999999999999 348 ">);"
55.800000000000004 360 "baudot[4]:=ord(|"
154.79999999999993 360 "<<9|"
174.5999999999999 360 ">);"
55.800000000000004 372 "baudot[5]:=ord(|"
154.79999999999993 372 "<<H|"
174.5999999999999 372 ">);"
55.800000000000004 384 "baudot[6]:=ord(|"
154.79999999999993 384 "<<N|"
174.5999999999999 384 ">);"
55.800000000000004 396 "baudot[7]:=ord(|"
154.79999999999993 396 "<<M|"
174.5999999999999 396 ">);"
55.800000000000004 408 "baudot[8]:=ord(|"
154.79999999999993 408 "<<4|"
174.5999999999999 408 ">);"
55.800000000000004 420 "baudot[9]:=ord(|"
154.79999999999993 420 "<<L|"
174.5999999999999 420 ">);"
55.800000000000004 432 "baudot[10]:=ord(|"
161.39999999999992 432 "<<R|"
181.1999999999999 432 ">);"
55.800000000000004 444 "baudot[11]:=ord(|"
161.39999999999992 444 "<<G|"
181.1999999999999 444 ">);"
55.800000000000004 456 "baudot[12]:=ord(|"
161.39999999999992 456 "<<I|"
181.1999999999999 456 ">);"
55.800000000000004 468 "baudot[13]:=ord(|"
161.39999999999992 468 "<<P|"
181.1999999999999 468 ">);"
55.800000000000004 480 "baudot[14]:=ord(|"
161.39999999999992 480 "<<C|"
181.1999999999999 480 ">);"
55.800000000000004 492 "baudot[15]:=ord(|"
161.39999999999992 492 "<<V|"
181.1999999999999 492 ">);"
55.800000000000004 504 "baudot[16]:=ord(|"
161.39999999999992 504 "<<E|"
181.1999999999999 504 ">);"
55.800000000000004 516 "baudot[17]:=ord(|"
161.39999999999992 516 "<<Z|"
181.1999999999999 516 ">);"
55.800000000000004 528 "baudot[18]:=ord(|"
161.39999999999992 528 "<<D|"
181.1999999999999 528 ">);"
55.800000000000004 540 "baudot[19]:=ord(|"
161.39999999999992 540 "<<B|"
181.1999999999999 540 ">);"
55.800000000000004 552 "baudot[20]:=ord(|"
161.39999999999992 552 "<<S|"
181.1999999999999 552 ">);"
55.800000000000004 564 "baudot[21]:=ord(|"
161.39999999999992 564 "<<Y|"
181.1999999999999 564 ">);"
55.800000000000004 576 "baudot[22]:=ord(|"
161.39999999999992 576 "<<F|"
181.1999999999999 576 ">);"
55.800000000000004 588 "baudot[23]:=ord(|"
161.39999999999992 588 "<<X|"
181.1999999999999 588 ">);"
55.800000000000004 600 "baudot[24]:=ord(|"
161.39999999999992 600 "<<A|"
181.1999999999999 600 ">);"
55.800000000000004 612 "baudot[25]:=ord(|"
161.39999999999992 612 "<<W|"
181.1999999999999 612 ">);"
55.800000000000004 624 "baudot[26]:=ord(|"
161.39999999999992 624 "<<J|"
181.1999999999999 624 ">);"
55.800000000000004 636 "baudot[27]:=ord(|"
161.39999999999992 636 "<<+|"
181.1999999999999 636 ">);"
55.800000000000004 648 "baudot[27]:=ord(|"
161.39999999999992 648 "<<5|"
181.1999999999999 648 ">);"
55.800000000000004 660 "baudot[28]:=ord(|"
161.39999999999992 660 "<<U|"
181.1999999999999 660 ">);"
55.800000000000004 672 "baudot[29]:=ord(|"
161.39999999999992 672 "<<Q|"
181.1999999999999 672 ">);"
55.800000000000004 684 "baudot[30]:=ord(|"
161.39999999999992 684 "<<K|"
181.1999999999999 684 ">);"
55.800000000000004 696 "baudot[31]:=ord(|"
161.39999999999992 696 "<<8|"
181.1999999999999 696 ">);"
55.800000000000004 708 "_"
55.800000000000004 708 "b_"
62.4 708 "e_"
69 708 "g_"
75.6 708 "i_"
82.19999999999999 708 "n _"
95.39999999999998 708 "c_"
101.99999999999997 708 "o_"
108.59999999999997 708 "m_"
115.19999999999996 708 "m_"
121.79999999999995 708 "e_"
128.39999999999995 708 "n_"
134.99999999999994 708 "t read baudot;"
75.6 720 "_"
75.6 720 "i_"
82.19999999999999 720 "n_"
88.79999999999998 720 "t_"
95.39999999999998 720 "e_"
101.99999999999997 720 "g_"
108.59999999999997 720 "e_"
115.19999999999996 720 "r i;"
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 "a_"
134.99999999999994 732 "r_"
141.59999999999994 732 "r_"
148.19999999999993 732 "a_"
154.79999999999993 732 "y revbaudot[0:255];"
75.6 744 "_"
75.6 744 "i_"
82.19999999999999 744 "n_"
88.79999999999998 744 "t_"
95.39999999999998 744 "e_"
101.99999999999997 744 "g_"
108.59999999999997 744 "e_"
115.19999999999996 744 "r _"
128.39999999999995 744 "p_"
134.99999999999994 744 "r_"
141.59999999999994 744 "o_"
148.19999999999993 744 "c_"
154.79999999999993 744 "e_"
161.39999999999992 744 "d_"
167.99999999999991 744 "u_"
174.5999999999999 744 "r_"
181.1999999999999 744 "e LYN;"
75.6 756 "_"
75.6 756 "b_"
82.19999999999999 756 "e_"
88.79999999999998 756 "g_"
95.39999999999998 756 "i_"
101.99999999999997 756 "n"
95.39999999999998 768 "_"
95.39999999999998 768 "i_"
101.99999999999997 768 "n_"
108.59999999999997 768 "t_"
115.19999999999996 768 "e_"
121.79999999999995 768 "g_"
128.39999999999995 768 "e_"
134.99999999999994 768 "r c;"
55.800000000000004 780 "again:c:=lyn;"
95.39999999999998 792 "_"
95.39999999999998 792 "i_"
101.99999999999997 792 "f c=58"
148.2 792 "∨"
161.39999999999998 792 "c=60 _"
194.39999999999995 792 "t_"
200.99999999999994 792 "h_"
207.59999999999994 792 "e_"
214.19999999999993 792 "n"
95.39999999999998 36 "_"
95.39999999999998 36 "b_"
101.99999999999997 36 "e_"
108.59999999999997 36 "g_"
115.19999999999996 36 "i_"
121.79999999999995 36 "n"
115.19999999999996 48 "case:=(c−58)"
194.4 48 "×"
201 48 "64;"
115.19999999999996 60 "_"
115.19999999999996 60 "g_"
121.79999999999995 60 "o_"
128.39999999999995 60 "t_"
134.99999999999994 60 "o again"
95.39999999999998 72 "_"
95.39999999999998 72 "e_"
101.99999999999997 72 "n_"
108.59999999999997 72 "d;"
95.39999999999998 84 "LYN:=c+case"
75.6 96 "_"
75.6 96 "e_"
82.19999999999999 96 "n_"
88.79999999999998 96 "d LYN;"
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 _"
128.39999999999995 108 "p_"
134.99999999999994 108 "r_"
141.59999999999994 108 "o_"
148.19999999999993 108 "c_"
154.79999999999993 108 "e_"
161.39999999999992 108 "d_"
167.99999999999991 108 "u_"
174.5999999999999 108 "r_"
181.1999999999999 108 "e read baudot(A);"
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 A;"
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 "_"
95.39999999999998 144 "i_"
101.99999999999997 144 "n_"
108.59999999999997 144 "t_"
115.19999999999996 144 "e_"
121.79999999999995 144 "g_"
128.39999999999995 144 "e_"
134.99999999999994 144 "r len,c,i,j;"
95.39999999999998 156 "len:=0;"
36 168 "again:"
95.39999999999998 168 "c:=LYN;"
95.39999999999998 180 "_"
95.39999999999998 180 "i_"
101.99999999999997 180 "f c=64"
148.2 180 "∨"
161.39999999999998 180 "c=192 _"
200.99999999999994 180 "t_"
207.59999999999994 180 "h_"
214.19999999999993 180 "e_"
220.79999999999993 180 "n _"
233.99999999999991 180 "g_"
240.5999999999999 180 "o_"
247.1999999999999 180 "t_"
253.79999999999993 180 "o"
266.99999999999994 180 "out;"
95.39999999999996 192 "i:=len_"
134.99999999999994 192 ":8;"
95.39999999999996 204 "j:=(len _"
148.19999999999993 204 "m_"
154.79999999999993 204 "o_"
161.39999999999992 204 "d 8)"
187.8 204 "×"
194.4 204 "5;"
95.39999999999998 216 "c:=revbaudot[c];"
95.39999999999998 228 "_"
95.39999999999998 228 "i_"
101.99999999999997 228 "f c=−1 _"
148.19999999999993 228 "t_"
154.79999999999993 228 "h_"
161.39999999999992 228 "e_"
167.99999999999991 228 "n"
95.39999999999998 240 "_"
95.39999999999998 240 "b_"
101.99999999999997 240 "e_"
108.59999999999997 240 "g_"
115.19999999999996 240 "i_"
121.79999999999995 240 "n"
115.19999999999996 252 "writecr;"
115.19999999999996 264 "writetext(|"
181.1999999999999 264 "<<BAD|"
214.19999999999987 264 ">);"
115.19999999999996 276 "write(|"
154.79999999999993 276 "<ddddd|"
194.3999999999999 276 ">,len);"
115.19999999999996 288 "_"
115.19999999999996 288 "g_"
121.79999999999995 288 "o_"
128.39999999999995 288 "t_"
134.99999999999994 288 "o exit"
95.39999999999998 300 "_"
95.39999999999998 300 "e_"
101.99999999999997 300 "n_"
108.59999999999997 300 "d;"
95.39999999999998 312 "A[i]:=_"
134.99999999999994 312 "i_"
141.59999999999994 312 "n_"
148.19999999999993 312 "t_"
154.79999999999993 312 "e_"
161.39999999999992 312 "g_"
167.99999999999991 312 "e_"
174.5999999999999 312 "r (((((_"
220.79999999999987 312 "b_"
227.39999999999986 312 "o_"
233.99999999999986 312 "o_"
240.59999999999985 312 "l_"
247.19999999999985 312 "e_"
253.79999999999987 312 "a_"
260.39999999999986 312 "n"
273.5999999999999 312 "A[i])"
313.20000000000005 312 "_"
313.20000000000005 312 "s_"
319.80000000000007 312 "h_"
326.4000000000001 312 "i_"
333.0000000000001 312 "f_"
339.60000000000014 312 "t"
352.8000000000002 312 "−j)"
135 324 ""
135 324 "∧"
148.2 324 "_"
148.2 324 "3_"
154.79999999999998 324 "5 m _"
181.19999999999996 324 "5 0)"
135 336 ""
135 336 "∨"
148.2 336 "_"
148.2 336 "b_"
154.79999999999998 336 "o_"
161.39999999999998 336 "o_"
167.99999999999997 336 "l_"
174.59999999999997 336 "e_"
181.19999999999996 336 "a_"
187.79999999999995 336 "n c) _"
220.79999999999993 336 "s_"
227.39999999999992 336 "h_"
233.99999999999991 336 "i_"
240.5999999999999 336 "f_"
247.1999999999999 336 "t"
260.3999999999999 336 "j);"
95.39999999999998 348 "len:=len+1;"
95.39999999999998 360 "_"
95.39999999999998 360 "g_"
101.99999999999997 360 "o_"
108.59999999999997 360 "t_"
115.19999999999996 360 "o again;"
36 372 "out:"
95.39999999999998 372 "read baudot:=len;"
95.39999999999998 384 "writecr;"
95.39999999999998 396 "writetext(|"
161.39999999999992 396 "<<Read: |"
214.19999999999987 396 ">);"
95.39999999999998 408 "writeinteger(|"
181.1999999999999 408 "<p|"
194.3999999999999 408 ">,len);"
75.6 420 "_"
75.6 420 "e_"
82.19999999999999 420 "n_"
88.79999999999998 420 "d;"
75.6 432 "_"
75.6 432 "f_"
82.19999999999999 432 "o_"
88.79999999999998 432 "r i:=0 _"
134.99999999999994 432 "s_"
141.59999999999994 432 "t_"
148.19999999999993 432 "e_"
154.79999999999993 432 "p 1 _"
181.1999999999999 432 "u_"
187.7999999999999 432 "n_"
194.3999999999999 432 "t_"
200.9999999999999 432 "i_"
207.59999999999988 432 "l 255 _"
247.19999999999985 432 "d_"
253.79999999999987 432 "o"
266.9999999999999 432 "revbaudot[i]:=−1;"
75.6 444 "_"
75.6 444 "f_"
82.19999999999999 444 "o_"
88.79999999999998 444 "r i:=0 _"
134.99999999999994 444 "s_"
141.59999999999994 444 "t_"
148.19999999999993 444 "e_"
154.79999999999993 444 "p 1 _"
181.1999999999999 444 "u_"
187.7999999999999 444 "n_"
194.3999999999999 444 "t_"
200.9999999999999 444 "i_"
207.59999999999988 444 "l 31 _"
240.59999999999985 444 "d_"
247.19999999999985 444 "o"
260.39999999999986 444 "revbaudot[baudot[i]]:=i;"
75.6 456 "case:=0;"
75.6 468 "LYN;"
75.6 480 "cipherlen:=read baudot(cipher);"
75.6 492 "lookforlen:=read baudot(lookfor)"
55.800000000000004 504 "_"
55.800000000000004 504 "e_"
62.4 504 "n_"
69 504 "d;"
55.800000000000004 516 "_"
55.800000000000004 516 "f_"
62.4 516 "o_"
69 516 "r iperm:=1 _"
141.59999999999994 516 "s_"
148.19999999999993 516 "t_"
154.79999999999993 516 "e_"
161.39999999999992 516 "p 1 _"
187.7999999999999 516 "u_"
194.3999999999999 516 "n_"
200.9999999999999 516 "t_"
207.59999999999988 516 "i_"
214.19999999999987 516 "l 24 _"
247.19999999999985 516 "d_"
253.79999999999987 516 "o"
55.800000000000004 528 "_"
55.800000000000004 528 "b_"
62.4 528 "e_"
69 528 "g_"
75.6 528 "i_"
82.19999999999999 528 "n"
75.6 540 "_"
75.6 540 "i_"
82.19999999999999 540 "n_"
88.79999999999998 540 "t_"
95.39999999999998 540 "e_"
101.99999999999997 540 "g_"
108.59999999999997 540 "e_"
115.19999999999996 540 "r _"
128.39999999999995 540 "a_"
134.99999999999994 540 "r_"
141.59999999999994 540 "r_"
148.19999999999993 540 "a_"
154.79999999999993 540 "y wheellen[1:5],perm[1:4];"
75.6 552 "_"
75.6 552 "i_"
82.19999999999999 552 "n_"
88.79999999999998 552 "t_"
95.39999999999998 552 "e_"
101.99999999999997 552 "g_"
108.59999999999997 552 "e_"
115.19999999999996 552 "r _"
128.39999999999995 552 "a_"
134.99999999999994 552 "r_"
141.59999999999994 552 "r_"
148.19999999999993 552 "a_"
154.79999999999993 552 "y wheel1,wheel2,wheel3,wheel4,wheel5[0:12];"
75.6 564 "_"
75.6 564 "i_"
82.19999999999999 564 "n_"
88.79999999999998 564 "t_"
95.39999999999998 564 "e_"
101.99999999999997 564 "g_"
108.59999999999997 564 "e_"
115.19999999999996 564 "r offset,i;"
75.6 576 "_"
75.6 576 "b_"
82.19999999999999 576 "o_"
88.79999999999998 576 "o_"
95.39999999999998 576 "l_"
101.99999999999997 576 "e_"
108.59999999999997 576 "a_"
115.19999999999996 576 "n _"
128.39999999999995 576 "p_"
134.99999999999994 576 "r_"
141.59999999999994 576 "o_"
148.19999999999993 576 "c_"
154.79999999999993 576 "e_"
161.39999999999992 576 "d_"
167.99999999999991 576 "u_"
174.5999999999999 576 "r_"
181.1999999999999 576 "e genwheel(offset,bit,wheel);"
75.6 588 "_"
75.6 588 "v_"
82.19999999999999 588 "a_"
88.79999999999998 588 "l_"
95.39999999999998 588 "u_"
101.99999999999997 588 "e offset,bit;"
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 offset,bit;"
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 wheel;"
75.6 624 "_"
75.6 624 "b_"
82.19999999999999 624 "e_"
88.79999999999998 624 "g_"
95.39999999999998 624 "i_"
101.99999999999997 624 "n"
95.39999999999998 636 "_"
95.39999999999998 636 "i_"
101.99999999999997 636 "n_"
108.59999999999997 636 "t_"
115.19999999999996 636 "e_"
121.79999999999995 636 "g_"
128.39999999999995 636 "e_"
134.99999999999994 636 "r i,j,k,c1,c2,b,len;"
95.39999999999998 648 "_"
95.39999999999998 648 "b_"
101.99999999999997 648 "o_"
108.59999999999997 648 "o_"
115.19999999999996 648 "l_"
121.79999999999995 648 "e_"
128.39999999999995 648 "a_"
134.99999999999994 648 "n c3,mask;"
95.39999999999998 660 "genwheel:=_"
161.39999999999992 660 "f_"
167.99999999999991 660 "a_"
174.5999999999999 660 "l_"
181.1999999999999 660 "s_"
187.7999999999999 660 "e;"
95.39999999999998 672 "mask:=_"
134.99999999999994 672 "4_"
141.59999999999994 672 "0 1 _"
167.99999999999991 672 "s_"
174.5999999999999 672 "h_"
181.1999999999999 672 "i_"
187.7999999999999 672 "f_"
194.3999999999999 672 "t (5−bit);"
95.39999999999998 684 "len:=wheellen[bit];"
95.39999999999998 696 "k:=offset _"
161.39999999999992 696 "m_"
167.99999999999991 696 "o_"
174.5999999999999 696 "d len;"
95.39999999999998 708 "_"
95.39999999999998 708 "f_"
101.99999999999997 708 "o_"
108.59999999999997 708 "r i:=0 _"
154.79999999999993 708 "s_"
161.39999999999992 708 "t_"
167.99999999999991 708 "e_"
174.5999999999999 708 "p 1 _"
200.9999999999999 708 "u_"
207.59999999999988 708 "n_"
214.19999999999987 708 "t_"
220.79999999999987 708 "i_"
227.39999999999986 708 "l lookforlen−1"
326.4000000000001 708 "_"
326.4000000000001 708 "d_"
333.0000000000001 708 "o"
95.39999999999998 720 "_"
95.39999999999998 720 "b_"
101.99999999999997 720 "e_"
108.59999999999997 720 "g_"
115.19999999999996 720 "i_"
121.79999999999995 720 "n"
115.19999999999996 732 "j:=i+offset;"
115.19999999999996 744 "c1:=fetch char(cipher,j);"
115.19999999999996 756 "c2:=fetch char(lookfor,i);"
115.19999999999996 768 "c3:=_"
141.59999999999994 768 "b_"
148.19999999999993 768 "o_"
154.79999999999993 768 "o_"
161.39999999999992 768 "l_"
167.99999999999991 768 "e_"
174.5999999999999 768 "a_"
181.1999999999999 768 "n xor(c1,c2);"
115.19999999999996 780 "b:=_"
134.99999999999994 780 "i_"
141.59999999999994 780 "n_"
148.19999999999993 780 "t_"
154.79999999999993 780 "e_"
161.39999999999992 780 "g_"
167.99999999999991 780 "e_"
174.5999999999999 780 "r ((c3"
220.8 780 "∧"
234 780 "mask)_"
267 780 "s_"
273.6 780 "h_"
280.20000000000005 780 "i_"
286.80000000000007 780 "f_"
293.4000000000001 780 "t"
306.60000000000014 780 "(bit−5));"
115.19999999999996 792 "_"
115.19999999999996 792 "i_"
121.79999999999995 792 "f wheel[k]=−1 _"
214.19999999999987 792 "t_"
220.79999999999987 792 "h_"
227.39999999999986 792 "e_"
233.99999999999986 792 "n"
134.99999999999994 36 "wheel[k] := b"
115.19999999999996 48 "_"
115.19999999999996 48 "e_"
121.79999999999995 48 "l_"
128.39999999999995 48 "s_"
134.99999999999994 48 "e"
134.99999999999994 60 "_"
134.99999999999994 60 "i_"
141.59999999999994 60 "f wheel[k] |"
214.19999999999987 60 "= b _"
240.59999999999985 60 "t_"
247.19999999999985 60 "h_"
253.79999999999987 60 "e_"
260.39999999999986 60 "n"
273.5999999999999 60 "_"
273.5999999999999 60 "g_"
280.19999999999993 60 "o_"
286.79999999999995 60 "t_"
293.4 60 "o"
306.6 60 "bad;"
115.19999999999996 72 "k:=k+1;"
115.19999999999996 84 "_"
115.19999999999996 84 "i_"
121.79999999999995 84 "f k=len _"
174.5999999999999 84 "t_"
181.1999999999999 84 "h_"
187.7999999999999 84 "e_"
194.3999999999999 84 "n k:=0"
95.39999999999998 96 "_"
95.39999999999998 96 "e_"
101.99999999999997 96 "n_"
108.59999999999997 96 "d;"
95.39999999999998 108 "genwheel:=_"
161.39999999999992 108 "t_"
167.99999999999991 108 "r_"
174.5999999999999 108 "u_"
181.1999999999999 108 "e;"
36 120 "bad:"
75.6 132 "_"
75.6 132 "e_"
82.19999999999999 132 "n_"
88.79999999999998 132 "d genwheel;"
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 "p_"
134.99999999999994 144 "r_"
141.59999999999994 144 "o_"
148.19999999999993 144 "c_"
154.79999999999993 144 "e_"
161.39999999999992 144 "d_"
167.99999999999991 144 "u_"
174.5999999999999 144 "r_"
181.1999999999999 144 "e getwheel(offset);"
75.6 156 "_"
75.6 156 "v_"
82.19999999999999 156 "a_"
88.79999999999998 156 "l_"
95.39999999999998 156 "u_"
101.99999999999997 156 "e offset;"
75.6 168 "_"
75.6 168 "i_"
82.19999999999999 168 "n_"
88.79999999999998 168 "t_"
95.39999999999998 168 "e_"
101.99999999999997 168 "g_"
108.59999999999997 168 "e_"
115.19999999999996 168 "r offset;"
75.6 180 "getwheel:="
95.39999999999998 192 "wheel1[offset _"
187.7999999999999 192 "m_"
194.3999999999999 192 "o_"
200.9999999999999 192 "d wheellen[1]]"
293.4 192 "×"
300 192 "16"
319.80000000000007 192 "+"
95.39999999999998 204 "wheel2[offset _"
187.7999999999999 204 "m_"
194.3999999999999 204 "o_"
200.9999999999999 204 "d wheellen[2]]"
293.4 204 "×"
306.6 204 "8"
319.80000000000007 204 "+"
95.39999999999998 216 "wheel3[offset _"
187.7999999999999 216 "m_"
194.3999999999999 216 "o_"
200.9999999999999 216 "d wheellen[3]]"
293.4 216 "×"
306.6 216 "4"
319.80000000000007 216 "+"
95.39999999999998 228 "wheel4[offset _"
187.7999999999999 228 "m_"
194.3999999999999 228 "o_"
200.9999999999999 228 "d wheellen[4]]"
293.4 228 "×"
306.6 228 "2"
319.80000000000007 228 "+"
95.39999999999998 240 "wheel5[offset _"
187.7999999999999 240 "m_"
194.3999999999999 240 "o_"
200.9999999999999 240 "d wheellen[5]];"
75.6 252 "_"
75.6 252 "p_"
82.19999999999999 252 "r_"
88.79999999999998 252 "o_"
95.39999999999998 252 "c_"
101.99999999999997 252 "e_"
108.59999999999997 252 "d_"
115.19999999999996 252 "u_"
121.79999999999995 252 "r_"
128.39999999999995 252 "e printclear;"
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 "n_"
108.59999999999997 276 "t_"
115.19999999999996 276 "e_"
121.79999999999995 276 "g_"
128.39999999999995 276 "e_"
134.99999999999994 276 "r i,c1,c2,c3,ding,pos,c,clast;"
95.39999999999998 288 "clast:=−1;"
95.39999999999998 300 "writecr;"
95.39999999999998 312 "pos:=0;"
95.39999999999998 324 "ding:=60;"
95.39999999999998 336 "_"
95.39999999999998 336 "f_"
101.99999999999997 336 "o_"
108.59999999999997 336 "r i:=0 _"
154.79999999999993 336 "s_"
161.39999999999992 336 "t_"
167.99999999999991 336 "e_"
174.5999999999999 336 "p 1 _"
200.9999999999999 336 "u_"
207.59999999999988 336 "n_"
214.19999999999987 336 "t_"
220.79999999999987 336 "i_"
227.39999999999986 336 "l cipherlen−1"
319.80000000000007 336 "_"
319.80000000000007 336 "d_"
326.4000000000001 336 "o"
95.39999999999998 348 "_"
95.39999999999998 348 "b_"
101.99999999999997 348 "e_"
108.59999999999997 348 "g_"
115.19999999999996 348 "i_"
121.79999999999995 348 "n"
115.19999999999996 360 "c1:=fetch char(cipher,i);"
115.19999999999996 372 "c2:=getwheel(i);"
115.19999999999996 384 "c3:=xor(c1,c2);"
115.19999999999996 396 "c:=baudot[c3];"
115.19999999999996 408 "_"
115.19999999999996 408 "i_"
121.79999999999995 408 "f clast=−1 _"
194.3999999999999 408 "t_"
200.9999999999999 408 "h_"
207.59999999999988 408 "e_"
214.19999999999987 408 "n clast:=c"
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 "b_"
121.79999999999995 432 "e_"
128.39999999999995 432 "g_"
134.99999999999994 432 "i_"
141.59999999999994 432 "n"
134.99999999999994 444 "_"
134.99999999999994 444 "i_"
141.59999999999994 444 "f clast|"
187.7999999999999 444 "=9 _"
207.59999999999988 444 "t_"
214.19999999999987 444 "h_"
220.79999999999987 444 "e_"
227.39999999999986 444 "n"
134.99999999999994 456 "_"
134.99999999999994 456 "b_"
141.59999999999994 456 "e_"
148.19999999999993 456 "g_"
154.79999999999993 456 "i_"
161.39999999999992 456 "n"
154.79999999999993 468 "WRITE CHAR(clast);"
154.79999999999993 480 "pos:=pos+1;"
154.79999999999993 492 "clast:=c"
134.99999999999994 504 "_"
134.99999999999994 504 "e_"
141.59999999999994 504 "n_"
148.19999999999993 504 "d"
134.99999999999994 516 "_"
134.99999999999994 516 "e_"
141.59999999999994 516 "l_"
148.19999999999993 516 "s_"
154.79999999999993 516 "e"
134.99999999999994 528 "_"
134.99999999999994 528 "b_"
141.59999999999994 528 "e_"
148.19999999999993 528 "g_"
154.79999999999993 528 "i_"
161.39999999999992 528 "n"
154.79999999999993 540 "_"
154.79999999999993 540 "i_"
161.39999999999992 540 "f c=9 _"
200.9999999999999 540 "t_"
207.59999999999988 540 "h_"
214.19999999999987 540 "e_"
220.79999999999987 540 "n"
154.79999999999993 552 "_"
154.79999999999993 552 "b_"
161.39999999999992 552 "e_"
167.99999999999991 552 "g_"
174.5999999999999 552 "i_"
181.1999999999999 552 "n"
174.5999999999999 564 "_"
174.5999999999999 564 "i_"
181.1999999999999 564 "f pos>ding _"
253.79999999999987 564 "t_"
260.39999999999986 564 "h_"
266.9999999999999 564 "e_"
273.5999999999999 564 "n"
174.5999999999999 576 "_"
174.5999999999999 576 "b_"
181.1999999999999 576 "e_"
187.7999999999999 576 "g_"
194.3999999999999 576 "i_"
200.9999999999999 576 "n"
194.3999999999999 588 "writecr;"
194.3999999999999 600 "pos:=0"
174.5999999999999 612 "_"
174.5999999999999 612 "e_"
181.1999999999999 612 "n_"
187.7999999999999 612 "d CR"
174.5999999999999 624 "_"
174.5999999999999 624 "e_"
181.1999999999999 624 "l_"
187.7999999999999 624 "s_"
194.3999999999999 624 "e"
174.5999999999999 636 "_"
174.5999999999999 636 "b_"
181.1999999999999 636 "e_"
187.7999999999999 636 "g_"
194.3999999999999 636 "i_"
200.9999999999999 636 "n"
194.3999999999999 648 "writechar(0);"
194.3999999999999 660 "pos:=pos+1"
174.5999999999999 672 "_"
174.5999999999999 672 "e_"
181.1999999999999 672 "n_"
187.7999999999999 672 "d space;"
174.5999999999999 684 "clast:=−1"
154.79999999999993 696 "_"
154.79999999999993 696 "e_"
161.39999999999992 696 "n_"
167.99999999999991 696 "d"
154.79999999999993 708 "_"
154.79999999999993 708 "e_"
161.39999999999992 708 "l_"
167.99999999999991 708 "s_"
174.5999999999999 708 "e"
154.79999999999993 720 "_"
154.79999999999993 720 "b_"
161.39999999999992 720 "e_"
167.99999999999991 720 "g_"
174.5999999999999 720 "i_"
181.1999999999999 720 "n"
174.5999999999999 732 "WRITE CHAR(clast);"
174.5999999999999 744 "pos:=pos+1;"
174.5999999999999 756 "clast:=c"
154.79999999999993 768 "_"
154.79999999999993 768 "e_"
161.39999999999992 768 "n_"
167.99999999999991 768 "d"
134.99999999999994 780 "_"
134.99999999999994 780 "e_"
141.59999999999994 780 "n_"
148.19999999999993 780 "d"
115.19999999999996 792 "_"
115.19999999999996 792 "e_"
121.79999999999995 792 "n_"
128.39999999999995 792 "d"
95.39999999999998 36 "_"
95.39999999999998 36 "e_"
101.99999999999997 36 "n_"
108.59999999999997 36 "d for i;"
95.39999999999998 48 "_"
95.39999999999998 48 "i_"
101.99999999999997 48 "f clast|"
148.19999999999993 48 "=−1 _"
174.5999999999999 48 "t_"
181.1999999999999 48 "h_"
187.7999999999999 48 "e_"
194.3999999999999 48 "n WRITE CHAR(clast)"
75.6 60 "_"
75.6 60 "e_"
82.19999999999999 60 "n_"
88.79999999999998 60 "d printclear;"
75.6 72 "PERM(perm,4,iperm);"
75.6 84 "wheellen[1]:=3;"
75.6 96 "_"
75.6 96 "f_"
82.19999999999999 96 "o_"
88.79999999999998 96 "r i:=1 _"
134.99999999999994 96 "s_"
141.59999999999994 96 "t_"
148.19999999999993 96 "e_"
154.79999999999993 96 "p 1 _"
181.1999999999999 96 "u_"
187.7999999999999 96 "n_"
194.3999999999999 96 "t_"
200.9999999999999 96 "i_"
207.59999999999988 96 "l 4 _"
233.99999999999986 96 "d_"
240.59999999999985 96 "o"
75.6 108 "wheellen[i+1]:=_"
174.5999999999999 108 "c_"
181.1999999999999 108 "a_"
187.7999999999999 108 "s_"
194.3999999999999 108 "e perm[i]"
260.39999999999986 108 "_"
260.39999999999986 108 "o_"
266.9999999999999 108 "f"
280.19999999999993 108 "(5,7,11,13);"
75.6 120 "writecr;"
75.6 132 "_"
75.6 132 "f_"
82.19999999999999 132 "o_"
88.79999999999998 132 "r i:=1 _"
134.99999999999994 132 "s_"
141.59999999999994 132 "t_"
148.19999999999993 132 "e_"
154.79999999999993 132 "p 1 _"
181.1999999999999 132 "u_"
187.7999999999999 132 "n_"
194.3999999999999 132 "t_"
200.9999999999999 132 "i_"
207.59999999999988 132 "l 5 _"
233.99999999999986 132 "d_"
240.59999999999985 132 "o"
75.6 144 "writeinteger(|"
161.39999999999992 144 "<ddd|"
187.7999999999999 144 ">,wheellen[i]);"
75.6 156 "_"
75.6 156 "f_"
82.19999999999999 156 "o_"
88.79999999999998 156 "r offset:=cipherlen−lookforlen"
293.4 156 "_"
293.4 156 "s_"
300 156 "t_"
306.6 156 "e_"
313.20000000000005 156 "p"
326.4000000000001 156 "−1"
346.20000000000016 156 "_"
346.20000000000016 156 "u_"
352.8000000000002 156 "n_"
359.4000000000002 156 "t_"
366.0000000000002 156 "i_"
372.60000000000025 156 "l"
385.8000000000003 156 "0"
399.00000000000034 156 "_"
399.00000000000034 156 "d_"
405.60000000000036 156 "o"
75.6 168 "_"
75.6 168 "b_"
82.19999999999999 168 "e_"
88.79999999999998 168 "g_"
95.39999999999998 168 "i_"
101.99999999999997 168 "n"
95.39999999999998 180 "_"
95.39999999999998 180 "f_"
101.99999999999997 180 "o_"
108.59999999999997 180 "r i:=0 _"
154.79999999999993 180 "s_"
161.39999999999992 180 "t_"
167.99999999999991 180 "e_"
174.5999999999999 180 "p 1 _"
200.9999999999999 180 "u_"
207.59999999999988 180 "n_"
214.19999999999987 180 "t_"
220.79999999999987 180 "i_"
227.39999999999986 180 "l 12"
260.39999999999986 180 "_"
260.39999999999986 180 "d_"
266.9999999999999 180 "o"
95.39999999999998 192 "wheel1[i]:=wheel2[i]:=wheel3[i]:=wheel4[i]:=wheel5[i]:=−1;"
95.39999999999998 204 "_"
95.39999999999998 204 "i_"
101.99999999999997 204 "f genwheel(offset,1,wheel1)"
286.79999999999995 204 "_"
286.79999999999995 204 "t_"
293.4 204 "h_"
300 204 "e_"
306.6 204 "n"
95.39999999999998 216 "_"
95.39999999999998 216 "b_"
101.99999999999997 216 "e_"
108.59999999999997 216 "g_"
115.19999999999996 216 "i_"
121.79999999999995 216 "n"
115.19999999999996 228 "_"
115.19999999999996 228 "i_"
121.79999999999995 228 "f genwheel(offset,2,wheel2)"
306.6 228 "_"
306.6 228 "t_"
313.20000000000005 228 "h_"
319.80000000000007 228 "e_"
326.4000000000001 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 "_"
134.99999999999994 252 "i_"
141.59999999999994 252 "f genwheel(offset,3,wheel3)"
326.4000000000001 252 "_"
326.4000000000001 252 "t_"
333.0000000000001 252 "h_"
339.60000000000014 252 "e_"
346.20000000000016 252 "n"
134.99999999999994 264 "_"
134.99999999999994 264 "b_"
141.59999999999994 264 "e_"
148.19999999999993 264 "g_"
154.79999999999993 264 "i_"
161.39999999999992 264 "n"
154.79999999999993 276 "_"
154.79999999999993 276 "i_"
161.39999999999992 276 "f genwheel(offset,4,wheel4)"
346.20000000000016 276 "_"
346.20000000000016 276 "t_"
352.8000000000002 276 "h_"
359.4000000000002 276 "e_"
366.0000000000002 276 "n"
154.79999999999993 288 "_"
154.79999999999993 288 "b_"
161.39999999999992 288 "e_"
167.99999999999991 288 "g_"
174.5999999999999 288 "i_"
181.1999999999999 288 "n"
174.5999999999999 300 "_"
174.5999999999999 300 "i_"
181.1999999999999 300 "f genwheel(offset,5,wheel5)"
366.0000000000002 300 "_"
366.0000000000002 300 "t_"
372.60000000000025 300 "h_"
379.2000000000003 300 "e_"
385.8000000000003 300 "n"
174.5999999999999 312 "_"
174.5999999999999 312 "b_"
181.1999999999999 312 "e_"
187.7999999999999 312 "g_"
194.3999999999999 312 "i_"
200.9999999999999 312 "n"
194.3999999999999 324 "writecr;"
194.3999999999999 336 "writechar(58);"
194.3999999999999 348 "case:=0;"
194.3999999999999 360 "write(|"
233.99999999999986 360 "<ddddd|"
273.5999999999999 360 ">,wheellen[1],wheellen[2],wheellen[3],wheellen[4]"
194.3999999999999 372 "writetext(|"
260.39999999999986 372 "<<"
286.79999999999995 372 "|"
286.79999999999995 372 ">);"
194.3999999999999 384 "printclear;"
194.3999999999999 396 "writechar(58);"
194.3999999999999 408 "_"
194.3999999999999 408 "g_"
200.9999999999999 408 "o_"
207.59999999999988 408 "t_"
214.19999999999987 408 "o done"
174.5999999999999 420 "_"
174.5999999999999 420 "e_"
181.1999999999999 420 "n_"
187.7999999999999 420 "d found5"
154.79999999999993 432 "_"
154.79999999999993 432 "e_"
161.39999999999992 432 "n_"
167.99999999999991 432 "d found4"
134.99999999999994 444 "_"
134.99999999999994 444 "e_"
141.59999999999994 444 "n_"
148.19999999999993 444 "d found3"
115.19999999999996 456 "_"
115.19999999999996 456 "e_"
121.79999999999995 456 "n_"
128.39999999999995 456 "d found2"
95.39999999999998 468 "_"
95.39999999999998 468 "e_"
101.99999999999997 468 "n_"
108.59999999999997 468 "d found1"
75.6 480 "_"
75.6 480 "e_"
82.19999999999999 480 "n_"
88.79999999999998 480 "d offset;"
55.800000000000004 492 "_"
55.800000000000004 492 "e_"
62.4 492 "n_"
69 492 "d inner loop;"
36 504 "done:"
55.800000000000004 516 "writecr;"
55.800000000000004 528 "writetext(|"
121.79999999999995 528 "<<Time: |"
174.5999999999999 528 ">);"
55.800000000000004 540 "write(|"
95.39999999999998 540 "<ddddddd.dd|"
167.99999999999991 540 ">,clock count);"
55.800000000000004 552 "writecr;"
36 564 "exit:"
36 576 "_"
36 576 "e_"
42.6 576 "n_"
49.2 576 "d;"
36 588 "run<"
36 600 "ANBQVWYFLAK2PJ48N5EU3EGGXVSACBGNZ54RSVW5RM5OFSM4R2W3LL5U95PCZDRUEUBPV2TYKG28WJXRPGCUJ"
36 612 "NORTH99FIFTYFIVE99FORTY"