1 Dim a(20): Dim b(10000): Dim c(10000): Dim d(10000): Dim p(20)
 
2 Print "Après ? taper 00 pour sortir"
 
3 Color 15, 0: Input " Nombre de chiffres "; z: zz = z
 
4 If z = 00 Then GoTo 200
 
5 Print Tab(30); " ";
 
6 For i = 1 To z
 
7 Print Tab(30 + i); " ";: Input q
 
8 a(i) = q
 
9 Next i
 
10 Print Tab(40); "-->";
 
11 For i = 1 To z
 
12 Print a(i);
 
13 Next i
 
14 Print
 
21 For r = 1 To z
 
22 b(r) = a(r): p(r) = a(r)
 
23 Next r
 
25 g = z: w = z \ 2: j = 0: m = z - 1
 
26 For s = 1 To w
 
27 Swap b(s), b(g)
 
28 g = g - 1
 
29 Next s
 
30 For r = 1 To m
 
31 k = a(r) + b(r) + j
 
33 If k >= 10 Then
 
34 p = k - 10: c(r) = p: j = 1
 
35 Else c(r) = k: j = 0
 
36 End If
 
37 Next r
 
38 k = a(z) + b(z) + j
 
39 If k >= 10 Then c(z) = k - 10: z = z + 1: c(z) = 1 Else c(z) = k
 
40 i = z: g = i: w = i \ 2
 
42 For s = 1 To w
 
45 If c(s) = c(g) Then g = g - 1 Else GoTo 100
 
46 Next s
 
47 Print "--> <--": Print Tab(4); " -->";
 
57 For p = 1 To z
 
58 Print c(p);
 
59 Next p
 
60 Print: Print
 
61 GoTo 3
 
100 h = i: f = 2: n = -18
 
101 g = h: w = h \ 2: j = 0: m = h - 1
 
103 If f > 50 Then
 
104 Print "50 opérations : apparemment pas de palindrome";
 
105 Color 3, 15: Print "--> ???": Print: Print: GoTo 3
 
106 End If
 
107 For r = 1 To h
 
108 d(r) = c(r): b(r) = c(r)
 
109 Next r
 
111 For s = 1 To w
 
112 Swap b(s), b(g)
 
118 g = g - 1
 
119 Next s
 
124 For r = 1 To m
 
125 k = d(r) + b(r) + j
 
126 If k >= 10 Then
 
127 p = k - 10: c(r) = p: j = 1
 
130 Else c(r) = k: j = 0
 
131 End If
 
133 Next r
 
134 k = d(h) + b(h) + j
 
135 If k >= 10 Then c(h) = k - 10: h = h + 1: c(h) = 1 Else c(h) = k
 
136 g = h: w = h \ 2
 
155 g = h
 
164 For s = 1 To w
 
166 If c(s) = c(g) Then g = g - 1 Else f = f + 1: GoTo 101
 
168 Next s
 
170 Print: Print Tab(0); "--> <--";
 
172 For r = 1 To zz
 
174 Print p(r);
 
176 Next r
 
178 Color 14, 1: Print "--> ";
 
180 For p = 1 To h
 
182 Print c(p);
 
184 Next p
 
185 Color 3, 0
 
186 Print: Print " Nombre d'inversions - additions :"; f; h; "chiffres"
 
188 Print: Print
 
190 GoTo 3
 
200 End