d�> !RunImage
n&� Purpose: To generate 154 sprites
x
� Author:
�� Version: 1.13
�&� CopyRight: Archimedes World 1993
� �Mode_Select
� �Load_Sprite
� �Choose_Sprite
� �Plot_Sprite
� �Save_Screen
� �
� ��Mode_Select
�
 �12:�
�# �("PRINT <Obey$Dir>.!Palette")
� �
�:

 ��Load_Sprite

< �("SLOAD <Obey$dir>.Ball"):� Load the sprite named ball

 �

":

, ��Choose_Sprite

66 �("Schoose Ball"):� Select the sprite from memory

@ �

J:

T ��Plot_Sprite

^ � X%=0 � 1200 � 90

h � Y%=0 � 900 � 90

r9 � &ED,X%,Y% :� Command to plot the sprites to screen

| �:�

� �

�:

� ��Save_Screen

�A A=�: �("SCREENSAVE <Obey$Dir>.Screen"):� saves entire screen

� �
�

00000000  0d 00 64 10 f4 3e 20 21  52 75 6e 49 6d 61 67 65  |..d..> !RunImage|
00000010  0d 00 6e 26 f4 20 50 75  72 70 6f 73 65 3a 20 54  |..n&. Purpose: T|
00000020  6f 20 67 65 6e 65 72 61  74 65 20 31 35 34 20 73  |o generate 154 s|
00000030  70 72 69 74 65 73 0d 00  78 0d f4 20 41 75 74 68  |prites..x.. Auth|
00000040  6f 72 3a 0d 00 82 13 f4  20 56 65 72 73 69 6f 6e  |or:..... Version|
00000050  3a 20 31 2e 31 33 0d 00  8c 26 f4 20 43 6f 70 79  |: 1.13...&. Copy|
00000060  52 69 67 68 74 3a 20 41  72 63 68 69 6d 65 64 65  |Right: Archimede|
00000070  73 20 57 6f 72 6c 64 20  31 39 39 33 0d 00 96 11  |s World 1993....|
00000080  20 f2 4d 6f 64 65 5f 53  65 6c 65 63 74 0d 00 a0  | .Mode_Select...|
00000090  11 20 f2 4c 6f 61 64 5f  53 70 72 69 74 65 0d 00  |. .Load_Sprite..|
000000a0  aa 13 20 f2 43 68 6f 6f  73 65 5f 53 70 72 69 74  |.. .Choose_Sprit|
000000b0  65 0d 00 b4 11 20 f2 50  6c 6f 74 5f 53 70 72 69  |e.... .Plot_Spri|
000000c0  74 65 0d 00 be 11 20 f2  53 61 76 65 5f 53 63 72  |te.... .Save_Scr|
000000d0  65 65 6e 0d 00 c8 06 20  e0 0d 00 d2 12 20 dd f2  |een.... ..... ..|
000000e0  4d 6f 64 65 5f 53 65 6c  65 63 74 0d 00 dc 0a 20  |Mode_Select.... |
000000f0  eb 31 32 3a 87 0d 00 e6  23 20 ff 28 22 50 52 49  |.12:....# .("PRI|
00000100  4e 54 20 3c 4f 62 65 79  24 44 69 72 3e 2e 21 50  |NT <Obey$Dir>.!P|
00000110  61 6c 65 74 74 65 22 29  0d 00 f0 06 20 e1 0d 00  |alette").... ...|
00000120  fa 05 3a 0d 01 04 12 20  dd f2 4c 6f 61 64 5f 53  |..:.... ..Load_S|
00000130  70 72 69 74 65 0d 01 0e  3c 20 ff 28 22 53 4c 4f  |prite...< .("SLO|
00000140  41 44 20 3c 4f 62 65 79  24 64 69 72 3e 2e 42 61  |AD <Obey$dir>.Ba|
00000150  6c 6c 22 29 3a f4 20 4c  6f 61 64 20 74 68 65 20  |ll"):. Load the |
00000160  73 70 72 69 74 65 20 6e  61 6d 65 64 20 62 61 6c  |sprite named bal|
00000170  6c 0d 01 18 06 20 e1 0d  01 22 05 3a 0d 01 2c 14  |l.... ...".:..,.|
00000180  20 dd f2 43 68 6f 6f 73  65 5f 53 70 72 69 74 65  | ..Choose_Sprite|
00000190  0d 01 36 36 20 ff 28 22  53 63 68 6f 6f 73 65 20  |..66 .("Schoose |
000001a0  42 61 6c 6c 22 29 3a f4  20 53 65 6c 65 63 74 20  |Ball"):. Select |
000001b0  74 68 65 20 73 70 72 69  74 65 20 66 72 6f 6d 20  |the sprite from |
000001c0  6d 65 6d 6f 72 79 0d 01  40 06 20 e1 0d 01 4a 05  |memory..@. ...J.|
000001d0  3a 0d 01 54 12 20 dd f2  50 6c 6f 74 5f 53 70 72  |:..T. ..Plot_Spr|
000001e0  69 74 65 0d 01 5e 17 20  e3 20 58 25 3d 30 20 b8  |ite..^. . X%=0 .|
000001f0  20 31 32 30 30 20 88 20  39 30 0d 01 68 16 20 e3  | 1200 . 90..h. .|
00000200  20 59 25 3d 30 20 b8 20  39 30 30 20 88 20 39 30  | Y%=0 . 900 . 90|
00000210  0d 01 72 39 20 f0 20 26  45 44 2c 58 25 2c 59 25  |..r9 . &ED,X%,Y%|
00000220  20 3a f4 20 43 6f 6d 6d  61 6e 64 20 74 6f 20 70  | :. Command to p|
00000230  6c 6f 74 20 74 68 65 20  73 70 72 69 74 65 73 20  |lot the sprites |
00000240  74 6f 20 73 63 72 65 65  6e 0d 01 7c 08 20 ed 3a  |to screen..|. .:|
00000250  ed 0d 01 86 06 20 e1 0d  01 90 05 3a 0d 01 9a 12  |..... .....:....|
00000260  20 dd f2 53 61 76 65 5f  53 63 72 65 65 6e 0d 01  | ..Save_Screen..|
00000270  a4 41 20 41 3d a5 3a 20  ff 28 22 53 43 52 45 45  |.A A=.: .("SCREE|
00000280  4e 53 41 56 45 20 3c 4f  62 65 79 24 44 69 72 3e  |NSAVE <Obey$Dir>|
00000290  2e 53 63 72 65 65 6e 22  29 3a f4 20 73 61 76 65  |.Screen"):. save|
000002a0  73 20 65 6e 74 69 72 65  20 73 63 72 65 65 6e 0d  |s entire screen.|
000002b0  01 ae 06 20 e1 0d ff                              |... ...|
000002b7