� *** <1K Egg
)� *** Written by Dean Alexandrou 1998

(A�9:�"480K Screen Memory required"''"Press SPACE to start":A=�
2)�n%=1�15:�(16-n%),n%*17,n%*17,n%*17:�
<$� w%(1024),ymap(1280),xmap(1280)
Fs=200:sm=1
P0�y=450�650�8:s=s-sm:sm=sm*1.1:ȏȐ 640,y,s:�
Z��ny%=250�750�4:nx%=0:�:nx%+=4:��nx%,ny%)>0�nx%=640:�n%=0�3:w%(ny%+n%)=640-nx%:�:�:�n%=0�1280:ymap(n%)=�(�((n%-512)/512)*90):xmap(n%)=�(�((n%-640)/640)*90):�
ddv%=2^(�(5)-1)
n�b%=1�12
xș6,112,b%
�ș6,113,b%
�$srcx%=�(�(b%/12*180-97))*300+640
�r%=�(�(b%/12*180-7))*50+30
�
srcy%=400
�4�:�"<1K Egg"'"Written by Dean Alexandrou (1998)"
�W�x%=0�1280�8:�y%=0�1024�4:s%=((x%+(160/dv%))�(320/dv%)+(y%+(90/dv%))�(180/dv%))�2*3
�.yp=246*ymap(y%)+504:xp=w%(yp)*xmap(x%)+640
�xd%=x%-srcx%:yd%=y%-srcy%
�*c%=�(xd%*xd%+yd%*yd%)/500*15+�(5)-3+s%
� �(xd%*xd%+yd%*yd%)<r% c%=-3
�
�c%<1c%=1
��c%>15c%=15
��0,c%:�69,xp,yp

�:�

�

:

"L�:�b%=1�12:�=0:���>3:ș6,113,b%:�:�b%=11�2�-1:�=0:���>3:ș6,113,b%:�:� �
�

00000000  0d 00 0a 11 f4 20 2a 2a  2a 20 3c 31 4b 20 45 67  |..... *** <1K Eg|
00000010  67 0d 00 14 29 f4 20 2a  2a 2a 20 57 72 69 74 74  |g...). *** Writt|
00000020  65 6e 20 62 79 20 44 65  61 6e 20 41 6c 65 78 61  |en by Dean Alexa|
00000030  6e 64 72 6f 75 20 31 39  39 38 0d 00 1e 04 0d 00  |ndrou 1998......|
00000040  28 41 eb 39 3a f1 22 34  38 30 4b 20 53 63 72 65  |(A.9:."480K Scre|
00000050  65 6e 20 4d 65 6d 6f 72  79 20 72 65 71 75 69 72  |en Memory requir|
00000060  65 64 22 27 27 22 50 72  65 73 73 20 53 50 41 43  |ed"''"Press SPAC|
00000070  45 20 74 6f 20 73 74 61  72 74 22 3a 41 3d a5 0d  |E to start":A=..|
00000080  00 32 29 e3 6e 25 3d 31  b8 31 35 3a fb 28 31 36  |.2).n%=1.15:.(16|
00000090  2d 6e 25 29 2c 6e 25 2a  31 37 2c 6e 25 2a 31 37  |-n%),n%*17,n%*17|
000000a0  2c 6e 25 2a 31 37 3a ed  0d 00 3c 24 de 20 77 25  |,n%*17:...<$. w%|
000000b0  28 31 30 32 34 29 2c 79  6d 61 70 28 31 32 38 30  |(1024),ymap(1280|
000000c0  29 2c 78 6d 61 70 28 31  32 38 30 29 0d 00 46 0e  |),xmap(1280)..F.|
000000d0  73 3d 32 30 30 3a 73 6d  3d 31 0d 00 50 30 e3 79  |s=200:sm=1..P0.y|
000000e0  3d 34 35 30 b8 36 35 30  88 38 3a 73 3d 73 2d 73  |=450.650.8:s=s-s|
000000f0  6d 3a 73 6d 3d 73 6d 2a  31 2e 31 3a c8 8f c8 90  |m:sm=sm*1.1:....|
00000100  20 36 34 30 2c 79 2c 73  3a ed 0d 00 5a a0 e3 6e  | 640,y,s:...Z..n|
00000110  79 25 3d 32 35 30 b8 37  35 30 88 34 3a 6e 78 25  |y%=250.750.4:nx%|
00000120  3d 30 3a f5 3a 6e 78 25  2b 3d 34 3a fd b0 6e 78  |=0:.:nx%+=4:..nx|
00000130  25 2c 6e 79 25 29 3e 30  84 6e 78 25 3d 36 34 30  |%,ny%)>0.nx%=640|
00000140  3a e3 6e 25 3d 30 b8 33  3a 77 25 28 6e 79 25 2b  |:.n%=0.3:w%(ny%+|
00000150  6e 25 29 3d 36 34 30 2d  6e 78 25 3a ed 3a ed 3a  |n%)=640-nx%:.:.:|
00000160  e3 6e 25 3d 30 b8 31 32  38 30 3a 79 6d 61 70 28  |.n%=0.1280:ymap(|
00000170  6e 25 29 3d b5 28 b2 28  28 6e 25 2d 35 31 32 29  |n%)=.(.((n%-512)|
00000180  2f 35 31 32 29 2a 39 30  29 3a 78 6d 61 70 28 6e  |/512)*90):xmap(n|
00000190  25 29 3d b5 28 b2 28 28  6e 25 2d 36 34 30 29 2f  |%)=.(.((n%-640)/|
000001a0  36 34 30 29 2a 39 30 29  3a ed 0d 00 64 12 64 76  |640)*90):...d.dv|
000001b0  25 3d 32 5e 28 b3 28 35  29 2d 31 29 0d 00 6e 0c  |%=2^(.(5)-1)..n.|
000001c0  e3 62 25 3d 31 b8 31 32  0d 00 78 0e c8 99 36 2c  |.b%=1.12..x...6,|
000001d0  31 31 32 2c 62 25 0d 00  82 0e c8 99 36 2c 31 31  |112,b%......6,11|
000001e0  33 2c 62 25 0d 00 8c 24  73 72 63 78 25 3d b5 28  |3,b%...$srcx%=.(|
000001f0  b2 28 62 25 2f 31 32 2a  31 38 30 2d 39 37 29 29  |.(b%/12*180-97))|
00000200  2a 33 30 30 2b 36 34 30  0d 00 96 1e 72 25 3d b5  |*300+640....r%=.|
00000210  28 b2 28 62 25 2f 31 32  2a 31 38 30 2d 37 29 29  |(.(b%/12*180-7))|
00000220  2a 35 30 2b 33 30 0d 00  a0 0d 73 72 63 79 25 3d  |*50+30....srcy%=|
00000230  34 30 30 0d 00 aa 34 db  3a f1 22 3c 31 4b 20 45  |400...4.:."<1K E|
00000240  67 67 22 27 22 57 72 69  74 74 65 6e 20 62 79 20  |gg"'"Written by |
00000250  44 65 61 6e 20 41 6c 65  78 61 6e 64 72 6f 75 20  |Dean Alexandrou |
00000260  28 31 39 39 38 29 22 0d  00 b4 57 e3 78 25 3d 30  |(1998)"...W.x%=0|
00000270  b8 31 32 38 30 88 38 3a  e3 79 25 3d 30 b8 31 30  |.1280.8:.y%=0.10|
00000280  32 34 88 34 3a 73 25 3d  28 28 78 25 2b 28 31 36  |24.4:s%=((x%+(16|
00000290  30 2f 64 76 25 29 29 81  28 33 32 30 2f 64 76 25  |0/dv%)).(320/dv%|
000002a0  29 2b 28 79 25 2b 28 39  30 2f 64 76 25 29 29 81  |)+(y%+(90/dv%)).|
000002b0  28 31 38 30 2f 64 76 25  29 29 83 32 2a 33 0d 00  |(180/dv%)).2*3..|
000002c0  be 2e 79 70 3d 32 34 36  2a 79 6d 61 70 28 79 25  |..yp=246*ymap(y%|
000002d0  29 2b 35 30 34 3a 78 70  3d 77 25 28 79 70 29 2a  |)+504:xp=w%(yp)*|
000002e0  78 6d 61 70 28 78 25 29  2b 36 34 30 0d 00 c8 1d  |xmap(x%)+640....|
000002f0  78 64 25 3d 78 25 2d 73  72 63 78 25 3a 79 64 25  |xd%=x%-srcx%:yd%|
00000300  3d 79 25 2d 73 72 63 79  25 0d 00 d2 2a 63 25 3d  |=y%-srcy%...*c%=|
00000310  b6 28 78 64 25 2a 78 64  25 2b 79 64 25 2a 79 64  |.(xd%*xd%+yd%*yd|
00000320  25 29 2f 35 30 30 2a 31  35 2b b3 28 35 29 2d 33  |%)/500*15+.(5)-3|
00000330  2b 73 25 0d 00 dc 20 e7  b6 28 78 64 25 2a 78 64  |+s%... ..(xd%*xd|
00000340  25 2b 79 64 25 2a 79 64  25 29 3c 72 25 20 63 25  |%+yd%*yd%)<r% c%|
00000350  3d 2d 33 0d 00 e6 0d e7  63 25 3c 31 63 25 3d 31  |=-3.....c%<1c%=1|
00000360  0d 00 f0 0f e7 63 25 3e  31 35 63 25 3d 31 35 0d  |.....c%>15c%=15.|
00000370  00 fa 13 e6 30 2c 63 25  3a f0 36 39 2c 78 70 2c  |....0,c%:.69,xp,|
00000380  79 70 0d 01 04 07 ed 3a  ed 0d 01 0e 05 ed 0d 01  |yp.....:........|
00000390  18 05 3a 0d 01 22 4c f5  3a e3 62 25 3d 31 b8 31  |..:.."L.:.b%=1.1|
000003a0  32 3a d1 3d 30 3a f5 fd  91 3e 33 3a c8 99 36 2c  |2:.=0:...>3:..6,|
000003b0  31 31 33 2c 62 25 3a ed  3a e3 62 25 3d 31 31 b8  |113,b%:.:.b%=11.|
000003c0  32 88 2d 31 3a d1 3d 30  3a f5 fd 91 3e 33 3a c8  |2.-1:.=0:...>3:.|
000003d0  99 36 2c 31 31 33 2c 62  25 3a ed 3a fd 20 a3 0d  |.6,113,b%:.:. ..|
000003e0  ff                                                |.|
000003e1