Sprite_area%=�SNEW(400000)

� 27:�
4� � ș"OS_SpriteOp",256+61,Sprite_area%,0:�:�:�
(� 0,0:� 1,1
2'� C = 1 � 15:� C,C*17,C*17,C*17:� C
<� C = 1 � 100
F
X=�(1280)
P
Y=�(1024)
ZSIZE=�(1)/2
d� S = 1 � 255 � 5
n3ș "ColourTrans_SetGCOL",(S<<8)+(S<<16)+(S<<24)
xȏȐ X,Y,(256-S)*SIZE
�� S
�� C
�SPEED=-5
�SC=1
�
X2=640
�Y2=0
��
��
�SPACE=0
�DO=�(50)
�� DO=1 �
� T=200+�(100)
� �=0

 �

  X1=�(1280)

  Y1=�(1024)

"  �DOIT(X1,Y1,X2,Y2,30)

, � �>T � �-99

6 � �-99 SPACE=1

@�

J� DO=2 �

T
A=�(4)

^ � A=1 � X3=�(640)+320:Y3=256

h � A=2 � X3=�(640)+320:Y3=960

r � A=3 � Y3=�(512)+256:X3=256

| � A=4 � Y3=�(512)+256:X3=960

�+THETA=�(�(Y3-Y2)/(�(X3-X2)+0.00000001))

�XM=�(40)/10

�YM=�(40)/10

��=0

��

�+THETA=�(�(Y3-Y2)/(�(X3-X2)+0.00000001))

�"X2+=�(THETA)*�((X3-X2))*XM*2.5

�"Y2+=�(THETA)*�((X3-X2))*YM*2.5

�X1=�(1280)

�Y1=�(1024)

�%� GCOL 0:CIRCLEFILL X2,Y2,RND(10)

��DOIT(X1,Y1,X2,Y2,30)

�b� X2>1280 � X2<0 � Y2>1024 � Y2<0 � (X2>X3-15 � X2<X3+15 � Y2>Y3-15 � Y2<Y3+15) � �>150 � �-99
� �-99 SPACE=1
� X2>1280 X2=1280
� X2<0 X2=0
&� Y2>1024 Y2=1024
0� Y2<0 Y2=0
:�
D� DO>2 �
N A=�(4)
X� A=1 � X2=�(1280):Y2=0
b� A=2 � X2=�(1280):Y2=1024
l� A=3 � Y2=�(1024):X2=0
v� A=4 � Y2=�(1024):X2=1280
�X1=�(1280)
�Y1=�(1024)
��DOIT(X1,Y1,X2,Y2,30)
��
�� �-99 � SPACE=1
�
�CYCLE
�� �
��
�:
�:
�:
�� �CYCLE
�� � � �-99
�
�UPDATECOLS
�=0:� � �>5
 
� �-99
*� � � �-99
4�
>:
H:
R:
\� �SNEW(size%)
f� area_ptr size%
p@area_ptr!0=size%-1:area_ptr!4=0:area_ptr!8=16:area_ptr!12=16
z
=area_ptr
�:
�:
�:
�� �LMOVE(X,Y,NX,NY,W)
�R� X<NX � SX=X-W:SX2=NX+W:LX=W:LX2=SX2-SX-W � SX=NX-W:SX2=X+W:LX=SX2-SX-W:LX2=W
�R� Y<NY � SY=Y-W:SY2=NY+W:LY=W:LY2=SY2-SY-W � SY=NY-W:SY2=Y+W:LY=SY2-SY-W:LY2=W
�� SX,SY:� SX2,SY2
�.ș "OS_SpriteOp",14+256,Sprite_area%,"L",0
�,ș "OS_SpriteOp",29+256,Sprite_area%,"L"
�.ș "OS_SpriteOp",61+256,Sprite_area%,"L",0
�"� 0:ȓȐ 0,0,SX2-SX+5,SY2-SY+5
�:
�� 15
D� SX2-SX=0 � THETA=�(90) � THETA=(�(�((SY2-SY)/(SX2-SX))))+�(90)
9� LX+�((THETA))*�(LX2-LX)*W,LY+�((THETA))*�(LY2-LY)*W
9� LX-�((THETA))*�(LX2-LX)*W,LY-�((THETA))*�(LY2-LY)*W
$?� &55,LX2+�((THETA))*�(LX2-LX)*W,LY2+�((THETA))*�(LY2-LY)*W
.?� &55,LX2-�((THETA))*�(LX2-LX)*W,LY2-�((THETA))*�(LY2-LY)*W
8ȏȐ LX,LY,W
BȏȐ LX2,LY2,W
L:
V,ș "OS_SpriteOp",61+256,Sprite_area%,0,1
`:
j5� NX-X=0 � THETA=90 � THETA=(�(�((NY-Y)/(NX-X))))
tXP=SPEED*�((THETA))*�(NX-X)
~YP=SPEED*�((THETA))*�(NY-Y)
�� X=NX � Y=NY XP=0:YP=0
�	X+=XP
�	Y+=YP
�
NX+=XP
�
NY+=YP
�.� X<NX � SX=X-W:SX2=NX+W � SX=NX-W:SX2=X+W
�.� Y<NY � SY=Y-W:SY2=NY+W � SY=NY-W:SY2=Y+W
�6ș "OS_SpriteOp",34+256,Sprite_area%,"L",SX,SY,&08
��
�:
�:
�:
� �UPDATECOLS

D=SC
� C = 1 � 15
� D,C*17,C*17,C*17
(D+=1
2� D=16 D=1
<� C
F	SC-=1
P� SC=0 SC=15
Z�
d:
n:
x:
�� �DOIT(X,Y,NX,NY,S)
�� HUM = 3 � S � 6
��LMOVE(X,Y,NX,NY,HUM)
�	� HUM
��
�

00000000  0d 00 0a 1e 53 70 72 69  74 65 5f 61 72 65 61 25  |....Sprite_area%|
00000010  3d a4 53 4e 45 57 28 34  30 30 30 30 30 29 0d 00  |=.SNEW(400000)..|
00000020  14 0a eb 20 32 37 3a 87  0d 00 1e 34 ee 20 85 20  |... 27:....4. . |
00000030  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
00000040  32 35 36 2b 36 31 2c 53  70 72 69 74 65 5f 61 72  |256+61,Sprite_ar|
00000050  65 61 25 2c 30 3a f1 9e  3a f6 3a e0 0d 00 28 0f  |ea%,0:..:.:...(.|
00000060  ec 20 30 2c 30 3a ec 20  31 2c 31 0d 00 32 27 e3  |. 0,0:. 1,1..2'.|
00000070  20 43 20 3d 20 31 20 b8  20 31 35 3a fb 20 43 2c  | C = 1 . 15:. C,|
00000080  43 2a 31 37 2c 43 2a 31  37 2c 43 2a 31 37 3a ed  |C*17,C*17,C*17:.|
00000090  20 43 0d 00 3c 11 e3 20  43 20 3d 20 31 20 b8 20  | C..<.. C = 1 . |
000000a0  31 30 30 0d 00 46 0d 58  3d b3 28 31 32 38 30 29  |100..F.X=.(1280)|
000000b0  0d 00 50 0d 59 3d b3 28  31 30 32 34 29 0d 00 5a  |..P.Y=.(1024)..Z|
000000c0  0f 53 49 5a 45 3d b3 28  31 29 2f 32 0d 00 64 15  |.SIZE=.(1)/2..d.|
000000d0  e3 20 53 20 3d 20 31 20  b8 20 32 35 35 20 88 20  |. S = 1 . 255 . |
000000e0  35 0d 00 6e 33 c8 99 20  22 43 6f 6c 6f 75 72 54  |5..n3.. "ColourT|
000000f0  72 61 6e 73 5f 53 65 74  47 43 4f 4c 22 2c 28 53  |rans_SetGCOL",(S|
00000100  3c 3c 38 29 2b 28 53 3c  3c 31 36 29 2b 28 53 3c  |<<8)+(S<<16)+(S<|
00000110  3c 32 34 29 0d 00 78 19  c8 8f c8 90 20 58 2c 59  |<24)..x..... X,Y|
00000120  2c 28 32 35 36 2d 53 29  2a 53 49 5a 45 0d 00 82  |,(256-S)*SIZE...|
00000130  07 ed 20 53 0d 00 8c 07  ed 20 43 0d 00 96 0c 53  |.. S..... C....S|
00000140  50 45 45 44 3d 2d 35 0d  00 a0 08 53 43 3d 31 0d  |PEED=-5....SC=1.|
00000150  00 aa 0a 58 32 3d 36 34  30 0d 00 b4 08 59 32 3d  |...X2=640....Y2=|
00000160  30 0d 00 be 05 f5 0d 00  c8 05 f5 0d 00 d2 0b 53  |0..............S|
00000170  50 41 43 45 3d 30 0d 00  dc 0c 44 4f 3d b3 28 35  |PACE=0....DO=.(5|
00000180  30 29 0d 00 e6 0c e7 20  44 4f 3d 31 20 8c 0d 00  |0)..... DO=1 ...|
00000190  f0 11 20 54 3d 32 30 30  2b b3 28 31 30 30 29 0d  |.. T=200+.(100).|
000001a0  00 fa 08 20 d1 3d 30 0d  01 04 06 20 f5 0d 01 0e  |... .=0.... ....|
000001b0  10 20 20 58 31 3d b3 28  31 32 38 30 29 0d 01 18  |.  X1=.(1280)...|
000001c0  10 20 20 59 31 3d b3 28  31 30 32 34 29 0d 01 22  |.  Y1=.(1024).."|
000001d0  1b 20 20 f2 44 4f 49 54  28 58 31 2c 59 31 2c 58  |.  .DOIT(X1,Y1,X|
000001e0  32 2c 59 32 2c 33 30 29  0d 01 2c 11 20 fd 20 91  |2,Y2,30)..,. . .|
000001f0  3e 54 20 84 20 a6 2d 39  39 0d 01 36 13 20 e7 20  |>T . .-99..6. . |
00000200  a6 2d 39 39 20 53 50 41  43 45 3d 31 0d 01 40 05  |.-99 SPACE=1..@.|
00000210  cd 0d 01 4a 0c e7 20 44  4f 3d 32 20 8c 0d 01 54  |...J.. DO=2 ...T|
00000220  0a 41 3d b3 28 34 29 0d  01 5e 20 e7 20 41 3d 31  |.A=.(4)..^ . A=1|
00000230  20 8c 20 58 33 3d b3 28  36 34 30 29 2b 33 32 30  | . X3=.(640)+320|
00000240  3a 59 33 3d 32 35 36 0d  01 68 20 e7 20 41 3d 32  |:Y3=256..h . A=2|
00000250  20 8c 20 58 33 3d b3 28  36 34 30 29 2b 33 32 30  | . X3=.(640)+320|
00000260  3a 59 33 3d 39 36 30 0d  01 72 20 e7 20 41 3d 33  |:Y3=960..r . A=3|
00000270  20 8c 20 59 33 3d b3 28  35 31 32 29 2b 32 35 36  | . Y3=.(512)+256|
00000280  3a 58 33 3d 32 35 36 0d  01 7c 20 e7 20 41 3d 34  |:X3=256..| . A=4|
00000290  20 8c 20 59 33 3d b3 28  35 31 32 29 2b 32 35 36  | . Y3=.(512)+256|
000002a0  3a 58 33 3d 39 36 30 0d  01 86 2b 54 48 45 54 41  |:X3=960...+THETA|
000002b0  3d 99 28 94 28 59 33 2d  59 32 29 2f 28 94 28 58  |=.(.(Y3-Y2)/(.(X|
000002c0  33 2d 58 32 29 2b 30 2e  30 30 30 30 30 30 30 31  |3-X2)+0.00000001|
000002d0  29 29 0d 01 90 0f 58 4d  3d b3 28 34 30 29 2f 31  |))....XM=.(40)/1|
000002e0  30 0d 01 9a 0f 59 4d 3d  b3 28 34 30 29 2f 31 30  |0....YM=.(40)/10|
000002f0  0d 01 a4 07 d1 3d 30 0d  01 ae 05 f5 0d 01 b8 2b  |.....=0........+|
00000300  54 48 45 54 41 3d 99 28  94 28 59 33 2d 59 32 29  |THETA=.(.(Y3-Y2)|
00000310  2f 28 94 28 58 33 2d 58  32 29 2b 30 2e 30 30 30  |/(.(X3-X2)+0.000|
00000320  30 30 30 30 31 29 29 0d  01 c2 22 58 32 2b 3d 9b  |00001))..."X2+=.|
00000330  28 54 48 45 54 41 29 2a  b4 28 28 58 33 2d 58 32  |(THETA)*.((X3-X2|
00000340  29 29 2a 58 4d 2a 32 2e  35 0d 01 cc 22 59 32 2b  |))*XM*2.5..."Y2+|
00000350  3d b5 28 54 48 45 54 41  29 2a b4 28 28 58 33 2d  |=.(THETA)*.((X3-|
00000360  58 32 29 29 2a 59 4d 2a  32 2e 35 0d 01 d6 0e 58  |X2))*YM*2.5....X|
00000370  31 3d b3 28 31 32 38 30  29 0d 01 e0 0e 59 31 3d  |1=.(1280)....Y1=|
00000380  b3 28 31 30 32 34 29 0d  01 ea 25 f4 20 47 43 4f  |.(1024)...%. GCO|
00000390  4c 20 30 3a 43 49 52 43  4c 45 46 49 4c 4c 20 58  |L 0:CIRCLEFILL X|
000003a0  32 2c 59 32 2c 52 4e 44  28 31 30 29 0d 01 f4 19  |2,Y2,RND(10)....|
000003b0  f2 44 4f 49 54 28 58 31  2c 59 31 2c 58 32 2c 59  |.DOIT(X1,Y1,X2,Y|
000003c0  32 2c 33 30 29 0d 01 fe  62 fd 20 58 32 3e 31 32  |2,30)...b. X2>12|
000003d0  38 30 20 84 20 58 32 3c  30 20 84 20 59 32 3e 31  |80 . X2<0 . Y2>1|
000003e0  30 32 34 20 84 20 59 32  3c 30 20 84 20 28 58 32  |024 . Y2<0 . (X2|
000003f0  3e 58 33 2d 31 35 20 80  20 58 32 3c 58 33 2b 31  |>X3-15 . X2<X3+1|
00000400  35 20 80 20 59 32 3e 59  33 2d 31 35 20 80 20 59  |5 . Y2>Y3-15 . Y|
00000410  32 3c 59 33 2b 31 35 29  20 84 20 91 3e 31 35 30  |2<Y3+15) . .>150|
00000420  20 84 20 a6 2d 39 39 0d  02 08 12 e7 20 a6 2d 39  | . .-99..... .-9|
00000430  39 20 53 50 41 43 45 3d  31 0d 02 12 15 e7 20 58  |9 SPACE=1..... X|
00000440  32 3e 31 32 38 30 20 58  32 3d 31 32 38 30 0d 02  |2>1280 X2=1280..|
00000450  1c 0f e7 20 58 32 3c 30  20 58 32 3d 30 0d 02 26  |... X2<0 X2=0..&|
00000460  15 e7 20 59 32 3e 31 30  32 34 20 59 32 3d 31 30  |.. Y2>1024 Y2=10|
00000470  32 34 0d 02 30 0f e7 20  59 32 3c 30 20 59 32 3d  |24..0.. Y2<0 Y2=|
00000480  30 0d 02 3a 05 cd 0d 02  44 0c e7 20 44 4f 3e 32  |0..:....D.. DO>2|
00000490  20 8c 0d 02 4e 0b 20 41  3d b3 28 34 29 0d 02 58  | ...N. A=.(4)..X|
000004a0  1b e7 20 41 3d 31 20 8c  20 58 32 3d b3 28 31 32  |.. A=1 . X2=.(12|
000004b0  38 30 29 3a 59 32 3d 30  0d 02 62 1e e7 20 41 3d  |80):Y2=0..b.. A=|
000004c0  32 20 8c 20 58 32 3d b3  28 31 32 38 30 29 3a 59  |2 . X2=.(1280):Y|
000004d0  32 3d 31 30 32 34 0d 02  6c 1b e7 20 41 3d 33 20  |2=1024..l.. A=3 |
000004e0  8c 20 59 32 3d b3 28 31  30 32 34 29 3a 58 32 3d  |. Y2=.(1024):X2=|
000004f0  30 0d 02 76 1e e7 20 41  3d 34 20 8c 20 59 32 3d  |0..v.. A=4 . Y2=|
00000500  b3 28 31 30 32 34 29 3a  58 32 3d 31 32 38 30 0d  |.(1024):X2=1280.|
00000510  02 80 0e 58 31 3d b3 28  31 32 38 30 29 0d 02 8a  |...X1=.(1280)...|
00000520  0e 59 31 3d b3 28 31 30  32 34 29 0d 02 94 19 f2  |.Y1=.(1024).....|
00000530  44 4f 49 54 28 58 31 2c  59 31 2c 58 32 2c 59 32  |DOIT(X1,Y1,X2,Y2|
00000540  2c 33 30 29 0d 02 9e 05  cd 0d 02 a8 14 fd 20 a6  |,30).......... .|
00000550  2d 39 39 20 84 20 53 50  41 43 45 3d 31 0d 02 b2  |-99 . SPACE=1...|
00000560  0a f2 43 59 43 4c 45 0d  02 bc 07 fd 20 a3 0d 02  |..CYCLE..... ...|
00000570  c6 05 e0 0d 02 d0 05 3a  0d 02 da 05 3a 0d 02 e4  |.......:....:...|
00000580  05 3a 0d 02 ee 0c dd 20  f2 43 59 43 4c 45 0d 02  |.:..... .CYCLE..|
00000590  f8 0e f5 20 fd 20 ac 20  a6 2d 39 39 0d 03 02 05  |... . . .-99....|
000005a0  f5 0d 03 0c 0f f2 55 50  44 41 54 45 43 4f 4c 53  |......UPDATECOLS|
000005b0  0d 03 16 0f d1 3d 30 3a  f5 20 fd 20 91 3e 35 0d  |.....=0:. . .>5.|
000005c0  03 20 0a fd 20 a6 2d 39  39 0d 03 2a 0e f5 20 fd  |. .. .-99..*.. .|
000005d0  20 ac 20 a6 2d 39 39 0d  03 34 05 e1 0d 03 3e 05  | . .-99..4....>.|
000005e0  3a 0d 03 48 05 3a 0d 03  52 05 3a 0d 03 5c 12 dd  |:..H.:..R.:..\..|
000005f0  20 a4 53 4e 45 57 28 73  69 7a 65 25 29 0d 03 66  | .SNEW(size%)..f|
00000600  14 de 20 61 72 65 61 5f  70 74 72 20 73 69 7a 65  |.. area_ptr size|
00000610  25 0d 03 70 40 61 72 65  61 5f 70 74 72 21 30 3d  |%..p@area_ptr!0=|
00000620  73 69 7a 65 25 2d 31 3a  61 72 65 61 5f 70 74 72  |size%-1:area_ptr|
00000630  21 34 3d 30 3a 61 72 65  61 5f 70 74 72 21 38 3d  |!4=0:area_ptr!8=|
00000640  31 36 3a 61 72 65 61 5f  70 74 72 21 31 32 3d 31  |16:area_ptr!12=1|
00000650  36 0d 03 7a 0d 3d 61 72  65 61 5f 70 74 72 0d 03  |6..z.=area_ptr..|
00000660  84 05 3a 0d 03 8e 05 3a  0d 03 98 05 3a 0d 03 a2  |..:....:....:...|
00000670  19 dd 20 f2 4c 4d 4f 56  45 28 58 2c 59 2c 4e 58  |.. .LMOVE(X,Y,NX|
00000680  2c 4e 59 2c 57 29 0d 03  ac 52 e7 20 58 3c 4e 58  |,NY,W)...R. X<NX|
00000690  20 8c 20 53 58 3d 58 2d  57 3a 53 58 32 3d 4e 58  | . SX=X-W:SX2=NX|
000006a0  2b 57 3a 4c 58 3d 57 3a  4c 58 32 3d 53 58 32 2d  |+W:LX=W:LX2=SX2-|
000006b0  53 58 2d 57 20 8b 20 53  58 3d 4e 58 2d 57 3a 53  |SX-W . SX=NX-W:S|
000006c0  58 32 3d 58 2b 57 3a 4c  58 3d 53 58 32 2d 53 58  |X2=X+W:LX=SX2-SX|
000006d0  2d 57 3a 4c 58 32 3d 57  0d 03 b6 52 e7 20 59 3c  |-W:LX2=W...R. Y<|
000006e0  4e 59 20 8c 20 53 59 3d  59 2d 57 3a 53 59 32 3d  |NY . SY=Y-W:SY2=|
000006f0  4e 59 2b 57 3a 4c 59 3d  57 3a 4c 59 32 3d 53 59  |NY+W:LY=W:LY2=SY|
00000700  32 2d 53 59 2d 57 20 8b  20 53 59 3d 4e 59 2d 57  |2-SY-W . SY=NY-W|
00000710  3a 53 59 32 3d 59 2b 57  3a 4c 59 3d 53 59 32 2d  |:SY2=Y+W:LY=SY2-|
00000720  53 59 2d 57 3a 4c 59 32  3d 57 0d 03 c0 15 ec 20  |SY-W:LY2=W..... |
00000730  53 58 2c 53 59 3a ec 20  53 58 32 2c 53 59 32 0d  |SX,SY:. SX2,SY2.|
00000740  03 ca 2e c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |..... "OS_Sprite|
00000750  4f 70 22 2c 31 34 2b 32  35 36 2c 53 70 72 69 74  |Op",14+256,Sprit|
00000760  65 5f 61 72 65 61 25 2c  22 4c 22 2c 30 0d 03 d4  |e_area%,"L",0...|
00000770  2c c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |,.. "OS_SpriteOp|
00000780  22 2c 32 39 2b 32 35 36  2c 53 70 72 69 74 65 5f  |",29+256,Sprite_|
00000790  61 72 65 61 25 2c 22 4c  22 0d 03 de 2e c8 99 20  |area%,"L"...... |
000007a0  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 36 31  |"OS_SpriteOp",61|
000007b0  2b 32 35 36 2c 53 70 72  69 74 65 5f 61 72 65 61  |+256,Sprite_area|
000007c0  25 2c 22 4c 22 2c 30 0d  03 e8 22 e6 20 30 3a c8  |%,"L",0...". 0:.|
000007d0  93 c8 90 20 30 2c 30 2c  53 58 32 2d 53 58 2b 35  |... 0,0,SX2-SX+5|
000007e0  2c 53 59 32 2d 53 59 2b  35 0d 03 f2 05 3a 0d 03  |,SY2-SY+5....:..|
000007f0  fc 08 e6 20 31 35 0d 04  06 44 e7 20 53 58 32 2d  |... 15...D. SX2-|
00000800  53 58 3d 30 20 8c 20 54  48 45 54 41 3d b2 28 39  |SX=0 . THETA=.(9|
00000810  30 29 20 8b 20 54 48 45  54 41 3d 28 94 28 99 28  |0) . THETA=(.(.(|
00000820  28 53 59 32 2d 53 59 29  2f 28 53 58 32 2d 53 58  |(SY2-SY)/(SX2-SX|
00000830  29 29 29 29 2b b2 28 39  30 29 0d 04 10 39 ec 20  |))))+.(90)...9. |
00000840  4c 58 2b 9b 28 28 54 48  45 54 41 29 29 2a b4 28  |LX+.((THETA))*.(|
00000850  4c 58 32 2d 4c 58 29 2a  57 2c 4c 59 2b b5 28 28  |LX2-LX)*W,LY+.((|
00000860  54 48 45 54 41 29 29 2a  b4 28 4c 59 32 2d 4c 59  |THETA))*.(LY2-LY|
00000870  29 2a 57 0d 04 1a 39 ec  20 4c 58 2d 9b 28 28 54  |)*W...9. LX-.((T|
00000880  48 45 54 41 29 29 2a b4  28 4c 58 32 2d 4c 58 29  |HETA))*.(LX2-LX)|
00000890  2a 57 2c 4c 59 2d b5 28  28 54 48 45 54 41 29 29  |*W,LY-.((THETA))|
000008a0  2a b4 28 4c 59 32 2d 4c  59 29 2a 57 0d 04 24 3f  |*.(LY2-LY)*W..$?|
000008b0  f0 20 26 35 35 2c 4c 58  32 2b 9b 28 28 54 48 45  |. &55,LX2+.((THE|
000008c0  54 41 29 29 2a b4 28 4c  58 32 2d 4c 58 29 2a 57  |TA))*.(LX2-LX)*W|
000008d0  2c 4c 59 32 2b b5 28 28  54 48 45 54 41 29 29 2a  |,LY2+.((THETA))*|
000008e0  b4 28 4c 59 32 2d 4c 59  29 2a 57 0d 04 2e 3f f0  |.(LY2-LY)*W...?.|
000008f0  20 26 35 35 2c 4c 58 32  2d 9b 28 28 54 48 45 54  | &55,LX2-.((THET|
00000900  41 29 29 2a b4 28 4c 58  32 2d 4c 58 29 2a 57 2c  |A))*.(LX2-LX)*W,|
00000910  4c 59 32 2d b5 28 28 54  48 45 54 41 29 29 2a b4  |LY2-.((THETA))*.|
00000920  28 4c 59 32 2d 4c 59 29  2a 57 0d 04 38 10 c8 8f  |(LY2-LY)*W..8...|
00000930  c8 90 20 4c 58 2c 4c 59  2c 57 0d 04 42 12 c8 8f  |.. LX,LY,W..B...|
00000940  c8 90 20 4c 58 32 2c 4c  59 32 2c 57 0d 04 4c 05  |.. LX2,LY2,W..L.|
00000950  3a 0d 04 56 2c c8 99 20  22 4f 53 5f 53 70 72 69  |:..V,.. "OS_Spri|
00000960  74 65 4f 70 22 2c 36 31  2b 32 35 36 2c 53 70 72  |teOp",61+256,Spr|
00000970  69 74 65 5f 61 72 65 61  25 2c 30 2c 31 0d 04 60  |ite_area%,0,1..`|
00000980  05 3a 0d 04 6a 35 e7 20  4e 58 2d 58 3d 30 20 8c  |.:..j5. NX-X=0 .|
00000990  20 54 48 45 54 41 3d 39  30 20 8b 20 54 48 45 54  | THETA=90 . THET|
000009a0  41 3d 28 94 28 99 28 28  4e 59 2d 59 29 2f 28 4e  |A=(.(.((NY-Y)/(N|
000009b0  58 2d 58 29 29 29 29 0d  04 74 1f 58 50 3d 53 50  |X-X))))..t.XP=SP|
000009c0  45 45 44 2a 9b 28 28 54  48 45 54 41 29 29 2a b4  |EED*.((THETA))*.|
000009d0  28 4e 58 2d 58 29 0d 04  7e 1f 59 50 3d 53 50 45  |(NX-X)..~.YP=SPE|
000009e0  45 44 2a b5 28 28 54 48  45 54 41 29 29 2a b4 28  |ED*.((THETA))*.(|
000009f0  4e 59 2d 59 29 0d 04 88  1b e7 20 58 3d 4e 58 20  |NY-Y)..... X=NX |
00000a00  80 20 59 3d 4e 59 20 58  50 3d 30 3a 59 50 3d 30  |. Y=NY XP=0:YP=0|
00000a10  0d 04 92 09 58 2b 3d 58  50 0d 04 9c 09 59 2b 3d  |....X+=XP....Y+=|
00000a20  59 50 0d 04 a6 0a 4e 58  2b 3d 58 50 0d 04 b0 0a  |YP....NX+=XP....|
00000a30  4e 59 2b 3d 59 50 0d 04  ba 2e e7 20 58 3c 4e 58  |NY+=YP..... X<NX|
00000a40  20 8c 20 53 58 3d 58 2d  57 3a 53 58 32 3d 4e 58  | . SX=X-W:SX2=NX|
00000a50  2b 57 20 8b 20 53 58 3d  4e 58 2d 57 3a 53 58 32  |+W . SX=NX-W:SX2|
00000a60  3d 58 2b 57 0d 04 c4 2e  e7 20 59 3c 4e 59 20 8c  |=X+W..... Y<NY .|
00000a70  20 53 59 3d 59 2d 57 3a  53 59 32 3d 4e 59 2b 57  | SY=Y-W:SY2=NY+W|
00000a80  20 8b 20 53 59 3d 4e 59  2d 57 3a 53 59 32 3d 59  | . SY=NY-W:SY2=Y|
00000a90  2b 57 0d 04 ce 36 c8 99  20 22 4f 53 5f 53 70 72  |+W...6.. "OS_Spr|
00000aa0  69 74 65 4f 70 22 2c 33  34 2b 32 35 36 2c 53 70  |iteOp",34+256,Sp|
00000ab0  72 69 74 65 5f 61 72 65  61 25 2c 22 4c 22 2c 53  |rite_area%,"L",S|
00000ac0  58 2c 53 59 2c 26 30 38  0d 04 d8 05 e1 0d 04 e2  |X,SY,&08........|
00000ad0  05 3a 0d 04 ec 05 3a 0d  04 f6 05 3a 0d 05 00 11  |.:....:....:....|
00000ae0  dd 20 f2 55 50 44 41 54  45 43 4f 4c 53 0d 05 0a  |. .UPDATECOLS...|
00000af0  08 44 3d 53 43 0d 05 14  10 e3 20 43 20 3d 20 31  |.D=SC..... C = 1|
00000b00  20 b8 20 31 35 0d 05 1e  16 fb 20 44 2c 43 2a 31  | . 15..... D,C*1|
00000b10  37 2c 43 2a 31 37 2c 43  2a 31 37 0d 05 28 08 44  |7,C*17,C*17..(.D|
00000b20  2b 3d 31 0d 05 32 0e e7  20 44 3d 31 36 20 44 3d  |+=1..2.. D=16 D=|
00000b30  31 0d 05 3c 07 ed 20 43  0d 05 46 09 53 43 2d 3d  |1..<.. C..F.SC-=|
00000b40  31 0d 05 50 10 e7 20 53  43 3d 30 20 53 43 3d 31  |1..P.. SC=0 SC=1|
00000b50  35 0d 05 5a 05 e1 0d 05  64 05 3a 0d 05 6e 05 3a  |5..Z....d.:..n.:|
00000b60  0d 05 78 05 3a 0d 05 82  18 dd 20 f2 44 4f 49 54  |..x.:..... .DOIT|
00000b70  28 58 2c 59 2c 4e 58 2c  4e 59 2c 53 29 0d 05 8c  |(X,Y,NX,NY,S)...|
00000b80  15 e3 20 48 55 4d 20 3d  20 33 20 b8 20 53 20 88  |.. HUM = 3 . S .|
00000b90  20 36 0d 05 96 19 f2 4c  4d 4f 56 45 28 58 2c 59  | 6.....LMOVE(X,Y|
00000ba0  2c 4e 58 2c 4e 59 2c 48  55 4d 29 0d 05 a0 09 ed  |,NX,NY,HUM).....|
00000bb0  20 48 55 4d 0d 05 aa 05  e1 0d ff                 | HUM.......|
00000bbb