�    >Marble2
� By  Jan Vibe
� (c) AU May 1994
(
2�9:�:A%=59:B%=512
<%A1%=360/(A%+1):B1%=B%/2:B2%=B1%^2
F� SPR &110000,H% 16
P,SPR!0=&10FFFF:SPR!4=0:SPR!8=16:SPR!12=16
Z'H%!00=B%:H%!04=B%:H%!08=B%:H%!12=B%
dS1%=1:S2%=2
n(�N%=8�15:� N%,�(255),�(255),�(255):�
x�:�N%=1�1000:�(15)
�#ȏ Ȑ �(1280),�(1024),7+�(57):�
�4ș"OS_SpriteOp",256+16,SPR,"PIC",0,0,0,1279,1023
��0
�!�I%=0�A%:T=�(A1%*I%):N$=�(I%)
�3X%=640-B1%+(640-B1%)*�T:Y%=512-B1%+(512-B1%)*�T
�(ș"OS_SpriteOp",256+34,SPR,"PIC",0,0
�3�N%=0�B%�4:X1%=X%:Y1%=Y%+N%:X2%=X%+B%:Y2%=Y%+N%
�#W%=�(B2%-(B1%-N%)^2):H%!00=2*W%
�7ș"OS_SpriteOp",256+16,SPR,"LINE",0,X1%,Y1%,X2%,Y2%
�� X1%,Y1%,X2%,Y2%
�;ș"OS_SpriteOp",256+52,SPR,"LINE",X1%+B1%-W%,Y1%,0,H%,0
��
�5ș"OS_SpriteOp",256+16,SPR,N$,0,X%,Y%,X%+B%,Y%+B%

!ș"OS_SpriteOp",256+29,SPR,N$

#ș"OS_SpriteOp",256+61,SPR,N$,0

+�0:ȓ Ȑ 0,0,B%:�15:ȏ Ȑ B1%,B1%,B1%-8

"%ș"OS_SpriteOp",256+61,SPR,0,0:�0

,�:�

6

@��tnA

J�

T)�N%=0�A%:TI%=�+4:T=�(A1%*N%):N$=�(N%)

^3X%=640-B1%+(640-B1%)*�T:Y%=512-B1%+(512-B1%)*�T

h(ș"OS_SpriteOp",256+34,SPR,"PIC",0,0

r)ș"OS_SpriteOp",256+34,SPR,N$,X%,Y%,8

|-ș 6,112,S1%:ș 6,113,S2%:Ȗ:�:Ȕ S1%,S2%

�
�:��>=TI%

��

��0

�

�#ș 6,112,S1%:�:�" at line "Þ:�
�

00000000  0d 00 0a 11 f4 20 20 20  20 3e 4d 61 72 62 6c 65  |.....    >Marble|
00000010  32 0d 00 14 12 f4 20 42  79 20 20 4a 61 6e 20 56  |2..... 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 15  |May 1994..(...2.|
00000040  eb 39 3a 87 3a 41 25 3d  35 39 3a 42 25 3d 35 31  |.9:.:A%=59:B%=51|
00000050  32 0d 00 3c 25 41 31 25  3d 33 36 30 2f 28 41 25  |2..<%A1%=360/(A%|
00000060  2b 31 29 3a 42 31 25 3d  42 25 2f 32 3a 42 32 25  |+1):B1%=B%/2:B2%|
00000070  3d 42 31 25 5e 32 0d 00  46 17 de 20 53 50 52 20  |=B1%^2..F.. SPR |
00000080  26 31 31 30 30 30 30 2c  48 25 20 31 36 0d 00 50  |&110000,H% 16..P|
00000090  2c 53 50 52 21 30 3d 26  31 30 46 46 46 46 3a 53  |,SPR!0=&10FFFF:S|
000000a0  50 52 21 34 3d 30 3a 53  50 52 21 38 3d 31 36 3a  |PR!4=0:SPR!8=16:|
000000b0  53 50 52 21 31 32 3d 31  36 0d 00 5a 27 48 25 21  |SPR!12=16..Z'H%!|
000000c0  30 30 3d 42 25 3a 48 25  21 30 34 3d 42 25 3a 48  |00=B%:H%!04=B%:H|
000000d0  25 21 30 38 3d 42 25 3a  48 25 21 31 32 3d 42 25  |%!08=B%:H%!12=B%|
000000e0  0d 00 64 0f 53 31 25 3d  31 3a 53 32 25 3d 32 0d  |..d.S1%=1:S2%=2.|
000000f0  00 6e 28 e3 4e 25 3d 38  b8 31 35 3a fb 20 4e 25  |.n(.N%=8.15:. N%|
00000100  2c b3 28 32 35 35 29 2c  b3 28 32 35 35 29 2c b3  |,.(255),.(255),.|
00000110  28 32 35 35 29 3a ed 0d  00 78 17 db 3a e3 4e 25  |(255):...x..:.N%|
00000120  3d 31 b8 31 30 30 30 3a  e6 b3 28 31 35 29 0d 00  |=1.1000:..(15)..|
00000130  82 23 c8 8f 20 c8 90 20  b3 28 31 32 38 30 29 2c  |.#.. .. .(1280),|
00000140  b3 28 31 30 32 34 29 2c  37 2b b3 28 35 37 29 3a  |.(1024),7+.(57):|
00000150  ed 0d 00 8c 34 c8 99 22  4f 53 5f 53 70 72 69 74  |....4.."OS_Sprit|
00000160  65 4f 70 22 2c 32 35 36  2b 31 36 2c 53 50 52 2c  |eOp",256+16,SPR,|
00000170  22 50 49 43 22 2c 30 2c  30 2c 30 2c 31 32 37 39  |"PIC",0,0,0,1279|
00000180  2c 31 30 32 33 0d 00 96  06 e6 30 0d 00 a0 21 e3  |,1023.....0...!.|
00000190  49 25 3d 30 b8 41 25 3a  54 3d b2 28 41 31 25 2a  |I%=0.A%:T=.(A1%*|
000001a0  49 25 29 3a 4e 24 3d c3  28 49 25 29 0d 00 aa 33  |I%):N$=.(I%)...3|
000001b0  58 25 3d 36 34 30 2d 42  31 25 2b 28 36 34 30 2d  |X%=640-B1%+(640-|
000001c0  42 31 25 29 2a b5 54 3a  59 25 3d 35 31 32 2d 42  |B1%)*.T:Y%=512-B|
000001d0  31 25 2b 28 35 31 32 2d  42 31 25 29 2a 9b 54 0d  |1%+(512-B1%)*.T.|
000001e0  00 b4 28 c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |..(.."OS_SpriteO|
000001f0  70 22 2c 32 35 36 2b 33  34 2c 53 50 52 2c 22 50  |p",256+34,SPR,"P|
00000200  49 43 22 2c 30 2c 30 0d  00 be 33 e3 4e 25 3d 30  |IC",0,0...3.N%=0|
00000210  b8 42 25 88 34 3a 58 31  25 3d 58 25 3a 59 31 25  |.B%.4:X1%=X%:Y1%|
00000220  3d 59 25 2b 4e 25 3a 58  32 25 3d 58 25 2b 42 25  |=Y%+N%:X2%=X%+B%|
00000230  3a 59 32 25 3d 59 25 2b  4e 25 0d 00 c8 23 57 25  |:Y2%=Y%+N%...#W%|
00000240  3d b6 28 42 32 25 2d 28  42 31 25 2d 4e 25 29 5e  |=.(B2%-(B1%-N%)^|
00000250  32 29 3a 48 25 21 30 30  3d 32 2a 57 25 0d 00 d2  |2):H%!00=2*W%...|
00000260  37 c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |7.."OS_SpriteOp"|
00000270  2c 32 35 36 2b 31 36 2c  53 50 52 2c 22 4c 49 4e  |,256+16,SPR,"LIN|
00000280  45 22 2c 30 2c 58 31 25  2c 59 31 25 2c 58 32 25  |E",0,X1%,Y1%,X2%|
00000290  2c 59 32 25 0d 00 dc 15  86 20 58 31 25 2c 59 31  |,Y2%..... X1%,Y1|
000002a0  25 2c 58 32 25 2c 59 32  25 0d 00 e6 3b c8 99 22  |%,X2%,Y2%...;.."|
000002b0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 32 35 36  |OS_SpriteOp",256|
000002c0  2b 35 32 2c 53 50 52 2c  22 4c 49 4e 45 22 2c 58  |+52,SPR,"LINE",X|
000002d0  31 25 2b 42 31 25 2d 57  25 2c 59 31 25 2c 30 2c  |1%+B1%-W%,Y1%,0,|
000002e0  48 25 2c 30 0d 00 f0 05  ed 0d 00 fa 35 c8 99 22  |H%,0........5.."|
000002f0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 32 35 36  |OS_SpriteOp",256|
00000300  2b 31 36 2c 53 50 52 2c  4e 24 2c 30 2c 58 25 2c  |+16,SPR,N$,0,X%,|
00000310  59 25 2c 58 25 2b 42 25  2c 59 25 2b 42 25 0d 01  |Y%,X%+B%,Y%+B%..|
00000320  04 21 c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |.!.."OS_SpriteOp|
00000330  22 2c 32 35 36 2b 32 39  2c 53 50 52 2c 4e 24 0d  |",256+29,SPR,N$.|
00000340  01 0e 23 c8 99 22 4f 53  5f 53 70 72 69 74 65 4f  |..#.."OS_SpriteO|
00000350  70 22 2c 32 35 36 2b 36  31 2c 53 50 52 2c 4e 24  |p",256+61,SPR,N$|
00000360  2c 30 0d 01 18 2b e6 30  3a c8 93 20 c8 90 20 30  |,0...+.0:.. .. 0|
00000370  2c 30 2c 42 25 3a e6 31  35 3a c8 8f 20 c8 90 20  |,0,B%:.15:.. .. |
00000380  42 31 25 2c 42 31 25 2c  42 31 25 2d 38 0d 01 22  |B1%,B1%,B1%-8.."|
00000390  25 c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |%.."OS_SpriteOp"|
000003a0  2c 32 35 36 2b 36 31 2c  53 50 52 2c 30 2c 30 3a  |,256+61,SPR,0,0:|
000003b0  e6 30 0d 01 2c 07 ed 3a  db 0d 01 36 04 0d 01 40  |.0..,..:...6...@|
000003c0  0b ee 85 e5 8d 74 6e 41  0d 01 4a 05 f5 0d 01 54  |.....tnA..J....T|
000003d0  29 e3 4e 25 3d 30 b8 41  25 3a 54 49 25 3d 91 2b  |).N%=0.A%:TI%=.+|
000003e0  34 3a 54 3d b2 28 41 31  25 2a 4e 25 29 3a 4e 24  |4:T=.(A1%*N%):N$|
000003f0  3d c3 28 4e 25 29 0d 01  5e 33 58 25 3d 36 34 30  |=.(N%)..^3X%=640|
00000400  2d 42 31 25 2b 28 36 34  30 2d 42 31 25 29 2a b5  |-B1%+(640-B1%)*.|
00000410  54 3a 59 25 3d 35 31 32  2d 42 31 25 2b 28 35 31  |T:Y%=512-B1%+(51|
00000420  32 2d 42 31 25 29 2a 9b  54 0d 01 68 28 c8 99 22  |2-B1%)*.T..h(.."|
00000430  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 32 35 36  |OS_SpriteOp",256|
00000440  2b 33 34 2c 53 50 52 2c  22 50 49 43 22 2c 30 2c  |+34,SPR,"PIC",0,|
00000450  30 0d 01 72 29 c8 99 22  4f 53 5f 53 70 72 69 74  |0..r).."OS_Sprit|
00000460  65 4f 70 22 2c 32 35 36  2b 33 34 2c 53 50 52 2c  |eOp",256+34,SPR,|
00000470  4e 24 2c 58 25 2c 59 25  2c 38 0d 01 7c 2d c8 99  |N$,X%,Y%,8..|-..|
00000480  20 36 2c 31 31 32 2c 53  31 25 3a c8 99 20 36 2c  | 6,112,S1%:.. 6,|
00000490  31 31 33 2c 53 32 25 3a  c8 96 3a db 3a c8 94 20  |113,S2%:..:.:.. |
000004a0  53 31 25 2c 53 32 25 0d  01 86 0d f5 3a fd 91 3e  |S1%,S2%.....:..>|
000004b0  3d 54 49 25 0d 01 90 05  ed 0d 01 9a 06 fd 30 0d  |=TI%..........0.|
000004c0  01 a4 04 0d 01 ae 23 c8  99 20 36 2c 31 31 32 2c  |......#.. 6,112,|
000004d0  53 31 25 3a f6 3a f1 22  20 61 74 20 6c 69 6e 65  |S1%:.:." at line|
000004e0  20 22 c3 9e 3a ee 0d ff                           | "..:...|
000004e8