d�>!RunImage
n� Program: Sprite Animation
x'� Purpose: Show Plotting Of Sprites
�� Author:  G.Stanley
�� Version: 1.13 August 1993
�� � Archimedes World 1993
�:
�
 �15:�
� :
� �load_Sprite
� �("SCHOOSE CopyRight")
� � &ED,200,0
� �("SCHOOSE P6")
� � &ED,350,900
�:
� �

 �choose_Sprite

 �Plot_Sprite

 � 0

":

, ��load_Sprite

6 �("SLOAD <Obey$Dir>.Demo")

@ �

J:

T ��choose_Sprite

^ �("SCHOOSE Pointer")

h �

r:

| ��Plot_Sprite

� X%=350:Y%=300

� � &ED,X%,Y%

� *SFLIPX Pointer

�
 A=�(200)

� � &ED,X%,Y%

� *SFLIPY Pointer

�
 A=�(200)

� �
�

00000000  0d 00 64 0f f4 3e 21 52  75 6e 49 6d 61 67 65 0d  |..d..>!RunImage.|
00000010  00 6e 1f f4 20 50 72 6f  67 72 61 6d 3a 20 53 70  |.n.. Program: Sp|
00000020  72 69 74 65 20 41 6e 69  6d 61 74 69 6f 6e 0d 00  |rite Animation..|
00000030  78 27 f4 20 50 75 72 70  6f 73 65 3a 20 53 68 6f  |x'. Purpose: Sho|
00000040  77 20 50 6c 6f 74 74 69  6e 67 20 4f 66 20 53 70  |w Plotting Of Sp|
00000050  72 69 74 65 73 0d 00 82  18 f4 20 41 75 74 68 6f  |rites..... Autho|
00000060  72 3a 20 20 47 2e 53 74  61 6e 6c 65 79 0d 00 8c  |r:  G.Stanley...|
00000070  1f f4 20 56 65 72 73 69  6f 6e 3a 20 31 2e 31 33  |.. Version: 1.13|
00000080  20 41 75 67 75 73 74 20  31 39 39 33 0d 00 96 1d  | August 1993....|
00000090  f4 20 a9 20 41 72 63 68  69 6d 65 64 65 73 20 57  |. . Archimedes W|
000000a0  6f 72 6c 64 20 31 39 39  33 0d 00 a0 05 3a 0d 00  |orld 1993....:..|
000000b0  aa 0a 20 eb 31 35 3a 87  0d 00 b4 06 20 3a 0d 00  |.. .15:..... :..|
000000c0  be 11 20 f2 6c 6f 61 64  5f 53 70 72 69 74 65 0d  |.. .load_Sprite.|
000000d0  00 c8 1b 20 ff 28 22 53  43 48 4f 4f 53 45 20 43  |... .("SCHOOSE C|
000000e0  6f 70 79 52 69 67 68 74  22 29 0d 00 d2 10 20 f0  |opyRight").... .|
000000f0  20 26 45 44 2c 32 30 30  2c 30 0d 00 dc 14 20 ff  | &ED,200,0.... .|
00000100  28 22 53 43 48 4f 4f 53  45 20 50 36 22 29 0d 00  |("SCHOOSE P6")..|
00000110  e6 12 20 f0 20 26 45 44  2c 33 35 30 2c 39 30 30  |.. . &ED,350,900|
00000120  0d 00 f0 05 3a 0d 00 fa  06 20 f5 0d 01 04 13 20  |....:.... ..... |
00000130  f2 63 68 6f 6f 73 65 5f  53 70 72 69 74 65 0d 01  |.choose_Sprite..|
00000140  0e 11 20 f2 50 6c 6f 74  5f 53 70 72 69 74 65 0d  |.. .Plot_Sprite.|
00000150  01 18 08 20 fd 20 30 0d  01 22 05 3a 0d 01 2c 12  |... . 0..".:..,.|
00000160  20 dd f2 6c 6f 61 64 5f  53 70 72 69 74 65 0d 01  | ..load_Sprite..|
00000170  36 1f 20 ff 28 22 53 4c  4f 41 44 20 3c 4f 62 65  |6. .("SLOAD <Obe|
00000180  79 24 44 69 72 3e 2e 44  65 6d 6f 22 29 0d 01 40  |y$Dir>.Demo")..@|
00000190  06 20 e1 0d 01 4a 05 3a  0d 01 54 14 20 dd f2 63  |. ...J.:..T. ..c|
000001a0  68 6f 6f 73 65 5f 53 70  72 69 74 65 0d 01 5e 19  |hoose_Sprite..^.|
000001b0  20 ff 28 22 53 43 48 4f  4f 53 45 20 50 6f 69 6e  | .("SCHOOSE Poin|
000001c0  74 65 72 22 29 0d 01 68  06 20 e1 0d 01 72 05 3a  |ter")..h. ...r.:|
000001d0  0d 01 7c 12 20 dd f2 50  6c 6f 74 5f 53 70 72 69  |..|. ..Plot_Spri|
000001e0  74 65 0d 01 86 12 20 58  25 3d 33 35 30 3a 59 25  |te.... X%=350:Y%|
000001f0  3d 33 30 30 0d 01 90 10  20 f0 20 26 45 44 2c 58  |=300.... . &ED,X|
00000200  25 2c 59 25 0d 01 9a 14  20 2a 53 46 4c 49 50 58  |%,Y%.... *SFLIPX|
00000210  20 50 6f 69 6e 74 65 72  0d 01 a4 0d 20 41 3d a6  | Pointer.... A=.|
00000220  28 32 30 30 29 0d 01 ae  10 20 f0 20 26 45 44 2c  |(200).... . &ED,|
00000230  58 25 2c 59 25 0d 01 b8  14 20 2a 53 46 4c 49 50  |X%,Y%.... *SFLIP|
00000240  59 20 50 6f 69 6e 74 65  72 0d 01 c2 0d 20 41 3d  |Y Pointer.... A=|
00000250  a6 28 32 30 30 29 0d 01  cc 06 20 e1 0d ff        |.(200).... ...|
0000025e