�     >Skater (Info14)
� By  Mark Hobson
� For 32-bit machines
(� (c) BAU May 1993
2:
<�0:�
Fh=10
Psize=200
ZE=.7
dg=2
nD=size/h
x� v(h),w(h),x(h),y(h)
�
bank=1
�!ȗ ȓ -100,300+size,1479,1023
��
�
 ȗ x,y,B
� x1=x:y1=y
�/ � y1>300+size ȗ � x,y-16:� y<300 ȗ x,300
� � i=1 � h
�  dx=x(i)-x1+v(i)*E
�  dy=y(i)-y1+w(i)*E
�  d=D/�(dx*dx+dy*dy+.4)
�  x1+=dx*d:x(i)=x1
�  y1+=dy*d:y(i)=y1
�  d=d/2-.5

  v(i)+=dx*d

  w(i)+=dy*d-g

  v(i-1)-=dx*d

"  w(i-1)-=dy*d+g

, �

6 Ȗ

@ bank=3-bank

J ș 6,113,bank

T ș 6,112,3-bank

^ �

h
 � x,y

r � i=1 � h

|  � x(i),y(i)

� �

� ȏ x,y+40,40

�
 � x,y

� � x(6)+70,y(6)

� � x+40,y(8)

�
 � x,y

� � x(6)-70,y(6)

� � x-40,y(8)

� bx1=x(6)-30

� by1=y(h)-(y-y(h))-60

� bx2=x(6)+30

� by2=y(h)-(y-y(h))-60

� � x(h),y(h)
" � x(2)-50,y(h)-(y(6)-y(h))-30
 � bx1,by1
 � x(h),y(h)
&" � x(2)+50,y(h)-(y(6)-y(h))-30
0 � bx2,by2
:- � x<x(h) bx1=x:bx2=x(h) � bx1=x(h):bx2=x
D � bx1-45,by1
N � bx2+45,by2
X ȏ bx1-20,by1-16,16
b ȏ bx2+20,by1-16,16
l � 0,0,1279,0
v ȓ 600,0,80,150
�� �
�

00000000  0d 00 0a 1a f4 20 20 20  20 20 3e 53 6b 61 74 65  |.....     >Skate|
00000010  72 20 28 49 6e 66 6f 31  34 29 0d 00 14 15 f4 20  |r (Info14)..... |
00000020  42 79 20 20 4d 61 72 6b  20 48 6f 62 73 6f 6e 0d  |By  Mark Hobson.|
00000030  00 1e 19 f4 20 46 6f 72  20 33 32 2d 62 69 74 20  |.... For 32-bit |
00000040  6d 61 63 68 69 6e 65 73  0d 00 28 16 f4 20 28 63  |machines..(.. (c|
00000050  29 20 42 41 55 20 4d 61  79 20 31 39 39 33 0d 00  |) BAU May 1993..|
00000060  32 05 3a 0d 00 3c 08 eb  30 3a 87 0d 00 46 08 68  |2.:..<..0:...F.h|
00000070  3d 31 30 0d 00 50 0c 73  69 7a 65 3d 32 30 30 0d  |=10..P.size=200.|
00000080  00 5a 08 45 3d 2e 37 0d  00 64 07 67 3d 32 0d 00  |.Z.E=.7..d.g=2..|
00000090  6e 0c 44 3d 73 69 7a 65  2f 68 0d 00 78 19 de 20  |n.D=size/h..x.. |
000000a0  76 28 68 29 2c 77 28 68  29 2c 78 28 68 29 2c 79  |v(h),w(h),x(h),y|
000000b0  28 68 29 0d 00 82 0a 62  61 6e 6b 3d 31 0d 00 8c  |(h)....bank=1...|
000000c0  21 c8 97 20 c8 93 20 2d  31 30 30 2c 33 30 30 2b  |!.. .. -100,300+|
000000d0  73 69 7a 65 2c 31 34 37  39 2c 31 30 32 33 0d 00  |size,1479,1023..|
000000e0  96 05 f5 0d 00 a0 0d 20  c8 97 20 78 2c 79 2c 42  |....... .. x,y,B|
000000f0  0d 00 aa 0e 20 78 31 3d  78 3a 79 31 3d 79 0d 00  |.... x1=x:y1=y..|
00000100  b4 2f 20 e7 20 79 31 3e  33 30 30 2b 73 69 7a 65  |./ . y1>300+size|
00000110  20 c8 97 20 b8 20 78 2c  79 2d 31 36 3a e7 20 79  | .. . x,y-16:. y|
00000120  3c 33 30 30 20 c8 97 20  78 2c 33 30 30 0d 00 be  |<300 .. x,300...|
00000130  0e 20 e3 20 69 3d 31 20  b8 20 68 0d 00 c8 17 20  |. . i=1 . h.... |
00000140  20 64 78 3d 78 28 69 29  2d 78 31 2b 76 28 69 29  | dx=x(i)-x1+v(i)|
00000150  2a 45 0d 00 d2 17 20 20  64 79 3d 79 28 69 29 2d  |*E....  dy=y(i)-|
00000160  79 31 2b 77 28 69 29 2a  45 0d 00 dc 1b 20 20 64  |y1+w(i)*E....  d|
00000170  3d 44 2f b6 28 64 78 2a  64 78 2b 64 79 2a 64 79  |=D/.(dx*dx+dy*dy|
00000180  2b 2e 34 29 0d 00 e6 16  20 20 78 31 2b 3d 64 78  |+.4)....  x1+=dx|
00000190  2a 64 3a 78 28 69 29 3d  78 31 0d 00 f0 16 20 20  |*d:x(i)=x1....  |
000001a0  79 31 2b 3d 64 79 2a 64  3a 79 28 69 29 3d 79 31  |y1+=dy*d:y(i)=y1|
000001b0  0d 00 fa 0e 20 20 64 3d  64 2f 32 2d 2e 35 0d 01  |....  d=d/2-.5..|
000001c0  04 10 20 20 76 28 69 29  2b 3d 64 78 2a 64 0d 01  |..  v(i)+=dx*d..|
000001d0  0e 12 20 20 77 28 69 29  2b 3d 64 79 2a 64 2d 67  |..  w(i)+=dy*d-g|
000001e0  0d 01 18 12 20 20 76 28  69 2d 31 29 2d 3d 64 78  |....  v(i-1)-=dx|
000001f0  2a 64 0d 01 22 14 20 20  77 28 69 2d 31 29 2d 3d  |*d..".  w(i-1)-=|
00000200  64 79 2a 64 2b 67 0d 01  2c 06 20 ed 0d 01 36 07  |dy*d+g..,. ...6.|
00000210  20 c8 96 0d 01 40 10 20  62 61 6e 6b 3d 33 2d 62  | ....@. bank=3-b|
00000220  61 6e 6b 0d 01 4a 12 20  c8 99 20 36 2c 31 31 33  |ank..J. .. 6,113|
00000230  2c 62 61 6e 6b 0d 01 54  14 20 c8 99 20 36 2c 31  |,bank..T. .. 6,1|
00000240  31 32 2c 33 2d 62 61 6e  6b 0d 01 5e 06 20 db 0d  |12,3-bank..^. ..|
00000250  01 68 0a 20 ec 20 78 2c  79 0d 01 72 0e 20 e3 20  |.h. . x,y..r. . |
00000260  69 3d 31 20 b8 20 68 0d  01 7c 11 20 20 df 20 78  |i=1 . h..|.  . x|
00000270  28 69 29 2c 79 28 69 29  0d 01 86 06 20 ed 0d 01  |(i),y(i).... ...|
00000280  90 11 20 c8 8f 20 78 2c  79 2b 34 30 2c 34 30 0d  |.. .. x,y+40,40.|
00000290  01 9a 0a 20 ec 20 78 2c  79 0d 01 a4 13 20 df 20  |... . x,y.... . |
000002a0  78 28 36 29 2b 37 30 2c  79 28 36 29 0d 01 ae 10  |x(6)+70,y(6)....|
000002b0  20 df 20 78 2b 34 30 2c  79 28 38 29 0d 01 b8 0a  | . x+40,y(8)....|
000002c0  20 ec 20 78 2c 79 0d 01  c2 13 20 df 20 78 28 36  | . x,y.... . x(6|
000002d0  29 2d 37 30 2c 79 28 36  29 0d 01 cc 10 20 df 20  |)-70,y(6).... . |
000002e0  78 2d 34 30 2c 79 28 38  29 0d 01 d6 10 20 62 78  |x-40,y(8).... bx|
000002f0  31 3d 78 28 36 29 2d 33  30 0d 01 e0 19 20 62 79  |1=x(6)-30.... by|
00000300  31 3d 79 28 68 29 2d 28  79 2d 79 28 68 29 29 2d  |1=y(h)-(y-y(h))-|
00000310  36 30 0d 01 ea 10 20 62  78 32 3d 78 28 36 29 2b  |60.... bx2=x(6)+|
00000320  33 30 0d 01 f4 19 20 62  79 32 3d 79 28 68 29 2d  |30.... by2=y(h)-|
00000330  28 79 2d 79 28 68 29 29  2d 36 30 0d 01 fe 10 20  |(y-y(h))-60.... |
00000340  ec 20 78 28 68 29 2c 79  28 68 29 0d 02 08 22 20  |. x(h),y(h)..." |
00000350  df 20 78 28 32 29 2d 35  30 2c 79 28 68 29 2d 28  |. x(2)-50,y(h)-(|
00000360  79 28 36 29 2d 79 28 68  29 29 2d 33 30 0d 02 12  |y(6)-y(h))-30...|
00000370  0e 20 df 20 62 78 31 2c  62 79 31 0d 02 1c 10 20  |. . bx1,by1.... |
00000380  ec 20 78 28 68 29 2c 79  28 68 29 0d 02 26 22 20  |. x(h),y(h)..&" |
00000390  df 20 78 28 32 29 2b 35  30 2c 79 28 68 29 2d 28  |. x(2)+50,y(h)-(|
000003a0  79 28 36 29 2d 79 28 68  29 29 2d 33 30 0d 02 30  |y(6)-y(h))-30..0|
000003b0  0e 20 df 20 62 78 32 2c  62 79 32 0d 02 3a 2d 20  |. . bx2,by2..:- |
000003c0  e7 20 78 3c 78 28 68 29  20 62 78 31 3d 78 3a 62  |. x<x(h) bx1=x:b|
000003d0  78 32 3d 78 28 68 29 20  8b 20 62 78 31 3d 78 28  |x2=x(h) . bx1=x(|
000003e0  68 29 3a 62 78 32 3d 78  0d 02 44 11 20 ec 20 62  |h):bx2=x..D. . b|
000003f0  78 31 2d 34 35 2c 62 79  31 0d 02 4e 11 20 df 20  |x1-45,by1..N. . |
00000400  62 78 32 2b 34 35 2c 62  79 32 0d 02 58 18 20 c8  |bx2+45,by2..X. .|
00000410  8f 20 62 78 31 2d 32 30  2c 62 79 31 2d 31 36 2c  |. bx1-20,by1-16,|
00000420  31 36 0d 02 62 18 20 c8  8f 20 62 78 32 2b 32 30  |16..b. .. bx2+20|
00000430  2c 62 79 31 2d 31 36 2c  31 36 0d 02 6c 11 20 86  |,by1-16,16..l. .|
00000440  20 30 2c 30 2c 31 32 37  39 2c 30 0d 02 76 14 20  | 0,0,1279,0..v. |
00000450  c8 93 20 36 30 30 2c 30  2c 38 30 2c 31 35 30 0d  |.. 600,0,80,150.|
00000460  02 80 07 fd 20 a3 0d ff                           |.... ...|
00000468