d�>!RunImage
n� Program: Sprite Animation
x*� Purpose: Show Plotting Of 10 Sprites
�� Author:  G.Stanley
�� Version: 1.13 August 1993
�� � Archimedes World 1993
�:
�
 �15:�
� �load_Sprite
� �Plot_Logo
� �
� :
� �Choose_Plot_Sprite
� � 0
�:
� ��load_Sprite

# �("SLOAD <Obey$Dir>.Sprites1")

 �

:

" ��Plot_Logo

, �("SCHOOSE TITLE")

6 � &ED,350,900

@ �("SCHOOSE CopyRight")

J �&ED,200,0

T �

^:

h ��Choose_Plot_Sprite

r � J%=1 � 10

| � ("SCHOOSE ")+�(J%)

� � X%=1 � 1279 � 4

�	 �3,0

� Y%=500+500*�(X%*300)

� � &ED,X%,Y%

� Ȗ

� � &ED,X%,Y%

� �:�

� �
�

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 2a 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 31 30  |w Plotting Of 10|
00000050  20 53 70 72 69 74 65 73  0d 00 82 18 f4 20 41 75  | Sprites..... Au|
00000060  74 68 6f 72 3a 20 20 47  2e 53 74 61 6e 6c 65 79  |thor:  G.Stanley|
00000070  0d 00 8c 1f f4 20 56 65  72 73 69 6f 6e 3a 20 31  |..... Version: 1|
00000080  2e 31 33 20 41 75 67 75  73 74 20 31 39 39 33 0d  |.13 August 1993.|
00000090  00 96 1d f4 20 a9 20 41  72 63 68 69 6d 65 64 65  |.... . Archimede|
000000a0  73 20 57 6f 72 6c 64 20  31 39 39 33 0d 00 a0 05  |s World 1993....|
000000b0  3a 0d 00 aa 0a 20 eb 31  35 3a 87 0d 00 b4 11 20  |:.... .15:..... |
000000c0  f2 6c 6f 61 64 5f 53 70  72 69 74 65 0d 00 be 0f  |.load_Sprite....|
000000d0  20 f2 50 6c 6f 74 5f 4c  6f 67 6f 0d 00 c8 06 20  | .Plot_Logo.... |
000000e0  f5 0d 00 d2 06 20 3a 0d  00 dc 18 20 f2 43 68 6f  |..... :.... .Cho|
000000f0  6f 73 65 5f 50 6c 6f 74  5f 53 70 72 69 74 65 0d  |ose_Plot_Sprite.|
00000100  00 e6 08 20 fd 20 30 0d  00 f0 05 3a 0d 00 fa 12  |... . 0....:....|
00000110  20 dd f2 6c 6f 61 64 5f  53 70 72 69 74 65 0d 01  | ..load_Sprite..|
00000120  04 23 20 ff 28 22 53 4c  4f 41 44 20 3c 4f 62 65  |.# .("SLOAD <Obe|
00000130  79 24 44 69 72 3e 2e 53  70 72 69 74 65 73 31 22  |y$Dir>.Sprites1"|
00000140  29 0d 01 0e 06 20 e1 0d  01 18 05 3a 0d 01 22 10  |).... .....:..".|
00000150  20 dd f2 50 6c 6f 74 5f  4c 6f 67 6f 0d 01 2c 17  | ..Plot_Logo..,.|
00000160  20 ff 28 22 53 43 48 4f  4f 53 45 20 54 49 54 4c  | .("SCHOOSE TITL|
00000170  45 22 29 0d 01 36 12 20  f0 20 26 45 44 2c 33 35  |E")..6. . &ED,35|
00000180  30 2c 39 30 30 0d 01 40  1b 20 ff 28 22 53 43 48  |0,900..@. .("SCH|
00000190  4f 4f 53 45 20 43 6f 70  79 52 69 67 68 74 22 29  |OOSE CopyRight")|
000001a0  0d 01 4a 0f 20 f0 26 45  44 2c 32 30 30 2c 30 0d  |..J. .&ED,200,0.|
000001b0  01 54 06 20 e1 0d 01 5e  05 3a 0d 01 68 19 20 dd  |.T. ...^.:..h. .|
000001c0  f2 43 68 6f 6f 73 65 5f  50 6c 6f 74 5f 53 70 72  |.Choose_Plot_Spr|
000001d0  69 74 65 0d 01 72 10 20  e3 20 4a 25 3d 31 20 b8  |ite..r. . J%=1 .|
000001e0  20 31 30 0d 01 7c 19 20  ff 20 28 22 53 43 48 4f  | 10..|. . ("SCHO|
000001f0  4f 53 45 20 22 29 2b c3  28 4a 25 29 0d 01 86 16  |OSE ")+.(J%)....|
00000200  20 e3 20 58 25 3d 31 20  b8 20 31 32 37 39 20 88  | . X%=1 . 1279 .|
00000210  20 34 0d 01 90 09 20 e6  33 2c 30 0d 01 9a 19 20  | 4.... .3,0.... |
00000220  59 25 3d 35 30 30 2b 35  30 30 2a b5 28 58 25 2a  |Y%=500+500*.(X%*|
00000230  33 30 30 29 0d 01 a4 10  20 f0 20 26 45 44 2c 58  |300).... . &ED,X|
00000240  25 2c 59 25 0d 01 ae 07  20 c8 96 0d 01 b8 10 20  |%,Y%.... ...... |
00000250  f0 20 26 45 44 2c 58 25  2c 59 25 0d 01 c2 08 20  |. &ED,X%,Y%.... |
00000260  ed 3a ed 0d 01 cc 06 20  e1 0d ff                 |.:..... ...|
0000026b