� CodeCatcher
� by Ian Fell
� (c) The Micro User
(�7
2� � �7:�:�" at ";�:�
<master=(�-256=253)
F� master �init_shadow
P�:�:�:�
Z
�setup
d�choice
n� cnt%26, store%(26,2)
x� A%=0 � 26:cnt%?A%=0:�
��28,0,23,39,1:�
��display
�
�letcount
��bubble
�
� �thG
�� D%=1 � 26:� a$
�store%(D%,2)=�a$:�
��replace
�
�guess
��:�alter
��turnabout:� �:�
���setup
�&A%=0:B%=0:C%=0:D%=0:F%=0:G%=0:I%=0

&J%=0:L%=0:P%=0:Q%=0:T%=0:U%=0:V%=0

W%=0:X%=0:Y%=0:C1%=0:C2%=0

!flag%=0:lp1%=0:lp2%=0:recl%=0

" temp%=0:G$="":T$="":temp$=""

,col$="":record$="":alph$=""

6�

@��choice

J	�menu

T� G%=1 �input:�

^� G%=2 �unstore:�

h� G%=3 �26:�:�

r�

|
��menu

��screen("CodeCatcher",2,3)

�
�:�:�'

��'�134�5"1. Type data"

��'�134�5"2. Read file"

��'�134�5"3. Quit"

�G%=�getchoice(3,1)

��

���screen(T$,C1%,C2%):�26,12

�C1$=�(144+C1%)

�C2$=�(128+C2%)

��line(C1$):�

�T$=�(36-�T$)/2," ")+T$

�� I%=1 � 2:�C2$�141T$:�
�line(C1$):�0,24);
�line(C1$):�28,0,23,39,5
�
&��line(col$):� col$;
0� I%=1 � 38:�172:�:�
:ݤgetchoice(C%,L%):�
D�'�133�5"Enter choice ";
N*FX15,1
X
� G%=�-48
b� G%>=L% � G%<=C%
l� G%:=G%
v��input
�� M%1000,N%1000:�
��134"Type message:":�
��
�V%=�
�(� V%=127 �del � M%?X%=V%:�V%:X%=X%+1
�� V%=13
�� P%=1�X%:N%?P%=M%?P%:�
��
���del:� X%=0 �7:�
�� V%:X%=X%-1:�
�
��unstore
��'�131�5"Loading data:"
�X=�"message"

�#X,X%
� M%X%,N%X%
� Y%=1�X%:M%?Y%=�#X:�
 �#X:�copy:�
*��display:�
4� Y%=1 � X%:� M%?Y%:�
>�''�134�3"DECODING ..."
H �"this can take some time!";
R�
\��letcount
f
� �thG
p� A%=1 � 26:� temp$
zstore%(A%,1)=�temp$
�� Y%=1 � X%
�$� M%?Y%=�temp$ cnt%?A%=cnt%?A%+1
�	�:�:�
���bubble
�� lp1%,lp2%,last%
�last%=25
�� lp1%=1 � 26:flag%=0
�� lp2%=1 � 25
�8� cnt%?lp2%<cnt%?(lp2%+1) �swap(lp2%,lp2%+1):flag%=1
��
�last%=last%-1
�� flag%=0 lp1%=26
��:�
��swap(rec1%,rec2%)
+spare%=cnt%?rec1%:temp%=store%(rec1%,1)
9cnt%?rec1%=cnt%?rec2%:store%(rec1%,1)=store%(rec2%,1)
$+cnt%?rec2%=spare%:store%(rec2%,1)=temp%
.�
8��guess:� �master �
B*FX112,2
L�:�23;8202;0;0;0;0;26
V�line(C1$):�0,22);
`9�line(C1$):�'�133" Suggested codes: Return to toggle"
j�0,24);:�line(C1$)
t�28,0,21,39,1:�:�:D%=1
~�format
��;cnt%?D%".";G$;
�� D%=1 � 26
��format
��� cnt%?D%<cnt%?(D%-1) �';cnt%?D%;"."G$;:�colour:�store%(D%,1)"="�store%(D%,2)�135:� �colour:�store%(D%,1)"="�store%(D%,2)�135;
��:*FX112,1
��
���format
�G$=�cnt%?D%:F%=�G$
�G$=�3-F%," "):�
���colour
�� store%(D%,1)=W% �8,129
�� store%(D%,1)=U% �8,129
�


��replace
� Y%=1�X%:P%=M%?Y%
�change:�:*FX21
(
�update:�
2��change
<� Q%=1 � 26
F(� store%(Q%,1)=P% M%?Y%=store%(Q%,2)
P�:�
Z��alter
d�28,0,23,39,23
n�23;29194;0;0;0;12
xtemp$="":�options
�
�transfer
�/� Q%=1�26:� store%(Q%,2)=W% store%(Q%,2)=42
�1�:� Q%=1�26:� store%(Q%,2)=U% store%(Q%,2)=W%
�1�:� Q%=1�26:� store%(Q%,2)=42 store%(Q%,2)=U%
��:�28,0,23,39,1
��guess:�
�
��options
�:�133"Back([) End(@) Swap(A-Z) or Return :";:temp$=�:�
�+� temp$=�13 �toggle:� � �:�toggle:�dHE
�%� temp$="@" �transfer:�lastcode:�
�%� �temp$<65 � �temp$>91 �7:� �dHE
�M� temp$="[" � �record$>1 �backtrack:�:�� temp$="[" � �record$<2 �7:� �dHE
�
W%=�temp$
/�133�7"Change to what (A-Z) : ";:temp$=�:�

U%=�temp$
� U%<65 � U%>91 �7:� �dHE
"�133"Making alterations";
,record$=record$+�W%+�U%
6�
@��transfer
J)� Q%=1�26:store%(Q%,1)=store%(Q%,2):�
T�
^��toggle:� �master �7:�
h?T%=T%+1:� T%>2 T%=1:�23;29194;0;0;0;:� T%=2:�23;8202;0;0;0;
r�"FX113,"+�T%
|�
���backtrack
�U%=��record$,1)
� record$=�record$,�record$-1)
�W%=��record$,1)
� record$=�record$,�record$-1)
��
�
��copy
��D%=1�X%:N%?D%=M%?D%:�
��
���lastcode
��28,0,23,39,1:�:�
�&alph$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
�
� D%=1�X%
J%=�alph$,�N%?D%)
F� J%>0 �" "�N%?D%"="�M%?D%;:alph$=�alph$,J%-1)+�alph$,J%+1,�alph$)
�:�'
&�134alph$+" do not appear"
0�:�
:��turnabout
D!� Y%=1�X%:� M%?Y%=W% M%?Y%=42
N#�:� Y%=1�X%:� M%?Y%=U% M%?Y%=W%
X#�:� Y%=1�X%:� M%?Y%=42 M%?Y%=U%
b�:�update:�
l��update
v�28,0,23,39,1,12:�
�� Y%=1�X%:� M%?Y%:�
��'�0,21);:�line(C1$)
�� master � *FX113,1
��
�9� E,T,A,O,N,I,S,H,R,D,L,C,U,F,M,P,B,W,G,Y,V,K,X,Q,J,Z
�� �init_shadow
�
*SHADOW 1
�*FX112,2
��
�*FX112,1
��
�

00000000  0d 00 0a 11 f4 20 43 6f  64 65 43 61 74 63 68 65  |..... CodeCatche|
00000010  72 0d 00 14 11 f4 20 62  79 20 49 61 6e 20 46 65  |r..... by Ian Fe|
00000020  6c 6c 0d 00 1e 18 f4 20  28 63 29 20 54 68 65 20  |ll..... (c) The |
00000030  4d 69 63 72 6f 20 55 73  65 72 0d 00 28 06 eb 37  |Micro User..(..7|
00000040  0d 00 32 18 ee 20 85 20  eb 37 3a f6 3a f1 22 20  |..2.. . .7:.:." |
00000050  61 74 20 22 3b 9e 3a e0  0d 00 3c 16 6d 61 73 74  |at ";.:...<.mast|
00000060  65 72 3d 28 a6 2d 32 35  36 3d 32 35 33 29 0d 00  |er=(.-256=253)..|
00000070  46 19 e7 20 6d 61 73 74  65 72 20 f2 69 6e 69 74  |F.. master .init|
00000080  5f 73 68 61 64 6f 77 0d  00 50 0b db 3a f1 3a f1  |_shadow..P..:.:.|
00000090  3a f1 0d 00 5a 0a f2 73  65 74 75 70 0d 00 64 0b  |:...Z..setup..d.|
000000a0  f2 63 68 6f 69 63 65 0d  00 6e 1a de 20 63 6e 74  |.choice..n.. cnt|
000000b0  25 32 36 2c 20 73 74 6f  72 65 25 28 32 36 2c 32  |%26, store%(26,2|
000000c0  29 0d 00 78 1b e3 20 41  25 3d 30 20 b8 20 32 36  |)..x.. A%=0 . 26|
000000d0  3a 63 6e 74 25 3f 41 25  3d 30 3a ed 0d 00 82 13  |:cnt%?A%=0:.....|
000000e0  ef 32 38 2c 30 2c 32 33  2c 33 39 2c 31 3a db 0d  |.28,0,23,39,1:..|
000000f0  00 8c 0c f2 64 69 73 70  6c 61 79 0d 00 96 0d f2  |....display.....|
00000100  6c 65 74 63 6f 75 6e 74  0d 00 a0 0b f2 62 75 62  |letcount.....bub|
00000110  62 6c 65 0d 00 aa 0a f7  20 8d 74 68 47 0d 00 b4  |ble..... .thG...|
00000120  14 e3 20 44 25 3d 31 20  b8 20 32 36 3a f3 20 61  |.. D%=1 . 26:. a|
00000130  24 0d 00 be 16 73 74 6f  72 65 25 28 44 25 2c 32  |$....store%(D%,2|
00000140  29 3d 97 61 24 3a ed 0d  00 c8 0c f2 72 65 70 6c  |)=.a$:......repl|
00000150  61 63 65 0d 00 d2 0a f2  67 75 65 73 73 0d 00 dc  |ace.....guess...|
00000160  0c f5 3a f2 61 6c 74 65  72 0d 00 e6 14 f2 74 75  |..:.alter.....tu|
00000170  72 6e 61 62 6f 75 74 3a  fd 20 a3 3a e0 0d 00 f0  |rnabout:. .:....|
00000180  0b dd f2 73 65 74 75 70  0d 00 fa 26 41 25 3d 30  |...setup...&A%=0|
00000190  3a 42 25 3d 30 3a 43 25  3d 30 3a 44 25 3d 30 3a  |:B%=0:C%=0:D%=0:|
000001a0  46 25 3d 30 3a 47 25 3d  30 3a 49 25 3d 30 0d 01  |F%=0:G%=0:I%=0..|
000001b0  04 26 4a 25 3d 30 3a 4c  25 3d 30 3a 50 25 3d 30  |.&J%=0:L%=0:P%=0|
000001c0  3a 51 25 3d 30 3a 54 25  3d 30 3a 55 25 3d 30 3a  |:Q%=0:T%=0:U%=0:|
000001d0  56 25 3d 30 0d 01 0e 1e  57 25 3d 30 3a 58 25 3d  |V%=0....W%=0:X%=|
000001e0  30 3a 59 25 3d 30 3a 43  31 25 3d 30 3a 43 32 25  |0:Y%=0:C1%=0:C2%|
000001f0  3d 30 0d 01 18 21 66 6c  61 67 25 3d 30 3a 6c 70  |=0...!flag%=0:lp|
00000200  31 25 3d 30 3a 6c 70 32  25 3d 30 3a 72 65 63 6c  |1%=0:lp2%=0:recl|
00000210  25 3d 30 0d 01 22 20 74  65 6d 70 25 3d 30 3a 47  |%=0.." temp%=0:G|
00000220  24 3d 22 22 3a 54 24 3d  22 22 3a 74 65 6d 70 24  |$="":T$="":temp$|
00000230  3d 22 22 0d 01 2c 1f 63  6f 6c 24 3d 22 22 3a 72  |=""..,.col$="":r|
00000240  65 63 6f 72 64 24 3d 22  22 3a 61 6c 70 68 24 3d  |ecord$="":alph$=|
00000250  22 22 0d 01 36 05 e1 0d  01 40 0c dd f2 63 68 6f  |""..6....@...cho|
00000260  69 63 65 0d 01 4a 09 f2  6d 65 6e 75 0d 01 54 13  |ice..J..menu..T.|
00000270  e7 20 47 25 3d 31 20 f2  69 6e 70 75 74 3a e1 0d  |. G%=1 .input:..|
00000280  01 5e 15 e7 20 47 25 3d  32 20 f2 75 6e 73 74 6f  |.^.. G%=2 .unsto|
00000290  72 65 3a e1 0d 01 68 12  e7 20 47 25 3d 33 20 ef  |re:...h.. G%=3 .|
000002a0  32 36 3a db 3a e0 0d 01  72 05 e1 0d 01 7c 0a dd  |26:.:...r....|..|
000002b0  f2 6d 65 6e 75 0d 01 86  1e f2 73 63 72 65 65 6e  |.menu.....screen|
000002c0  28 22 43 6f 64 65 43 61  74 63 68 65 72 22 2c 32  |("CodeCatcher",2|
000002d0  2c 33 29 0d 01 90 0a f5  3a db 3a f1 27 0d 01 9a  |,3).....:.:.'...|
000002e0  1a f1 27 bd 31 33 34 89  35 22 31 2e 20 54 79 70  |..'.134.5"1. Typ|
000002f0  65 20 64 61 74 61 22 0d  01 a4 1a f1 27 bd 31 33  |e data".....'.13|
00000300  34 89 35 22 32 2e 20 52  65 61 64 20 66 69 6c 65  |4.5"2. Read file|
00000310  22 0d 01 ae 15 f1 27 bd  31 33 34 89 35 22 33 2e  |".....'.134.5"3.|
00000320  20 51 75 69 74 22 0d 01  b8 16 47 25 3d a4 67 65  | Quit"....G%=.ge|
00000330  74 63 68 6f 69 63 65 28  33 2c 31 29 0d 01 c2 05  |tchoice(3,1)....|
00000340  e1 0d 01 cc 1f dd f2 73  63 72 65 65 6e 28 54 24  |.......screen(T$|
00000350  2c 43 31 25 2c 43 32 25  29 3a ef 32 36 2c 31 32  |,C1%,C2%):.26,12|
00000360  0d 01 d6 12 43 31 24 3d  bd 28 31 34 34 2b 43 31  |....C1$=.(144+C1|
00000370  25 29 0d 01 e0 12 43 32  24 3d bd 28 31 32 38 2b  |%)....C2$=.(128+|
00000380  43 32 25 29 0d 01 ea 10  f2 6c 69 6e 65 28 43 31  |C2%).....line(C1|
00000390  24 29 3a f1 0d 01 f4 1a  54 24 3d c4 28 33 36 2d  |$):.....T$=.(36-|
000003a0  a9 54 24 29 2f 32 2c 22  20 22 29 2b 54 24 0d 01  |.T$)/2," ")+T$..|
000003b0  fe 1b e3 20 49 25 3d 31  20 b8 20 32 3a f1 43 32  |... I%=1 . 2:.C2|
000003c0  24 bd 31 34 31 54 24 3a  ed 0d 02 08 17 f2 6c 69  |$.141T$:......li|
000003d0  6e 65 28 43 31 24 29 3a  f1 8a 30 2c 32 34 29 3b  |ne(C1$):..0,24);|
000003e0  0d 02 12 1c f2 6c 69 6e  65 28 43 31 24 29 3a ef  |.....line(C1$):.|
000003f0  32 38 2c 30 2c 32 33 2c  33 39 2c 35 0d 02 1c 05  |28,0,23,39,5....|
00000400  e1 0d 02 26 18 dd f2 6c  69 6e 65 28 63 6f 6c 24  |...&...line(col$|
00000410  29 3a f1 20 63 6f 6c 24  3b 0d 02 30 18 e3 20 49  |):. col$;..0.. I|
00000420  25 3d 31 20 b8 20 33 38  3a ef 31 37 32 3a ed 3a  |%=1 . 38:.172:.:|
00000430  e1 0d 02 3a 18 dd a4 67  65 74 63 68 6f 69 63 65  |...:...getchoice|
00000440  28 43 25 2c 4c 25 29 3a  f1 0d 02 44 1c f1 27 bd  |(C%,L%):...D..'.|
00000450  31 33 33 89 35 22 45 6e  74 65 72 20 63 68 6f 69  |133.5"Enter choi|
00000460  63 65 20 22 3b 0d 02 4e  0b 2a 46 58 31 35 2c 31  |ce ";..N.*FX15,1|
00000470  0d 02 58 0d f5 20 47 25  3d a5 2d 34 38 0d 02 62  |..X.. G%=.-48..b|
00000480  15 fd 20 47 25 3e 3d 4c  25 20 80 20 47 25 3c 3d  |.. G%>=L% . G%<=|
00000490  43 25 0d 02 6c 0c f1 20  47 25 3a 3d 47 25 0d 02  |C%..l.. G%:=G%..|
000004a0  76 0b dd f2 69 6e 70 75  74 0d 02 80 15 de 20 4d  |v...input..... M|
000004b0  25 31 30 30 30 2c 4e 25  31 30 30 30 3a db 0d 02  |%1000,N%1000:...|
000004c0  8a 1a f1 bd 31 33 34 22  54 79 70 65 20 6d 65 73  |....134"Type mes|
000004d0  73 61 67 65 3a 22 3a f1  0d 02 94 05 f5 0d 02 9e  |sage:":.........|
000004e0  08 56 25 3d a5 0d 02 a8  28 e7 20 56 25 3d 31 32  |.V%=....(. V%=12|
000004f0  37 20 f2 64 65 6c 20 8b  20 4d 25 3f 58 25 3d 56  |7 .del . M%?X%=V|
00000500  25 3a ef 56 25 3a 58 25  3d 58 25 2b 31 0d 02 b2  |%:.V%:X%=X%+1...|
00000510  0b fd 20 56 25 3d 31 33  0d 02 bc 1b e3 20 50 25  |.. V%=13..... P%|
00000520  3d 31 b8 58 25 3a 4e 25  3f 50 25 3d 4d 25 3f 50  |=1.X%:N%?P%=M%?P|
00000530  25 3a ed 0d 02 c6 05 e1  0d 02 d0 15 dd f2 64 65  |%:............de|
00000540  6c 3a e7 20 58 25 3d 30  20 ef 37 3a e1 0d 02 da  |l:. X%=0 .7:....|
00000550  12 ef 20 56 25 3a 58 25  3d 58 25 2d 31 3a e1 0d  |.. V%:X%=X%-1:..|
00000560  02 e4 0d dd f2 75 6e 73  74 6f 72 65 0d 02 ee 1b  |.....unstore....|
00000570  f1 27 bd 31 33 31 89 35  22 4c 6f 61 64 69 6e 67  |.'.131.5"Loading|
00000580  20 64 61 74 61 3a 22 0d  02 f8 10 58 3d 8e 22 6d  | data:"....X=."m|
00000590  65 73 73 61 67 65 22 0d  03 02 0a e8 23 58 2c 58  |essage".....#X,X|
000005a0  25 0d 03 0c 0f de 20 4d  25 58 25 2c 4e 25 58 25  |%..... M%X%,N%X%|
000005b0  0d 03 16 19 e3 20 59 25  3d 31 b8 58 25 3a 4d 25  |..... Y%=1.X%:M%|
000005c0  3f 59 25 3d 9a 23 58 3a  ed 0d 03 20 0f d9 23 58  |?Y%=.#X:... ..#X|
000005d0  3a f2 63 6f 70 79 3a e1  0d 03 2a 0f dd f2 64 69  |:.copy:...*...di|
000005e0  73 70 6c 61 79 3a f1 0d  03 34 19 e3 20 59 25 3d  |splay:...4.. Y%=|
000005f0  31 20 b8 20 58 25 3a ef  20 4d 25 3f 59 25 3a ed  |1 . X%:. M%?Y%:.|
00000600  0d 03 3e 1b f1 27 27 bd  31 33 34 89 33 22 44 45  |..>..''.134.3"DE|
00000610  43 4f 44 49 4e 47 20 2e  2e 2e 22 0d 03 48 20 f1  |CODING ..."..H .|
00000620  22 74 68 69 73 20 63 61  6e 20 74 61 6b 65 20 73  |"this can take s|
00000630  6f 6d 65 20 74 69 6d 65  21 22 3b 0d 03 52 05 e1  |ome time!";..R..|
00000640  0d 03 5c 0e dd f2 6c 65  74 63 6f 75 6e 74 0d 03  |..\...letcount..|
00000650  66 0a f7 20 8d 74 68 47  0d 03 70 17 e3 20 41 25  |f.. .thG..p.. A%|
00000660  3d 31 20 b8 20 32 36 3a  f3 20 74 65 6d 70 24 0d  |=1 . 26:. temp$.|
00000670  03 7a 17 73 74 6f 72 65  25 28 41 25 2c 31 29 3d  |.z.store%(A%,1)=|
00000680  97 74 65 6d 70 24 0d 03  84 0f e3 20 59 25 3d 31  |.temp$..... Y%=1|
00000690  20 b8 20 58 25 0d 03 8e  24 e7 20 4d 25 3f 59 25  | . X%...$. M%?Y%|
000006a0  3d 97 74 65 6d 70 24 20  63 6e 74 25 3f 41 25 3d  |=.temp$ cnt%?A%=|
000006b0  63 6e 74 25 3f 41 25 2b  31 0d 03 98 09 ed 3a ed  |cnt%?A%+1.....:.|
000006c0  3a e1 0d 03 a2 0c dd f2  62 75 62 62 6c 65 0d 03  |:.......bubble..|
000006d0  ac 15 ea 20 6c 70 31 25  2c 6c 70 32 25 2c 6c 61  |... lp1%,lp2%,la|
000006e0  73 74 25 0d 03 b6 0c 6c  61 73 74 25 3d 32 35 0d  |st%....last%=25.|
000006f0  03 c0 19 e3 20 6c 70 31  25 3d 31 20 b8 20 32 36  |.... lp1%=1 . 26|
00000700  3a 66 6c 61 67 25 3d 30  0d 03 ca 11 e3 20 6c 70  |:flag%=0..... lp|
00000710  32 25 3d 31 20 b8 20 32  35 0d 03 d4 38 e7 20 63  |2%=1 . 25...8. c|
00000720  6e 74 25 3f 6c 70 32 25  3c 63 6e 74 25 3f 28 6c  |nt%?lp2%<cnt%?(l|
00000730  70 32 25 2b 31 29 20 f2  73 77 61 70 28 6c 70 32  |p2%+1) .swap(lp2|
00000740  25 2c 6c 70 32 25 2b 31  29 3a 66 6c 61 67 25 3d  |%,lp2%+1):flag%=|
00000750  31 0d 03 de 05 ed 0d 03  e8 11 6c 61 73 74 25 3d  |1.........last%=|
00000760  6c 61 73 74 25 2d 31 0d  03 f2 15 e7 20 66 6c 61  |last%-1..... fla|
00000770  67 25 3d 30 20 6c 70 31  25 3d 32 36 0d 03 fc 07  |g%=0 lp1%=26....|
00000780  ed 3a e1 0d 04 06 17 dd  f2 73 77 61 70 28 72 65  |.:.......swap(re|
00000790  63 31 25 2c 72 65 63 32  25 29 0d 04 10 2b 73 70  |c1%,rec2%)...+sp|
000007a0  61 72 65 25 3d 63 6e 74  25 3f 72 65 63 31 25 3a  |are%=cnt%?rec1%:|
000007b0  74 65 6d 70 25 3d 73 74  6f 72 65 25 28 72 65 63  |temp%=store%(rec|
000007c0  31 25 2c 31 29 0d 04 1a  39 63 6e 74 25 3f 72 65  |1%,1)...9cnt%?re|
000007d0  63 31 25 3d 63 6e 74 25  3f 72 65 63 32 25 3a 73  |c1%=cnt%?rec2%:s|
000007e0  74 6f 72 65 25 28 72 65  63 31 25 2c 31 29 3d 73  |tore%(rec1%,1)=s|
000007f0  74 6f 72 65 25 28 72 65  63 32 25 2c 31 29 0d 04  |tore%(rec2%,1)..|
00000800  24 2b 63 6e 74 25 3f 72  65 63 32 25 3d 73 70 61  |$+cnt%?rec2%=spa|
00000810  72 65 25 3a 73 74 6f 72  65 25 28 72 65 63 32 25  |re%:store%(rec2%|
00000820  2c 31 29 3d 74 65 6d 70  25 0d 04 2e 05 e1 0d 04  |,1)=temp%.......|
00000830  38 17 dd f2 67 75 65 73  73 3a e7 20 ac 6d 61 73  |8...guess:. .mas|
00000840  74 65 72 20 e1 0d 04 42  0c 2a 46 58 31 31 32 2c  |ter ...B.*FX112,|
00000850  32 0d 04 4c 19 db 3a ef  32 33 3b 38 32 30 32 3b  |2..L..:.23;8202;|
00000860  30 3b 30 3b 30 3b 30 3b  32 36 0d 04 56 17 f2 6c  |0;0;0;0;26..V..l|
00000870  69 6e 65 28 43 31 24 29  3a f1 8a 30 2c 32 32 29  |ine(C1$):..0,22)|
00000880  3b 0d 04 60 39 f2 6c 69  6e 65 28 43 31 24 29 3a  |;..`9.line(C1$):|
00000890  f1 27 bd 31 33 33 22 20  53 75 67 67 65 73 74 65  |.'.133" Suggeste|
000008a0  64 20 63 6f 64 65 73 3a  20 52 65 74 75 72 6e 20  |d codes: Return |
000008b0  74 6f 20 74 6f 67 67 6c  65 22 0d 04 6a 17 f1 8a  |to toggle"..j...|
000008c0  30 2c 32 34 29 3b 3a f2  6c 69 6e 65 28 43 31 24  |0,24);:.line(C1$|
000008d0  29 0d 04 74 1a ef 32 38  2c 30 2c 32 31 2c 33 39  |)..t..28,0,21,39|
000008e0  2c 31 3a db 3a f1 3a 44  25 3d 31 0d 04 7e 0b f2  |,1:.:.:D%=1..~..|
000008f0  66 6f 72 6d 61 74 0d 04  88 14 f1 3b 63 6e 74 25  |format.....;cnt%|
00000900  3f 44 25 22 2e 22 3b 47  24 3b 0d 04 92 0f e3 20  |?D%".";G$;..... |
00000910  44 25 3d 31 20 b8 20 32  36 0d 04 9c 0b f2 66 6f  |D%=1 . 26.....fo|
00000920  72 6d 61 74 0d 04 a6 84  e7 20 63 6e 74 25 3f 44  |rmat..... cnt%?D|
00000930  25 3c 63 6e 74 25 3f 28  44 25 2d 31 29 20 f1 27  |%<cnt%?(D%-1) .'|
00000940  3b 63 6e 74 25 3f 44 25  3b 22 2e 22 47 24 3b 3a  |;cnt%?D%;"."G$;:|
00000950  f2 63 6f 6c 6f 75 72 3a  f1 bd 73 74 6f 72 65 25  |.colour:..store%|
00000960  28 44 25 2c 31 29 22 3d  22 bd 73 74 6f 72 65 25  |(D%,1)"=".store%|
00000970  28 44 25 2c 32 29 bd 31  33 35 3a 8b 20 f2 63 6f  |(D%,2).135:. .co|
00000980  6c 6f 75 72 3a f1 bd 73  74 6f 72 65 25 28 44 25  |lour:..store%(D%|
00000990  2c 31 29 22 3d 22 bd 73  74 6f 72 65 25 28 44 25  |,1)"=".store%(D%|
000009a0  2c 32 29 bd 31 33 35 3b  0d 04 b0 0e ed 3a 2a 46  |,2).135;.....:*F|
000009b0  58 31 31 32 2c 31 0d 04  ba 05 e1 0d 04 c4 0c dd  |X112,1..........|
000009c0  f2 66 6f 72 6d 61 74 0d  04 ce 16 47 24 3d c3 63  |.format....G$=.c|
000009d0  6e 74 25 3f 44 25 3a 46  25 3d a9 47 24 0d 04 d8  |nt%?D%:F%=.G$...|
000009e0  13 47 24 3d c4 33 2d 46  25 2c 22 20 22 29 3a e1  |.G$=.3-F%," "):.|
000009f0  0d 04 e2 0c dd f2 63 6f  6c 6f 75 72 0d 04 ec 1c  |......colour....|
00000a00  e7 20 73 74 6f 72 65 25  28 44 25 2c 31 29 3d 57  |. store%(D%,1)=W|
00000a10  25 20 ef 38 2c 31 32 39  0d 04 f6 1c e7 20 73 74  |% .8,129..... st|
00000a20  6f 72 65 25 28 44 25 2c  31 29 3d 55 25 20 ef 38  |ore%(D%,1)=U% .8|
00000a30  2c 31 32 39 0d 05 00 05  e1 0d 05 0a 0d dd f2 72  |,129...........r|
00000a40  65 70 6c 61 63 65 0d 05  14 16 e3 20 59 25 3d 31  |eplace..... Y%=1|
00000a50  b8 58 25 3a 50 25 3d 4d  25 3f 59 25 0d 05 1e 13  |.X%:P%=M%?Y%....|
00000a60  f2 63 68 61 6e 67 65 3a  ed 3a 2a 46 58 32 31 0d  |.change:.:*FX21.|
00000a70  05 28 0d f2 75 70 64 61  74 65 3a e1 0d 05 32 0c  |.(..update:...2.|
00000a80  dd f2 63 68 61 6e 67 65  0d 05 3c 0f e3 20 51 25  |..change..<.. Q%|
00000a90  3d 31 20 b8 20 32 36 0d  05 46 28 e7 20 73 74 6f  |=1 . 26..F(. sto|
00000aa0  72 65 25 28 51 25 2c 31  29 3d 50 25 20 4d 25 3f  |re%(Q%,1)=P% M%?|
00000ab0  59 25 3d 73 74 6f 72 65  25 28 51 25 2c 32 29 0d  |Y%=store%(Q%,2).|
00000ac0  05 50 07 ed 3a e1 0d 05  5a 0b dd f2 61 6c 74 65  |.P..:...Z...alte|
00000ad0  72 0d 05 64 12 ef 32 38  2c 30 2c 32 33 2c 33 39  |r..d..28,0,23,39|
00000ae0  2c 32 33 0d 05 6e 16 ef  32 33 3b 32 39 31 39 34  |,23..n..23;29194|
00000af0  3b 30 3b 30 3b 30 3b 31  32 0d 05 78 15 74 65 6d  |;0;0;0;12..x.tem|
00000b00  70 24 3d 22 22 3a f2 6f  70 74 69 6f 6e 73 0d 05  |p$="":.options..|
00000b10  82 0d f2 74 72 61 6e 73  66 65 72 0d 05 8c 2f e3  |...transfer.../.|
00000b20  20 51 25 3d 31 b8 32 36  3a e7 20 73 74 6f 72 65  | Q%=1.26:. store|
00000b30  25 28 51 25 2c 32 29 3d  57 25 20 73 74 6f 72 65  |%(Q%,2)=W% store|
00000b40  25 28 51 25 2c 32 29 3d  34 32 0d 05 96 31 ed 3a  |%(Q%,2)=42...1.:|
00000b50  e3 20 51 25 3d 31 b8 32  36 3a e7 20 73 74 6f 72  |. Q%=1.26:. stor|
00000b60  65 25 28 51 25 2c 32 29  3d 55 25 20 73 74 6f 72  |e%(Q%,2)=U% stor|
00000b70  65 25 28 51 25 2c 32 29  3d 57 25 0d 05 a0 31 ed  |e%(Q%,2)=W%...1.|
00000b80  3a e3 20 51 25 3d 31 b8  32 36 3a e7 20 73 74 6f  |:. Q%=1.26:. sto|
00000b90  72 65 25 28 51 25 2c 32  29 3d 34 32 20 73 74 6f  |re%(Q%,2)=42 sto|
00000ba0  72 65 25 28 51 25 2c 32  29 3d 55 25 0d 05 aa 13  |re%(Q%,2)=U%....|
00000bb0  ed 3a ef 32 38 2c 30 2c  32 33 2c 33 39 2c 31 0d  |.:.28,0,23,39,1.|
00000bc0  05 b4 0c f2 67 75 65 73  73 3a e1 0d 05 be 0d dd  |....guess:......|
00000bd0  f2 6f 70 74 69 6f 6e 73  0d 05 c8 3a f1 bd 31 33  |.options...:..13|
00000be0  33 22 42 61 63 6b 28 5b  29 20 45 6e 64 28 40 29  |3"Back([) End(@)|
00000bf0  20 53 77 61 70 28 41 2d  5a 29 20 6f 72 20 52 65  | Swap(A-Z) or Re|
00000c00  74 75 72 6e 20 3a 22 3b  3a 74 65 6d 70 24 3d be  |turn :";:temp$=.|
00000c10  3a f1 0d 05 d2 2b e7 20  74 65 6d 70 24 3d bd 31  |:....+. temp$=.1|
00000c20  33 20 f2 74 6f 67 67 6c  65 3a f5 20 fd 20 a5 3a  |3 .toggle:. . .:|
00000c30  f2 74 6f 67 67 6c 65 3a  e5 8d 64 48 45 0d 05 dc  |.toggle:..dHE...|
00000c40  25 e7 20 74 65 6d 70 24  3d 22 40 22 20 f2 74 72  |%. temp$="@" .tr|
00000c50  61 6e 73 66 65 72 3a f2  6c 61 73 74 63 6f 64 65  |ansfer:.lastcode|
00000c60  3a e0 0d 05 e6 25 e7 20  97 74 65 6d 70 24 3c 36  |:....%. .temp$<6|
00000c70  35 20 84 20 97 74 65 6d  70 24 3e 39 31 20 ef 37  |5 . .temp$>91 .7|
00000c80  3a e5 20 8d 64 48 45 0d  05 f0 4d e7 20 74 65 6d  |:. .dHE...M. tem|
00000c90  70 24 3d 22 5b 22 20 e7  20 a9 72 65 63 6f 72 64  |p$="[" . .record|
00000ca0  24 3e 31 20 f2 62 61 63  6b 74 72 61 63 6b 3a e1  |$>1 .backtrack:.|
00000cb0  3a 8b e7 20 74 65 6d 70  24 3d 22 5b 22 20 80 20  |:.. temp$="[" . |
00000cc0  a9 72 65 63 6f 72 64 24  3c 32 20 ef 37 3a e5 20  |.record$<2 .7:. |
00000cd0  8d 64 48 45 0d 05 fa 0d  57 25 3d 97 74 65 6d 70  |.dHE....W%=.temp|
00000ce0  24 0d 06 04 2f f1 bd 31  33 33 89 37 22 43 68 61  |$.../..133.7"Cha|
00000cf0  6e 67 65 20 74 6f 20 77  68 61 74 20 28 41 2d 5a  |nge to what (A-Z|
00000d00  29 20 3a 20 22 3b 3a 74  65 6d 70 24 3d be 3a f1  |) : ";:temp$=.:.|
00000d10  0d 06 0e 0d 55 25 3d 97  74 65 6d 70 24 0d 06 18  |....U%=.temp$...|
00000d20  1d e7 20 55 25 3c 36 35  20 84 20 55 25 3e 39 31  |.. U%<65 . U%>91|
00000d30  20 ef 37 3a e5 20 8d 64  48 45 0d 06 22 1e f1 bd  | .7:. .dHE.."...|
00000d40  31 33 33 22 4d 61 6b 69  6e 67 20 61 6c 74 65 72  |133"Making alter|
00000d50  61 74 69 6f 6e 73 22 3b  0d 06 2c 1b 72 65 63 6f  |ations";..,.reco|
00000d60  72 64 24 3d 72 65 63 6f  72 64 24 2b bd 57 25 2b  |rd$=record$+.W%+|
00000d70  bd 55 25 0d 06 36 05 e1  0d 06 40 0e dd f2 74 72  |.U%..6....@...tr|
00000d80  61 6e 73 66 65 72 0d 06  4a 29 e3 20 51 25 3d 31  |ansfer..J). Q%=1|
00000d90  b8 32 36 3a 73 74 6f 72  65 25 28 51 25 2c 31 29  |.26:store%(Q%,1)|
00000da0  3d 73 74 6f 72 65 25 28  51 25 2c 32 29 3a ed 0d  |=store%(Q%,2):..|
00000db0  06 54 05 e1 0d 06 5e 1b  dd f2 74 6f 67 67 6c 65  |.T....^...toggle|
00000dc0  3a e7 20 ac 6d 61 73 74  65 72 20 ef 37 3a e1 0d  |:. .master .7:..|
00000dd0  06 68 3f 54 25 3d 54 25  2b 31 3a e7 20 54 25 3e  |.h?T%=T%+1:. T%>|
00000de0  32 20 54 25 3d 31 3a ef  32 33 3b 32 39 31 39 34  |2 T%=1:.23;29194|
00000df0  3b 30 3b 30 3b 30 3b 3a  8b 20 54 25 3d 32 3a ef  |;0;0;0;:. T%=2:.|
00000e00  32 33 3b 38 32 30 32 3b  30 3b 30 3b 30 3b 0d 06  |23;8202;0;0;0;..|
00000e10  72 11 ff 22 46 58 31 31  33 2c 22 2b c3 54 25 0d  |r.."FX113,"+.T%.|
00000e20  06 7c 05 e1 0d 06 86 0f  dd f2 62 61 63 6b 74 72  |.|........backtr|
00000e30  61 63 6b 0d 06 90 13 55  25 3d 97 c2 72 65 63 6f  |ack....U%=..reco|
00000e40  72 64 24 2c 31 29 0d 06  9a 20 72 65 63 6f 72 64  |rd$,1)... record|
00000e50  24 3d c0 72 65 63 6f 72  64 24 2c a9 72 65 63 6f  |$=.record$,.reco|
00000e60  72 64 24 2d 31 29 0d 06  a4 13 57 25 3d 97 c2 72  |rd$-1)....W%=..r|
00000e70  65 63 6f 72 64 24 2c 31  29 0d 06 ae 20 72 65 63  |ecord$,1)... rec|
00000e80  6f 72 64 24 3d c0 72 65  63 6f 72 64 24 2c a9 72  |ord$=.record$,.r|
00000e90  65 63 6f 72 64 24 2d 31  29 0d 06 b8 05 e1 0d 06  |ecord$-1).......|
00000ea0  c2 0a dd f2 63 6f 70 79  0d 06 cc 1a e3 44 25 3d  |....copy.....D%=|
00000eb0  31 b8 58 25 3a 4e 25 3f  44 25 3d 4d 25 3f 44 25  |1.X%:N%?D%=M%?D%|
00000ec0  3a ed 0d 06 d6 05 e1 0d  06 e0 0e dd f2 6c 61 73  |:............las|
00000ed0  74 63 6f 64 65 0d 06 ea  15 ef 32 38 2c 30 2c 32  |tcode.....28,0,2|
00000ee0  33 2c 33 39 2c 31 3a db  3a f1 0d 06 f4 26 61 6c  |3,39,1:.:....&al|
00000ef0  70 68 24 3d 22 41 42 43  44 45 46 47 48 49 4a 4b  |ph$="ABCDEFGHIJK|
00000f00  4c 4d 4e 4f 50 51 52 53  54 55 56 57 58 59 5a 22  |LMNOPQRSTUVWXYZ"|
00000f10  0d 06 fe 0d e3 20 44 25  3d 31 b8 58 25 0d 07 08  |..... D%=1.X%...|
00000f20  15 4a 25 3d a7 61 6c 70  68 24 2c bd 4e 25 3f 44  |.J%=.alph$,.N%?D|
00000f30  25 29 0d 07 12 46 e7 20  4a 25 3e 30 20 f1 22 20  |%)...F. J%>0 ." |
00000f40  22 bd 4e 25 3f 44 25 22  3d 22 bd 4d 25 3f 44 25  |".N%?D%"=".M%?D%|
00000f50  3b 3a 61 6c 70 68 24 3d  c0 61 6c 70 68 24 2c 4a  |;:alph$=.alph$,J|
00000f60  25 2d 31 29 2b c1 61 6c  70 68 24 2c 4a 25 2b 31  |%-1)+.alph$,J%+1|
00000f70  2c a9 61 6c 70 68 24 29  0d 07 1c 08 ed 3a f1 27  |,.alph$).....:.'|
00000f80  0d 07 26 1f f1 bd 31 33  34 61 6c 70 68 24 2b 22  |..&...134alph$+"|
00000f90  20 64 6f 20 6e 6f 74 20  61 70 70 65 61 72 22 0d  | do not appear".|
00000fa0  07 30 07 f1 3a e1 0d 07  3a 0f dd f2 74 75 72 6e  |.0..:...:...turn|
00000fb0  61 62 6f 75 74 0d 07 44  21 e3 20 59 25 3d 31 b8  |about..D!. Y%=1.|
00000fc0  58 25 3a e7 20 4d 25 3f  59 25 3d 57 25 20 4d 25  |X%:. M%?Y%=W% M%|
00000fd0  3f 59 25 3d 34 32 0d 07  4e 23 ed 3a e3 20 59 25  |?Y%=42..N#.:. Y%|
00000fe0  3d 31 b8 58 25 3a e7 20  4d 25 3f 59 25 3d 55 25  |=1.X%:. M%?Y%=U%|
00000ff0  20 4d 25 3f 59 25 3d 57  25 0d 07 58 23 ed 3a e3  | M%?Y%=W%..X#.:.|
00001000  20 59 25 3d 31 b8 58 25  3a e7 20 4d 25 3f 59 25  | Y%=1.X%:. M%?Y%|
00001010  3d 34 32 20 4d 25 3f 59  25 3d 55 25 0d 07 62 0f  |=42 M%?Y%=U%..b.|
00001020  ed 3a f2 75 70 64 61 74  65 3a e1 0d 07 6c 0c dd  |.:.update:...l..|
00001030  f2 75 70 64 61 74 65 0d  07 76 16 ef 32 38 2c 30  |.update..v..28,0|
00001040  2c 32 33 2c 33 39 2c 31  2c 31 32 3a f1 0d 07 80  |,23,39,1,12:....|
00001050  17 e3 20 59 25 3d 31 b8  58 25 3a ef 20 4d 25 3f  |.. Y%=1.X%:. M%?|
00001060  59 25 3a ed 0d 07 8a 18  f1 27 8a 30 2c 32 31 29  |Y%:......'.0,21)|
00001070  3b 3a f2 6c 69 6e 65 28  43 31 24 29 0d 07 94 17  |;:.line(C1$)....|
00001080  e7 20 6d 61 73 74 65 72  20 8c 20 2a 46 58 31 31  |. master . *FX11|
00001090  33 2c 31 0d 07 9e 05 e1  0d 07 a8 39 dc 20 45 2c  |3,1........9. E,|
000010a0  54 2c 41 2c 4f 2c 4e 2c  49 2c 53 2c 48 2c 52 2c  |T,A,O,N,I,S,H,R,|
000010b0  44 2c 4c 2c 43 2c 55 2c  46 2c 4d 2c 50 2c 42 2c  |D,L,C,U,F,M,P,B,|
000010c0  57 2c 47 2c 59 2c 56 2c  4b 2c 58 2c 51 2c 4a 2c  |W,G,Y,V,K,X,Q,J,|
000010d0  5a 0d 07 b2 12 dd 20 f2  69 6e 69 74 5f 73 68 61  |Z..... .init_sha|
000010e0  64 6f 77 0d 07 bc 0d 2a  53 48 41 44 4f 57 20 31  |dow....*SHADOW 1|
000010f0  0d 07 c6 0c 2a 46 58 31  31 32 2c 32 0d 07 d0 05  |....*FX112,2....|
00001100  db 0d 07 da 0c 2a 46 58  31 31 32 2c 31 0d 07 e4  |.....*FX112,1...|
00001110  05 e1 0d ff                                       |....|
00001114