� 12

spr$="<IDYLIC$DIR>.Sprites"
(&ș "OS_File",5,spr$ � ,,,,spr_len%
2� spr% spr_len%+4
<!spr%=spr_len%+4
F ș "OS_File",255,spr$,spr%+4
P
ZDawnX=0
dDawnY=1
n
Dawn=0
x� � �END
�N=2
�b=1
�� X(N),Y(N),XP(N),C(N)
�� L = 1 � N
�
X(L)=1280
�(�:A=512+�(312):� �OK(A,"Y")=1:Y(L)=A
�&�:A=2+�(5):� �OK(A,"XP")=1:XP(L)=A
�C(L)=�(3)-1
�� L
�
logx=0
�logy=512-50
�logyp=0
�	log=1


eyes=1


croc=1


crocx=640

"
crocy=256

,e=1

6c=1

@:

J�Colours(1)

T�

^:

h� L = 1 � N

|

�5ș "OS_SpriteOp",&100+34,spr%,�(C(L)),X(L),Y(L),8

�

�X(L)=X(L)-XP(L)

�o� X(L)<-400 � X(L)=1280:�:A=512+�(312):� �OK(A,"Y")=1:Y(L)=A:�:A=2+�(5):� �OK(A,"XP")=1:XP(L)=A:C(L)=�(3)-1

�� L

�:

�� log �

� logx=logx+2

� � �(2)=1 � logyp=�(�)

� � logy=512-50 � logyp=-1

� logy=logy+logyp
 logyp=0
 � logx<-250 � log=0
�
&;� log=0 � �(10)=1 � log=1:logx=0:logy=�(512-50):logyp=0
0:
:� eyes � b=1 � e=e+1
D � eyes=0 � �(500)=1 � eyes=1
N:
X>� croc=0 � �(500)=1 � croc=1:crocy=�(512-50):crocx=�(1080)
b:
c5ș "OS_SpriteOp",&100+34,spr%,"forground",0,512,8
d
�W� eyes � ș "OS_SpriteOp",&100+34,spr%,"eyes"+�(e),186,512+120,8:� e=9 � eyes=0:e=1
�:
�:
�� Y = 0 � 512 � 4
�)ȓ 0,Y+512,1280,3 � �(�)*�(4),512-4-Y
�� Y
�� 7:ȓȐ 1275,0,5,472
�:
�W� croc � ș "OS_SpriteOp",&100+34,spr%,"croc"+�(c),crocx,crocy,8:� c=8 � croc=0:c=1
�:
�� croc � c=c+1
�:
=� log=1 � ș "OS_SpriteOp",&100+34,spr%,"log",logx,logy,8
:
ș 6,19
 ș 6,112,b
*ș 6,113,3-b
4	b=3-b
>� 7:ȓȐ 0,512,1280,512
H
R� �
\�
f:
p:
z:
�� �OK(A,S$)
�� m = 1 � N
�� A=�(S$+"("+�(m)+")") � =0
�� m
�=1
�:
�:
�:
�
� �END
�� 1,255,255,255
�� 1
�ș 6,112,1
�
ș6,113,1
�
�
�
$�
.�
8:
B:
L:
V��Rot(RX,RY,RD)
`R=�(-RD)
jNX=RX*�(R)-RY*�(R)
tNY=RX*�(R)+RY*�(R)
~�
�:
�:
�:
���Colours(ColM)
�� C = 0 � 7
�2� C,(7-C)*32*ColM,((7-C)*16+128)*ColM,225*ColM
�� C
�� 8,90*ColM,0*ColM,0*ColM
�� 9,112*ColM,39*ColM,0*ColM
�� 10,128*ColM,0*ColM,0*ColM
�!� 11,238*ColM,238*ColM,0*ColM
�!� 12,31*ColM,195*ColM,21*ColM
 � 13,80*ColM,144*ColM,0*ColM

!� 14,112*ColM,176*ColM,0*ColM
� 15,0,0,0
�
�

00000000  0d 00 0a 08 eb 20 31 32  0d 00 14 04 0d 00 1e 1f  |..... 12........|
00000010  73 70 72 24 3d 22 3c 49  44 59 4c 49 43 24 44 49  |spr$="<IDYLIC$DI|
00000020  52 3e 2e 53 70 72 69 74  65 73 22 0d 00 28 26 c8  |R>.Sprites"..(&.|
00000030  99 20 22 4f 53 5f 46 69  6c 65 22 2c 35 2c 73 70  |. "OS_File",5,sp|
00000040  72 24 20 b8 20 2c 2c 2c  2c 73 70 72 5f 6c 65 6e  |r$ . ,,,,spr_len|
00000050  25 0d 00 32 15 de 20 73  70 72 25 20 73 70 72 5f  |%..2.. spr% spr_|
00000060  6c 65 6e 25 2b 34 0d 00  3c 14 21 73 70 72 25 3d  |len%+4..<.!spr%=|
00000070  73 70 72 5f 6c 65 6e 25  2b 34 0d 00 46 20 c8 99  |spr_len%+4..F ..|
00000080  20 22 4f 53 5f 46 69 6c  65 22 2c 32 35 35 2c 73  | "OS_File",255,s|
00000090  70 72 24 2c 73 70 72 25  2b 34 0d 00 50 04 0d 00  |pr$,spr%+4..P...|
000000a0  5a 0b 44 61 77 6e 58 3d  30 0d 00 64 0b 44 61 77  |Z.DawnX=0..d.Daw|
000000b0  6e 59 3d 31 0d 00 6e 0a  44 61 77 6e 3d 30 0d 00  |nY=1..n.Dawn=0..|
000000c0  78 0c ee 20 85 20 f2 45  4e 44 0d 00 82 07 4e 3d  |x.. . .END....N=|
000000d0  32 0d 00 8c 07 62 3d 31  0d 00 96 1a de 20 58 28  |2....b=1..... X(|
000000e0  4e 29 2c 59 28 4e 29 2c  58 50 28 4e 29 2c 43 28  |N),Y(N),XP(N),C(|
000000f0  4e 29 0d 00 a0 0f e3 20  4c 20 3d 20 31 20 b8 20  |N)..... L = 1 . |
00000100  4e 0d 00 aa 0d 58 28 4c  29 3d 31 32 38 30 0d 00  |N....X(L)=1280..|
00000110  b4 28 f5 3a 41 3d 35 31  32 2b b3 28 33 31 32 29  |.(.:A=512+.(312)|
00000120  3a fd 20 a4 4f 4b 28 41  2c 22 59 22 29 3d 31 3a  |:. .OK(A,"Y")=1:|
00000130  59 28 4c 29 3d 41 0d 00  be 26 f5 3a 41 3d 32 2b  |Y(L)=A...&.:A=2+|
00000140  b3 28 35 29 3a fd 20 a4  4f 4b 28 41 2c 22 58 50  |.(5):. .OK(A,"XP|
00000150  22 29 3d 31 3a 58 50 28  4c 29 3d 41 0d 00 c8 0f  |")=1:XP(L)=A....|
00000160  43 28 4c 29 3d b3 28 33  29 2d 31 0d 00 d2 07 ed  |C(L)=.(3)-1.....|
00000170  20 4c 0d 00 dc 0a 6c 6f  67 78 3d 30 0d 00 e6 0f  | L....logx=0....|
00000180  6c 6f 67 79 3d 35 31 32  2d 35 30 0d 00 f0 0b 6c  |logy=512-50....l|
00000190  6f 67 79 70 3d 30 0d 00  fa 09 6c 6f 67 3d 31 0d  |ogyp=0....log=1.|
000001a0  01 04 0a 65 79 65 73 3d  31 0d 01 0e 0a 63 72 6f  |...eyes=1....cro|
000001b0  63 3d 31 0d 01 18 0d 63  72 6f 63 78 3d 36 34 30  |c=1....crocx=640|
000001c0  0d 01 22 0d 63 72 6f 63  79 3d 32 35 36 0d 01 2c  |..".crocy=256..,|
000001d0  07 65 3d 31 0d 01 36 07  63 3d 31 0d 01 40 05 3a  |.e=1..6.c=1..@.:|
000001e0  0d 01 4a 0f f2 43 6f 6c  6f 75 72 73 28 31 29 0d  |..J..Colours(1).|
000001f0  01 54 05 f5 0d 01 5e 05  3a 0d 01 68 0f e3 20 4c  |.T....^.:..h.. L|
00000200  20 3d 20 31 20 b8 20 4e  0d 01 7c 04 0d 01 86 35  | = 1 . N..|....5|
00000210  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
00000220  2c 26 31 30 30 2b 33 34  2c 73 70 72 25 2c c3 28  |,&100+34,spr%,.(|
00000230  43 28 4c 29 29 2c 58 28  4c 29 2c 59 28 4c 29 2c  |C(L)),X(L),Y(L),|
00000240  38 0d 01 88 04 0d 01 ae  13 58 28 4c 29 3d 58 28  |8........X(L)=X(|
00000250  4c 29 2d 58 50 28 4c 29  0d 01 b8 6f e7 20 58 28  |L)-XP(L)...o. X(|
00000260  4c 29 3c 2d 34 30 30 20  8c 20 58 28 4c 29 3d 31  |L)<-400 . X(L)=1|
00000270  32 38 30 3a f5 3a 41 3d  35 31 32 2b b3 28 33 31  |280:.:A=512+.(31|
00000280  32 29 3a fd 20 a4 4f 4b  28 41 2c 22 59 22 29 3d  |2):. .OK(A,"Y")=|
00000290  31 3a 59 28 4c 29 3d 41  3a f5 3a 41 3d 32 2b b3  |1:Y(L)=A:.:A=2+.|
000002a0  28 35 29 3a fd 20 a4 4f  4b 28 41 2c 22 58 50 22  |(5):. .OK(A,"XP"|
000002b0  29 3d 31 3a 58 50 28 4c  29 3d 41 3a 43 28 4c 29  |)=1:XP(L)=A:C(L)|
000002c0  3d b3 28 33 29 2d 31 0d  01 c2 07 ed 20 4c 0d 01  |=.(3)-1..... L..|
000002d0  cc 05 3a 0d 01 d6 0b e7  20 6c 6f 67 20 8c 0d 01  |..:..... log ...|
000002e0  e0 10 20 6c 6f 67 78 3d  6c 6f 67 78 2b 32 0d 01  |.. logx=logx+2..|
000002f0  ea 1a 20 e7 20 b3 28 32  29 3d 31 20 8c 20 6c 6f  |.. . .(2)=1 . lo|
00000300  67 79 70 3d b4 28 b3 29  0d 01 f4 1d 20 e7 20 6c  |gyp=.(.).... . l|
00000310  6f 67 79 3d 35 31 32 2d  35 30 20 8c 20 6c 6f 67  |ogy=512-50 . log|
00000320  79 70 3d 2d 31 0d 01 fe  14 20 6c 6f 67 79 3d 6c  |yp=-1.... logy=l|
00000330  6f 67 79 2b 6c 6f 67 79  70 0d 02 08 0c 20 6c 6f  |ogy+logyp.... lo|
00000340  67 79 70 3d 30 0d 02 12  18 20 e7 20 6c 6f 67 78  |gyp=0.... . logx|
00000350  3c 2d 32 35 30 20 8c 20  6c 6f 67 3d 30 0d 02 1c  |<-250 . log=0...|
00000360  05 cd 0d 02 26 3b e7 20  6c 6f 67 3d 30 20 80 20  |....&;. log=0 . |
00000370  b3 28 31 30 29 3d 31 20  8c 20 6c 6f 67 3d 31 3a  |.(10)=1 . log=1:|
00000380  6c 6f 67 78 3d 30 3a 6c  6f 67 79 3d b3 28 35 31  |logx=0:logy=.(51|
00000390  32 2d 35 30 29 3a 6c 6f  67 79 70 3d 30 0d 02 30  |2-50):logyp=0..0|
000003a0  05 3a 0d 02 3a 18 e7 20  65 79 65 73 20 80 20 62  |.:..:.. eyes . b|
000003b0  3d 31 20 8c 20 65 3d 65  2b 31 0d 02 44 20 e7 20  |=1 . e=e+1..D . |
000003c0  65 79 65 73 3d 30 20 80  20 b3 28 35 30 30 29 3d  |eyes=0 . .(500)=|
000003d0  31 20 8c 20 65 79 65 73  3d 31 0d 02 4e 05 3a 0d  |1 . eyes=1..N.:.|
000003e0  02 58 3e e7 20 63 72 6f  63 3d 30 20 80 20 b3 28  |.X>. croc=0 . .(|
000003f0  35 30 30 29 3d 31 20 8c  20 63 72 6f 63 3d 31 3a  |500)=1 . croc=1:|
00000400  63 72 6f 63 79 3d b3 28  35 31 32 2d 35 30 29 3a  |crocy=.(512-50):|
00000410  63 72 6f 63 78 3d b3 28  31 30 38 30 29 0d 02 62  |crocx=.(1080)..b|
00000420  05 3a 0d 02 63 35 c8 99  20 22 4f 53 5f 53 70 72  |.:..c5.. "OS_Spr|
00000430  69 74 65 4f 70 22 2c 26  31 30 30 2b 33 34 2c 73  |iteOp",&100+34,s|
00000440  70 72 25 2c 22 66 6f 72  67 72 6f 75 6e 64 22 2c  |pr%,"forground",|
00000450  30 2c 35 31 32 2c 38 0d  02 64 04 0d 02 8a 57 e7  |0,512,8..d....W.|
00000460  20 65 79 65 73 20 8c 20  c8 99 20 22 4f 53 5f 53  | eyes . .. "OS_S|
00000470  70 72 69 74 65 4f 70 22  2c 26 31 30 30 2b 33 34  |priteOp",&100+34|
00000480  2c 73 70 72 25 2c 22 65  79 65 73 22 2b c3 28 65  |,spr%,"eyes"+.(e|
00000490  29 2c 31 38 36 2c 35 31  32 2b 31 32 30 2c 38 3a  |),186,512+120,8:|
000004a0  e7 20 65 3d 39 20 8c 20  65 79 65 73 3d 30 3a 65  |. e=9 . eyes=0:e|
000004b0  3d 31 0d 02 94 05 3a 0d  02 9e 05 3a 0d 02 a8 15  |=1....:....:....|
000004c0  e3 20 59 20 3d 20 30 20  b8 20 35 31 32 20 88 20  |. Y = 0 . 512 . |
000004d0  34 0d 02 b2 29 c8 93 20  30 2c 59 2b 35 31 32 2c  |4...).. 0,Y+512,|
000004e0  31 32 38 30 2c 33 20 b8  20 b4 28 b3 29 2a b3 28  |1280,3 . .(.)*.(|
000004f0  34 29 2c 35 31 32 2d 34  2d 59 0d 02 bc 07 ed 20  |4),512-4-Y..... |
00000500  59 0d 02 c6 19 e6 20 37  3a c8 93 c8 90 20 31 32  |Y..... 7:.... 12|
00000510  37 35 2c 30 2c 35 2c 34  37 32 0d 02 d0 05 3a 0d  |75,0,5,472....:.|
00000520  02 da 57 e7 20 63 72 6f  63 20 8c 20 c8 99 20 22  |..W. croc . .. "|
00000530  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 30  |OS_SpriteOp",&10|
00000540  30 2b 33 34 2c 73 70 72  25 2c 22 63 72 6f 63 22  |0+34,spr%,"croc"|
00000550  2b c3 28 63 29 2c 63 72  6f 63 78 2c 63 72 6f 63  |+.(c),crocx,croc|
00000560  79 2c 38 3a e7 20 63 3d  38 20 8c 20 63 72 6f 63  |y,8:. c=8 . croc|
00000570  3d 30 3a 63 3d 31 0d 02  e4 05 3a 0d 02 ee 12 e7  |=0:c=1....:.....|
00000580  20 63 72 6f 63 20 8c 20  63 3d 63 2b 31 0d 02 f8  | croc . c=c+1...|
00000590  05 3a 0d 03 02 3d e7 20  6c 6f 67 3d 31 20 8c 20  |.:...=. log=1 . |
000005a0  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
000005b0  2c 26 31 30 30 2b 33 34  2c 73 70 72 25 2c 22 6c  |,&100+34,spr%,"l|
000005c0  6f 67 22 2c 6c 6f 67 78  2c 6c 6f 67 79 2c 38 0d  |og",logx,logy,8.|
000005d0  03 0c 05 3a 0d 03 16 0b  c8 99 20 36 2c 31 39 0d  |...:...... 6,19.|
000005e0  03 20 0e c8 99 20 36 2c  31 31 32 2c 62 0d 03 2a  |. ... 6,112,b..*|
000005f0  10 c8 99 20 36 2c 31 31  33 2c 33 2d 62 0d 03 34  |... 6,113,3-b..4|
00000600  09 62 3d 33 2d 62 0d 03  3e 1b e6 20 37 3a c8 93  |.b=3-b..>.. 7:..|
00000610  c8 90 20 30 2c 35 31 32  2c 31 32 38 30 2c 35 31  |.. 0,512,1280,51|
00000620  32 0d 03 48 04 0d 03 52  07 fd 20 a3 0d 03 5c 05  |2..H...R.. ...\.|
00000630  e0 0d 03 66 05 3a 0d 03  70 05 3a 0d 03 7a 05 3a  |...f.:..p.:..z.:|
00000640  0d 03 84 0f dd 20 a4 4f  4b 28 41 2c 53 24 29 0d  |..... .OK(A,S$).|
00000650  03 8e 0f e3 20 6d 20 3d  20 31 20 b8 20 4e 0d 03  |.... m = 1 . N..|
00000660  98 1f e7 20 41 3d a0 28  53 24 2b 22 28 22 2b c3  |... A=.(S$+"("+.|
00000670  28 6d 29 2b 22 29 22 29  20 8c 20 3d 30 0d 03 a2  |(m)+")") . =0...|
00000680  07 ed 20 6d 0d 03 ac 06  3d 31 0d 03 b6 05 3a 0d  |.. m....=1....:.|
00000690  03 c0 05 3a 0d 03 ca 05  3a 0d 03 d4 0a dd 20 f2  |...:....:..... .|
000006a0  45 4e 44 0d 03 de 13 fb  20 31 2c 32 35 35 2c 32  |END..... 1,255,2|
000006b0  35 35 2c 32 35 35 0d 03  e8 07 fb 20 31 0d 03 f2  |55,255..... 1...|
000006c0  0e c8 99 20 36 2c 31 31  32 2c 31 0d 03 fc 0d c8  |... 6,112,1.....|
000006d0  99 36 2c 31 31 33 2c 31  0d 04 06 05 db 0d 04 10  |.6,113,1........|
000006e0  05 f6 0d 04 1a 06 f1 9e  0d 04 24 05 e0 0d 04 2e  |..........$.....|
000006f0  05 e1 0d 04 38 05 3a 0d  04 42 05 3a 0d 04 4c 05  |....8.:..B.:..L.|
00000700  3a 0d 04 56 13 dd f2 52  6f 74 28 52 58 2c 52 59  |:..V...Rot(RX,RY|
00000710  2c 52 44 29 0d 04 60 0c  52 3d b2 28 2d 52 44 29  |,RD)..`.R=.(-RD)|
00000720  0d 04 6a 16 4e 58 3d 52  58 2a 9b 28 52 29 2d 52  |..j.NX=RX*.(R)-R|
00000730  59 2a b5 28 52 29 0d 04  74 16 4e 59 3d 52 58 2a  |Y*.(R)..t.NY=RX*|
00000740  b5 28 52 29 2b 52 59 2a  9b 28 52 29 0d 04 7e 05  |.(R)+RY*.(R)..~.|
00000750  e1 0d 04 88 05 3a 0d 04  92 05 3a 0d 04 9c 05 3a  |.....:....:....:|
00000760  0d 04 a6 13 dd f2 43 6f  6c 6f 75 72 73 28 43 6f  |......Colours(Co|
00000770  6c 4d 29 0d 04 b0 0f e3  20 43 20 3d 20 30 20 b8  |lM)..... C = 0 .|
00000780  20 37 0d 04 ba 32 fb 20  43 2c 28 37 2d 43 29 2a  | 7...2. C,(7-C)*|
00000790  33 32 2a 43 6f 6c 4d 2c  28 28 37 2d 43 29 2a 31  |32*ColM,((7-C)*1|
000007a0  36 2b 31 32 38 29 2a 43  6f 6c 4d 2c 32 32 35 2a  |6+128)*ColM,225*|
000007b0  43 6f 6c 4d 0d 04 c4 07  ed 20 43 0d 04 ce 1d fb  |ColM..... C.....|
000007c0  20 38 2c 39 30 2a 43 6f  6c 4d 2c 30 2a 43 6f 6c  | 8,90*ColM,0*Col|
000007d0  4d 2c 30 2a 43 6f 6c 4d  0d 04 d8 1f fb 20 39 2c  |M,0*ColM..... 9,|
000007e0  31 31 32 2a 43 6f 6c 4d  2c 33 39 2a 43 6f 6c 4d  |112*ColM,39*ColM|
000007f0  2c 30 2a 43 6f 6c 4d 0d  04 e2 1f fb 20 31 30 2c  |,0*ColM..... 10,|
00000800  31 32 38 2a 43 6f 6c 4d  2c 30 2a 43 6f 6c 4d 2c  |128*ColM,0*ColM,|
00000810  30 2a 43 6f 6c 4d 0d 04  ec 21 fb 20 31 31 2c 32  |0*ColM...!. 11,2|
00000820  33 38 2a 43 6f 6c 4d 2c  32 33 38 2a 43 6f 6c 4d  |38*ColM,238*ColM|
00000830  2c 30 2a 43 6f 6c 4d 0d  04 f6 21 fb 20 31 32 2c  |,0*ColM...!. 12,|
00000840  33 31 2a 43 6f 6c 4d 2c  31 39 35 2a 43 6f 6c 4d  |31*ColM,195*ColM|
00000850  2c 32 31 2a 43 6f 6c 4d  0d 05 00 20 fb 20 31 33  |,21*ColM... . 13|
00000860  2c 38 30 2a 43 6f 6c 4d  2c 31 34 34 2a 43 6f 6c  |,80*ColM,144*Col|
00000870  4d 2c 30 2a 43 6f 6c 4d  0d 05 0a 21 fb 20 31 34  |M,0*ColM...!. 14|
00000880  2c 31 31 32 2a 43 6f 6c  4d 2c 31 37 36 2a 43 6f  |,112*ColM,176*Co|
00000890  6c 4d 2c 30 2a 43 6f 6c  4d 0d 05 14 0e fb 20 31  |lM,0*ColM..... 1|
000008a0  35 2c 30 2c 30 2c 30 0d  05 1e 05 e1 0d ff        |5,0,0,0.......|
000008ae