� 2
5 �n=-1280�2560�100:c=(c+1) � 15:�3,c:�c=0��:�T|@
( �n<1280��1280,1024:�n,0:�85,n-100,0
(" �n>0��n-100,0:�n,0:�85,0,1024
2 �
< �n=0�15:�19,n,0,0,0,0,0:�
F) �0,15:�8,1024:�1272,1024:�85,640,768
K	�move
P �:s=(s+1) � 15:t=�
Z8 �19,s,0,0,0,0,0,19,(s+7) � 15,((s+7) � 6)+1,0,0,0,0
d � � �>t+7
n � �
x:
�
��move
��p=0�2�2:P%=&A00:[OPTp
��LDY#0:.refract LDAeug,Y:STA&70:CLC:ADC#&80:STA&72:LDAeug+1,Y:STA&71:ADC#2:STA&73:LDXeug+2,Y:TYA:CLC:ADC#3:PHA:LDY#0:DEC&70:DEC&72:LDA&71:CLC:ADC#&30:STA&71:LDA&73:CLC:ADC#&30:STA&73:TXA:TAY
�vLDA#&AA:STA&80:.copy LDA&80:�#&FF:STA&80:LDA(&70),Y:�A&80:STA(&72),Y:DEY:BNEcopy:PLA:TAY:LDAeug+1,Y:BNErefract:RTS
�;.eug EQUW&2DA0:EQUB96:EQUW&2E20:EQUB96:EQUW&2EA0:EQUB96
�XEQUW&2B20:EQUB32:EQUW&2BA0:EQUB32:EQUW&2BE0:EQUB32:EQUW&2C20:EQUB32:EQUW&2C60:EQUB32
�XEQUW&28A0:EQUB64:EQUW&2920:EQUB32:EQUW&2960:EQUB32:EQUW&29A0:EQUB32:EQUW&29E0:EQUB32
GEQUW&2620:EQUB32:EQUW&26A0:EQUB32:EQUW&26E0:EQUB32:EQUW&2720:EQUB32
MEQUW&23A0:EQUB96:EQUW&2420:EQUB32:EQUW&2460:EQUB32:EQUW&24A0:EQUB96:EQUW0
]:�:�&A00:�
�

00000000  0d 00 0a 08 20 eb 20 32  0d 00 14 35 20 e3 6e 3d  |.... . 2...5 .n=|
00000010  2d 31 32 38 30 b8 32 35  36 30 88 31 30 30 3a 63  |-1280.2560.100:c|
00000020  3d 28 63 2b 31 29 20 83  20 31 35 3a e6 33 2c 63  |=(c+1) . 15:.3,c|
00000030  3a e7 63 3d 30 8c ed 3a  e5 8d 54 7c 40 0d 00 1e  |:.c=0..:..T|@...|
00000040  28 20 e7 6e 3c 31 32 38  30 8c ec 31 32 38 30 2c  |( .n<1280..1280,|
00000050  31 30 32 34 3a ec 6e 2c  30 3a f0 38 35 2c 6e 2d  |1024:.n,0:.85,n-|
00000060  31 30 30 2c 30 0d 00 28  22 20 e7 6e 3e 30 8c ec  |100,0..(" .n>0..|
00000070  6e 2d 31 30 30 2c 30 3a  ec 6e 2c 30 3a f0 38 35  |n-100,0:.n,0:.85|
00000080  2c 30 2c 31 30 32 34 0d  00 32 06 20 ed 0d 00 3c  |,0,1024..2. ...<|
00000090  1e 20 e3 6e 3d 30 b8 31  35 3a ef 31 39 2c 6e 2c  |. .n=0.15:.19,n,|
000000a0  30 2c 30 2c 30 2c 30 2c  30 3a ed 0d 00 46 29 20  |0,0,0,0,0:...F) |
000000b0  e6 30 2c 31 35 3a ec 38  2c 31 30 32 34 3a ec 31  |.0,15:.8,1024:.1|
000000c0  32 37 32 2c 31 30 32 34  3a f0 38 35 2c 36 34 30  |272,1024:.85,640|
000000d0  2c 37 36 38 0d 00 4b 09  f2 6d 6f 76 65 0d 00 50  |,768..K..move..P|
000000e0  17 20 f5 3a 73 3d 28 73  2b 31 29 20 83 20 31 35  |. .:s=(s+1) . 15|
000000f0  3a 74 3d 91 0d 00 5a 38  20 ef 31 39 2c 73 2c 30  |:t=...Z8 .19,s,0|
00000100  2c 30 2c 30 2c 30 2c 30  2c 31 39 2c 28 73 2b 37  |,0,0,0,0,19,(s+7|
00000110  29 20 83 20 31 35 2c 28  28 73 2b 37 29 20 83 20  |) . 15,((s+7) . |
00000120  36 29 2b 31 2c 30 2c 30  2c 30 2c 30 0d 00 64 0e  |6)+1,0,0,0,0..d.|
00000130  20 f5 20 fd 20 91 3e 74  2b 37 0d 00 6e 08 20 fd  | . . .>t+7..n. .|
00000140  20 a3 0d 00 78 05 3a 0d  00 82 0a dd f2 6d 6f 76  | ...x.:......mov|
00000150  65 0d 00 8c 1a e3 70 3d  30 b8 32 88 32 3a 50 25  |e.....p=0.2.2:P%|
00000160  3d 26 41 30 30 3a 5b 4f  50 54 70 0d 00 96 c1 4c  |=&A00:[OPTp....L|
00000170  44 59 23 30 3a 2e 72 65  66 72 61 63 74 20 4c 44  |DY#0:.refract LD|
00000180  41 65 75 67 2c 59 3a 53  54 41 26 37 30 3a 43 4c  |Aeug,Y:STA&70:CL|
00000190  43 3a 41 44 43 23 26 38  30 3a 53 54 41 26 37 32  |C:ADC#&80:STA&72|
000001a0  3a 4c 44 41 65 75 67 2b  31 2c 59 3a 53 54 41 26  |:LDAeug+1,Y:STA&|
000001b0  37 31 3a 41 44 43 23 32  3a 53 54 41 26 37 33 3a  |71:ADC#2:STA&73:|
000001c0  4c 44 58 65 75 67 2b 32  2c 59 3a 54 59 41 3a 43  |LDXeug+2,Y:TYA:C|
000001d0  4c 43 3a 41 44 43 23 33  3a 50 48 41 3a 4c 44 59  |LC:ADC#3:PHA:LDY|
000001e0  23 30 3a 44 45 43 26 37  30 3a 44 45 43 26 37 32  |#0:DEC&70:DEC&72|
000001f0  3a 4c 44 41 26 37 31 3a  43 4c 43 3a 41 44 43 23  |:LDA&71:CLC:ADC#|
00000200  26 33 30 3a 53 54 41 26  37 31 3a 4c 44 41 26 37  |&30:STA&71:LDA&7|
00000210  33 3a 43 4c 43 3a 41 44  43 23 26 33 30 3a 53 54  |3:CLC:ADC#&30:ST|
00000220  41 26 37 33 3a 54 58 41  3a 54 41 59 0d 00 a0 76  |A&73:TXA:TAY...v|
00000230  4c 44 41 23 26 41 41 3a  53 54 41 26 38 30 3a 2e  |LDA#&AA:STA&80:.|
00000240  63 6f 70 79 20 4c 44 41  26 38 30 3a 82 23 26 46  |copy LDA&80:.#&F|
00000250  46 3a 53 54 41 26 38 30  3a 4c 44 41 28 26 37 30  |F:STA&80:LDA(&70|
00000260  29 2c 59 3a 84 41 26 38  30 3a 53 54 41 28 26 37  |),Y:.A&80:STA(&7|
00000270  32 29 2c 59 3a 44 45 59  3a 42 4e 45 63 6f 70 79  |2),Y:DEY:BNEcopy|
00000280  3a 50 4c 41 3a 54 41 59  3a 4c 44 41 65 75 67 2b  |:PLA:TAY:LDAeug+|
00000290  31 2c 59 3a 42 4e 45 72  65 66 72 61 63 74 3a 52  |1,Y:BNErefract:R|
000002a0  54 53 0d 03 e8 3b 2e 65  75 67 20 45 51 55 57 26  |TS...;.eug EQUW&|
000002b0  32 44 41 30 3a 45 51 55  42 39 36 3a 45 51 55 57  |2DA0:EQUB96:EQUW|
000002c0  26 32 45 32 30 3a 45 51  55 42 39 36 3a 45 51 55  |&2E20:EQUB96:EQU|
000002d0  57 26 32 45 41 30 3a 45  51 55 42 39 36 0d 03 f2  |W&2EA0:EQUB96...|
000002e0  58 45 51 55 57 26 32 42  32 30 3a 45 51 55 42 33  |XEQUW&2B20:EQUB3|
000002f0  32 3a 45 51 55 57 26 32  42 41 30 3a 45 51 55 42  |2:EQUW&2BA0:EQUB|
00000300  33 32 3a 45 51 55 57 26  32 42 45 30 3a 45 51 55  |32:EQUW&2BE0:EQU|
00000310  42 33 32 3a 45 51 55 57  26 32 43 32 30 3a 45 51  |B32:EQUW&2C20:EQ|
00000320  55 42 33 32 3a 45 51 55  57 26 32 43 36 30 3a 45  |UB32:EQUW&2C60:E|
00000330  51 55 42 33 32 0d 03 fc  58 45 51 55 57 26 32 38  |QUB32...XEQUW&28|
00000340  41 30 3a 45 51 55 42 36  34 3a 45 51 55 57 26 32  |A0:EQUB64:EQUW&2|
00000350  39 32 30 3a 45 51 55 42  33 32 3a 45 51 55 57 26  |920:EQUB32:EQUW&|
00000360  32 39 36 30 3a 45 51 55  42 33 32 3a 45 51 55 57  |2960:EQUB32:EQUW|
00000370  26 32 39 41 30 3a 45 51  55 42 33 32 3a 45 51 55  |&29A0:EQUB32:EQU|
00000380  57 26 32 39 45 30 3a 45  51 55 42 33 32 0d 04 06  |W&29E0:EQUB32...|
00000390  47 45 51 55 57 26 32 36  32 30 3a 45 51 55 42 33  |GEQUW&2620:EQUB3|
000003a0  32 3a 45 51 55 57 26 32  36 41 30 3a 45 51 55 42  |2:EQUW&26A0:EQUB|
000003b0  33 32 3a 45 51 55 57 26  32 36 45 30 3a 45 51 55  |32:EQUW&26E0:EQU|
000003c0  42 33 32 3a 45 51 55 57  26 32 37 32 30 3a 45 51  |B32:EQUW&2720:EQ|
000003d0  55 42 33 32 0d 04 10 4d  45 51 55 57 26 32 33 41  |UB32...MEQUW&23A|
000003e0  30 3a 45 51 55 42 39 36  3a 45 51 55 57 26 32 34  |0:EQUB96:EQUW&24|
000003f0  32 30 3a 45 51 55 42 33  32 3a 45 51 55 57 26 32  |20:EQUB32:EQUW&2|
00000400  34 36 30 3a 45 51 55 42  33 32 3a 45 51 55 57 26  |460:EQUB32:EQUW&|
00000410  32 34 41 30 3a 45 51 55  42 39 36 3a 45 51 55 57  |24A0:EQUB96:EQUW|
00000420  30 0d 04 1a 0f 5d 3a ed  3a d6 26 41 30 30 3a e1  |0....]:.:.&A00:.|
00000430  0d ff                                             |..|
00000432