�     >Marble
� By  Jan Vibe
� (c) AU May 1994
(
2�9:�
<� SPR &B0000,H% 16
F+SPR!0=&AFFFF:SPR!4=0:SPR!8=16:SPR!12=16
P+H%!00=640:H%!04=640:H%!08=640:H%!12=640
Z(�N%=8�15:� N%,�(255),�(255),�(255):�
d�24,0;0;1279;640;
n�:�N%=1�1000:�(15)
x#ȏ Ȑ �(1280),�(640),24+�(76):�
�!�I%=1�4+�(8):D%=0:�C%<=2 D%=2
�C%=�(2)+D%
�Ȏ C% �
�� 1,2:S%=�(C%�2-.5)
�,�N%=0�639�4:X1%=0:Y1%=N%:X2%=1279:Y2%=N%
�7ș"OS_SpriteOp",256+16,SPR,"LINE",0,X1%,Y1%,X2%,Y2%
�F%=�(102400-(N%-320)^2)*S%
�2ș"OS_SpriteOp",256+34,SPR,"LINE",X1%+F%,Y1%,0
�:ș"OS_SpriteOp",256+34,SPR,"LINE",X1%+F%-1280*S%,Y1%,0
��
�� 3,4:S%=�(C%�2-.5)
�,�N%=0�1279�4:X1%=N%:Y1%=0:X2%=N%:Y2%=639
�7ș"OS_SpriteOp",256+16,SPR,"LINE",0,X1%,Y1%,X2%,Y2%

$F%=�(102400-((N%�640)-320)^2)*S%

2ș"OS_SpriteOp",256+34,SPR,"LINE",X1%,Y1%+F%,0

9ș"OS_SpriteOp",256+34,SPR,"LINE",X1%,Y1%+F%-640*S%,0

"�

,�

6	�:�26

@3ș"OS_SpriteOp",256+16,SPR,"PIC",0,0,0,1279,639

J	�0Ȝ0

T"�I%=0�49:X%=I%*25.6:N$=�(I%+1)

^.ș"OS_SpriteOp",256+34,SPR,"PIC",X%-1280,0

h)ș"OS_SpriteOp",256+34,SPR,"PIC",X%,0

r+�N%=0�640�4:X1%=0:Y1%=N%:X2%=640:Y2%=N%

|&W%=�(102400-(320-N%)^2):H%!00=2*W%

�7ș"OS_SpriteOp",256+16,SPR,"LINE",0,X1%,Y1%,X2%,Y2%

��0,N%:�1280,N%

�6ș"OS_SpriteOp",256+52,SPR,"LINE",320-W%,N%,0,H%,0

��

�/ș"OS_SpriteOp",256+16,SPR,N$,0,0,0,639,639

��:�

�

��

�@�N%=1�50:N$=�(N%):ș"OS_SpriteOp",256+34,SPR,N$,320,192:Ȗ:�

��0
�

00000000  0d 00 0a 11 f4 20 20 20  20 20 3e 4d 61 72 62 6c  |.....     >Marbl|
00000010  65 0d 00 14 12 f4 20 42  79 20 20 4a 61 6e 20 56  |e..... By  Jan V|
00000020  69 62 65 0d 00 1e 15 f4  20 28 63 29 20 41 55 20  |ibe..... (c) AU |
00000030  4d 61 79 20 31 39 39 34  0d 00 28 04 0d 00 32 08  |May 1994..(...2.|
00000040  eb 39 3a 87 0d 00 3c 16  de 20 53 50 52 20 26 42  |.9:...<.. SPR &B|
00000050  30 30 30 30 2c 48 25 20  31 36 0d 00 46 2b 53 50  |0000,H% 16..F+SP|
00000060  52 21 30 3d 26 41 46 46  46 46 3a 53 50 52 21 34  |R!0=&AFFFF:SPR!4|
00000070  3d 30 3a 53 50 52 21 38  3d 31 36 3a 53 50 52 21  |=0:SPR!8=16:SPR!|
00000080  31 32 3d 31 36 0d 00 50  2b 48 25 21 30 30 3d 36  |12=16..P+H%!00=6|
00000090  34 30 3a 48 25 21 30 34  3d 36 34 30 3a 48 25 21  |40:H%!04=640:H%!|
000000a0  30 38 3d 36 34 30 3a 48  25 21 31 32 3d 36 34 30  |08=640:H%!12=640|
000000b0  0d 00 5a 28 e3 4e 25 3d  38 b8 31 35 3a fb 20 4e  |..Z(.N%=8.15:. N|
000000c0  25 2c b3 28 32 35 35 29  2c b3 28 32 35 35 29 2c  |%,.(255),.(255),|
000000d0  b3 28 32 35 35 29 3a ed  0d 00 64 15 ef 32 34 2c  |.(255):...d..24,|
000000e0  30 3b 30 3b 31 32 37 39  3b 36 34 30 3b 0d 00 6e  |0;0;1279;640;..n|
000000f0  17 db 3a e3 4e 25 3d 31  b8 31 30 30 30 3a e6 b3  |..:.N%=1.1000:..|
00000100  28 31 35 29 0d 00 78 23  c8 8f 20 c8 90 20 b3 28  |(15)..x#.. .. .(|
00000110  31 32 38 30 29 2c b3 28  36 34 30 29 2c 32 34 2b  |1280),.(640),24+|
00000120  b3 28 37 36 29 3a ed 0d  00 82 21 e3 49 25 3d 31  |.(76):....!.I%=1|
00000130  b8 34 2b b3 28 38 29 3a  44 25 3d 30 3a e7 43 25  |.4+.(8):D%=0:.C%|
00000140  3c 3d 32 20 44 25 3d 32  0d 00 8c 0e 43 25 3d b3  |<=2 D%=2....C%=.|
00000150  28 32 29 2b 44 25 0d 00  96 0b c8 8e 20 43 25 20  |(2)+D%...... C% |
00000160  ca 0d 00 a0 17 c9 20 31  2c 32 3a 53 25 3d b4 28  |...... 1,2:S%=.(|
00000170  43 25 83 32 2d 2e 35 29  0d 00 aa 2c e3 4e 25 3d  |C%.2-.5)...,.N%=|
00000180  30 b8 36 33 39 88 34 3a  58 31 25 3d 30 3a 59 31  |0.639.4:X1%=0:Y1|
00000190  25 3d 4e 25 3a 58 32 25  3d 31 32 37 39 3a 59 32  |%=N%:X2%=1279:Y2|
000001a0  25 3d 4e 25 0d 00 b4 37  c8 99 22 4f 53 5f 53 70  |%=N%...7.."OS_Sp|
000001b0  72 69 74 65 4f 70 22 2c  32 35 36 2b 31 36 2c 53  |riteOp",256+16,S|
000001c0  50 52 2c 22 4c 49 4e 45  22 2c 30 2c 58 31 25 2c  |PR,"LINE",0,X1%,|
000001d0  59 31 25 2c 58 32 25 2c  59 32 25 0d 00 be 1e 46  |Y1%,X2%,Y2%....F|
000001e0  25 3d b6 28 31 30 32 34  30 30 2d 28 4e 25 2d 33  |%=.(102400-(N%-3|
000001f0  32 30 29 5e 32 29 2a 53  25 0d 00 c8 32 c8 99 22  |20)^2)*S%...2.."|
00000200  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 32 35 36  |OS_SpriteOp",256|
00000210  2b 33 34 2c 53 50 52 2c  22 4c 49 4e 45 22 2c 58  |+34,SPR,"LINE",X|
00000220  31 25 2b 46 25 2c 59 31  25 2c 30 0d 00 d2 3a c8  |1%+F%,Y1%,0...:.|
00000230  99 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 32  |."OS_SpriteOp",2|
00000240  35 36 2b 33 34 2c 53 50  52 2c 22 4c 49 4e 45 22  |56+34,SPR,"LINE"|
00000250  2c 58 31 25 2b 46 25 2d  31 32 38 30 2a 53 25 2c  |,X1%+F%-1280*S%,|
00000260  59 31 25 2c 30 0d 00 dc  05 ed 0d 00 e6 17 c9 20  |Y1%,0.......... |
00000270  33 2c 34 3a 53 25 3d b4  28 43 25 83 32 2d 2e 35  |3,4:S%=.(C%.2-.5|
00000280  29 0d 00 f0 2c e3 4e 25  3d 30 b8 31 32 37 39 88  |)...,.N%=0.1279.|
00000290  34 3a 58 31 25 3d 4e 25  3a 59 31 25 3d 30 3a 58  |4:X1%=N%:Y1%=0:X|
000002a0  32 25 3d 4e 25 3a 59 32  25 3d 36 33 39 0d 00 fa  |2%=N%:Y2%=639...|
000002b0  37 c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |7.."OS_SpriteOp"|
000002c0  2c 32 35 36 2b 31 36 2c  53 50 52 2c 22 4c 49 4e  |,256+16,SPR,"LIN|
000002d0  45 22 2c 30 2c 58 31 25  2c 59 31 25 2c 58 32 25  |E",0,X1%,Y1%,X2%|
000002e0  2c 59 32 25 0d 01 04 24  46 25 3d b6 28 31 30 32  |,Y2%...$F%=.(102|
000002f0  34 30 30 2d 28 28 4e 25  83 36 34 30 29 2d 33 32  |400-((N%.640)-32|
00000300  30 29 5e 32 29 2a 53 25  0d 01 0e 32 c8 99 22 4f  |0)^2)*S%...2.."O|
00000310  53 5f 53 70 72 69 74 65  4f 70 22 2c 32 35 36 2b  |S_SpriteOp",256+|
00000320  33 34 2c 53 50 52 2c 22  4c 49 4e 45 22 2c 58 31  |34,SPR,"LINE",X1|
00000330  25 2c 59 31 25 2b 46 25  2c 30 0d 01 18 39 c8 99  |%,Y1%+F%,0...9..|
00000340  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 32 35  |"OS_SpriteOp",25|
00000350  36 2b 33 34 2c 53 50 52  2c 22 4c 49 4e 45 22 2c  |6+34,SPR,"LINE",|
00000360  58 31 25 2c 59 31 25 2b  46 25 2d 36 34 30 2a 53  |X1%,Y1%+F%-640*S|
00000370  25 2c 30 0d 01 22 05 ed  0d 01 2c 05 cb 0d 01 36  |%,0.."....,....6|
00000380  09 ed 3a ef 32 36 0d 01  40 33 c8 99 22 4f 53 5f  |..:.26..@3.."OS_|
00000390  53 70 72 69 74 65 4f 70  22 2c 32 35 36 2b 31 36  |SpriteOp",256+16|
000003a0  2c 53 50 52 2c 22 50 49  43 22 2c 30 2c 30 2c 30  |,SPR,"PIC",0,0,0|
000003b0  2c 31 32 37 39 2c 36 33  39 0d 01 4a 09 e6 30 c8  |,1279,639..J..0.|
000003c0  9c 30 0d 01 54 22 e3 49  25 3d 30 b8 34 39 3a 58  |.0..T".I%=0.49:X|
000003d0  25 3d 49 25 2a 32 35 2e  36 3a 4e 24 3d c3 28 49  |%=I%*25.6:N$=.(I|
000003e0  25 2b 31 29 0d 01 5e 2e  c8 99 22 4f 53 5f 53 70  |%+1)..^..."OS_Sp|
000003f0  72 69 74 65 4f 70 22 2c  32 35 36 2b 33 34 2c 53  |riteOp",256+34,S|
00000400  50 52 2c 22 50 49 43 22  2c 58 25 2d 31 32 38 30  |PR,"PIC",X%-1280|
00000410  2c 30 0d 01 68 29 c8 99  22 4f 53 5f 53 70 72 69  |,0..h).."OS_Spri|
00000420  74 65 4f 70 22 2c 32 35  36 2b 33 34 2c 53 50 52  |teOp",256+34,SPR|
00000430  2c 22 50 49 43 22 2c 58  25 2c 30 0d 01 72 2b e3  |,"PIC",X%,0..r+.|
00000440  4e 25 3d 30 b8 36 34 30  88 34 3a 58 31 25 3d 30  |N%=0.640.4:X1%=0|
00000450  3a 59 31 25 3d 4e 25 3a  58 32 25 3d 36 34 30 3a  |:Y1%=N%:X2%=640:|
00000460  59 32 25 3d 4e 25 0d 01  7c 26 57 25 3d b6 28 31  |Y2%=N%..|&W%=.(1|
00000470  30 32 34 30 30 2d 28 33  32 30 2d 4e 25 29 5e 32  |02400-(320-N%)^2|
00000480  29 3a 48 25 21 30 30 3d  32 2a 57 25 0d 01 86 37  |):H%!00=2*W%...7|
00000490  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
000004a0  32 35 36 2b 31 36 2c 53  50 52 2c 22 4c 49 4e 45  |256+16,SPR,"LINE|
000004b0  22 2c 30 2c 58 31 25 2c  59 31 25 2c 58 32 25 2c  |",0,X1%,Y1%,X2%,|
000004c0  59 32 25 0d 01 90 12 ec  30 2c 4e 25 3a df 31 32  |Y2%.....0,N%:.12|
000004d0  38 30 2c 4e 25 0d 01 9a  36 c8 99 22 4f 53 5f 53  |80,N%...6.."OS_S|
000004e0  70 72 69 74 65 4f 70 22  2c 32 35 36 2b 35 32 2c  |priteOp",256+52,|
000004f0  53 50 52 2c 22 4c 49 4e  45 22 2c 33 32 30 2d 57  |SPR,"LINE",320-W|
00000500  25 2c 4e 25 2c 30 2c 48  25 2c 30 0d 01 a4 05 ed  |%,N%,0,H%,0.....|
00000510  0d 01 ae 2f c8 99 22 4f  53 5f 53 70 72 69 74 65  |.../.."OS_Sprite|
00000520  4f 70 22 2c 32 35 36 2b  31 36 2c 53 50 52 2c 4e  |Op",256+16,SPR,N|
00000530  24 2c 30 2c 30 2c 30 2c  36 33 39 2c 36 33 39 0d  |$,0,0,0,639,639.|
00000540  01 b8 07 ed 3a db 0d 01  c2 04 0d 01 cc 05 f5 0d  |....:...........|
00000550  01 d6 40 e3 4e 25 3d 31  b8 35 30 3a 4e 24 3d c3  |..@.N%=1.50:N$=.|
00000560  28 4e 25 29 3a c8 99 22  4f 53 5f 53 70 72 69 74  |(N%):.."OS_Sprit|
00000570  65 4f 70 22 2c 32 35 36  2b 33 34 2c 53 50 52 2c  |eOp",256+34,SPR,|
00000580  4e 24 2c 33 32 30 2c 31  39 32 3a c8 96 3a ed 0d  |N$,320,192:..:..|
00000590  01 e0 06 fd 30 0d ff                              |....0..|
00000597