�    ENVELOPE MAKER V1
�    (C) ELECTRON USER
� Written by D.Ingleby-Oddy
( 
2�4
<
� EN%(12)
F� �6:�:�;" at line ";�:�
P�screen
Z	�init
d�
n	�main
x�0
��
�  
���screen
��23,1,0;0;0;0;
��P%=&C00:�N%=0�2�2:[OPTN%:LDA#&58:STA&91:LDA#0:STA&90:LDY#0:.l LDA#85:STA(&90),Y:INY:LDA#170:STA(&90),Y:INY:BNEl:CLC:LDA&91:ADC#1:STA&91:LDY#0:CMP#&80:BNEl:RTS:]:�:�&C00
��19,0,7;0;19,3,0;0;
��win(336,912,912,976)
��11,2)"ENVELOPE MAKER V1"
��win(48,752,688,816)
��2,7)"SOUND"
��win(48,496,1264,688)
��2,11)"ENVELOPE"
��win(48,176,656,432)

|�23,252,0,8,56,255,56,8,0,0,23,253,0,16,28,255,28,16,0,0,23,254,16,16,56,56,124,16,16,16,23,255,16,16,16,124,56,56,16,16

,�2,19);�(252);�(253);" = Select Number"

*�2,21);�(254);�(255);" = Alter +/- 1"

"+�2,23);�(254);�(255);"+SHIFT = +/- 10"

,�3,25)"T = Try SOUND"

6�win(720,368,1264,432)

@�23,19)"Sound Exp V3:";

J�P%=&C00:[OPT0:LDX&F4:LDA#13:STA&F4:STA&FE05:LDA&A0FF:STA&90:LDA&A900:�#&FF:STA&91:STA&A900:LDA&A900:STA&92:STX&F4:STX&FE05:RTS:]

T	�&C00

^4�?&90=1�(?&91=?&92) RE%=1:�;"YES" � RE%=0:�;"NO"

h�win(16,48,1264,112)

r3�1,29)"(C) 90 Electron User By D Ingleby-Oddy"

|	�26:�

�   

���win(X1%,Y2%,X2%,Y1%)

�E%=12:F%=8

���24,X1%;Y2%;X2%;Y1%;16:�X1%,Y2%:�X2%,Y2%:�X2%,Y1%:�X1%,Y1%:�X1%,Y2%:�X1%,Y2%+E%:�X1%+E%,Y2%+E%:�X1%+E%,Y2%:�X2%,Y2%+E%:�X2%-E%,Y2%+E%:�X2%-E%,Y2%:�X2%,Y1%-E%:�X2%-E%,Y1%-E%:�X2%-E%,Y1%

���X1%,Y1%-E%:�X1%+E%,Y1%-E%:�X1%+E%,Y1%:�X1%+E%,Y2%+F%:�X2%-E%,Y2%+F%:�X2%-F%,Y2%+E%:�X2%-F%,Y1%-E%:�X2%-E%,Y1%-F%:�X1%+E%,Y1%-F%:�X1%+F%,Y1%-E%:�X1%+F%,Y2%+E%:�

�  

�H��init:C%=1:V%=1:P%=255:D%=5:�dumpS:�clenv:�envALL:CX%=8:CY%=7:PO%=0

�E�N%=0�2�2:P%=&900:[OPTN%:LDY#0:.p LDA(&90),Y:�#&FF:STA(&90),Y:INY

�6CPY#8:BNEp:LDY#11:LDA(&90),Y:BEQy:CLC:LDA&90:ADC#8

�ASTA&90:LDA&91:ADC#0:STA&91:LDY#0:BEQp:.y RTS:]:�:P%=255:�hi:�

�  

�8��dumpS:�8,7);C%;",";V%;",";P%;",";D%;:�space(20):�

�  
_��dumpE1:�11,11);"1,";EN%(0);",";EN%(1);",";EN%(2);",";EN%(3);",";EN%(4);",";:�space(36):�
  
f��dumpE2:�11,13);EN%(5);",";EN%(6);",";EN%(7);",";EN%(8);",";EN%(9);",";EN%(10);",";:�space(38):�
&  
07��dumpE3:�11,15);EN%(11);",";EN%(12);:�space(21):�
:  
D
��main
N*FX21,0
X�-26 �tTB
b�-122 �thB
l�-42 �t|B
v�-58 �TBC
�D�-36 �inp:�("FX21,"+�(C%+4)):�C%,V%,P%,D%:�-36 �N%=0�100:� � �
��
�
PO%=PO%-1
��isit2:�
�
PO%=PO%+1
��isit:�
�!�PO%>=4 �envUD(0):�-42 �t|B
��?&25A � 64=64 I%=10 � I%=1
��PO%=0�C%<>0 C%=C%-1
��PO%=1�V%<>-15 V%=V%-1
��PO%=2�P%-I%>=0 P%=P%-I% 
��PO%=3�D%-I%>=0 D%=D%-I%
��dumpS:�-42 �dPB � �hi:�
!�PO%>=4 �envUD(1):�-58 �TBC
�?&25A � 64=64 I%=10 � I%=1
�PO%=0�C%<>3 C%=C%+1
 �PO%=1�V%<>1 V%=V%+1
*�PO%=2�P%+I%<=255 P%=P%+I%
4�PO%=3�D%+I%<=255 D%=D%+I%
>�dumpS:�-58 �TVC � �hi:�
H  
R��envUD(B%)
\�PO%=4 �dumpE1:�
f�PO%>=12 � RE%=0 �DPE
pQR%=PO%-4:�R%�tDC,�DzC,�DzC,�DzC,�tDC,�tDC,�tDC,�tNC,�tNC,�tXC,�tXC,�tbC,�tbC
z�range(-128,127):�
��range(0,255):�
��range(-127,127):�
��range(-127,0):�
��range(0,126):�
�  
���find:�hi:Q%=�adr
�W%=11:R%=1
��W%?Q%=0 � �d^C
�W%=W%+8:R%=R%+1:�dJC
�CX%=(CX%+1)+R%:�hi:�
�  
���hi:!&90=�adr
��&900:�
  
��space(Q%)
�<>(Q%+1) �;" ";:�TZD � �
$  
.#��find2:�hi:Q%=�adr:W%=-13:R%=1
8�W%?Q%=0 � �DLD
BW%=W%-8:R%=R%+1:�TxD
LCX%=CX%-R%:�hi:�
V  
`%ݤadr:=((CX%*8)+(CY%*&140))+&5800
j��isit:�PO%<=3 �find:�
t�PO%=4 �next(11,11):�
~�PO%=10 �next(11,13):�
��PO%=16 �next(11,15):�
��PO%=18 PO%=0:�next(8,7):�
��find:�
�  
�#��isit2:�PO%<=2�PO%>=0 �find2:�
��PO%=3 �move(8,7,0):�
�$�PO%=-1 PO%=17:�move(11,15,16):�
��PO%=15 �move(11,13,10):�
��PO%=9 �move(11,11,4):�
��find2:�
�  
�M��move(K%,L%,M%):�hi:�31,K%,L%:M%=PO%-M%:CX%=K%:CY%=L%:K%=2:Q%=�adr:L%=11
�L%?Q%=0 M%=M%-1

&�M%=0 CX%=CX%+K%:�31,CX%,CY%:�hi:�
L%=L%+8:K%=K%+1:�T@E
  
(3��next(K%,L%):�hi:�31,K%,L%:CX%=K%:CY%=L%:�hi:�
27��range(K%,L%):R%=PO%-5:�?&25A � 64=64 I%=10 � I%=1
<-�B%=1�(EN%(R%)+I%)<=L% EN%(R%)=EN%(R%)+I%
F-�B%=0�(EN%(R%)-I%)>=K% EN%(R%)=EN%(R%)-I%
P�CY%=11 �dumpE1
Z�CY%=13 �dumpE2
d�CY%=15 �dumpE3
n�
x  
�+��envALL:�dumpE1:�dumpE2:�dumpE3:�inp:�
�  
�'��clenv:��t`E:�N%=0�12:�EN%(N%):�:�
�0�129,-15,-8,-3,10,10,10,126,0,0,-126,126,126
�  
�l��inp:�1,EN%(0),EN%(1),EN%(2),EN%(3),EN%(4),EN%(5),EN%(6),EN%(7),EN%(8),EN%(9),EN%(10),EN%(11),EN%(12):�
�

00000000  0d 00 0a 1a f4 20 20 20  20 45 4e 56 45 4c 4f 50  |.....    ENVELOP|
00000010  45 20 4d 41 4b 45 52 20  56 31 0d 00 14 1a f4 20  |E MAKER V1..... |
00000020  20 20 20 28 43 29 20 45  4c 45 43 54 52 4f 4e 20  |   (C) ELECTRON |
00000030  55 53 45 52 0d 00 1e 1f  f4 20 57 72 69 74 74 65  |USER..... Writte|
00000040  6e 20 62 79 20 44 2e 49  6e 67 6c 65 62 79 2d 4f  |n by D.Ingleby-O|
00000050  64 64 79 0d 00 28 05 20  0d 00 32 06 eb 34 0d 00  |ddy..(. ..2..4..|
00000060  3c 0d de 20 45 4e 25 28  31 32 29 0d 00 46 1d ee  |<.. EN%(12)..F..|
00000070  85 20 eb 36 3a f6 3a f1  3b 22 20 61 74 20 6c 69  |. .6:.:.;" at li|
00000080  6e 65 20 22 3b 9e 3a e0  0d 00 50 0b f2 73 63 72  |ne ";.:...P..scr|
00000090  65 65 6e 0d 00 5a 09 f2  69 6e 69 74 0d 00 64 05  |een..Z..init..d.|
000000a0  f5 0d 00 6e 09 f2 6d 61  69 6e 0d 00 78 06 fd 30  |...n..main..x..0|
000000b0  0d 00 82 05 e0 0d 00 8c  06 20 20 0d 00 96 0c dd  |.........  .....|
000000c0  f2 73 63 72 65 65 6e 0d  00 a0 12 ef 32 33 2c 31  |.screen.....23,1|
000000d0  2c 30 3b 30 3b 30 3b 30  3b 0d 00 aa ac 50 25 3d  |,0;0;0;0;....P%=|
000000e0  26 43 30 30 3a e3 4e 25  3d 30 b8 32 88 32 3a 5b  |&C00:.N%=0.2.2:[|
000000f0  4f 50 54 4e 25 3a 4c 44  41 23 26 35 38 3a 53 54  |OPTN%:LDA#&58:ST|
00000100  41 26 39 31 3a 4c 44 41  23 30 3a 53 54 41 26 39  |A&91:LDA#0:STA&9|
00000110  30 3a 4c 44 59 23 30 3a  2e 6c 20 4c 44 41 23 38  |0:LDY#0:.l LDA#8|
00000120  35 3a 53 54 41 28 26 39  30 29 2c 59 3a 49 4e 59  |5:STA(&90),Y:INY|
00000130  3a 4c 44 41 23 31 37 30  3a 53 54 41 28 26 39 30  |:LDA#170:STA(&90|
00000140  29 2c 59 3a 49 4e 59 3a  42 4e 45 6c 3a 43 4c 43  |),Y:INY:BNEl:CLC|
00000150  3a 4c 44 41 26 39 31 3a  41 44 43 23 31 3a 53 54  |:LDA&91:ADC#1:ST|
00000160  41 26 39 31 3a 4c 44 59  23 30 3a 43 4d 50 23 26  |A&91:LDY#0:CMP#&|
00000170  38 30 3a 42 4e 45 6c 3a  52 54 53 3a 5d 3a ed 3a  |80:BNEl:RTS:]:.:|
00000180  d6 26 43 30 30 0d 00 b4  17 ef 31 39 2c 30 2c 37  |.&C00.....19,0,7|
00000190  3b 30 3b 31 39 2c 33 2c  30 3b 30 3b 0d 00 be 19  |;0;19,3,0;0;....|
000001a0  f2 77 69 6e 28 33 33 36  2c 39 31 32 2c 39 31 32  |.win(336,912,912|
000001b0  2c 39 37 36 29 0d 00 c8  1e f1 8a 31 31 2c 32 29  |,976)......11,2)|
000001c0  22 45 4e 56 45 4c 4f 50  45 20 4d 41 4b 45 52 20  |"ENVELOPE MAKER |
000001d0  56 31 22 0d 00 d2 18 f2  77 69 6e 28 34 38 2c 37  |V1".....win(48,7|
000001e0  35 32 2c 36 38 38 2c 38  31 36 29 0d 00 dc 11 f1  |52,688,816).....|
000001f0  8a 32 2c 37 29 22 53 4f  55 4e 44 22 0d 00 e6 19  |.2,7)"SOUND"....|
00000200  f2 77 69 6e 28 34 38 2c  34 39 36 2c 31 32 36 34  |.win(48,496,1264|
00000210  2c 36 38 38 29 0d 00 f0  15 f1 8a 32 2c 31 31 29  |,688)......2,11)|
00000220  22 45 4e 56 45 4c 4f 50  45 22 0d 00 fa 18 f2 77  |"ENVELOPE".....w|
00000230  69 6e 28 34 38 2c 31 37  36 2c 36 35 36 2c 34 33  |in(48,176,656,43|
00000240  32 29 0d 01 04 7c ef 32  33 2c 32 35 32 2c 30 2c  |2)...|.23,252,0,|
00000250  38 2c 35 36 2c 32 35 35  2c 35 36 2c 38 2c 30 2c  |8,56,255,56,8,0,|
00000260  30 2c 32 33 2c 32 35 33  2c 30 2c 31 36 2c 32 38  |0,23,253,0,16,28|
00000270  2c 32 35 35 2c 32 38 2c  31 36 2c 30 2c 30 2c 32  |,255,28,16,0,0,2|
00000280  33 2c 32 35 34 2c 31 36  2c 31 36 2c 35 36 2c 35  |3,254,16,16,56,5|
00000290  36 2c 31 32 34 2c 31 36  2c 31 36 2c 31 36 2c 32  |6,124,16,16,16,2|
000002a0  33 2c 32 35 35 2c 31 36  2c 31 36 2c 31 36 2c 31  |3,255,16,16,16,1|
000002b0  32 34 2c 35 36 2c 35 36  2c 31 36 2c 31 36 0d 01  |24,56,56,16,16..|
000002c0  0e 2c f1 8a 32 2c 31 39  29 3b bd 28 32 35 32 29  |.,..2,19);.(252)|
000002d0  3b bd 28 32 35 33 29 3b  22 20 3d 20 53 65 6c 65  |;.(253);" = Sele|
000002e0  63 74 20 4e 75 6d 62 65  72 22 0d 01 18 2a f1 8a  |ct Number"...*..|
000002f0  32 2c 32 31 29 3b bd 28  32 35 34 29 3b bd 28 32  |2,21);.(254);.(2|
00000300  35 35 29 3b 22 20 3d 20  41 6c 74 65 72 20 2b 2f  |55);" = Alter +/|
00000310  2d 20 31 22 0d 01 22 2b  f1 8a 32 2c 32 33 29 3b  |- 1".."+..2,23);|
00000320  bd 28 32 35 34 29 3b bd  28 32 35 35 29 3b 22 2b  |.(254);.(255);"+|
00000330  53 48 49 46 54 20 3d 20  2b 2f 2d 20 31 30 22 0d  |SHIFT = +/- 10".|
00000340  01 2c 1a f1 8a 33 2c 32  35 29 22 54 20 3d 20 54  |.,...3,25)"T = T|
00000350  72 79 20 53 4f 55 4e 44  22 0d 01 36 1a f2 77 69  |ry SOUND"..6..wi|
00000360  6e 28 37 32 30 2c 33 36  38 2c 31 32 36 34 2c 34  |n(720,368,1264,4|
00000370  33 32 29 0d 01 40 1c f1  8a 32 33 2c 31 39 29 22  |32)..@...23,19)"|
00000380  53 6f 75 6e 64 20 45 78  70 20 56 33 3a 22 3b 0d  |Sound Exp V3:";.|
00000390  01 4a 84 50 25 3d 26 43  30 30 3a 5b 4f 50 54 30  |.J.P%=&C00:[OPT0|
000003a0  3a 4c 44 58 26 46 34 3a  4c 44 41 23 31 33 3a 53  |:LDX&F4:LDA#13:S|
000003b0  54 41 26 46 34 3a 53 54  41 26 46 45 30 35 3a 4c  |TA&F4:STA&FE05:L|
000003c0  44 41 26 41 30 46 46 3a  53 54 41 26 39 30 3a 4c  |DA&A0FF:STA&90:L|
000003d0  44 41 26 41 39 30 30 3a  82 23 26 46 46 3a 53 54  |DA&A900:.#&FF:ST|
000003e0  41 26 39 31 3a 53 54 41  26 41 39 30 30 3a 4c 44  |A&91:STA&A900:LD|
000003f0  41 26 41 39 30 30 3a 53  54 41 26 39 32 3a 53 54  |A&A900:STA&92:ST|
00000400  58 26 46 34 3a 53 54 58  26 46 45 30 35 3a 52 54  |X&F4:STX&FE05:RT|
00000410  53 3a 5d 0d 01 54 09 d6  26 43 30 30 0d 01 5e 34  |S:]..T..&C00..^4|
00000420  e7 3f 26 39 30 3d 31 80  28 3f 26 39 31 3d 3f 26  |.?&90=1.(?&91=?&|
00000430  39 32 29 20 52 45 25 3d  31 3a f1 3b 22 59 45 53  |92) RE%=1:.;"YES|
00000440  22 20 8b 20 52 45 25 3d  30 3a f1 3b 22 4e 4f 22  |" . RE%=0:.;"NO"|
00000450  0d 01 68 18 f2 77 69 6e  28 31 36 2c 34 38 2c 31  |..h..win(16,48,1|
00000460  32 36 34 2c 31 31 32 29  0d 01 72 33 f1 8a 31 2c  |264,112)..r3..1,|
00000470  32 39 29 22 28 43 29 20  39 30 20 45 6c 65 63 74  |29)"(C) 90 Elect|
00000480  72 6f 6e 20 55 73 65 72  20 42 79 20 44 20 49 6e  |ron User By D In|
00000490  67 6c 65 62 79 2d 4f 64  64 79 22 0d 01 7c 09 ef  |gleby-Oddy"..|..|
000004a0  32 36 3a e1 0d 01 86 07  20 20 20 0d 01 90 1a dd  |26:.....   .....|
000004b0  f2 77 69 6e 28 58 31 25  2c 59 32 25 2c 58 32 25  |.win(X1%,Y2%,X2%|
000004c0  2c 59 31 25 29 0d 01 9a  0e 45 25 3d 31 32 3a 46  |,Y1%)....E%=12:F|
000004d0  25 3d 38 0d 01 a4 bc ef  32 34 2c 58 31 25 3b 59  |%=8.....24,X1%;Y|
000004e0  32 25 3b 58 32 25 3b 59  31 25 3b 31 36 3a ec 58  |2%;X2%;Y1%;16:.X|
000004f0  31 25 2c 59 32 25 3a df  58 32 25 2c 59 32 25 3a  |1%,Y2%:.X2%,Y2%:|
00000500  df 58 32 25 2c 59 31 25  3a df 58 31 25 2c 59 31  |.X2%,Y1%:.X1%,Y1|
00000510  25 3a df 58 31 25 2c 59  32 25 3a ec 58 31 25 2c  |%:.X1%,Y2%:.X1%,|
00000520  59 32 25 2b 45 25 3a df  58 31 25 2b 45 25 2c 59  |Y2%+E%:.X1%+E%,Y|
00000530  32 25 2b 45 25 3a df 58  31 25 2b 45 25 2c 59 32  |2%+E%:.X1%+E%,Y2|
00000540  25 3a ec 58 32 25 2c 59  32 25 2b 45 25 3a df 58  |%:.X2%,Y2%+E%:.X|
00000550  32 25 2d 45 25 2c 59 32  25 2b 45 25 3a df 58 32  |2%-E%,Y2%+E%:.X2|
00000560  25 2d 45 25 2c 59 32 25  3a ec 58 32 25 2c 59 31  |%-E%,Y2%:.X2%,Y1|
00000570  25 2d 45 25 3a df 58 32  25 2d 45 25 2c 59 31 25  |%-E%:.X2%-E%,Y1%|
00000580  2d 45 25 3a df 58 32 25  2d 45 25 2c 59 31 25 0d  |-E%:.X2%-E%,Y1%.|
00000590  01 ae a4 ec 58 31 25 2c  59 31 25 2d 45 25 3a df  |....X1%,Y1%-E%:.|
000005a0  58 31 25 2b 45 25 2c 59  31 25 2d 45 25 3a df 58  |X1%+E%,Y1%-E%:.X|
000005b0  31 25 2b 45 25 2c 59 31  25 3a ec 58 31 25 2b 45  |1%+E%,Y1%:.X1%+E|
000005c0  25 2c 59 32 25 2b 46 25  3a df 58 32 25 2d 45 25  |%,Y2%+F%:.X2%-E%|
000005d0  2c 59 32 25 2b 46 25 3a  ec 58 32 25 2d 46 25 2c  |,Y2%+F%:.X2%-F%,|
000005e0  59 32 25 2b 45 25 3a df  58 32 25 2d 46 25 2c 59  |Y2%+E%:.X2%-F%,Y|
000005f0  31 25 2d 45 25 3a ec 58  32 25 2d 45 25 2c 59 31  |1%-E%:.X2%-E%,Y1|
00000600  25 2d 46 25 3a df 58 31  25 2b 45 25 2c 59 31 25  |%-F%:.X1%+E%,Y1%|
00000610  2d 46 25 3a ec 58 31 25  2b 46 25 2c 59 31 25 2d  |-F%:.X1%+F%,Y1%-|
00000620  45 25 3a df 58 31 25 2b  46 25 2c 59 32 25 2b 45  |E%:.X1%+F%,Y2%+E|
00000630  25 3a e1 0d 01 b8 06 20  20 0d 01 c2 48 dd f2 69  |%:.....  ...H..i|
00000640  6e 69 74 3a 43 25 3d 31  3a 56 25 3d 31 3a 50 25  |nit:C%=1:V%=1:P%|
00000650  3d 32 35 35 3a 44 25 3d  35 3a f2 64 75 6d 70 53  |=255:D%=5:.dumpS|
00000660  3a f2 63 6c 65 6e 76 3a  f2 65 6e 76 41 4c 4c 3a  |:.clenv:.envALL:|
00000670  43 58 25 3d 38 3a 43 59  25 3d 37 3a 50 4f 25 3d  |CX%=8:CY%=7:PO%=|
00000680  30 0d 01 cc 45 e3 4e 25  3d 30 b8 32 88 32 3a 50  |0...E.N%=0.2.2:P|
00000690  25 3d 26 39 30 30 3a 5b  4f 50 54 4e 25 3a 4c 44  |%=&900:[OPTN%:LD|
000006a0  59 23 30 3a 2e 70 20 4c  44 41 28 26 39 30 29 2c  |Y#0:.p LDA(&90),|
000006b0  59 3a 82 23 26 46 46 3a  53 54 41 28 26 39 30 29  |Y:.#&FF:STA(&90)|
000006c0  2c 59 3a 49 4e 59 0d 01  d6 36 43 50 59 23 38 3a  |,Y:INY...6CPY#8:|
000006d0  42 4e 45 70 3a 4c 44 59  23 31 31 3a 4c 44 41 28  |BNEp:LDY#11:LDA(|
000006e0  26 39 30 29 2c 59 3a 42  45 51 79 3a 43 4c 43 3a  |&90),Y:BEQy:CLC:|
000006f0  4c 44 41 26 39 30 3a 41  44 43 23 38 0d 01 e0 41  |LDA&90:ADC#8...A|
00000700  53 54 41 26 39 30 3a 4c  44 41 26 39 31 3a 41 44  |STA&90:LDA&91:AD|
00000710  43 23 30 3a 53 54 41 26  39 31 3a 4c 44 59 23 30  |C#0:STA&91:LDY#0|
00000720  3a 42 45 51 70 3a 2e 79  20 52 54 53 3a 5d 3a ed  |:BEQp:.y RTS:]:.|
00000730  3a 50 25 3d 32 35 35 3a  f2 68 69 3a e1 0d 01 ea  |:P%=255:.hi:....|
00000740  06 20 20 0d 01 f4 38 dd  f2 64 75 6d 70 53 3a f1  |.  ...8..dumpS:.|
00000750  8a 38 2c 37 29 3b 43 25  3b 22 2c 22 3b 56 25 3b  |.8,7);C%;",";V%;|
00000760  22 2c 22 3b 50 25 3b 22  2c 22 3b 44 25 3b 3a f2  |",";P%;",";D%;:.|
00000770  73 70 61 63 65 28 32 30  29 3a e1 0d 01 fe 06 20  |space(20):..... |
00000780  20 0d 02 08 5f dd f2 64  75 6d 70 45 31 3a f1 8a  | ..._..dumpE1:..|
00000790  31 31 2c 31 31 29 3b 22  31 2c 22 3b 45 4e 25 28  |11,11);"1,";EN%(|
000007a0  30 29 3b 22 2c 22 3b 45  4e 25 28 31 29 3b 22 2c  |0);",";EN%(1);",|
000007b0  22 3b 45 4e 25 28 32 29  3b 22 2c 22 3b 45 4e 25  |";EN%(2);",";EN%|
000007c0  28 33 29 3b 22 2c 22 3b  45 4e 25 28 34 29 3b 22  |(3);",";EN%(4);"|
000007d0  2c 22 3b 3a f2 73 70 61  63 65 28 33 36 29 3a e1  |,";:.space(36):.|
000007e0  0d 02 12 06 20 20 0d 02  1c 66 dd f2 64 75 6d 70  |....  ...f..dump|
000007f0  45 32 3a f1 8a 31 31 2c  31 33 29 3b 45 4e 25 28  |E2:..11,13);EN%(|
00000800  35 29 3b 22 2c 22 3b 45  4e 25 28 36 29 3b 22 2c  |5);",";EN%(6);",|
00000810  22 3b 45 4e 25 28 37 29  3b 22 2c 22 3b 45 4e 25  |";EN%(7);",";EN%|
00000820  28 38 29 3b 22 2c 22 3b  45 4e 25 28 39 29 3b 22  |(8);",";EN%(9);"|
00000830  2c 22 3b 45 4e 25 28 31  30 29 3b 22 2c 22 3b 3a  |,";EN%(10);",";:|
00000840  f2 73 70 61 63 65 28 33  38 29 3a e1 0d 02 26 06  |.space(38):...&.|
00000850  20 20 0d 02 30 37 dd f2  64 75 6d 70 45 33 3a f1  |  ..07..dumpE3:.|
00000860  8a 31 31 2c 31 35 29 3b  45 4e 25 28 31 31 29 3b  |.11,15);EN%(11);|
00000870  22 2c 22 3b 45 4e 25 28  31 32 29 3b 3a f2 73 70  |",";EN%(12);:.sp|
00000880  61 63 65 28 32 31 29 3a  e1 0d 02 3a 06 20 20 0d  |ace(21):...:.  .|
00000890  02 44 0a dd f2 6d 61 69  6e 0d 02 4e 0b 2a 46 58  |.D...main..N.*FX|
000008a0  32 31 2c 30 0d 02 58 0f  e7 a6 2d 32 36 20 e5 8d  |21,0..X...-26 ..|
000008b0  74 54 42 0d 02 62 10 e7  a6 2d 31 32 32 20 e5 8d  |tTB..b...-122 ..|
000008c0  74 68 42 0d 02 6c 0f e7  a6 2d 34 32 20 e5 8d 74  |thB..l...-42 ..t|
000008d0  7c 42 0d 02 76 0f e7 a6  2d 35 38 20 e5 8d 54 42  ||B..v...-58 ..TB|
000008e0  43 0d 02 80 44 e7 a6 2d  33 36 20 f2 69 6e 70 3a  |C...D..-36 .inp:|
000008f0  ff 28 22 46 58 32 31 2c  22 2b c3 28 43 25 2b 34  |.("FX21,"+.(C%+4|
00000900  29 29 3a d4 43 25 2c 56  25 2c 50 25 2c 44 25 3a  |)):.C%,V%,P%,D%:|
00000910  e7 a6 2d 33 36 20 e3 4e  25 3d 30 b8 31 30 30 3a  |..-36 .N%=0.100:|
00000920  ed 20 8b 20 e1 0d 02 8a  05 e1 0d 02 94 0d 50 4f  |. . ..........PO|
00000930  25 3d 50 4f 25 2d 31 0d  02 9e 0c f2 69 73 69 74  |%=PO%-1.....isit|
00000940  32 3a e1 0d 02 a8 0d 50  4f 25 3d 50 4f 25 2b 31  |2:.....PO%=PO%+1|
00000950  0d 02 b2 0b f2 69 73 69  74 3a e1 0d 02 bc 21 e7  |.....isit:....!.|
00000960  50 4f 25 3e 3d 34 20 f2  65 6e 76 55 44 28 30 29  |PO%>=4 .envUD(0)|
00000970  3a e7 a6 2d 34 32 20 e5  8d 74 7c 42 0d 02 c6 1f  |:..-42 ..t|B....|
00000980  e7 3f 26 32 35 41 20 80  20 36 34 3d 36 34 20 49  |.?&25A . 64=64 I|
00000990  25 3d 31 30 20 8b 20 49  25 3d 31 0d 02 d0 18 e7  |%=10 . I%=1.....|
000009a0  50 4f 25 3d 30 80 43 25  3c 3e 30 20 43 25 3d 43  |PO%=0.C%<>0 C%=C|
000009b0  25 2d 31 0d 02 da 1a e7  50 4f 25 3d 31 80 56 25  |%-1.....PO%=1.V%|
000009c0  3c 3e 2d 31 35 20 56 25  3d 56 25 2d 31 0d 02 e4  |<>-15 V%=V%-1...|
000009d0  1d e7 50 4f 25 3d 32 80  50 25 2d 49 25 3e 3d 30  |..PO%=2.P%-I%>=0|
000009e0  20 50 25 3d 50 25 2d 49  25 20 0d 02 ee 1c e7 50  | P%=P%-I% .....P|
000009f0  4f 25 3d 33 80 44 25 2d  49 25 3e 3d 30 20 44 25  |O%=3.D%-I%>=0 D%|
00000a00  3d 44 25 2d 49 25 0d 02  f8 1e f2 64 75 6d 70 53  |=D%-I%.....dumpS|
00000a10  3a e7 a6 2d 34 32 20 e5  8d 64 50 42 20 8b 20 f2  |:..-42 ..dPB . .|
00000a20  68 69 3a e1 0d 03 02 21  e7 50 4f 25 3e 3d 34 20  |hi:....!.PO%>=4 |
00000a30  f2 65 6e 76 55 44 28 31  29 3a e7 a6 2d 35 38 20  |.envUD(1):..-58 |
00000a40  e5 8d 54 42 43 0d 03 0c  1f e7 3f 26 32 35 41 20  |..TBC.....?&25A |
00000a50  80 20 36 34 3d 36 34 20  49 25 3d 31 30 20 8b 20  |. 64=64 I%=10 . |
00000a60  49 25 3d 31 0d 03 16 18  e7 50 4f 25 3d 30 80 43  |I%=1.....PO%=0.C|
00000a70  25 3c 3e 33 20 43 25 3d  43 25 2b 31 0d 03 20 18  |%<>3 C%=C%+1.. .|
00000a80  e7 50 4f 25 3d 31 80 56  25 3c 3e 31 20 56 25 3d  |.PO%=1.V%<>1 V%=|
00000a90  56 25 2b 31 0d 03 2a 1e  e7 50 4f 25 3d 32 80 50  |V%+1..*..PO%=2.P|
00000aa0  25 2b 49 25 3c 3d 32 35  35 20 50 25 3d 50 25 2b  |%+I%<=255 P%=P%+|
00000ab0  49 25 0d 03 34 1e e7 50  4f 25 3d 33 80 44 25 2b  |I%..4..PO%=3.D%+|
00000ac0  49 25 3c 3d 32 35 35 20  44 25 3d 44 25 2b 49 25  |I%<=255 D%=D%+I%|
00000ad0  0d 03 3e 1e f2 64 75 6d  70 53 3a e7 a6 2d 35 38  |..>..dumpS:..-58|
00000ae0  20 e5 8d 54 56 43 20 8b  20 f2 68 69 3a e1 0d 03  | ..TVC . .hi:...|
00000af0  48 06 20 20 0d 03 52 0f  dd f2 65 6e 76 55 44 28  |H.  ..R...envUD(|
00000b00  42 25 29 0d 03 5c 14 e7  50 4f 25 3d 34 20 f2 64  |B%)..\..PO%=4 .d|
00000b10  75 6d 70 45 31 3a e1 0d  03 66 1a e7 50 4f 25 3e  |umpE1:...f..PO%>|
00000b20  3d 31 32 20 80 20 52 45  25 3d 30 20 e5 8d 44 50  |=12 . RE%=0 ..DP|
00000b30  45 0d 03 70 51 52 25 3d  50 4f 25 2d 34 3a ee 52  |E..pQR%=PO%-4:.R|
00000b40  25 e5 8d 74 44 43 2c 8d  44 7a 43 2c 8d 44 7a 43  |%..tDC,.DzC,.DzC|
00000b50  2c 8d 44 7a 43 2c 8d 74  44 43 2c 8d 74 44 43 2c  |,.DzC,.tDC,.tDC,|
00000b60  8d 74 44 43 2c 8d 74 4e  43 2c 8d 74 4e 43 2c 8d  |.tDC,.tNC,.tNC,.|
00000b70  74 58 43 2c 8d 74 58 43  2c 8d 74 62 43 2c 8d 74  |tXC,.tXC,.tbC,.t|
00000b80  62 43 0d 03 7a 16 f2 72  61 6e 67 65 28 2d 31 32  |bC..z..range(-12|
00000b90  38 2c 31 32 37 29 3a e1  0d 03 84 13 f2 72 61 6e  |8,127):......ran|
00000ba0  67 65 28 30 2c 32 35 35  29 3a e1 0d 03 8e 16 f2  |ge(0,255):......|
00000bb0  72 61 6e 67 65 28 2d 31  32 37 2c 31 32 37 29 3a  |range(-127,127):|
00000bc0  e1 0d 03 98 14 f2 72 61  6e 67 65 28 2d 31 32 37  |......range(-127|
00000bd0  2c 30 29 3a e1 0d 03 a2  13 f2 72 61 6e 67 65 28  |,0):......range(|
00000be0  30 2c 31 32 36 29 3a e1  0d 03 ac 06 20 20 0d 03  |0,126):.....  ..|
00000bf0  b6 16 dd f2 66 69 6e 64  3a f2 68 69 3a 51 25 3d  |....find:.hi:Q%=|
00000c00  a4 61 64 72 0d 03 c0 0e  57 25 3d 31 31 3a 52 25  |.adr....W%=11:R%|
00000c10  3d 31 0d 03 ca 13 e7 57  25 3f 51 25 3d 30 20 e5  |=1.....W%?Q%=0 .|
00000c20  20 8d 64 5e 43 0d 03 d4  19 57 25 3d 57 25 2b 38  | .d^C....W%=W%+8|
00000c30  3a 52 25 3d 52 25 2b 31  3a e5 8d 64 4a 43 0d 03  |:R%=R%+1:..dJC..|
00000c40  de 18 43 58 25 3d 28 43  58 25 2b 31 29 2b 52 25  |..CX%=(CX%+1)+R%|
00000c50  3a f2 68 69 3a e1 0d 03  e8 06 20 20 0d 03 f2 12  |:.hi:.....  ....|
00000c60  dd f2 68 69 3a 21 26 39  30 3d a4 61 64 72 0d 03  |..hi:!&90=.adr..|
00000c70  fc 0b d6 26 39 30 30 3a  e1 0d 04 06 06 20 20 0d  |...&900:.....  .|
00000c80  04 10 0f dd f2 73 70 61  63 65 28 51 25 29 0d 04  |.....space(Q%)..|
00000c90  1a 1f e7 b1 3c 3e 28 51  25 2b 31 29 20 f1 3b 22  |....<>(Q%+1) .;"|
00000ca0  20 22 3b 3a e5 8d 54 5a  44 20 8b 20 e1 0d 04 24  | ";:..TZD . ...$|
00000cb0  06 20 20 0d 04 2e 23 dd  f2 66 69 6e 64 32 3a f2  |.  ...#..find2:.|
00000cc0  68 69 3a 51 25 3d a4 61  64 72 3a 57 25 3d 2d 31  |hi:Q%=.adr:W%=-1|
00000cd0  33 3a 52 25 3d 31 0d 04  38 13 e7 57 25 3f 51 25  |3:R%=1..8..W%?Q%|
00000ce0  3d 30 20 e5 20 8d 44 4c  44 0d 04 42 19 57 25 3d  |=0 . .DLD..B.W%=|
00000cf0  57 25 2d 38 3a 52 25 3d  52 25 2b 31 3a e5 8d 54  |W%-8:R%=R%+1:..T|
00000d00  78 44 0d 04 4c 14 43 58  25 3d 43 58 25 2d 52 25  |xD..L.CX%=CX%-R%|
00000d10  3a f2 68 69 3a e1 0d 04  56 06 20 20 0d 04 60 25  |:.hi:...V.  ..`%|
00000d20  dd a4 61 64 72 3a 3d 28  28 43 58 25 2a 38 29 2b  |..adr:=((CX%*8)+|
00000d30  28 43 59 25 2a 26 31 34  30 29 29 2b 26 35 38 30  |(CY%*&140))+&580|
00000d40  30 0d 04 6a 1a dd f2 69  73 69 74 3a e7 50 4f 25  |0..j...isit:.PO%|
00000d50  3c 3d 33 20 f2 66 69 6e  64 3a e1 0d 04 74 19 e7  |<=3 .find:...t..|
00000d60  50 4f 25 3d 34 20 f2 6e  65 78 74 28 31 31 2c 31  |PO%=4 .next(11,1|
00000d70  31 29 3a e1 0d 04 7e 1a  e7 50 4f 25 3d 31 30 20  |1):...~..PO%=10 |
00000d80  f2 6e 65 78 74 28 31 31  2c 31 33 29 3a e1 0d 04  |.next(11,13):...|
00000d90  88 1a e7 50 4f 25 3d 31  36 20 f2 6e 65 78 74 28  |...PO%=16 .next(|
00000da0  31 31 2c 31 35 29 3a e1  0d 04 92 1e e7 50 4f 25  |11,15):......PO%|
00000db0  3d 31 38 20 50 4f 25 3d  30 3a f2 6e 65 78 74 28  |=18 PO%=0:.next(|
00000dc0  38 2c 37 29 3a e1 0d 04  9c 0b f2 66 69 6e 64 3a  |8,7):......find:|
00000dd0  e1 0d 04 a6 06 20 20 0d  04 b0 23 dd f2 69 73 69  |.....  ...#..isi|
00000de0  74 32 3a e7 50 4f 25 3c  3d 32 80 50 4f 25 3e 3d  |t2:.PO%<=2.PO%>=|
00000df0  30 20 f2 66 69 6e 64 32  3a e1 0d 04 ba 19 e7 50  |0 .find2:......P|
00000e00  4f 25 3d 33 20 f2 6d 6f  76 65 28 38 2c 37 2c 30  |O%=3 .move(8,7,0|
00000e10  29 3a e1 0d 04 c4 24 e7  50 4f 25 3d 2d 31 20 50  |):....$.PO%=-1 P|
00000e20  4f 25 3d 31 37 3a f2 6d  6f 76 65 28 31 31 2c 31  |O%=17:.move(11,1|
00000e30  35 2c 31 36 29 3a e1 0d  04 ce 1d e7 50 4f 25 3d  |5,16):......PO%=|
00000e40  31 35 20 f2 6d 6f 76 65  28 31 31 2c 31 33 2c 31  |15 .move(11,13,1|
00000e50  30 29 3a e1 0d 04 d8 1b  e7 50 4f 25 3d 39 20 f2  |0):......PO%=9 .|
00000e60  6d 6f 76 65 28 31 31 2c  31 31 2c 34 29 3a e1 0d  |move(11,11,4):..|
00000e70  04 e2 0c f2 66 69 6e 64  32 3a e1 0d 04 ec 06 20  |....find2:..... |
00000e80  20 0d 04 f6 4d dd f2 6d  6f 76 65 28 4b 25 2c 4c  | ...M..move(K%,L|
00000e90  25 2c 4d 25 29 3a f2 68  69 3a ef 33 31 2c 4b 25  |%,M%):.hi:.31,K%|
00000ea0  2c 4c 25 3a 4d 25 3d 50  4f 25 2d 4d 25 3a 43 58  |,L%:M%=PO%-M%:CX|
00000eb0  25 3d 4b 25 3a 43 59 25  3d 4c 25 3a 4b 25 3d 32  |%=K%:CY%=L%:K%=2|
00000ec0  3a 51 25 3d a4 61 64 72  3a 4c 25 3d 31 31 0d 05  |:Q%=.adr:L%=11..|
00000ed0  00 14 e7 4c 25 3f 51 25  3d 30 20 4d 25 3d 4d 25  |...L%?Q%=0 M%=M%|
00000ee0  2d 31 0d 05 0a 26 e7 4d  25 3d 30 20 43 58 25 3d  |-1...&.M%=0 CX%=|
00000ef0  43 58 25 2b 4b 25 3a ef  33 31 2c 43 58 25 2c 43  |CX%+K%:.31,CX%,C|
00000f00  59 25 3a f2 68 69 3a e1  0d 05 14 19 4c 25 3d 4c  |Y%:.hi:.....L%=L|
00000f10  25 2b 38 3a 4b 25 3d 4b  25 2b 31 3a e5 8d 54 40  |%+8:K%=K%+1:..T@|
00000f20  45 0d 05 1e 06 20 20 0d  05 28 33 dd f2 6e 65 78  |E....  ..(3..nex|
00000f30  74 28 4b 25 2c 4c 25 29  3a f2 68 69 3a ef 33 31  |t(K%,L%):.hi:.31|
00000f40  2c 4b 25 2c 4c 25 3a 43  58 25 3d 4b 25 3a 43 59  |,K%,L%:CX%=K%:CY|
00000f50  25 3d 4c 25 3a f2 68 69  3a e1 0d 05 32 37 dd f2  |%=L%:.hi:...27..|
00000f60  72 61 6e 67 65 28 4b 25  2c 4c 25 29 3a 52 25 3d  |range(K%,L%):R%=|
00000f70  50 4f 25 2d 35 3a e7 3f  26 32 35 41 20 80 20 36  |PO%-5:.?&25A . 6|
00000f80  34 3d 36 34 20 49 25 3d  31 30 20 8b 20 49 25 3d  |4=64 I%=10 . I%=|
00000f90  31 0d 05 3c 2d e7 42 25  3d 31 80 28 45 4e 25 28  |1..<-.B%=1.(EN%(|
00000fa0  52 25 29 2b 49 25 29 3c  3d 4c 25 20 45 4e 25 28  |R%)+I%)<=L% EN%(|
00000fb0  52 25 29 3d 45 4e 25 28  52 25 29 2b 49 25 0d 05  |R%)=EN%(R%)+I%..|
00000fc0  46 2d e7 42 25 3d 30 80  28 45 4e 25 28 52 25 29  |F-.B%=0.(EN%(R%)|
00000fd0  2d 49 25 29 3e 3d 4b 25  20 45 4e 25 28 52 25 29  |-I%)>=K% EN%(R%)|
00000fe0  3d 45 4e 25 28 52 25 29  2d 49 25 0d 05 50 13 e7  |=EN%(R%)-I%..P..|
00000ff0  43 59 25 3d 31 31 20 f2  64 75 6d 70 45 31 0d 05  |CY%=11 .dumpE1..|
00001000  5a 13 e7 43 59 25 3d 31  33 20 f2 64 75 6d 70 45  |Z..CY%=13 .dumpE|
00001010  32 0d 05 64 13 e7 43 59  25 3d 31 35 20 f2 64 75  |2..d..CY%=15 .du|
00001020  6d 70 45 33 0d 05 6e 05  e1 0d 05 78 06 20 20 0d  |mpE3..n....x.  .|
00001030  05 82 2b dd f2 65 6e 76  41 4c 4c 3a f2 64 75 6d  |..+..envALL:.dum|
00001040  70 45 31 3a f2 64 75 6d  70 45 32 3a f2 64 75 6d  |pE1:.dumpE2:.dum|
00001050  70 45 33 3a f2 69 6e 70  3a e1 0d 05 8c 06 20 20  |pE3:.inp:.....  |
00001060  0d 05 96 27 dd f2 63 6c  65 6e 76 3a f7 8d 74 60  |...'..clenv:..t`|
00001070  45 3a e3 4e 25 3d 30 b8  31 32 3a f3 45 4e 25 28  |E:.N%=0.12:.EN%(|
00001080  4e 25 29 3a ed 3a e1 0d  05 a0 30 dc 31 32 39 2c  |N%):.:....0.129,|
00001090  2d 31 35 2c 2d 38 2c 2d  33 2c 31 30 2c 31 30 2c  |-15,-8,-3,10,10,|
000010a0  31 30 2c 31 32 36 2c 30  2c 30 2c 2d 31 32 36 2c  |10,126,0,0,-126,|
000010b0  31 32 36 2c 31 32 36 0d  05 aa 06 20 20 0d 05 b4  |126,126....  ...|
000010c0  6c dd f2 69 6e 70 3a e2  31 2c 45 4e 25 28 30 29  |l..inp:.1,EN%(0)|
000010d0  2c 45 4e 25 28 31 29 2c  45 4e 25 28 32 29 2c 45  |,EN%(1),EN%(2),E|
000010e0  4e 25 28 33 29 2c 45 4e  25 28 34 29 2c 45 4e 25  |N%(3),EN%(4),EN%|
000010f0  28 35 29 2c 45 4e 25 28  36 29 2c 45 4e 25 28 37  |(5),EN%(6),EN%(7|
00001100  29 2c 45 4e 25 28 38 29  2c 45 4e 25 28 39 29 2c  |),EN%(8),EN%(9),|
00001110  45 4e 25 28 31 30 29 2c  45 4e 25 28 31 31 29 2c  |EN%(10),EN%(11),|
00001120  45 4e 25 28 31 32 29 3a  e1 0d ff                 |EN%(12):...|
0000112b