� 12
� C=0�15
� C,C*17,C*17,C*17
(� C
2:
<� Y = 1 � 15
F� Y
P� X = 0 � 1024 � 60
ZȓȐ 0,X+Y*4,1280,4
d� X
n� Y
x:
�Sprite_area%=�SNEW(350000)
�� 0,0:� 1280,1024
��SGET(Sprite_area%,"back")
�/ș "OS_SpriteOp",29+256,Sprite_area%,"back"
�B=1
�	X=640
�	Y=512
�XP=0
�YP=0
�N=10
�� X(N),Y(N)
�	COL=0
�:

� �

�

ȗ MX,MY,MB

"� MB=4 �

,	 ȗ �

6	 X=MX

@	 Y=MY

J�

T	 ȗ �

^ X=X+XP

h Y=Y+YP

r XP=XP+�(10)-�(10)

| YP=YP+�(10)-�(10)

�8 � X>1280 � X<0 � XP=-XP+�(5)-�(5):YP=YP+�(10)-�(10)

�8 � Y>1024 � Y<0 � YP=-YP+�(5)-�(5):XP=XP+�(10)-�(10)

�6 � X>1380 � X<-100 � Y>1120 � Y<-100 � X=640:Y=512

� � XP>20 � XP=20

� � YP>20 � YP=20

� � XP<-20 � XP=-20

� � YP<-20 � YP=-20

��

�1ș "OS_SpriteOp",61+256,Sprite_area%,"back",0

�� 0

�ȓȐ 0,0,1280,1024

�� 15

�� L = N � 2 � -1
X(L)=X(L-1)
Y(L)=Y(L-1)
� L
&
X(1)=X
0
Y(1)=Y
:)�0,0);"         Press a key to quit"
D� L = 1 � N
NȏȐ X(L),Y(L),25-L*2
XȏȐ Y(L),X(L),25-L*2
bȏȐ 1280-X(L),Y(L),25-L*2
l#ȏȐ 1280-X(L),1024-Y(L),25-L*2
vȏȐ X(L),1024-Y(L),25-L*2
�ȏȐ 1280-Y(L),X(L),25-L*2
�#ȏȐ 1280-Y(L),1024-X(L),25-L*2
�ȏȐ Y(L),1024-X(L),25-L*2
�� L
�,ș "OS_SpriteOp",61+256,Sprite_area%,0,1
�7ș "OS_SpriteOp",34+256,Sprite_area%,"back",0,0,&08
�ș 6,19
�ș 6,112,B
�ș 6,113,3-B
�	B=3-B
��
�	C=COL
�� M=0 � 15
� C,M*17,M*17,M*17
C+=1
� C>15 C=1
 � M
*
COL+=1
4� COL>15 COL=1
>
� � �0
H�
R:
\:
f:
p� �SNEW(size%)
z� area_ptr size%
�@area_ptr!0=size%-1:area_ptr!4=0:area_ptr!8=16:area_ptr!12=16
�
=area_ptr
�:
�:
�:
�!� �SGET(Sprite_area%,Sprite$)
�2ș "OS_SpriteOp",14+256,Sprite_area%,Sprite$,0
��
�:
�:
�:
�
� �ERR
�ș 6,112,1
ș 6,113,1
�
�
$�
.�
8
B
�

00000000  0d 00 0a 08 eb 20 31 32  0d 00 14 0c e3 20 43 3d  |..... 12..... C=|
00000010  30 b8 31 35 0d 00 1e 16  fb 20 43 2c 43 2a 31 37  |0.15..... C,C*17|
00000020  2c 43 2a 31 37 2c 43 2a  31 37 0d 00 28 07 ed 20  |,C*17,C*17..(.. |
00000030  43 0d 00 32 05 3a 0d 00  3c 10 e3 20 59 20 3d 20  |C..2.:..<.. Y = |
00000040  31 20 b8 20 31 35 0d 00  46 07 e6 20 59 0d 00 50  |1 . 15..F.. Y..P|
00000050  17 e3 20 58 20 3d 20 30  20 b8 20 31 30 32 34 20  |.. X = 0 . 1024 |
00000060  88 20 36 30 0d 00 5a 17  c8 93 c8 90 20 30 2c 58  |. 60..Z..... 0,X|
00000070  2b 59 2a 34 2c 31 32 38  30 2c 34 0d 00 64 07 ed  |+Y*4,1280,4..d..|
00000080  20 58 0d 00 6e 07 ed 20  59 0d 00 78 05 3a 0d 00  | X..n.. Y..x.:..|
00000090  82 1e 53 70 72 69 74 65  5f 61 72 65 61 25 3d a4  |..Sprite_area%=.|
000000a0  53 4e 45 57 28 33 35 30  30 30 30 29 0d 00 8c 15  |SNEW(350000)....|
000000b0  ec 20 30 2c 30 3a ec 20  31 32 38 30 2c 31 30 32  |. 0,0:. 1280,102|
000000c0  34 0d 00 96 1e f2 53 47  45 54 28 53 70 72 69 74  |4.....SGET(Sprit|
000000d0  65 5f 61 72 65 61 25 2c  22 62 61 63 6b 22 29 0d  |e_area%,"back").|
000000e0  00 a0 2f c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |../.. "OS_Sprite|
000000f0  4f 70 22 2c 32 39 2b 32  35 36 2c 53 70 72 69 74  |Op",29+256,Sprit|
00000100  65 5f 61 72 65 61 25 2c  22 62 61 63 6b 22 0d 00  |e_area%,"back"..|
00000110  aa 07 42 3d 31 0d 00 b4  09 58 3d 36 34 30 0d 00  |..B=1....X=640..|
00000120  be 09 59 3d 35 31 32 0d  00 c8 08 58 50 3d 30 0d  |..Y=512....XP=0.|
00000130  00 d2 08 59 50 3d 30 0d  00 dc 08 4e 3d 31 30 0d  |...YP=0....N=10.|
00000140  00 e6 0f de 20 58 28 4e  29 2c 59 28 4e 29 0d 00  |.... X(N),Y(N)..|
00000150  f0 09 43 4f 4c 3d 30 0d  00 fa 05 3a 0d 01 04 07  |..COL=0....:....|
00000160  ee 20 85 0d 01 0e 05 f5  0d 01 18 0f c8 97 20 4d  |. ............ M|
00000170  58 2c 4d 59 2c 4d 42 0d  01 22 0c e7 20 4d 42 3d  |X,MY,MB..".. MB=|
00000180  34 20 8c 0d 01 2c 09 20  c8 97 20 ee 0d 01 36 09  |4 ...,. .. ...6.|
00000190  20 58 3d 4d 58 0d 01 40  09 20 59 3d 4d 59 0d 01  | X=MX..@. Y=MY..|
000001a0  4a 05 cc 0d 01 54 09 20  c8 97 20 87 0d 01 5e 0b  |J....T. .. ...^.|
000001b0  20 58 3d 58 2b 58 50 0d  01 68 0b 20 59 3d 59 2b  | X=X+XP..h. Y=Y+|
000001c0  59 50 0d 01 72 16 20 58  50 3d 58 50 2b b3 28 31  |YP..r. XP=XP+.(1|
000001d0  30 29 2d b3 28 31 30 29  0d 01 7c 16 20 59 50 3d  |0)-.(10)..|. YP=|
000001e0  59 50 2b b3 28 31 30 29  2d b3 28 31 30 29 0d 01  |YP+.(10)-.(10)..|
000001f0  86 38 20 e7 20 58 3e 31  32 38 30 20 84 20 58 3c  |.8 . X>1280 . X<|
00000200  30 20 8c 20 58 50 3d 2d  58 50 2b b3 28 35 29 2d  |0 . XP=-XP+.(5)-|
00000210  b3 28 35 29 3a 59 50 3d  59 50 2b b3 28 31 30 29  |.(5):YP=YP+.(10)|
00000220  2d b3 28 31 30 29 0d 01  90 38 20 e7 20 59 3e 31  |-.(10)...8 . Y>1|
00000230  30 32 34 20 84 20 59 3c  30 20 8c 20 59 50 3d 2d  |024 . Y<0 . YP=-|
00000240  59 50 2b b3 28 35 29 2d  b3 28 35 29 3a 58 50 3d  |YP+.(5)-.(5):XP=|
00000250  58 50 2b b3 28 31 30 29  2d b3 28 31 30 29 0d 01  |XP+.(10)-.(10)..|
00000260  9a 36 20 e7 20 58 3e 31  33 38 30 20 84 20 58 3c  |.6 . X>1380 . X<|
00000270  2d 31 30 30 20 84 20 59  3e 31 31 32 30 20 84 20  |-100 . Y>1120 . |
00000280  59 3c 2d 31 30 30 20 8c  20 58 3d 36 34 30 3a 59  |Y<-100 . X=640:Y|
00000290  3d 35 31 32 0d 01 a4 14  20 e7 20 58 50 3e 32 30  |=512.... . XP>20|
000002a0  20 8c 20 58 50 3d 32 30  0d 01 ae 14 20 e7 20 59  | . XP=20.... . Y|
000002b0  50 3e 32 30 20 8c 20 59  50 3d 32 30 0d 01 b8 16  |P>20 . YP=20....|
000002c0  20 e7 20 58 50 3c 2d 32  30 20 8c 20 58 50 3d 2d  | . XP<-20 . XP=-|
000002d0  32 30 0d 01 c2 16 20 e7  20 59 50 3c 2d 32 30 20  |20.... . YP<-20 |
000002e0  8c 20 59 50 3d 2d 32 30  0d 01 cc 05 cd 0d 01 d6  |. YP=-20........|
000002f0  31 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |1.. "OS_SpriteOp|
00000300  22 2c 36 31 2b 32 35 36  2c 53 70 72 69 74 65 5f  |",61+256,Sprite_|
00000310  61 72 65 61 25 2c 22 62  61 63 6b 22 2c 30 0d 01  |area%,"back",0..|
00000320  e0 07 e6 20 30 0d 01 ea  16 c8 93 c8 90 20 30 2c  |... 0........ 0,|
00000330  30 2c 31 32 38 30 2c 31  30 32 34 0d 01 f4 08 e6  |0,1280,1024.....|
00000340  20 31 35 0d 01 fe 14 e3  20 4c 20 3d 20 4e 20 b8  | 15..... L = N .|
00000350  20 32 20 88 20 2d 31 0d  02 08 0f 58 28 4c 29 3d  | 2 . -1....X(L)=|
00000360  58 28 4c 2d 31 29 0d 02  12 0f 59 28 4c 29 3d 59  |X(L-1)....Y(L)=Y|
00000370  28 4c 2d 31 29 0d 02 1c  07 ed 20 4c 0d 02 26 0a  |(L-1)..... L..&.|
00000380  58 28 31 29 3d 58 0d 02  30 0a 59 28 31 29 3d 59  |X(1)=X..0.Y(1)=Y|
00000390  0d 02 3a 29 f1 8a 30 2c  30 29 3b 22 20 20 20 20  |..:)..0,0);"    |
000003a0  20 20 20 20 20 50 72 65  73 73 20 61 20 6b 65 79  |     Press a key|
000003b0  20 74 6f 20 71 75 69 74  22 0d 02 44 0f e3 20 4c  | to quit"..D.. L|
000003c0  20 3d 20 31 20 b8 20 4e  0d 02 4e 19 c8 8f c8 90  | = 1 . N..N.....|
000003d0  20 58 28 4c 29 2c 59 28  4c 29 2c 32 35 2d 4c 2a  | X(L),Y(L),25-L*|
000003e0  32 0d 02 58 19 c8 8f c8  90 20 59 28 4c 29 2c 58  |2..X..... Y(L),X|
000003f0  28 4c 29 2c 32 35 2d 4c  2a 32 0d 02 62 1e c8 8f  |(L),25-L*2..b...|
00000400  c8 90 20 31 32 38 30 2d  58 28 4c 29 2c 59 28 4c  |.. 1280-X(L),Y(L|
00000410  29 2c 32 35 2d 4c 2a 32  0d 02 6c 23 c8 8f c8 90  |),25-L*2..l#....|
00000420  20 31 32 38 30 2d 58 28  4c 29 2c 31 30 32 34 2d  | 1280-X(L),1024-|
00000430  59 28 4c 29 2c 32 35 2d  4c 2a 32 0d 02 76 1e c8  |Y(L),25-L*2..v..|
00000440  8f c8 90 20 58 28 4c 29  2c 31 30 32 34 2d 59 28  |... X(L),1024-Y(|
00000450  4c 29 2c 32 35 2d 4c 2a  32 0d 02 80 1e c8 8f c8  |L),25-L*2.......|
00000460  90 20 31 32 38 30 2d 59  28 4c 29 2c 58 28 4c 29  |. 1280-Y(L),X(L)|
00000470  2c 32 35 2d 4c 2a 32 0d  02 8a 23 c8 8f c8 90 20  |,25-L*2...#.... |
00000480  31 32 38 30 2d 59 28 4c  29 2c 31 30 32 34 2d 58  |1280-Y(L),1024-X|
00000490  28 4c 29 2c 32 35 2d 4c  2a 32 0d 02 94 1e c8 8f  |(L),25-L*2......|
000004a0  c8 90 20 59 28 4c 29 2c  31 30 32 34 2d 58 28 4c  |.. Y(L),1024-X(L|
000004b0  29 2c 32 35 2d 4c 2a 32  0d 02 9e 07 ed 20 4c 0d  |),25-L*2..... L.|
000004c0  02 a8 2c c8 99 20 22 4f  53 5f 53 70 72 69 74 65  |..,.. "OS_Sprite|
000004d0  4f 70 22 2c 36 31 2b 32  35 36 2c 53 70 72 69 74  |Op",61+256,Sprit|
000004e0  65 5f 61 72 65 61 25 2c  30 2c 31 0d 02 b2 37 c8  |e_area%,0,1...7.|
000004f0  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
00000500  33 34 2b 32 35 36 2c 53  70 72 69 74 65 5f 61 72  |34+256,Sprite_ar|
00000510  65 61 25 2c 22 62 61 63  6b 22 2c 30 2c 30 2c 26  |ea%,"back",0,0,&|
00000520  30 38 0d 02 bc 0b c8 99  20 36 2c 31 39 0d 02 c6  |08...... 6,19...|
00000530  0e c8 99 20 36 2c 31 31  32 2c 42 0d 02 d0 10 c8  |... 6,112,B.....|
00000540  99 20 36 2c 31 31 33 2c  33 2d 42 0d 02 da 09 42  |. 6,113,3-B....B|
00000550  3d 33 2d 42 0d 02 e4 05  db 0d 02 ee 09 43 3d 43  |=3-B.........C=C|
00000560  4f 4c 0d 02 f8 0e e3 20  4d 3d 30 20 b8 20 31 35  |OL..... M=0 . 15|
00000570  0d 03 02 16 fb 20 43 2c  4d 2a 31 37 2c 4d 2a 31  |..... C,M*17,M*1|
00000580  37 2c 4d 2a 31 37 0d 03  0c 08 43 2b 3d 31 0d 03  |7,M*17....C+=1..|
00000590  16 0e e7 20 43 3e 31 35  20 43 3d 31 0d 03 20 07  |... C>15 C=1.. .|
000005a0  ed 20 4d 0d 03 2a 0a 43  4f 4c 2b 3d 31 0d 03 34  |. M..*.COL+=1..4|
000005b0  12 e7 20 43 4f 4c 3e 31  35 20 43 4f 4c 3d 31 0d  |.. COL>15 COL=1.|
000005c0  03 3e 0a fd 20 ac 20 a6  30 0d 03 48 05 e0 0d 03  |.>.. . .0..H....|
000005d0  52 05 3a 0d 03 5c 05 3a  0d 03 66 05 3a 0d 03 70  |R.:..\.:..f.:..p|
000005e0  12 dd 20 a4 53 4e 45 57  28 73 69 7a 65 25 29 0d  |.. .SNEW(size%).|
000005f0  03 7a 14 de 20 61 72 65  61 5f 70 74 72 20 73 69  |.z.. area_ptr si|
00000600  7a 65 25 0d 03 84 40 61  72 65 61 5f 70 74 72 21  |ze%...@area_ptr!|
00000610  30 3d 73 69 7a 65 25 2d  31 3a 61 72 65 61 5f 70  |0=size%-1:area_p|
00000620  74 72 21 34 3d 30 3a 61  72 65 61 5f 70 74 72 21  |tr!4=0:area_ptr!|
00000630  38 3d 31 36 3a 61 72 65  61 5f 70 74 72 21 31 32  |8=16:area_ptr!12|
00000640  3d 31 36 0d 03 8e 0d 3d  61 72 65 61 5f 70 74 72  |=16....=area_ptr|
00000650  0d 03 98 05 3a 0d 03 a2  05 3a 0d 03 ac 05 3a 0d  |....:....:....:.|
00000660  03 b6 21 dd 20 f2 53 47  45 54 28 53 70 72 69 74  |..!. .SGET(Sprit|
00000670  65 5f 61 72 65 61 25 2c  53 70 72 69 74 65 24 29  |e_area%,Sprite$)|
00000680  0d 03 c0 32 c8 99 20 22  4f 53 5f 53 70 72 69 74  |...2.. "OS_Sprit|
00000690  65 4f 70 22 2c 31 34 2b  32 35 36 2c 53 70 72 69  |eOp",14+256,Spri|
000006a0  74 65 5f 61 72 65 61 25  2c 53 70 72 69 74 65 24  |te_area%,Sprite$|
000006b0  2c 30 0d 03 ca 05 e1 0d  03 d4 05 3a 0d 03 de 05  |,0.........:....|
000006c0  3a 0d 03 e8 05 3a 0d 03  f2 0a dd 20 f2 45 52 52  |:....:..... .ERR|
000006d0  0d 03 fc 0e c8 99 20 36  2c 31 31 32 2c 31 0d 04  |...... 6,112,1..|
000006e0  06 0e c8 99 20 36 2c 31  31 33 2c 31 0d 04 10 05  |.... 6,113,1....|
000006f0  f6 0d 04 1a 06 f1 9e 0d  04 24 05 e0 0d 04 2e 05  |.........$......|
00000700  e1 0d 04 38 04 0d 04 42  04 0d ff                 |...8...B...|
0000070b