�    ENVELOPE MAKER V1
�    (C) ELECTRON USER
� Written by D.Ingleby-Oddy
( 
2�1
<
� EN%(12)
F� �6:�:�;" at line ";�:�
P�screen
Z	�init
d�
n	�main
x�0
��
�  
���screen
��23,1,0;0;0;0;
�?&358=15:�:?&358=0
��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

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

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