�><InertEdit$Dir>.!RunImage
� by Bruce Goatly,
4� 22/8/91 to 25/8/91; tidied 21/3/92 and 22/3/92
(9� Cosmetic tidying and minor error correction, 7/5/92
2:� v. 1.56, 7/5/92 - now changes scale with Menu button
<G� - but certain sprite plot ops aren't allowed with system sprites,
F6� so I also had to change the sprite area to user!
P*FX200,0
Z	�13:�
d]� map% 92160,paneltiles%(9,2),screensprites &30000,spritename 16,scale 16,spritefile &100
nP!screensprites=&30000:screensprites!8=16:ș"OS_SpriteOp",9+256,screensprites
x�188 Ȝ128:�
�"�load_sprite_file("TitleScrn")
�&�plot_sprite("inertpanel",300,458)
�%�plot_sprite("namepanel",160,100)
�#�plot_sprite("version",1000,32)
�T%=�:���=T%+500 � �(0)=32
��:�
��28,0,31,39,18,12,26
�%�plot_sprite("choospanel",296,64)
�file$=�choices
�J�file$="" � �:�0:�:�3,30)�35:�3,30)"Save map file as: "file$:��valid
�	�13:�
�
�*FX200,3

�24,0;0;1279;255;

�160

�

"�26

,�160

6jquit%=�:oldxpos%=0:oldypos%=0:oldlevel%=0:newtileno%=999:savexpos%=19*8:saveypos%=1023-(37*8):scale%=1

@�tilerow%=0�2

J�tilecol%=0�9

T$� paneltiles%(tilecol%,tilerow%)

^�:�

h#�load_sprite_file("SmallPanel")

r%�plot_sprite("smallpanel",450,16)

|�plot_sprite("quit",200,96)

��plot_sprite("save",200,8)

� �plot_sprite("cream",276,16)

��plot_sprite("100",280,20)

� �load_sprite_file("Sprites")

��point_to_stack(1)

�+�A%<4 � �get_screen(file$) � �clear_map

�$level%=1:�point_to_stack(level%)

�ȗ �

�ȗ � 19*8,1023-(37*8)

�3� �0,24)�$;" - press space":���=32:�0,24)�39

��

�ȗ xpos%,ypos%,button%

��-58 � �-42 �change_level
�ypos%>255 �
%�-85 � � � -100 � ypos%=oldypos%
%�-100 � � � -85 � xpos%=oldxpos%
&+�-82 � savexpos%=xpos%:saveypos%=ypos%
0ȗ � xpos%,ypos%
:�
D<�-52 � xpos%=savexpos%:ypos%=saveypos%:ȗ � xpos%,ypos%
N*�ypos%>255 � �show_tile(�) � �0,24)�7
X6�ypos%>255 � button%=4 � �give_or_take(newtileno%)
b*�ypos%>255 � button%=2 � �change_scale
l-�ypos%>255 � button%=1 � �give_or_take(0)
v2�in_rectangle(462,28,1252,208) � �choose_tile
�(�in_rectangle(200,8,264,72) � �save
�*�in_rectangle(200,96,264,160) � �quit
�
�quit%
�*FX21,0
�*FX200,0
�*DESKTOP
��
�:
� ��load_sprite_file(sprfile$)
�+$spritefile="<InertEdit$Dir>."+sprfile$
�3ș"OS_SpriteOp",10+256,screensprites,spritefile
��
�:
 ��plot_sprite(sprite$,x%,y%)
$spritename=sprite$
=ș"OS_SpriteOp",34+256,screensprites,spritename,x%,y%-4,8
 �
*:
4��plot(X%)
>Ȏ scale% �
H,� 1: �plot_sprite(�X%,column%,1023-row%)
Rc� 2: �plot_sprite_scaled(�X%,2,1,column%-1280*(quadrant �2),1023-row%-12+768*(1-(quadrant �2)))
\�
f�
p:
z:��plot_sprite_scaled($spritename,!scale,scale!8,x%,y%)
�#scale!4=!scale:scale!12=scale!8
�Cș"OS_SpriteOp",52+256,screensprites,spritename,x%,y%,0,scale,0
��
�:
���point_to_stack(L%)
��L%=oldlevel% � �
��X%
��8,0
��X%=1�4
�=�plot_sprite(�(124+5*(X%=L%)-100*(X%<4)),16,16+28*(X%-1))
��
�oldlevel%=L%
��
:
��show_tile(force%)
M�(oldxpos%�8=xpos%�8)�(oldypos%�8=ypos%�8)�(oldlevel%=level%)��force% � �
$.tileno%=map%?�calc_pos(xpos%,ypos%,level%)
.(�plot_sprite(�(100+tileno%),280,128)
88�scale%=1 � �0,24);xpos%�8;",";(1023-ypos%)�8;"   "
Bh�scale%=2 � �0,24);(xpos%+1280*(quadrant �2))�16;",";(1023-(ypos%-768*(1-(quadrant �2))))�16;"    "
L!oldxpos%=xpos%:oldypos%=ypos%
V�
`:
jݤcalc_pos(X%,Y%,L%)
t9�scale%=1 � =96*(X% � 8)+((1023-Y%) � 8)+23040*(L%-1)
~Y =96*((X%+1280*(quadrant �2))�16)+((1023-(Y%-768*(1-(quadrant �2))))�16)+23040*(L%-1)
�:
���change_level
�)�-58 level%-=(level%<4):� up a level
�+�-42 level%+=(level%>1):� down a level
��ypos%>255 � �show_tile(�)
��point_to_stack(level%)
����(�-58) � � (�-42)
��
�:
���choose_tile
��button%<>4 � �
�newtileno%=999
2tilecol%=(xpos%-454)�80:�tilecol%>9 tilecol%=9

1tilerow%=(ypos%-20)�64:�tilerow%>2 tilerow%=2
-newtileno%=paneltiles%(tilecol%,tilerow%)
2�newtileno%=999 � �plot_sprite("100",280,20):�
(*�plot_sprite(�(100+newtileno%),280,20)
2�0,24)"Tile selected:"
<�release
F�0,24)�14
P�
Z:
d��give_or_take(X%)
n�X%=999 � �
x)map%?�calc_pos(xpos%,ypos%,level%)=X%
��calc_row_column
��plot_pile
��show_tile(�)
��
�:
���plot_pile
�� L%,Y%
�L%=4
��
�%Y%=map%?�calc_pos(xpos%,ypos%,L%)
��Y% � �plot(Y%)
�	L%-=1
�� Y% � L%=0
�L%=0 � Y%=0 � �plot(0)
�
:
"��calc_row_column
,Ȏ scale% �
6 � 1: row%=((1023-ypos%)�8)*8
@column%=(xpos%�8)*8:�
J� 2:
T5row%=((1023-(ypos%-768*(1-(quadrant �2))))�16)*16
^.column%=((xpos%+1280*(quadrant �2))�16)*16
h�
r�
|:
���get_screen(file$)
�/�("LOAD <InertEdit$Dir>."+file$+" "+�~map%)
��0,24)"Plotting..."
�pointer%=0
�� level%=1 � 4
�.oldlevel%=level%-1:�point_to_stack(level%)
�� column%=0 � 1272 � 8
�� row%=0 � 760 � 8
�)�map%?pointer% � �plot(map%?pointer%)
�pointer%+=1
��
��
�pointer%+=7680
�
�0,24)�11
�
&:
0
��quit
:�0,24)"QUIT?"
D�
Nȗ xpos%,ypos%,button%
X/� � �in_rectangle(200,96,264,160) � button%
b�button%<>4 � quit%=�:�
l.�0,24)"Save first (S) or just quit (Q)?";
v�release
��
�ȗ xpos%,ypos%,button%
��button%=4
�s�in_rectangle(200,96,264,160) � quit%=� � �in_rectangle(200,8,264,72) � �0,24)�37:�do_save:quit%=� � quit%=�
�#� � quit% � �0,24)�37:�release
��
�:
�'ݤin_rectangle(xlo%,ylo%,xhi%,yhi%)
�?�(xpos%>xlo% � xpos%<xhi%) � (ypos%>ylo% � ypos%<yhi%) � =�
�=�
�:
�
��release
��
ȗ dummy1%,dummy2%,button%
�button%=0
�
 :
*
��save
4
�save%
>save%=�
H�0,24)"SAVE?"
R�
\ȗ xpos%,ypos%,button%
f-� � �in_rectangle(200,8,264,72) � button%
p�button%=4 � save%=�
z
�0,24)�5
��save% �
��do_save
��release
�*�0,24)"Map file """;file$;""" saved."
��
�ȗ xpos%,ypos%,button%
�#� � �in_rectangle(200,8,264,72)
��0,24)�37
��
��
�:
���clear_map
�� X%
	�0,24)"Preparing..."
	�X%=0�92156 � 4
	
map%!X%=0
	$�
	.�0,24)�12
	8�
	B:
	L
ݤchoices
	V� A$,X%
	`�A$=�:A%=�A$:�(A%>0 � A%<5)
	jȎ A% �
	t� 1: file$="scrns"
	~� 2: file$="scrnl"
	�� 3:
	��0:�:�:�
	�5�3,30)�35:�3,30)"What map file to load? "file$;
	���file$>0 � �file$<11
	�"X%=�("<InertEdit$Dir>."+file$)
	��X%>0 � �#X%=92160:�#X%
	�� 4: file$=""
	��
	�
=file$
	�:
	���change_scale
	�	�quad
Ȏ scale% �

� 1:

�quad=0�3
$spritename=�(quad+200)
(zș"OS_SpriteOp",16+256,screensprites,spritename,1,640*(quad �2),256+384*(quad �2), 639+640*(quad �2),639+384*(quad �2)
2�
<'quadrant=-(xpos%>639)-2*(ypos%>639)
F2�plot_sprite_scaled(�(quadrant+200),2,1,0,256)
Pscale%=2
Z� 2:
d$spritename=�(quadrant+200)
nEș"OS_SpriteOp",16+256,screensprites,spritename,1,0,256,1279,1023
x!scale=1
�
�quad=0�3
�*�quad=quadrant � scale!8=2 � scale!8=1
�S�plot_sprite_scaled(�(quad+200),!scale,scale!8,640*(quad �2),256+384*(quad �2))
��
�scale%=1
��
��show_tile(�)
��release
��
�:
�
��do_save
�-�0,24)"Saving map file """;file$;"""..."
�9�("SAVE <InertEdit$Dir>."+file$+" "+�~map%+" +16800")
�0,24)�37
�
:
"ݤvalid
,� A%,X%
6� �
@e� � �:�=67788 � =�:��=67782 ��3,30)"Not enough disk space: start again...":�("FX200,0"):�:� =�
J"X%=�("<InertEdit$Dir>."+file$)
T�X%=0 �
^9�("CREATE <InertEdit$Dir>."+file$+" 16800 9F00 9F00")
h=�
r�
|�#X%:� �3,30)�35;
�*�3,30)"Overwrite file "file$"? (Y/N)"
��A%=�"YyNn",�):�A%>0
��A%>2 � =�
�=�
�:
�$� 16,18,21,22,23,27,28,29,30,999
�� 5,7,8,9,10,11,12,13,14,17
�� 1,6,15,24,25,26,20,2,3,4
�

00000000  0d 00 0a 1f f4 3e 3c 49  6e 65 72 74 45 64 69 74  |.....><InertEdit|
00000010  24 44 69 72 3e 2e 21 52  75 6e 49 6d 61 67 65 0d  |$Dir>.!RunImage.|
00000020  00 14 16 f4 20 62 79 20  42 72 75 63 65 20 47 6f  |.... by Bruce Go|
00000030  61 74 6c 79 2c 0d 00 1e  34 f4 20 32 32 2f 38 2f  |atly,...4. 22/8/|
00000040  39 31 20 74 6f 20 32 35  2f 38 2f 39 31 3b 20 74  |91 to 25/8/91; t|
00000050  69 64 69 65 64 20 32 31  2f 33 2f 39 32 20 61 6e  |idied 21/3/92 an|
00000060  64 20 32 32 2f 33 2f 39  32 0d 00 28 39 f4 20 43  |d 22/3/92..(9. C|
00000070  6f 73 6d 65 74 69 63 20  74 69 64 79 69 6e 67 20  |osmetic tidying |
00000080  61 6e 64 20 6d 69 6e 6f  72 20 65 72 72 6f 72 20  |and minor error |
00000090  63 6f 72 72 65 63 74 69  6f 6e 2c 20 37 2f 35 2f  |correction, 7/5/|
000000a0  39 32 0d 00 32 3a f4 20  76 2e 20 31 2e 35 36 2c  |92..2:. v. 1.56,|
000000b0  20 37 2f 35 2f 39 32 20  2d 20 6e 6f 77 20 63 68  | 7/5/92 - now ch|
000000c0  61 6e 67 65 73 20 73 63  61 6c 65 20 77 69 74 68  |anges scale with|
000000d0  20 4d 65 6e 75 20 62 75  74 74 6f 6e 0d 00 3c 47  | Menu button..<G|
000000e0  f4 20 2d 20 62 75 74 20  63 65 72 74 61 69 6e 20  |. - but certain |
000000f0  73 70 72 69 74 65 20 70  6c 6f 74 20 6f 70 73 20  |sprite plot ops |
00000100  61 72 65 6e 27 74 20 61  6c 6c 6f 77 65 64 20 77  |aren't allowed w|
00000110  69 74 68 20 73 79 73 74  65 6d 20 73 70 72 69 74  |ith system sprit|
00000120  65 73 2c 0d 00 46 36 f4  20 73 6f 20 49 20 61 6c  |es,..F6. so I al|
00000130  73 6f 20 68 61 64 20 74  6f 20 63 68 61 6e 67 65  |so had to change|
00000140  20 74 68 65 20 73 70 72  69 74 65 20 61 72 65 61  | the sprite area|
00000150  20 74 6f 20 75 73 65 72  21 0d 00 50 0c 2a 46 58  | to user!..P.*FX|
00000160  32 30 30 2c 30 0d 00 5a  09 eb 31 33 3a 87 0d 00  |200,0..Z..13:...|
00000170  64 5d de 20 6d 61 70 25  20 39 32 31 36 30 2c 70  |d]. map% 92160,p|
00000180  61 6e 65 6c 74 69 6c 65  73 25 28 39 2c 32 29 2c  |aneltiles%(9,2),|
00000190  73 63 72 65 65 6e 73 70  72 69 74 65 73 20 26 33  |screensprites &3|
000001a0  30 30 30 30 2c 73 70 72  69 74 65 6e 61 6d 65 20  |0000,spritename |
000001b0  31 36 2c 73 63 61 6c 65  20 31 36 2c 73 70 72 69  |16,scale 16,spri|
000001c0  74 65 66 69 6c 65 20 26  31 30 30 0d 00 6e 50 21  |tefile &100..nP!|
000001d0  73 63 72 65 65 6e 73 70  72 69 74 65 73 3d 26 33  |screensprites=&3|
000001e0  30 30 30 30 3a 73 63 72  65 65 6e 73 70 72 69 74  |0000:screensprit|
000001f0  65 73 21 38 3d 31 36 3a  c8 99 22 4f 53 5f 53 70  |es!8=16:.."OS_Sp|
00000200  72 69 74 65 4f 70 22 2c  39 2b 32 35 36 2c 73 63  |riteOp",9+256,sc|
00000210  72 65 65 6e 73 70 72 69  74 65 73 0d 00 78 10 fb  |reensprites..x..|
00000220  31 38 38 20 c8 9c 31 32  38 3a db 0d 00 82 22 f2  |188 ..128:....".|
00000230  6c 6f 61 64 5f 73 70 72  69 74 65 5f 66 69 6c 65  |load_sprite_file|
00000240  28 22 54 69 74 6c 65 53  63 72 6e 22 29 0d 00 8c  |("TitleScrn")...|
00000250  26 f2 70 6c 6f 74 5f 73  70 72 69 74 65 28 22 69  |&.plot_sprite("i|
00000260  6e 65 72 74 70 61 6e 65  6c 22 2c 33 30 30 2c 34  |nertpanel",300,4|
00000270  35 38 29 0d 00 96 25 f2  70 6c 6f 74 5f 73 70 72  |58)...%.plot_spr|
00000280  69 74 65 28 22 6e 61 6d  65 70 61 6e 65 6c 22 2c  |ite("namepanel",|
00000290  31 36 30 2c 31 30 30 29  0d 00 a0 23 f2 70 6c 6f  |160,100)...#.plo|
000002a0  74 5f 73 70 72 69 74 65  28 22 76 65 72 73 69 6f  |t_sprite("versio|
000002b0  6e 22 2c 31 30 30 30 2c  33 32 29 0d 00 aa 1d 54  |n",1000,32)....T|
000002c0  25 3d 91 3a f5 fd 91 3d  54 25 2b 35 30 30 20 84  |%=.:...=T%+500 .|
000002d0  20 a6 28 30 29 3d 33 32  0d 00 b4 08 ee 85 3a 87  | .(0)=32......:.|
000002e0  0d 00 be 18 ef 32 38 2c  30 2c 33 31 2c 33 39 2c  |.....28,0,31,39,|
000002f0  31 38 2c 31 32 2c 32 36  0d 00 c8 25 f2 70 6c 6f  |18,12,26...%.plo|
00000300  74 5f 73 70 72 69 74 65  28 22 63 68 6f 6f 73 70  |t_sprite("choosp|
00000310  61 6e 65 6c 22 2c 32 39  36 2c 36 34 29 0d 00 d2  |anel",296,64)...|
00000320  12 66 69 6c 65 24 3d a4  63 68 6f 69 63 65 73 0d  |.file$=.choices.|
00000330  00 dc 4a e7 66 69 6c 65  24 3d 22 22 20 8c 20 ee  |..J.file$="" . .|
00000340  3a fb 30 3a f5 3a f1 8a  33 2c 33 30 29 89 33 35  |:.0:.:..3,30).35|
00000350  3a e8 8a 33 2c 33 30 29  22 53 61 76 65 20 6d 61  |:..3,30)"Save ma|
00000360  70 20 66 69 6c 65 20 61  73 3a 20 22 66 69 6c 65  |p file as: "file|
00000370  24 3a fd a4 76 61 6c 69  64 0d 00 e6 09 eb 31 33  |$:..valid.....13|
00000380  3a 87 0d 00 f0 07 ee 85  87 0d 00 fa 0c 2a 46 58  |:............*FX|
00000390  32 30 30 2c 33 0d 01 04  15 ef 32 34 2c 30 3b 30  |200,3.....24,0;0|
000003a0  3b 31 32 37 39 3b 32 35  35 3b 0d 01 0e 08 e6 31  |;1279;255;.....1|
000003b0  36 30 0d 01 18 05 da 0d  01 22 07 ef 32 36 0d 01  |60......."..26..|
000003c0  2c 08 fb 31 36 30 0d 01  36 6a 71 75 69 74 25 3d  |,..160..6jquit%=|
000003d0  a3 3a 6f 6c 64 78 70 6f  73 25 3d 30 3a 6f 6c 64  |.:oldxpos%=0:old|
000003e0  79 70 6f 73 25 3d 30 3a  6f 6c 64 6c 65 76 65 6c  |ypos%=0:oldlevel|
000003f0  25 3d 30 3a 6e 65 77 74  69 6c 65 6e 6f 25 3d 39  |%=0:newtileno%=9|
00000400  39 39 3a 73 61 76 65 78  70 6f 73 25 3d 31 39 2a  |99:savexpos%=19*|
00000410  38 3a 73 61 76 65 79 70  6f 73 25 3d 31 30 32 33  |8:saveypos%=1023|
00000420  2d 28 33 37 2a 38 29 3a  73 63 61 6c 65 25 3d 31  |-(37*8):scale%=1|
00000430  0d 01 40 11 e3 74 69 6c  65 72 6f 77 25 3d 30 b8  |..@..tilerow%=0.|
00000440  32 0d 01 4a 11 e3 74 69  6c 65 63 6f 6c 25 3d 30  |2..J..tilecol%=0|
00000450  b8 39 0d 01 54 24 f3 20  70 61 6e 65 6c 74 69 6c  |.9..T$. paneltil|
00000460  65 73 25 28 74 69 6c 65  63 6f 6c 25 2c 74 69 6c  |es%(tilecol%,til|
00000470  65 72 6f 77 25 29 0d 01  5e 07 ed 3a ed 0d 01 68  |erow%)..^..:...h|
00000480  23 f2 6c 6f 61 64 5f 73  70 72 69 74 65 5f 66 69  |#.load_sprite_fi|
00000490  6c 65 28 22 53 6d 61 6c  6c 50 61 6e 65 6c 22 29  |le("SmallPanel")|
000004a0  0d 01 72 25 f2 70 6c 6f  74 5f 73 70 72 69 74 65  |..r%.plot_sprite|
000004b0  28 22 73 6d 61 6c 6c 70  61 6e 65 6c 22 2c 34 35  |("smallpanel",45|
000004c0  30 2c 31 36 29 0d 01 7c  1f f2 70 6c 6f 74 5f 73  |0,16)..|..plot_s|
000004d0  70 72 69 74 65 28 22 71  75 69 74 22 2c 32 30 30  |prite("quit",200|
000004e0  2c 39 36 29 0d 01 86 1e  f2 70 6c 6f 74 5f 73 70  |,96).....plot_sp|
000004f0  72 69 74 65 28 22 73 61  76 65 22 2c 32 30 30 2c  |rite("save",200,|
00000500  38 29 0d 01 90 20 f2 70  6c 6f 74 5f 73 70 72 69  |8)... .plot_spri|
00000510  74 65 28 22 63 72 65 61  6d 22 2c 32 37 36 2c 31  |te("cream",276,1|
00000520  36 29 0d 01 9a 1e f2 70  6c 6f 74 5f 73 70 72 69  |6).....plot_spri|
00000530  74 65 28 22 31 30 30 22  2c 32 38 30 2c 32 30 29  |te("100",280,20)|
00000540  0d 01 a4 20 f2 6c 6f 61  64 5f 73 70 72 69 74 65  |... .load_sprite|
00000550  5f 66 69 6c 65 28 22 53  70 72 69 74 65 73 22 29  |_file("Sprites")|
00000560  0d 01 ae 16 f2 70 6f 69  6e 74 5f 74 6f 5f 73 74  |.....point_to_st|
00000570  61 63 6b 28 31 29 0d 01  b8 2b e7 41 25 3c 34 20  |ack(1)...+.A%<4 |
00000580  8c 20 f2 67 65 74 5f 73  63 72 65 65 6e 28 66 69  |. .get_screen(fi|
00000590  6c 65 24 29 20 8b 20 f2  63 6c 65 61 72 5f 6d 61  |le$) . .clear_ma|
000005a0  70 0d 01 c2 24 6c 65 76  65 6c 25 3d 31 3a f2 70  |p...$level%=1:.p|
000005b0  6f 69 6e 74 5f 74 6f 5f  73 74 61 63 6b 28 6c 65  |oint_to_stack(le|
000005c0  76 65 6c 25 29 0d 01 cc  08 c8 97 20 ee 0d 01 d6  |vel%)...... ....|
000005d0  19 c8 97 20 b8 20 31 39  2a 38 2c 31 30 32 33 2d  |... . 19*8,1023-|
000005e0  28 33 37 2a 38 29 0d 01  e0 33 ee 85 20 f1 8a 30  |(37*8)...3.. ..0|
000005f0  2c 32 34 29 f6 24 3b 22  20 2d 20 70 72 65 73 73  |,24).$;" - press|
00000600  20 73 70 61 63 65 22 3a  f5 fd a5 3d 33 32 3a f1  | space":...=32:.|
00000610  8a 30 2c 32 34 29 89 33  39 0d 01 ea 05 f5 0d 01  |.0,24).39.......|
00000620  f4 1a c8 97 20 78 70 6f  73 25 2c 79 70 6f 73 25  |.... xpos%,ypos%|
00000630  2c 62 75 74 74 6f 6e 25  0d 01 fe 1e e7 a6 2d 35  |,button%......-5|
00000640  38 20 84 20 a6 2d 34 32  20 f2 63 68 61 6e 67 65  |8 . .-42 .change|
00000650  5f 6c 65 76 65 6c 0d 02  08 10 e7 79 70 6f 73 25  |_level.....ypos%|
00000660  3e 32 35 35 20 8c 0d 02  12 25 e7 a6 2d 38 35 20  |>255 ....%..-85 |
00000670  80 20 ac 20 a6 20 2d 31  30 30 20 8c 20 79 70 6f  |. . . -100 . ypo|
00000680  73 25 3d 6f 6c 64 79 70  6f 73 25 0d 02 1c 25 e7  |s%=oldypos%...%.|
00000690  a6 2d 31 30 30 20 80 20  ac 20 a6 20 2d 38 35 20  |.-100 . . . -85 |
000006a0  8c 20 78 70 6f 73 25 3d  6f 6c 64 78 70 6f 73 25  |. xpos%=oldxpos%|
000006b0  0d 02 26 2b e7 a6 2d 38  32 20 8c 20 73 61 76 65  |..&+..-82 . save|
000006c0  78 70 6f 73 25 3d 78 70  6f 73 25 3a 73 61 76 65  |xpos%=xpos%:save|
000006d0  79 70 6f 73 25 3d 79 70  6f 73 25 0d 02 30 14 c8  |ypos%=ypos%..0..|
000006e0  97 20 b8 20 78 70 6f 73  25 2c 79 70 6f 73 25 0d  |. . xpos%,ypos%.|
000006f0  02 3a 05 cd 0d 02 44 3c  e7 a6 2d 35 32 20 8c 20  |.:....D<..-52 . |
00000700  78 70 6f 73 25 3d 73 61  76 65 78 70 6f 73 25 3a  |xpos%=savexpos%:|
00000710  79 70 6f 73 25 3d 73 61  76 65 79 70 6f 73 25 3a  |ypos%=saveypos%:|
00000720  c8 97 20 b8 20 78 70 6f  73 25 2c 79 70 6f 73 25  |.. . xpos%,ypos%|
00000730  0d 02 4e 2a e7 79 70 6f  73 25 3e 32 35 35 20 8c  |..N*.ypos%>255 .|
00000740  20 f2 73 68 6f 77 5f 74  69 6c 65 28 a3 29 20 8b  | .show_tile(.) .|
00000750  20 f1 8a 30 2c 32 34 29  89 37 0d 02 58 36 e7 79  | ..0,24).7..X6.y|
00000760  70 6f 73 25 3e 32 35 35  20 80 20 62 75 74 74 6f  |pos%>255 . butto|
00000770  6e 25 3d 34 20 8c 20 f2  67 69 76 65 5f 6f 72 5f  |n%=4 . .give_or_|
00000780  74 61 6b 65 28 6e 65 77  74 69 6c 65 6e 6f 25 29  |take(newtileno%)|
00000790  0d 02 62 2a e7 79 70 6f  73 25 3e 32 35 35 20 80  |..b*.ypos%>255 .|
000007a0  20 62 75 74 74 6f 6e 25  3d 32 20 8c 20 f2 63 68  | button%=2 . .ch|
000007b0  61 6e 67 65 5f 73 63 61  6c 65 0d 02 6c 2d e7 79  |ange_scale..l-.y|
000007c0  70 6f 73 25 3e 32 35 35  20 80 20 62 75 74 74 6f  |pos%>255 . butto|
000007d0  6e 25 3d 31 20 8c 20 f2  67 69 76 65 5f 6f 72 5f  |n%=1 . .give_or_|
000007e0  74 61 6b 65 28 30 29 0d  02 76 32 e7 a4 69 6e 5f  |take(0)..v2..in_|
000007f0  72 65 63 74 61 6e 67 6c  65 28 34 36 32 2c 32 38  |rectangle(462,28|
00000800  2c 31 32 35 32 2c 32 30  38 29 20 8c 20 f2 63 68  |,1252,208) . .ch|
00000810  6f 6f 73 65 5f 74 69 6c  65 0d 02 80 28 e7 a4 69  |oose_tile...(..i|
00000820  6e 5f 72 65 63 74 61 6e  67 6c 65 28 32 30 30 2c  |n_rectangle(200,|
00000830  38 2c 32 36 34 2c 37 32  29 20 8c 20 f2 73 61 76  |8,264,72) . .sav|
00000840  65 0d 02 8a 2a e7 a4 69  6e 5f 72 65 63 74 61 6e  |e...*..in_rectan|
00000850  67 6c 65 28 32 30 30 2c  39 36 2c 32 36 34 2c 31  |gle(200,96,264,1|
00000860  36 30 29 20 8c 20 f2 71  75 69 74 0d 02 94 0a fd  |60) . .quit.....|
00000870  71 75 69 74 25 0d 02 9e  0b 2a 46 58 32 31 2c 30  |quit%....*FX21,0|
00000880  0d 02 a8 0c 2a 46 58 32  30 30 2c 30 0d 02 b2 0c  |....*FX200,0....|
00000890  2a 44 45 53 4b 54 4f 50  0d 02 bc 05 e0 0d 02 c6  |*DESKTOP........|
000008a0  05 3a 0d 02 d0 20 dd f2  6c 6f 61 64 5f 73 70 72  |.:... ..load_spr|
000008b0  69 74 65 5f 66 69 6c 65  28 73 70 72 66 69 6c 65  |ite_file(sprfile|
000008c0  24 29 0d 02 da 2b 24 73  70 72 69 74 65 66 69 6c  |$)...+$spritefil|
000008d0  65 3d 22 3c 49 6e 65 72  74 45 64 69 74 24 44 69  |e="<InertEdit$Di|
000008e0  72 3e 2e 22 2b 73 70 72  66 69 6c 65 24 0d 02 e4  |r>."+sprfile$...|
000008f0  33 c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |3.."OS_SpriteOp"|
00000900  2c 31 30 2b 32 35 36 2c  73 63 72 65 65 6e 73 70  |,10+256,screensp|
00000910  72 69 74 65 73 2c 73 70  72 69 74 65 66 69 6c 65  |rites,spritefile|
00000920  0d 02 ee 05 e1 0d 02 f8  05 3a 0d 03 02 20 dd f2  |.........:... ..|
00000930  70 6c 6f 74 5f 73 70 72  69 74 65 28 73 70 72 69  |plot_sprite(spri|
00000940  74 65 24 2c 78 25 2c 79  25 29 0d 03 0c 17 24 73  |te$,x%,y%)....$s|
00000950  70 72 69 74 65 6e 61 6d  65 3d 73 70 72 69 74 65  |pritename=sprite|
00000960  24 0d 03 16 3d c8 99 22  4f 53 5f 53 70 72 69 74  |$...=.."OS_Sprit|
00000970  65 4f 70 22 2c 33 34 2b  32 35 36 2c 73 63 72 65  |eOp",34+256,scre|
00000980  65 6e 73 70 72 69 74 65  73 2c 73 70 72 69 74 65  |ensprites,sprite|
00000990  6e 61 6d 65 2c 78 25 2c  79 25 2d 34 2c 38 0d 03  |name,x%,y%-4,8..|
000009a0  20 05 e1 0d 03 2a 05 3a  0d 03 34 0e dd f2 70 6c  | ....*.:..4...pl|
000009b0  6f 74 28 58 25 29 0d 03  3e 0f c8 8e 20 73 63 61  |ot(X%)..>... sca|
000009c0  6c 65 25 20 ca 0d 03 48  2c c9 20 31 3a 20 f2 70  |le% ...H,. 1: .p|
000009d0  6c 6f 74 5f 73 70 72 69  74 65 28 c3 58 25 2c 63  |lot_sprite(.X%,c|
000009e0  6f 6c 75 6d 6e 25 2c 31  30 32 33 2d 72 6f 77 25  |olumn%,1023-row%|
000009f0  29 0d 03 52 63 c9 20 32  3a 20 f2 70 6c 6f 74 5f  |)..Rc. 2: .plot_|
00000a00  73 70 72 69 74 65 5f 73  63 61 6c 65 64 28 c3 58  |sprite_scaled(.X|
00000a10  25 2c 32 2c 31 2c 63 6f  6c 75 6d 6e 25 2d 31 32  |%,2,1,column%-12|
00000a20  38 30 2a 28 71 75 61 64  72 61 6e 74 20 83 32 29  |80*(quadrant .2)|
00000a30  2c 31 30 32 33 2d 72 6f  77 25 2d 31 32 2b 37 36  |,1023-row%-12+76|
00000a40  38 2a 28 31 2d 28 71 75  61 64 72 61 6e 74 20 81  |8*(1-(quadrant .|
00000a50  32 29 29 29 0d 03 5c 05  cb 0d 03 66 05 e1 0d 03  |2)))..\....f....|
00000a60  70 05 3a 0d 03 7a 3a dd  f2 70 6c 6f 74 5f 73 70  |p.:..z:..plot_sp|
00000a70  72 69 74 65 5f 73 63 61  6c 65 64 28 24 73 70 72  |rite_scaled($spr|
00000a80  69 74 65 6e 61 6d 65 2c  21 73 63 61 6c 65 2c 73  |itename,!scale,s|
00000a90  63 61 6c 65 21 38 2c 78  25 2c 79 25 29 0d 03 84  |cale!8,x%,y%)...|
00000aa0  23 73 63 61 6c 65 21 34  3d 21 73 63 61 6c 65 3a  |#scale!4=!scale:|
00000ab0  73 63 61 6c 65 21 31 32  3d 73 63 61 6c 65 21 38  |scale!12=scale!8|
00000ac0  0d 03 8e 43 c8 99 22 4f  53 5f 53 70 72 69 74 65  |...C.."OS_Sprite|
00000ad0  4f 70 22 2c 35 32 2b 32  35 36 2c 73 63 72 65 65  |Op",52+256,scree|
00000ae0  6e 73 70 72 69 74 65 73  2c 73 70 72 69 74 65 6e  |nsprites,spriten|
00000af0  61 6d 65 2c 78 25 2c 79  25 2c 30 2c 73 63 61 6c  |ame,x%,y%,0,scal|
00000b00  65 2c 30 0d 03 98 05 e1  0d 03 a2 05 3a 0d 03 ac  |e,0.........:...|
00000b10  18 dd f2 70 6f 69 6e 74  5f 74 6f 5f 73 74 61 63  |...point_to_stac|
00000b20  6b 28 4c 25 29 0d 03 b6  15 e7 4c 25 3d 6f 6c 64  |k(L%).....L%=old|
00000b30  6c 65 76 65 6c 25 20 8c  20 e1 0d 03 c0 07 ea 58  |level% . ......X|
00000b40  25 0d 03 ca 08 e6 38 2c  30 0d 03 d4 0b e3 58 25  |%.....8,0.....X%|
00000b50  3d 31 b8 34 0d 03 de 3d  f2 70 6c 6f 74 5f 73 70  |=1.4...=.plot_sp|
00000b60  72 69 74 65 28 c3 28 31  32 34 2b 35 2a 28 58 25  |rite(.(124+5*(X%|
00000b70  3d 4c 25 29 2d 31 30 30  2a 28 58 25 3c 34 29 29  |=L%)-100*(X%<4))|
00000b80  2c 31 36 2c 31 36 2b 32  38 2a 28 58 25 2d 31 29  |,16,16+28*(X%-1)|
00000b90  29 0d 03 e8 05 ed 0d 03  f2 10 6f 6c 64 6c 65 76  |).........oldlev|
00000ba0  65 6c 25 3d 4c 25 0d 03  fc 05 e1 0d 04 06 05 3a  |el%=L%.........:|
00000bb0  0d 04 10 17 dd f2 73 68  6f 77 5f 74 69 6c 65 28  |......show_tile(|
00000bc0  66 6f 72 63 65 25 29 0d  04 1a 4d e7 28 6f 6c 64  |force%)...M.(old|
00000bd0  78 70 6f 73 25 81 38 3d  78 70 6f 73 25 81 38 29  |xpos%.8=xpos%.8)|
00000be0  80 28 6f 6c 64 79 70 6f  73 25 81 38 3d 79 70 6f  |.(oldypos%.8=ypo|
00000bf0  73 25 81 38 29 80 28 6f  6c 64 6c 65 76 65 6c 25  |s%.8).(oldlevel%|
00000c00  3d 6c 65 76 65 6c 25 29  80 ac 66 6f 72 63 65 25  |=level%)..force%|
00000c10  20 8c 20 e1 0d 04 24 2e  74 69 6c 65 6e 6f 25 3d  | . ...$.tileno%=|
00000c20  6d 61 70 25 3f a4 63 61  6c 63 5f 70 6f 73 28 78  |map%?.calc_pos(x|
00000c30  70 6f 73 25 2c 79 70 6f  73 25 2c 6c 65 76 65 6c  |pos%,ypos%,level|
00000c40  25 29 0d 04 2e 28 f2 70  6c 6f 74 5f 73 70 72 69  |%)...(.plot_spri|
00000c50  74 65 28 c3 28 31 30 30  2b 74 69 6c 65 6e 6f 25  |te(.(100+tileno%|
00000c60  29 2c 32 38 30 2c 31 32  38 29 0d 04 38 38 e7 73  |),280,128)..88.s|
00000c70  63 61 6c 65 25 3d 31 20  8c 20 f1 8a 30 2c 32 34  |cale%=1 . ..0,24|
00000c80  29 3b 78 70 6f 73 25 81  38 3b 22 2c 22 3b 28 31  |);xpos%.8;",";(1|
00000c90  30 32 33 2d 79 70 6f 73  25 29 81 38 3b 22 20 20  |023-ypos%).8;"  |
00000ca0  20 22 0d 04 42 68 e7 73  63 61 6c 65 25 3d 32 20  | "..Bh.scale%=2 |
00000cb0  8c 20 f1 8a 30 2c 32 34  29 3b 28 78 70 6f 73 25  |. ..0,24);(xpos%|
00000cc0  2b 31 32 38 30 2a 28 71  75 61 64 72 61 6e 74 20  |+1280*(quadrant |
00000cd0  83 32 29 29 81 31 36 3b  22 2c 22 3b 28 31 30 32  |.2)).16;",";(102|
00000ce0  33 2d 28 79 70 6f 73 25  2d 37 36 38 2a 28 31 2d  |3-(ypos%-768*(1-|
00000cf0  28 71 75 61 64 72 61 6e  74 20 81 32 29 29 29 29  |(quadrant .2))))|
00000d00  81 31 36 3b 22 20 20 20  20 22 0d 04 4c 21 6f 6c  |.16;"    "..L!ol|
00000d10  64 78 70 6f 73 25 3d 78  70 6f 73 25 3a 6f 6c 64  |dxpos%=xpos%:old|
00000d20  79 70 6f 73 25 3d 79 70  6f 73 25 0d 04 56 05 e1  |ypos%=ypos%..V..|
00000d30  0d 04 60 05 3a 0d 04 6a  18 dd a4 63 61 6c 63 5f  |..`.:..j...calc_|
00000d40  70 6f 73 28 58 25 2c 59  25 2c 4c 25 29 0d 04 74  |pos(X%,Y%,L%)..t|
00000d50  39 e7 73 63 61 6c 65 25  3d 31 20 8c 20 3d 39 36  |9.scale%=1 . =96|
00000d60  2a 28 58 25 20 81 20 38  29 2b 28 28 31 30 32 33  |*(X% . 8)+((1023|
00000d70  2d 59 25 29 20 81 20 38  29 2b 32 33 30 34 30 2a  |-Y%) . 8)+23040*|
00000d80  28 4c 25 2d 31 29 0d 04  7e 59 20 3d 39 36 2a 28  |(L%-1)..~Y =96*(|
00000d90  28 58 25 2b 31 32 38 30  2a 28 71 75 61 64 72 61  |(X%+1280*(quadra|
00000da0  6e 74 20 83 32 29 29 81  31 36 29 2b 28 28 31 30  |nt .2)).16)+((10|
00000db0  32 33 2d 28 59 25 2d 37  36 38 2a 28 31 2d 28 71  |23-(Y%-768*(1-(q|
00000dc0  75 61 64 72 61 6e 74 20  81 32 29 29 29 29 81 31  |uadrant .2)))).1|
00000dd0  36 29 2b 32 33 30 34 30  2a 28 4c 25 2d 31 29 0d  |6)+23040*(L%-1).|
00000de0  04 88 05 3a 0d 04 92 12  dd f2 63 68 61 6e 67 65  |...:......change|
00000df0  5f 6c 65 76 65 6c 0d 04  9c 29 e7 a6 2d 35 38 20  |_level...)..-58 |
00000e00  6c 65 76 65 6c 25 2d 3d  28 6c 65 76 65 6c 25 3c  |level%-=(level%<|
00000e10  34 29 3a f4 20 75 70 20  61 20 6c 65 76 65 6c 0d  |4):. up a level.|
00000e20  04 a6 2b e7 a6 2d 34 32  20 6c 65 76 65 6c 25 2b  |..+..-42 level%+|
00000e30  3d 28 6c 65 76 65 6c 25  3e 31 29 3a f4 20 64 6f  |=(level%>1):. do|
00000e40  77 6e 20 61 20 6c 65 76  65 6c 0d 04 b0 1e e7 79  |wn a level.....y|
00000e50  70 6f 73 25 3e 32 35 35  20 8c 20 f2 73 68 6f 77  |pos%>255 . .show|
00000e60  5f 74 69 6c 65 28 b9 29  0d 04 ba 1b f2 70 6f 69  |_tile(.).....poi|
00000e70  6e 74 5f 74 6f 5f 73 74  61 63 6b 28 6c 65 76 65  |nt_to_stack(leve|
00000e80  6c 25 29 0d 04 c4 18 f5  fd ac 28 a6 2d 35 38 29  |l%).......(.-58)|
00000e90  20 80 20 ac 20 28 a6 2d  34 32 29 0d 04 ce 05 e1  | . . (.-42).....|
00000ea0  0d 04 d8 05 3a 0d 04 e2  11 dd f2 63 68 6f 6f 73  |....:......choos|
00000eb0  65 5f 74 69 6c 65 0d 04  ec 13 e7 62 75 74 74 6f  |e_tile.....butto|
00000ec0  6e 25 3c 3e 34 20 8c 20  e1 0d 04 f6 12 6e 65 77  |n%<>4 . .....new|
00000ed0  74 69 6c 65 6e 6f 25 3d  39 39 39 0d 05 00 32 74  |tileno%=999...2t|
00000ee0  69 6c 65 63 6f 6c 25 3d  28 78 70 6f 73 25 2d 34  |ilecol%=(xpos%-4|
00000ef0  35 34 29 81 38 30 3a e7  74 69 6c 65 63 6f 6c 25  |54).80:.tilecol%|
00000f00  3e 39 20 74 69 6c 65 63  6f 6c 25 3d 39 0d 05 0a  |>9 tilecol%=9...|
00000f10  31 74 69 6c 65 72 6f 77  25 3d 28 79 70 6f 73 25  |1tilerow%=(ypos%|
00000f20  2d 32 30 29 81 36 34 3a  e7 74 69 6c 65 72 6f 77  |-20).64:.tilerow|
00000f30  25 3e 32 20 74 69 6c 65  72 6f 77 25 3d 32 0d 05  |%>2 tilerow%=2..|
00000f40  14 2d 6e 65 77 74 69 6c  65 6e 6f 25 3d 70 61 6e  |.-newtileno%=pan|
00000f50  65 6c 74 69 6c 65 73 25  28 74 69 6c 65 63 6f 6c  |eltiles%(tilecol|
00000f60  25 2c 74 69 6c 65 72 6f  77 25 29 0d 05 1e 32 e7  |%,tilerow%)...2.|
00000f70  6e 65 77 74 69 6c 65 6e  6f 25 3d 39 39 39 20 8c  |newtileno%=999 .|
00000f80  20 f2 70 6c 6f 74 5f 73  70 72 69 74 65 28 22 31  | .plot_sprite("1|
00000f90  30 30 22 2c 32 38 30 2c  32 30 29 3a e1 0d 05 28  |00",280,20):...(|
00000fa0  2a f2 70 6c 6f 74 5f 73  70 72 69 74 65 28 c3 28  |*.plot_sprite(.(|
00000fb0  31 30 30 2b 6e 65 77 74  69 6c 65 6e 6f 25 29 2c  |100+newtileno%),|
00000fc0  32 38 30 2c 32 30 29 0d  05 32 1b f1 8a 30 2c 32  |280,20)..2...0,2|
00000fd0  34 29 22 54 69 6c 65 20  73 65 6c 65 63 74 65 64  |4)"Tile selected|
00000fe0  3a 22 0d 05 3c 0c f2 72  65 6c 65 61 73 65 0d 05  |:"..<..release..|
00000ff0  46 0e f1 8a 30 2c 32 34  29 89 31 34 0d 05 50 05  |F...0,24).14..P.|
00001000  e1 0d 05 5a 05 3a 0d 05  64 16 dd f2 67 69 76 65  |...Z.:..d...give|
00001010  5f 6f 72 5f 74 61 6b 65  28 58 25 29 0d 05 6e 0f  |_or_take(X%)..n.|
00001020  e7 58 25 3d 39 39 39 20  8c 20 e1 0d 05 78 29 6d  |.X%=999 . ...x)m|
00001030  61 70 25 3f a4 63 61 6c  63 5f 70 6f 73 28 78 70  |ap%?.calc_pos(xp|
00001040  6f 73 25 2c 79 70 6f 73  25 2c 6c 65 76 65 6c 25  |os%,ypos%,level%|
00001050  29 3d 58 25 0d 05 82 14  f2 63 61 6c 63 5f 72 6f  |)=X%.....calc_ro|
00001060  77 5f 63 6f 6c 75 6d 6e  0d 05 8c 0e f2 70 6c 6f  |w_column.....plo|
00001070  74 5f 70 69 6c 65 0d 05  96 11 f2 73 68 6f 77 5f  |t_pile.....show_|
00001080  74 69 6c 65 28 b9 29 0d  05 a0 05 e1 0d 05 aa 05  |tile(.).........|
00001090  3a 0d 05 b4 0f dd f2 70  6c 6f 74 5f 70 69 6c 65  |:......plot_pile|
000010a0  0d 05 be 0b ea 20 4c 25  2c 59 25 0d 05 c8 08 4c  |..... L%,Y%....L|
000010b0  25 3d 34 0d 05 d2 05 f5  0d 05 dc 25 59 25 3d 6d  |%=4........%Y%=m|
000010c0  61 70 25 3f a4 63 61 6c  63 5f 70 6f 73 28 78 70  |ap%?.calc_pos(xp|
000010d0  6f 73 25 2c 79 70 6f 73  25 2c 4c 25 29 0d 05 e6  |os%,ypos%,L%)...|
000010e0  13 e7 59 25 20 8c 20 f2  70 6c 6f 74 28 59 25 29  |..Y% . .plot(Y%)|
000010f0  0d 05 f0 09 4c 25 2d 3d  31 0d 05 fa 0f fd 20 59  |....L%-=1..... Y|
00001100  25 20 84 20 4c 25 3d 30  0d 06 04 1b e7 4c 25 3d  |% . L%=0.....L%=|
00001110  30 20 80 20 59 25 3d 30  20 8c 20 f2 70 6c 6f 74  |0 . Y%=0 . .plot|
00001120  28 30 29 0d 06 0e 05 e1  0d 06 18 05 3a 0d 06 22  |(0).........:.."|
00001130  15 dd f2 63 61 6c 63 5f  72 6f 77 5f 63 6f 6c 75  |...calc_row_colu|
00001140  6d 6e 0d 06 2c 0f c8 8e  20 73 63 61 6c 65 25 20  |mn..,... scale% |
00001150  ca 0d 06 36 20 c9 20 31  3a 20 72 6f 77 25 3d 28  |...6 . 1: row%=(|
00001160  28 31 30 32 33 2d 79 70  6f 73 25 29 81 38 29 2a  |(1023-ypos%).8)*|
00001170  38 0d 06 40 19 63 6f 6c  75 6d 6e 25 3d 28 78 70  |8..@.column%=(xp|
00001180  6f 73 25 81 38 29 2a 38  3a e1 0d 06 4a 08 c9 20  |os%.8)*8:...J.. |
00001190  32 3a 0d 06 54 35 72 6f  77 25 3d 28 28 31 30 32  |2:..T5row%=((102|
000011a0  33 2d 28 79 70 6f 73 25  2d 37 36 38 2a 28 31 2d  |3-(ypos%-768*(1-|
000011b0  28 71 75 61 64 72 61 6e  74 20 81 32 29 29 29 29  |(quadrant .2))))|
000011c0  81 31 36 29 2a 31 36 0d  06 5e 2e 63 6f 6c 75 6d  |.16)*16..^.colum|
000011d0  6e 25 3d 28 28 78 70 6f  73 25 2b 31 32 38 30 2a  |n%=((xpos%+1280*|
000011e0  28 71 75 61 64 72 61 6e  74 20 83 32 29 29 81 31  |(quadrant .2)).1|
000011f0  36 29 2a 31 36 0d 06 68  05 cb 0d 06 72 05 e1 0d  |6)*16..h....r...|
00001200  06 7c 05 3a 0d 06 86 17  dd f2 67 65 74 5f 73 63  |.|.:......get_sc|
00001210  72 65 65 6e 28 66 69 6c  65 24 29 0d 06 90 2f ff  |reen(file$).../.|
00001220  28 22 4c 4f 41 44 20 3c  49 6e 65 72 74 45 64 69  |("LOAD <InertEdi|
00001230  74 24 44 69 72 3e 2e 22  2b 66 69 6c 65 24 2b 22  |t$Dir>."+file$+"|
00001240  20 22 2b c3 7e 6d 61 70  25 29 0d 06 9a 18 f1 8a  | "+.~map%)......|
00001250  30 2c 32 34 29 22 50 6c  6f 74 74 69 6e 67 2e 2e  |0,24)"Plotting..|
00001260  2e 22 0d 06 a4 0e 70 6f  69 6e 74 65 72 25 3d 30  |."....pointer%=0|
00001270  0d 06 ae 12 e3 20 6c 65  76 65 6c 25 3d 31 20 b8  |..... level%=1 .|
00001280  20 34 0d 06 b8 2e 6f 6c  64 6c 65 76 65 6c 25 3d  | 4....oldlevel%=|
00001290  6c 65 76 65 6c 25 2d 31  3a f2 70 6f 69 6e 74 5f  |level%-1:.point_|
000012a0  74 6f 5f 73 74 61 63 6b  28 6c 65 76 65 6c 25 29  |to_stack(level%)|
000012b0  0d 06 c2 1a e3 20 63 6f  6c 75 6d 6e 25 3d 30 20  |..... column%=0 |
000012c0  b8 20 31 32 37 32 20 88  20 38 0d 06 cc 16 e3 20  |. 1272 . 8..... |
000012d0  72 6f 77 25 3d 30 20 b8  20 37 36 30 20 88 20 38  |row%=0 . 760 . 8|
000012e0  0d 06 d6 29 e7 6d 61 70  25 3f 70 6f 69 6e 74 65  |...).map%?pointe|
000012f0  72 25 20 8c 20 f2 70 6c  6f 74 28 6d 61 70 25 3f  |r% . .plot(map%?|
00001300  70 6f 69 6e 74 65 72 25  29 0d 06 e0 0f 70 6f 69  |pointer%)....poi|
00001310  6e 74 65 72 25 2b 3d 31  0d 06 ea 05 ed 0d 06 f4  |nter%+=1........|
00001320  05 ed 0d 06 fe 12 70 6f  69 6e 74 65 72 25 2b 3d  |......pointer%+=|
00001330  37 36 38 30 0d 07 08 05  ed 0d 07 12 0e f1 8a 30  |7680...........0|
00001340  2c 32 34 29 89 31 31 0d  07 1c 05 e1 0d 07 26 05  |,24).11.......&.|
00001350  3a 0d 07 30 0a dd f2 71  75 69 74 0d 07 3a 12 f1  |:..0...quit..:..|
00001360  8a 30 2c 32 34 29 22 51  55 49 54 3f 22 0d 07 44  |.0,24)"QUIT?"..D|
00001370  05 f5 0d 07 4e 1a c8 97  20 78 70 6f 73 25 2c 79  |....N... xpos%,y|
00001380  70 6f 73 25 2c 62 75 74  74 6f 6e 25 0d 07 58 2f  |pos%,button%..X/|
00001390  fd 20 ac 20 a4 69 6e 5f  72 65 63 74 61 6e 67 6c  |. . .in_rectangl|
000013a0  65 28 32 30 30 2c 39 36  2c 32 36 34 2c 31 36 30  |e(200,96,264,160|
000013b0  29 20 84 20 62 75 74 74  6f 6e 25 0d 07 62 1b e7  |) . button%..b..|
000013c0  62 75 74 74 6f 6e 25 3c  3e 34 20 8c 20 71 75 69  |button%<>4 . qui|
000013d0  74 25 3d a3 3a e1 0d 07  6c 2e f1 8a 30 2c 32 34  |t%=.:...l...0,24|
000013e0  29 22 53 61 76 65 20 66  69 72 73 74 20 28 53 29  |)"Save first (S)|
000013f0  20 6f 72 20 6a 75 73 74  20 71 75 69 74 20 28 51  | or just quit (Q|
00001400  29 3f 22 3b 0d 07 76 0c  f2 72 65 6c 65 61 73 65  |)?";..v..release|
00001410  0d 07 80 05 f5 0d 07 8a  1a c8 97 20 78 70 6f 73  |........... xpos|
00001420  25 2c 79 70 6f 73 25 2c  62 75 74 74 6f 6e 25 0d  |%,ypos%,button%.|
00001430  07 94 0e fd 62 75 74 74  6f 6e 25 3d 34 0d 07 9e  |....button%=4...|
00001440  73 e7 a4 69 6e 5f 72 65  63 74 61 6e 67 6c 65 28  |s..in_rectangle(|
00001450  32 30 30 2c 39 36 2c 32  36 34 2c 31 36 30 29 20  |200,96,264,160) |
00001460  8c 20 71 75 69 74 25 3d  b9 20 8b 20 e7 a4 69 6e  |. quit%=. . ..in|
00001470  5f 72 65 63 74 61 6e 67  6c 65 28 32 30 30 2c 38  |_rectangle(200,8|
00001480  2c 32 36 34 2c 37 32 29  20 8c 20 f1 8a 30 2c 32  |,264,72) . ..0,2|
00001490  34 29 89 33 37 3a f2 64  6f 5f 73 61 76 65 3a 71  |4).37:.do_save:q|
000014a0  75 69 74 25 3d b9 20 8b  20 71 75 69 74 25 3d a3  |uit%=. . quit%=.|
000014b0  0d 07 a8 23 e7 20 ac 20  71 75 69 74 25 20 8c 20  |...#. . quit% . |
000014c0  f1 8a 30 2c 32 34 29 89  33 37 3a f2 72 65 6c 65  |..0,24).37:.rele|
000014d0  61 73 65 0d 07 b2 05 e1  0d 07 bc 05 3a 0d 07 c6  |ase.........:...|
000014e0  27 dd a4 69 6e 5f 72 65  63 74 61 6e 67 6c 65 28  |'..in_rectangle(|
000014f0  78 6c 6f 25 2c 79 6c 6f  25 2c 78 68 69 25 2c 79  |xlo%,ylo%,xhi%,y|
00001500  68 69 25 29 0d 07 d0 3f  e7 28 78 70 6f 73 25 3e  |hi%)...?.(xpos%>|
00001510  78 6c 6f 25 20 80 20 78  70 6f 73 25 3c 78 68 69  |xlo% . xpos%<xhi|
00001520  25 29 20 80 20 28 79 70  6f 73 25 3e 79 6c 6f 25  |%) . (ypos%>ylo%|
00001530  20 80 20 79 70 6f 73 25  3c 79 68 69 25 29 20 8c  | . ypos%<yhi%) .|
00001540  20 3d b9 0d 07 da 06 3d  a3 0d 07 e4 05 3a 0d 07  | =.....=.....:..|
00001550  ee 0d dd f2 72 65 6c 65  61 73 65 0d 07 f8 05 f5  |....release.....|
00001560  0d 08 02 1e c8 97 20 64  75 6d 6d 79 31 25 2c 64  |...... dummy1%,d|
00001570  75 6d 6d 79 32 25 2c 62  75 74 74 6f 6e 25 0d 08  |ummy2%,button%..|
00001580  0c 0e fd 62 75 74 74 6f  6e 25 3d 30 0d 08 16 05  |...button%=0....|
00001590  e1 0d 08 20 05 3a 0d 08  2a 0a dd f2 73 61 76 65  |... .:..*...save|
000015a0  0d 08 34 0a ea 73 61 76  65 25 0d 08 3e 0b 73 61  |..4..save%..>.sa|
000015b0  76 65 25 3d a3 0d 08 48  12 f1 8a 30 2c 32 34 29  |ve%=...H...0,24)|
000015c0  22 53 41 56 45 3f 22 0d  08 52 05 f5 0d 08 5c 1a  |"SAVE?"..R....\.|
000015d0  c8 97 20 78 70 6f 73 25  2c 79 70 6f 73 25 2c 62  |.. xpos%,ypos%,b|
000015e0  75 74 74 6f 6e 25 0d 08  66 2d fd 20 ac 20 a4 69  |utton%..f-. . .i|
000015f0  6e 5f 72 65 63 74 61 6e  67 6c 65 28 32 30 30 2c  |n_rectangle(200,|
00001600  38 2c 32 36 34 2c 37 32  29 20 84 20 62 75 74 74  |8,264,72) . butt|
00001610  6f 6e 25 0d 08 70 18 e7  62 75 74 74 6f 6e 25 3d  |on%..p..button%=|
00001620  34 20 8c 20 73 61 76 65  25 3d b9 0d 08 7a 0d f1  |4 . save%=...z..|
00001630  8a 30 2c 32 34 29 89 35  0d 08 84 0c e7 73 61 76  |.0,24).5.....sav|
00001640  65 25 20 8c 0d 08 8e 0c  f2 64 6f 5f 73 61 76 65  |e% ......do_save|
00001650  0d 08 98 0c f2 72 65 6c  65 61 73 65 0d 08 a2 2a  |.....release...*|
00001660  f1 8a 30 2c 32 34 29 22  4d 61 70 20 66 69 6c 65  |..0,24)"Map file|
00001670  20 22 22 22 3b 66 69 6c  65 24 3b 22 22 22 20 73  | """;file$;""" s|
00001680  61 76 65 64 2e 22 0d 08  ac 05 f5 0d 08 b6 1a c8  |aved."..........|
00001690  97 20 78 70 6f 73 25 2c  79 70 6f 73 25 2c 62 75  |. xpos%,ypos%,bu|
000016a0  74 74 6f 6e 25 0d 08 c0  23 fd 20 ac 20 a4 69 6e  |tton%...#. . .in|
000016b0  5f 72 65 63 74 61 6e 67  6c 65 28 32 30 30 2c 38  |_rectangle(200,8|
000016c0  2c 32 36 34 2c 37 32 29  0d 08 ca 0e f1 8a 30 2c  |,264,72)......0,|
000016d0  32 34 29 89 33 37 0d 08  d4 05 cd 0d 08 de 05 e1  |24).37..........|
000016e0  0d 08 e8 05 3a 0d 08 f2  0f dd f2 63 6c 65 61 72  |....:......clear|
000016f0  5f 6d 61 70 0d 08 fc 08  ea 20 58 25 0d 09 06 19  |_map..... X%....|
00001700  f1 8a 30 2c 32 34 29 22  50 72 65 70 61 72 69 6e  |..0,24)"Preparin|
00001710  67 2e 2e 2e 22 0d 09 10  13 e3 58 25 3d 30 b8 39  |g...".....X%=0.9|
00001720  32 31 35 36 20 88 20 34  0d 09 1a 0d 6d 61 70 25  |2156 . 4....map%|
00001730  21 58 25 3d 30 0d 09 24  05 ed 0d 09 2e 0e f1 8a  |!X%=0..$........|
00001740  30 2c 32 34 29 89 31 32  0d 09 38 05 e1 0d 09 42  |0,24).12..8....B|
00001750  05 3a 0d 09 4c 0d dd a4  63 68 6f 69 63 65 73 0d  |.:..L...choices.|
00001760  09 56 0b ea 20 41 24 2c  58 25 0d 09 60 1f f5 41  |.V.. A$,X%..`..A|
00001770  24 3d be 3a 41 25 3d bb  41 24 3a fd 28 41 25 3e  |$=.:A%=.A$:.(A%>|
00001780  30 20 80 20 41 25 3c 35  29 0d 09 6a 0b c8 8e 20  |0 . A%<5)..j... |
00001790  41 25 20 ca 0d 09 74 16  c9 20 31 3a 20 66 69 6c  |A% ...t.. 1: fil|
000017a0  65 24 3d 22 73 63 72 6e  73 22 0d 09 7e 16 c9 20  |e$="scrns"..~.. |
000017b0  32 3a 20 66 69 6c 65 24  3d 22 73 63 72 6e 6c 22  |2: file$="scrnl"|
000017c0  0d 09 88 08 c9 20 33 3a  0d 09 92 0c fb 30 3a ee  |..... 3:.....0:.|
000017d0  3a f5 3a f5 0d 09 9c 35  f1 8a 33 2c 33 30 29 89  |:.:....5..3,30).|
000017e0  33 35 3a e8 8a 33 2c 33  30 29 22 57 68 61 74 20  |35:..3,30)"What |
000017f0  6d 61 70 20 66 69 6c 65  20 74 6f 20 6c 6f 61 64  |map file to load|
00001800  3f 20 22 66 69 6c 65 24  3b 0d 09 a6 19 fd a9 66  |? "file$;......f|
00001810  69 6c 65 24 3e 30 20 80  20 a9 66 69 6c 65 24 3c  |ile$>0 . .file$<|
00001820  31 31 0d 09 b0 22 58 25  3d 8e 28 22 3c 49 6e 65  |11..."X%=.("<Ine|
00001830  72 74 45 64 69 74 24 44  69 72 3e 2e 22 2b 66 69  |rtEdit$Dir>."+fi|
00001840  6c 65 24 29 0d 09 ba 1b  fd 58 25 3e 30 20 80 20  |le$).....X%>0 . |
00001850  a2 23 58 25 3d 39 32 31  36 30 3a d9 23 58 25 0d  |.#X%=92160:.#X%.|
00001860  09 c4 11 c9 20 34 3a 20  66 69 6c 65 24 3d 22 22  |.... 4: file$=""|
00001870  0d 09 ce 05 cb 0d 09 d8  0a 3d 66 69 6c 65 24 0d  |.........=file$.|
00001880  09 e2 05 3a 0d 09 ec 12  dd f2 63 68 61 6e 67 65  |...:......change|
00001890  5f 73 63 61 6c 65 0d 09  f6 09 ea 71 75 61 64 0d  |_scale.....quad.|
000018a0  0a 00 0f c8 8e 20 73 63  61 6c 65 25 20 ca 0d 0a  |..... scale% ...|
000018b0  0a 08 c9 20 31 3a 0d 0a  14 0d e3 71 75 61 64 3d  |... 1:.....quad=|
000018c0  30 b8 33 0d 0a 1e 1b 24  73 70 72 69 74 65 6e 61  |0.3....$spritena|
000018d0  6d 65 3d c3 28 71 75 61  64 2b 32 30 30 29 0d 0a  |me=.(quad+200)..|
000018e0  28 7a c8 99 22 4f 53 5f  53 70 72 69 74 65 4f 70  |(z.."OS_SpriteOp|
000018f0  22 2c 31 36 2b 32 35 36  2c 73 63 72 65 65 6e 73  |",16+256,screens|
00001900  70 72 69 74 65 73 2c 73  70 72 69 74 65 6e 61 6d  |prites,spritenam|
00001910  65 2c 31 2c 36 34 30 2a  28 71 75 61 64 20 83 32  |e,1,640*(quad .2|
00001920  29 2c 32 35 36 2b 33 38  34 2a 28 71 75 61 64 20  |),256+384*(quad |
00001930  81 32 29 2c 20 36 33 39  2b 36 34 30 2a 28 71 75  |.2), 639+640*(qu|
00001940  61 64 20 83 32 29 2c 36  33 39 2b 33 38 34 2a 28  |ad .2),639+384*(|
00001950  71 75 61 64 20 81 32 29  0d 0a 32 05 ed 0d 0a 3c  |quad .2)..2....<|
00001960  27 71 75 61 64 72 61 6e  74 3d 2d 28 78 70 6f 73  |'quadrant=-(xpos|
00001970  25 3e 36 33 39 29 2d 32  2a 28 79 70 6f 73 25 3e  |%>639)-2*(ypos%>|
00001980  36 33 39 29 0d 0a 46 32  f2 70 6c 6f 74 5f 73 70  |639)..F2.plot_sp|
00001990  72 69 74 65 5f 73 63 61  6c 65 64 28 c3 28 71 75  |rite_scaled(.(qu|
000019a0  61 64 72 61 6e 74 2b 32  30 30 29 2c 32 2c 31 2c  |adrant+200),2,1,|
000019b0  30 2c 32 35 36 29 0d 0a  50 0c 73 63 61 6c 65 25  |0,256)..P.scale%|
000019c0  3d 32 0d 0a 5a 08 c9 20  32 3a 0d 0a 64 1f 24 73  |=2..Z.. 2:..d.$s|
000019d0  70 72 69 74 65 6e 61 6d  65 3d c3 28 71 75 61 64  |pritename=.(quad|
000019e0  72 61 6e 74 2b 32 30 30  29 0d 0a 6e 45 c8 99 22  |rant+200)..nE.."|
000019f0  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 31 36 2b  |OS_SpriteOp",16+|
00001a00  32 35 36 2c 73 63 72 65  65 6e 73 70 72 69 74 65  |256,screensprite|
00001a10  73 2c 73 70 72 69 74 65  6e 61 6d 65 2c 31 2c 30  |s,spritename,1,0|
00001a20  2c 32 35 36 2c 31 32 37  39 2c 31 30 32 33 0d 0a  |,256,1279,1023..|
00001a30  78 0c 21 73 63 61 6c 65  3d 31 0d 0a 82 0d e3 71  |x.!scale=1.....q|
00001a40  75 61 64 3d 30 b8 33 0d  0a 8c 2a e7 71 75 61 64  |uad=0.3...*.quad|
00001a50  3d 71 75 61 64 72 61 6e  74 20 8c 20 73 63 61 6c  |=quadrant . scal|
00001a60  65 21 38 3d 32 20 8b 20  73 63 61 6c 65 21 38 3d  |e!8=2 . scale!8=|
00001a70  31 0d 0a 96 53 f2 70 6c  6f 74 5f 73 70 72 69 74  |1...S.plot_sprit|
00001a80  65 5f 73 63 61 6c 65 64  28 c3 28 71 75 61 64 2b  |e_scaled(.(quad+|
00001a90  32 30 30 29 2c 21 73 63  61 6c 65 2c 73 63 61 6c  |200),!scale,scal|
00001aa0  65 21 38 2c 36 34 30 2a  28 71 75 61 64 20 83 32  |e!8,640*(quad .2|
00001ab0  29 2c 32 35 36 2b 33 38  34 2a 28 71 75 61 64 20  |),256+384*(quad |
00001ac0  81 32 29 29 0d 0a a0 05  ed 0d 0a aa 0c 73 63 61  |.2)).........sca|
00001ad0  6c 65 25 3d 31 0d 0a b4  05 cb 0d 0a be 11 f2 73  |le%=1..........s|
00001ae0  68 6f 77 5f 74 69 6c 65  28 b9 29 0d 0a c8 0c f2  |how_tile(.).....|
00001af0  72 65 6c 65 61 73 65 0d  0a d2 05 e1 0d 0a dc 05  |release.........|
00001b00  3a 0d 0a e6 0d dd f2 64  6f 5f 73 61 76 65 0d 0a  |:......do_save..|
00001b10  f0 2d f1 8a 30 2c 32 34  29 22 53 61 76 69 6e 67  |.-..0,24)"Saving|
00001b20  20 6d 61 70 20 66 69 6c  65 20 22 22 22 3b 66 69  | map file """;fi|
00001b30  6c 65 24 3b 22 22 22 2e  2e 2e 22 0d 0a fa 39 ff  |le$;"""..."...9.|
00001b40  28 22 53 41 56 45 20 3c  49 6e 65 72 74 45 64 69  |("SAVE <InertEdi|
00001b50  74 24 44 69 72 3e 2e 22  2b 66 69 6c 65 24 2b 22  |t$Dir>."+file$+"|
00001b60  20 22 2b c3 7e 6d 61 70  25 2b 22 20 2b 31 36 38  | "+.~map%+" +168|
00001b70  30 30 22 29 0d 0b 04 0e  f1 8a 30 2c 32 34 29 89  |00")......0,24).|
00001b80  33 37 0d 0b 0e 05 e1 0d  0b 18 05 3a 0d 0b 22 0b  |37.........:..".|
00001b90  dd a4 76 61 6c 69 64 0d  0b 2c 0b ea 20 41 25 2c  |..valid..,.. A%,|
00001ba0  58 25 0d 0b 36 07 ea 20  85 0d 0b 40 65 ee 20 85  |X%..6.. ...@e. .|
00001bb0  20 ea 3a e7 9f 3d 36 37  37 38 38 20 8c 20 3d a3  | .:..=67788 . =.|
00001bc0  3a 8b e7 9f 3d 36 37 37  38 32 20 8c f1 8a 33 2c  |:...=67782 ...3,|
00001bd0  33 30 29 22 4e 6f 74 20  65 6e 6f 75 67 68 20 64  |30)"Not enough d|
00001be0  69 73 6b 20 73 70 61 63  65 3a 20 73 74 61 72 74  |isk space: start|
00001bf0  20 61 67 61 69 6e 2e 2e  2e 22 3a ff 28 22 46 58  | again...":.("FX|
00001c00  32 30 30 2c 30 22 29 3a  e0 3a 8b 20 3d a3 0d 0b  |200,0"):.:. =...|
00001c10  4a 22 58 25 3d 8e 28 22  3c 49 6e 65 72 74 45 64  |J"X%=.("<InertEd|
00001c20  69 74 24 44 69 72 3e 2e  22 2b 66 69 6c 65 24 29  |it$Dir>."+file$)|
00001c30  0d 0b 54 0b e7 58 25 3d  30 20 8c 0d 0b 5e 39 ff  |..T..X%=0 ...^9.|
00001c40  28 22 43 52 45 41 54 45  20 3c 49 6e 65 72 74 45  |("CREATE <InertE|
00001c50  64 69 74 24 44 69 72 3e  2e 22 2b 66 69 6c 65 24  |dit$Dir>."+file$|
00001c60  2b 22 20 31 36 38 30 30  20 39 46 30 30 20 39 46  |+" 16800 9F00 9F|
00001c70  30 30 22 29 0d 0b 68 06  3d b9 0d 0b 72 05 cd 0d  |00")..h.=...r...|
00001c80  0b 7c 16 d9 23 58 25 3a  f5 20 f1 8a 33 2c 33 30  |.|..#X%:. ..3,30|
00001c90  29 89 33 35 3b 0d 0b 86  2a f1 8a 33 2c 33 30 29  |).35;...*..3,30)|
00001ca0  22 4f 76 65 72 77 72 69  74 65 20 66 69 6c 65 20  |"Overwrite file |
00001cb0  22 66 69 6c 65 24 22 3f  20 28 59 2f 4e 29 22 0d  |"file$"? (Y/N)".|
00001cc0  0b 90 18 f5 41 25 3d a7  22 59 79 4e 6e 22 2c be  |....A%=."YyNn",.|
00001cd0  29 3a fd 41 25 3e 30 0d  0b 9a 0e e7 41 25 3e 32  |):.A%>0.....A%>2|
00001ce0  20 8c 20 3d a3 0d 0b a4  06 3d b9 0d 0b ae 05 3a  | . =.....=.....:|
00001cf0  0d 0b b8 24 dc 20 31 36  2c 31 38 2c 32 31 2c 32  |...$. 16,18,21,2|
00001d00  32 2c 32 33 2c 32 37 2c  32 38 2c 32 39 2c 33 30  |2,23,27,28,29,30|
00001d10  2c 39 39 39 0d 0b c2 1f  dc 20 35 2c 37 2c 38 2c  |,999..... 5,7,8,|
00001d20  39 2c 31 30 2c 31 31 2c  31 32 2c 31 33 2c 31 34  |9,10,11,12,13,14|
00001d30  2c 31 37 0d 0b cc 1e dc  20 31 2c 36 2c 31 35 2c  |,17..... 1,6,15,|
00001d40  32 34 2c 32 35 2c 32 36  2c 32 30 2c 32 2c 33 2c  |24,25,26,20,2,3,|
00001d50  34 0d ff                                          |4..|
00001d53