� >EdLand
� By Antony Bruce Lytis
� For 32 bit machines
(� (C) BAU January 1993
2:
<
� 13:�
F	�init
Pmaps$="Maps"
Zscenery$="Scenery"
d�init_sbuffer
n�load(�)
x	�edit
��
�:
�� �init
�dir$="H"
�size=16
�maxwid=320 � 16
�maxlen=16384 � size
��set_vars(dir$,size)
�/� sprname$(256),map maxwid*maxlen,buffer 20
�� file$(16),used(256)
�� piece(1),pcol(1)
�pcol()=%000011,%110000
�file$="Scape"

ox=-1:oy=-1


x=-1:y=-1

�

":

,� �set_vars(d$,s)

6menugap=s*1.25

@menusize=320 � menugap

Jsqr=s*4

Txsize=320 � s

^ysize=256 � s

hȎ d$ �

r5 � "H" : across=ysize:xm=maxwid:ym=1:top=across-2

|5 � "V" : across=xsize:xm=1:ym=maxwid:top=across-1

��

��

�:

�� �init_sbuffer

�sbsize=�-�-32768

�� sbuffer sbsize

�!sbuffer=sbsize

�sbuffer!8=16

�!ș "OS_SpriteOp",&109,sbuffer

��

�:

�� �clear_sprites

�!ș "OS_SpriteOp",&109,sbuffer
�
:
� �load_sprites(file$)
&'ș "OS_SpriteOp",&10B,sbuffer,file$
0�
::
D� �sprite_names
N� s=0 � sprites-1
X" sprname$(s)=�sprite_name(s+1)
b�
l�
v:
�� �noof_sprites
�-ș "OS_SpriteOp",&108,sbuffer � ,,,number
�=number
�:
�� �sprite_name(spr)
�9ș "OS_SpriteOp",&10D,sbuffer,buffer,20,spr � ,,,nlen
�buffer?nlen=13
�=$buffer
�:
�� �sprite(spr$,sx,sy)
�,ș "OS_SpriteOp",&122,sbuffer,spr$,sx,sy
��
�:
� �clear_map
� i=0 � maxwid*maxlen-1 � 4
 map!i=0
 �
*�
4:
>� �strip(a$)
Hȕ �a$,1)=" "
R a$=�a$,2)
\�
fȕ �a$,1)=" "
p a$=�a$)
z�
�=a$
�:
�� �find_sprite(spr$)
�spr=sprites
��
� spr-=1
� � spr=0 � spr$=sprname$(spr)
�� spr$=sprname$(spr) � =spr
�#� 1,"Unknown sprite '"+spr$+"'"
�:
�
� �lo(a$)
�	b$=""
�� lo=1 � �a$
 c$=�a$,lo,1)
% � c$>="A" � c$<="Z" c$=�(�c$+32)
 b$+=c$
$�
.=b$
8:
B
� �screen
L
Ȏ dir$ �
V � "H":
`  � col=0 � xsize-1
j   �column(xpos+col)
t  �
~ � "V":
�  � row=0 � ysize-1
�   �row(ypos+row)
�  �
��
��
�:
�� �column(column)
�� i=0 � ysize-2
� �square(column,i)
��
��
�:
� �row(row)

� i=0 � xsize-1
 �square(i,row)
�
(�
2:
<� �poke(px,py,poke)
Fmap?(px*xm+py*ym)=poke
P�
Z:
d� �square(sx,sy)
nF�sprite(sprname$(map?(sx*xm+sy*ym)),(sx-xpos)*sqr,(sy-ypos+1)*sqr)
x�
�:
�� �menu(start)
�i=0
��
� �menu_piece(start+i,i)
�	 i+=1
�#� i=menusize � start+i>=sprites
��
�:
�� �menu_piece(mp,at)
�/�sprite(sprname$(mp),at*menugap*4+size/2,0)
��
�:
� �clear_menu
	� 128
� 24,0;0;1279;sqr-4;16,26
"�
,:
6� �piece(num)
@off=piece(num)-sprpos
J� off>=0 � off<menusize �
T � 3,pcol(num)
^* ȓ off*menugap*4+size/2,0,sqr-4,sqr-4
h�
r�
|:
�� �curs(cx,cy)
�� cx<0 � cy<0 �
�
� 3,63
�$ȓ cx*sqr,(cy+1)*sqr,sqr-4,sqr-4
��
�:
�� �edit
�ȗ �
�
last=0
�
held=�
��
� ȗ mx,my,z
� y=(my � sqr)-1
 x=mx � sqr
 Ȏ y �

 � -1:
&!  � (last=1 � z=0) � last=2 �
0   � last=1 �curs(ox,oy)
:   ox=-1
D   oy=-1
N
   last=2
X   � z<>0 �
b    x=mx � (size/2)
l    piece=x � 10
v    pos=x � 10
�    � pos>0 � pos<9 �
�+     � z � 4 �new_piece(0,sprpos+piece)
�+     � z � 1 �new_piece(1,sprpos+piece)
�     held=�
�	    �
�     � z � 2 �
�      �slide_menu
�
     �
�      but=0
�      dir=0
�      � z � 4 but=1
�      � z � 1 but=-1
�"      � piece=0 � pos=0 dir=-1
*      � piece=menusize-1 � pos=9 dir=1
!      �scroll_pieces(dir*but)

     �
 	    �
*   �
4  �
> :
H  � z � 2 �
R   �curs(ox,oy)
\   ox=-1:oy=-1
f   Ȏ dir$ �
p    � "H" : �slide_H
z    � "V" : �slide_V
�   �
�  �
�   � x<>ox � y<>oy �
�    �curs(ox,oy)
�    �curs(x,y)
�    ox=x
�    oy=y
�    last=1
�   �
�   � z=0 �
�    held=�
�   �
�    � � held �
	!     � z � 4 �place(piece(0))
	!     � z � 1 �place(piece(1))
		    �
	$   �
	.  �
	8 �
	B	 k=�0
	L Ȏ k �
	V  � 3 :
	`  � 19 : �save
	j  � 12 : �load(�)
	t �
	~� �
	��
	�:
	�� �new_piece(num,clicked)
	�E� clicked<>piece(num) � clicked<>piece(1-num) � clicked<sprites �
	� �piece(num)
	� piece(num)=clicked
	� �piece(num)
	��
	��
	�:
	�� �place(piece)
	�� piece<0 piece=0
�poke(xpos+x,ypos+y,piece)

�square(xpos+x,ypos+y)
�curs(x,y)
�
(:
2� �scroll_pieces(dir)
<?� sprpos+dir<0 � sprpos+menusize-1+dir>=sprites � �dir<>1 �
F� scroll=0 � menugap-1 � 4
P Ȗ
Z% ȓ Ȑ 0,0,1279,sqr-4 � -dir*16,0
d�
nsprpos+=dir
xȎ dir �
� � -1: at=0
� �  1: at=menusize-1
��
��menu_piece(sprpos+at,at)
�"� sprpos+at=piece(0) �piece(0)
�"� sprpos+at=piece(1) �piece(1)
��
�:
�� �slide_H
�ȗ �
�ȗ ȓ -2000,0,4000,0
�ȗ � 0,0
��
 �
  ȗ sx,sy,sz
  slide=sx � sqr
" � sz=0 � slide<>0
, mx+=sx
6
 ȗ � 0,0
@ � slide<>0 �
J3  � xpos-slide>=0 � xpos+xsize-1-slide<maxlen �
T0   ȓ Ȑ 0,sqr,1279,1023-sqr � slide*sqr,sqr
^   xpos-=slide
h,   � slide>0 first=0 � first=xsize+slide
r   � col=0 � �(slide)-1
|    �column(xpos+first+col)
�   �
�  �
� �
�
� sz=0
�� mx<0 mx=0
�� mx>1279 mx=1279
�ȗ ȓ 0,0,1279,1023
�ȗ � mx,my
�ȗ �
��
�:
�� �slide_V
�ȗ �
ȗ ȓ 0,-2000,0,4000
ȗ � 0,0
� 24,0;sqr;1279;1023;
&�
0 �
:  ȗ sx,sy,sz
D  slide=sy � sqr
N � sz=0 � slide<>0
X my+=sy
b
 ȗ � 0,0
l � slide<>0 �
v3  � ypos-slide>=0 � ypos+ysize-1-slide<maxlen �
�2   ȓ Ȑ 0,sqr,1279,1023-sqr � 0,sqr+slide*sqr
�   ypos-=slide
�.   � slide>0 first=0 � first=ysize-1+slide
�   � row=0 � �(slide)-1
�)    �row(ypos+first+row):�,first+row)
�   �
�  �
� �
�
� sz=0
�� my<0 my=0
�� my>1023 my=1023
�� 26
�ȗ ȓ 0,0,1279,1023

ȗ � mx,my

ȗ �

�

 :

*� �slide_menu

4ȗ �

>ȗ ȓ -2000,0,4000,0

Hȗ � 0,0

R�piece(0):�piece(1)

\�

f �

p  ȗ sx,sy,sz

z  slide=sx � 64

� � sz=0 � slide<>0

� mx+=sx

�
 ȗ � 0,0

� � slide<>0 �

�;  � sprpos-slide>=0 � sprpos+menusize-1-slide<sprites �

�/   ȓ Ȑ 0,0,1279,sqr-4 � slide*menugap*4,0

�   sprpos-=slide

�/   � slide>0 first=0 � first=menusize+slide

�   � p=0 � �(slide)-1

�+    �menu_piece(sprpos+first+p,first+p)

�   �

�  �

� �

� sz=0
� mx<0 mx=0
� mx>1279 mx=1279
$ȗ ȓ 0,0,1279,1023
.ȗ � mx,my
8ȗ �
B�piece(0):�piece(1)
L�
V:
`� �save
j�clear_menu
t�curs(ox,oy)
~� 30:*Cat Maps
� new$=�input("Save : ",file$)
�� new$<>"" �
� length=�length
� �find_used
� file$=new$
�) ș "OS_File",11,maps$+"."+file$,&FFF
� out=�(maps$+"."+file$)
� �w("; >"+maps$+"."+file$)
� �w("; "+�$)
� �w("")
� �w("Type:")
� �w("  "+dir$+�(size))
 �w("")

 �w("Files:")
 � i=0 � files-1
  �w("  "+file$(i))
( �
2 �w("")
< �w("Used:")
F � i=0 � 255
P  � used(i)>=0 �
Z2   �w("  "+�"00"+�~used(i),2)+" "+sprname$(i))
d  �
n �
x �w("")
� �w("Map:")
� off=map
� � w=0 � length-1
�
  out$=""
�  � i=0 � top
�%   out$+=�"00"+�~(used(off?i)),2)
�  �
�  z$=ĩout$,"0")
�  �
�   z$=�z$,3)
�   z=�out$,z$)
�  � z$="" � (z � 2)=1
�.  � �z$>0 out$=�out$,z-1)+"-"+�out$,z+�z$)
  �w("  "+out$)
  off+=maxwid
 �
" � #out
,�
6�screen
@�curs(x,y)
J�clear_menu
T�menu(sprpos)
^�piece(0):�piece(1)
h�
r:
|� �w(o$)
�� #out,o$+�10;
��
�:
�� �input(prompt$,ins$)
�"�4,30);prompt$;�10;�10,�127);
�� i=1 � �ins$
�# ș "OS_Byte",138,0,��ins$,i,1)
��
��
�	a$=""
�*FX229,1
��
� c=�
' � c>32 � c<127 � �a$<10 a$+=�c:� c
# � c=127 � a$<>"" a$=�a$):� 127
# � c=27 � �-1 ș 6,229:ș 6,125
&% � c=27 � c=21 �ĩa$,�127);:a$=""
0� c=13 � c=27
:�
D*FX229,0
N=a$
X:
b
� �length
lw=maxlen
v�
�	 w-=1
�� w=0 � �not_blank(w)
�=w+1
�:
�� �not_blank(c)
�	nb=-4
��
�
 nb+=4
�#� nb>top � map!(c*maxwid+nb)<>0
�=(map!(c*maxwid+nb)<>0)
�:
�� �find_used
�
used()=-1

used(0)=0

next=1
� i=0 � length-1
  � j=0 � across-1
*  k=map?(i*maxwid+j)
4&  � used(k)<0 used(k)=next:next+=1
> �
H�
R�
\:
f� �load(force)
p�clear_menu
z�curs(ox,oy)
�� 30:*Cat Maps
��
�! new$=�input("Load : ",file$)
� � new$<>"" �
�  ok=�ok(maps$+"."+new$)
� �
�  ok=� force
� �
�� ok
�� new$<>"" �
� file$=new$
� in=�("Maps."+file$)
�
 mode$=""
 �
  �
   in$=�strip(�#in)
$'  � �#in � (�in$,1)<>";" � in$<>"")
.  � in$<>"" �
8   � �in$,1)=":" �
B    mode$=in$
L    Ȏ mode$ �
V     � "Type:":
`      � nothing
j     � "Files:":
t      files=0
~      �clear_sprites
�     � "Used:":
�      sprites=�noof_sprites
�      �sprite_names
�      used()=-1
�     � "Map:"
�      �clear_map
�      store=map
�	    �
�   �
�    Ȏ mode$ �
�     � "Type:"
�      dir$=�in$,1)
      size=��in$,2)

      �set_vars(dir$,size)
     � "Files:"
'      �load_sprites("Scenery."+in$)
(      file$(files)=in$
2      files+=1
<     � "Used:"
F      spc=�in$," ")
P      spr=�("&"+�in$,2))
Z2      used(spr)=�find_sprite(�lo(�in$,spc+1)))
d     � "Map:"
n       � �in$,"-")=0 in$+="-"
x
      i=0
�      ȕ �in$,1)<>"-"
�'       store?i=used(�("&"+�in$,2)))
�       i+=1
�       in$=�in$,3)
�      �
�      in$=�in$,2)
�      i=top
�      ȕ in$<>""
�'       store?i=used(�("&"+�in$,2)))
�       i-=1
�       in$=�in$,�in$-2)
�      �
�      store+=maxwid
	    �
   �
  �
" � �#in
,
 � #in
67 ș "OS_SpriteOp",&128,sbuffer,"blank" � ,,,,,,mode
@ � �<>mode � mode:�
J � mode=9 �
T9  ș "OS_SpriteOp",&118,sbuffer,"palette" � ,,pal_spr
^  pal_dat=pal_spr+44
h  � i=0 � 15
r   a=pal_dat+8*i
|   � i,a?1,a?2,a?3
�  �
� �
� piece()=0,-1
� xpos=0
� ypos=0
�
 sprpos=0
��
��screen
��clear_menu
��menu(sprpos)
��piece(0):�piece(1)
��curs(x,y)
��
:

� �ok(f$)
ș "OS_File",5,f$ � type
&
=(type=1)
�

00000000  0d 00 0a 0d f4 20 3e 45  64 4c 61 6e 64 0d 00 14  |..... >EdLand...|
00000010  1b f4 20 42 79 20 41 6e  74 6f 6e 79 20 42 72 75  |.. By Antony Bru|
00000020  63 65 20 4c 79 74 69 73  0d 00 1e 19 f4 20 46 6f  |ce Lytis..... Fo|
00000030  72 20 33 32 20 62 69 74  20 6d 61 63 68 69 6e 65  |r 32 bit machine|
00000040  73 0d 00 28 1a f4 20 28  43 29 20 42 41 55 20 4a  |s..(.. (C) BAU J|
00000050  61 6e 75 61 72 79 20 31  39 39 33 0d 00 32 05 3a  |anuary 1993..2.:|
00000060  0d 00 3c 0a eb 20 31 33  3a 87 0d 00 46 09 f2 69  |..<.. 13:...F..i|
00000070  6e 69 74 0d 00 50 10 6d  61 70 73 24 3d 22 4d 61  |nit..P.maps$="Ma|
00000080  70 73 22 0d 00 5a 16 73  63 65 6e 65 72 79 24 3d  |ps"..Z.scenery$=|
00000090  22 53 63 65 6e 65 72 79  22 0d 00 64 11 f2 69 6e  |"Scenery"..d..in|
000000a0  69 74 5f 73 62 75 66 66  65 72 0d 00 6e 0c f2 6c  |it_sbuffer..n..l|
000000b0  6f 61 64 28 b9 29 0d 00  78 09 f2 65 64 69 74 0d  |oad(.)..x..edit.|
000000c0  00 82 05 e0 0d 00 8c 05  3a 0d 00 96 0b dd 20 f2  |........:..... .|
000000d0  69 6e 69 74 0d 00 a0 0c  64 69 72 24 3d 22 48 22  |init....dir$="H"|
000000e0  0d 00 aa 0b 73 69 7a 65  3d 31 36 0d 00 b4 13 6d  |....size=16....m|
000000f0  61 78 77 69 64 3d 33 32  30 20 81 20 31 36 0d 00  |axwid=320 . 16..|
00000100  be 17 6d 61 78 6c 65 6e  3d 31 36 33 38 34 20 81  |..maxlen=16384 .|
00000110  20 73 69 7a 65 0d 00 c8  18 f2 73 65 74 5f 76 61  | size.....set_va|
00000120  72 73 28 64 69 72 24 2c  73 69 7a 65 29 0d 00 d2  |rs(dir$,size)...|
00000130  2f de 20 73 70 72 6e 61  6d 65 24 28 32 35 36 29  |/. sprname$(256)|
00000140  2c 6d 61 70 20 6d 61 78  77 69 64 2a 6d 61 78 6c  |,map maxwid*maxl|
00000150  65 6e 2c 62 75 66 66 65  72 20 32 30 0d 00 dc 19  |en,buffer 20....|
00000160  de 20 66 69 6c 65 24 28  31 36 29 2c 75 73 65 64  |. file$(16),used|
00000170  28 32 35 36 29 0d 00 e6  16 de 20 70 69 65 63 65  |(256)..... piece|
00000180  28 31 29 2c 70 63 6f 6c  28 31 29 0d 00 f0 1a 70  |(1),pcol(1)....p|
00000190  63 6f 6c 28 29 3d 25 30  30 30 30 31 31 2c 25 31  |col()=%000011,%1|
000001a0  31 30 30 30 30 0d 00 fa  11 66 69 6c 65 24 3d 22  |10000....file$="|
000001b0  53 63 61 70 65 22 0d 01  04 0f 6f 78 3d 2d 31 3a  |Scape"....ox=-1:|
000001c0  6f 79 3d 2d 31 0d 01 0e  0d 78 3d 2d 31 3a 79 3d  |oy=-1....x=-1:y=|
000001d0  2d 31 0d 01 18 05 e1 0d  01 22 05 3a 0d 01 2c 15  |-1.......".:..,.|
000001e0  dd 20 f2 73 65 74 5f 76  61 72 73 28 64 24 2c 73  |. .set_vars(d$,s|
000001f0  29 0d 01 36 12 6d 65 6e  75 67 61 70 3d 73 2a 31  |)..6.menugap=s*1|
00000200  2e 32 35 0d 01 40 1a 6d  65 6e 75 73 69 7a 65 3d  |.25..@.menusize=|
00000210  33 32 30 20 81 20 6d 65  6e 75 67 61 70 0d 01 4a  |320 . menugap..J|
00000220  0b 73 71 72 3d 73 2a 34  0d 01 54 11 78 73 69 7a  |.sqr=s*4..T.xsiz|
00000230  65 3d 33 32 30 20 81 20  73 0d 01 5e 11 79 73 69  |e=320 . s..^.ysi|
00000240  7a 65 3d 32 35 36 20 81  20 73 0d 01 68 0b c8 8e  |ze=256 . s..h...|
00000250  20 64 24 20 ca 0d 01 72  35 20 c9 20 22 48 22 20  | d$ ...r5 . "H" |
00000260  3a 20 61 63 72 6f 73 73  3d 79 73 69 7a 65 3a 78  |: across=ysize:x|
00000270  6d 3d 6d 61 78 77 69 64  3a 79 6d 3d 31 3a 74 6f  |m=maxwid:ym=1:to|
00000280  70 3d 61 63 72 6f 73 73  2d 32 0d 01 7c 35 20 c9  |p=across-2..|5 .|
00000290  20 22 56 22 20 3a 20 61  63 72 6f 73 73 3d 78 73  | "V" : across=xs|
000002a0  69 7a 65 3a 78 6d 3d 31  3a 79 6d 3d 6d 61 78 77  |ize:xm=1:ym=maxw|
000002b0  69 64 3a 74 6f 70 3d 61  63 72 6f 73 73 2d 31 0d  |id:top=across-1.|
000002c0  01 86 05 cb 0d 01 90 05  e1 0d 01 9a 05 3a 0d 01  |.............:..|
000002d0  a4 13 dd 20 f2 69 6e 69  74 5f 73 62 75 66 66 65  |... .init_sbuffe|
000002e0  72 0d 01 ae 14 73 62 73  69 7a 65 3d 93 2d e0 2d  |r....sbsize=.-.-|
000002f0  33 32 37 36 38 0d 01 b8  14 de 20 73 62 75 66 66  |32768..... sbuff|
00000300  65 72 20 73 62 73 69 7a  65 0d 01 c2 13 21 73 62  |er sbsize....!sb|
00000310  75 66 66 65 72 3d 73 62  73 69 7a 65 0d 01 cc 10  |uffer=sbsize....|
00000320  73 62 75 66 66 65 72 21  38 3d 31 36 0d 01 d6 21  |sbuffer!8=16...!|
00000330  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
00000340  2c 26 31 30 39 2c 73 62  75 66 66 65 72 0d 01 e0  |,&109,sbuffer...|
00000350  05 e1 0d 01 ea 05 3a 0d  01 f4 14 dd 20 f2 63 6c  |......:..... .cl|
00000360  65 61 72 5f 73 70 72 69  74 65 73 0d 01 fe 21 c8  |ear_sprites...!.|
00000370  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
00000380  26 31 30 39 2c 73 62 75  66 66 65 72 0d 02 08 05  |&109,sbuffer....|
00000390  e1 0d 02 12 05 3a 0d 02  1c 1a dd 20 f2 6c 6f 61  |.....:..... .loa|
000003a0  64 5f 73 70 72 69 74 65  73 28 66 69 6c 65 24 29  |d_sprites(file$)|
000003b0  0d 02 26 27 c8 99 20 22  4f 53 5f 53 70 72 69 74  |..&'.. "OS_Sprit|
000003c0  65 4f 70 22 2c 26 31 30  42 2c 73 62 75 66 66 65  |eOp",&10B,sbuffe|
000003d0  72 2c 66 69 6c 65 24 0d  02 30 05 e1 0d 02 3a 05  |r,file$..0....:.|
000003e0  3a 0d 02 44 13 dd 20 f2  73 70 72 69 74 65 5f 6e  |:..D.. .sprite_n|
000003f0  61 6d 65 73 0d 02 4e 15  e3 20 73 3d 30 20 b8 20  |ames..N.. s=0 . |
00000400  73 70 72 69 74 65 73 2d  31 0d 02 58 22 20 73 70  |sprites-1..X" sp|
00000410  72 6e 61 6d 65 24 28 73  29 3d a4 73 70 72 69 74  |rname$(s)=.sprit|
00000420  65 5f 6e 61 6d 65 28 73  2b 31 29 0d 02 62 05 ed  |e_name(s+1)..b..|
00000430  0d 02 6c 05 e1 0d 02 76  05 3a 0d 02 80 13 dd 20  |..l....v.:..... |
00000440  a4 6e 6f 6f 66 5f 73 70  72 69 74 65 73 0d 02 8a  |.noof_sprites...|
00000450  2d c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |-.. "OS_SpriteOp|
00000460  22 2c 26 31 30 38 2c 73  62 75 66 66 65 72 20 b8  |",&108,sbuffer .|
00000470  20 2c 2c 2c 6e 75 6d 62  65 72 0d 02 94 0b 3d 6e  | ,,,number....=n|
00000480  75 6d 62 65 72 0d 02 9e  05 3a 0d 02 a8 17 dd 20  |umber....:..... |
00000490  a4 73 70 72 69 74 65 5f  6e 61 6d 65 28 73 70 72  |.sprite_name(spr|
000004a0  29 0d 02 b2 39 c8 99 20  22 4f 53 5f 53 70 72 69  |)...9.. "OS_Spri|
000004b0  74 65 4f 70 22 2c 26 31  30 44 2c 73 62 75 66 66  |teOp",&10D,sbuff|
000004c0  65 72 2c 62 75 66 66 65  72 2c 32 30 2c 73 70 72  |er,buffer,20,spr|
000004d0  20 b8 20 2c 2c 2c 6e 6c  65 6e 0d 02 bc 12 62 75  | . ,,,nlen....bu|
000004e0  66 66 65 72 3f 6e 6c 65  6e 3d 31 33 0d 02 c6 0c  |ffer?nlen=13....|
000004f0  3d 24 62 75 66 66 65 72  0d 02 d0 05 3a 0d 02 da  |=$buffer....:...|
00000500  19 dd 20 f2 73 70 72 69  74 65 28 73 70 72 24 2c  |.. .sprite(spr$,|
00000510  73 78 2c 73 79 29 0d 02  e4 2c c8 99 20 22 4f 53  |sx,sy)...,.. "OS|
00000520  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 32 32 2c  |_SpriteOp",&122,|
00000530  73 62 75 66 66 65 72 2c  73 70 72 24 2c 73 78 2c  |sbuffer,spr$,sx,|
00000540  73 79 0d 02 ee 05 e1 0d  02 f8 05 3a 0d 03 02 10  |sy.........:....|
00000550  dd 20 f2 63 6c 65 61 72  5f 6d 61 70 0d 03 0c 1f  |. .clear_map....|
00000560  e3 20 69 3d 30 20 b8 20  6d 61 78 77 69 64 2a 6d  |. i=0 . maxwid*m|
00000570  61 78 6c 65 6e 2d 31 20  88 20 34 0d 03 16 0c 20  |axlen-1 . 4.... |
00000580  6d 61 70 21 69 3d 30 0d  03 20 05 ed 0d 03 2a 05  |map!i=0.. ....*.|
00000590  e1 0d 03 34 05 3a 0d 03  3e 10 dd 20 a4 73 74 72  |...4.:..>.. .str|
000005a0  69 70 28 61 24 29 0d 03  48 11 c8 95 20 c0 61 24  |ip(a$)..H... .a$|
000005b0  2c 31 29 3d 22 20 22 0d  03 52 0e 20 61 24 3d c1  |,1)=" "..R. a$=.|
000005c0  61 24 2c 32 29 0d 03 5c  05 ce 0d 03 66 11 c8 95  |a$,2)..\....f...|
000005d0  20 c2 61 24 2c 31 29 3d  22 20 22 0d 03 70 0c 20  | .a$,1)=" "..p. |
000005e0  61 24 3d c0 61 24 29 0d  03 7a 05 ce 0d 03 84 07  |a$=.a$)..z......|
000005f0  3d 61 24 0d 03 8e 05 3a  0d 03 98 18 dd 20 a4 66  |=a$....:..... .f|
00000600  69 6e 64 5f 73 70 72 69  74 65 28 73 70 72 24 29  |ind_sprite(spr$)|
00000610  0d 03 a2 0f 73 70 72 3d  73 70 72 69 74 65 73 0d  |....spr=sprites.|
00000620  03 ac 05 f5 0d 03 b6 0b  20 73 70 72 2d 3d 31 0d  |........ spr-=1.|
00000630  03 c0 20 fd 20 73 70 72  3d 30 20 84 20 73 70 72  |.. . spr=0 . spr|
00000640  24 3d 73 70 72 6e 61 6d  65 24 28 73 70 72 29 0d  |$=sprname$(spr).|
00000650  03 ca 1f e7 20 73 70 72  24 3d 73 70 72 6e 61 6d  |.... spr$=sprnam|
00000660  65 24 28 73 70 72 29 20  8c 20 3d 73 70 72 0d 03  |e$(spr) . =spr..|
00000670  d4 23 85 20 31 2c 22 55  6e 6b 6e 6f 77 6e 20 73  |.#. 1,"Unknown s|
00000680  70 72 69 74 65 20 27 22  2b 73 70 72 24 2b 22 27  |prite '"+spr$+"'|
00000690  22 0d 03 de 05 3a 0d 03  e8 0d dd 20 a4 6c 6f 28  |"....:..... .lo(|
000006a0  61 24 29 0d 03 f2 09 62  24 3d 22 22 0d 03 fc 10  |a$)....b$=""....|
000006b0  e3 20 6c 6f 3d 31 20 b8  20 a9 61 24 0d 04 06 11  |. lo=1 . .a$....|
000006c0  20 63 24 3d c1 61 24 2c  6c 6f 2c 31 29 0d 04 10  | c$=.a$,lo,1)...|
000006d0  25 20 e7 20 63 24 3e 3d  22 41 22 20 80 20 63 24  |% . c$>="A" . c$|
000006e0  3c 3d 22 5a 22 20 63 24  3d bd 28 97 63 24 2b 33  |<="Z" c$=.(.c$+3|
000006f0  32 29 0d 04 1a 0b 20 62  24 2b 3d 63 24 0d 04 24  |2).... b$+=c$..$|
00000700  05 ed 0d 04 2e 07 3d 62  24 0d 04 38 05 3a 0d 04  |......=b$..8.:..|
00000710  42 0d dd 20 f2 73 63 72  65 65 6e 0d 04 4c 0d c8  |B.. .screen..L..|
00000720  8e 20 64 69 72 24 20 ca  0d 04 56 0b 20 c9 20 22  |. dir$ ...V. . "|
00000730  48 22 3a 0d 04 60 17 20  20 e3 20 63 6f 6c 3d 30  |H":..`.  . col=0|
00000740  20 b8 20 78 73 69 7a 65  2d 31 0d 04 6a 18 20 20  | . xsize-1..j.  |
00000750  20 f2 63 6f 6c 75 6d 6e  28 78 70 6f 73 2b 63 6f  | .column(xpos+co|
00000760  6c 29 0d 04 74 07 20 20  ed 0d 04 7e 0b 20 c9 20  |l)..t.  ...~. . |
00000770  22 56 22 3a 0d 04 88 17  20 20 e3 20 72 6f 77 3d  |"V":....  . row=|
00000780  30 20 b8 20 79 73 69 7a  65 2d 31 0d 04 92 15 20  |0 . ysize-1.... |
00000790  20 20 f2 72 6f 77 28 79  70 6f 73 2b 72 6f 77 29  |  .row(ypos+row)|
000007a0  0d 04 9c 07 20 20 ed 0d  04 a6 05 cb 0d 04 b0 05  |....  ..........|
000007b0  e1 0d 04 ba 05 3a 0d 04  c4 15 dd 20 f2 63 6f 6c  |.....:..... .col|
000007c0  75 6d 6e 28 63 6f 6c 75  6d 6e 29 0d 04 ce 13 e3  |umn(column).....|
000007d0  20 69 3d 30 20 b8 20 79  73 69 7a 65 2d 32 0d 04  | i=0 . ysize-2..|
000007e0  d8 16 20 f2 73 71 75 61  72 65 28 63 6f 6c 75 6d  |.. .square(colum|
000007f0  6e 2c 69 29 0d 04 e2 05  ed 0d 04 ec 05 e1 0d 04  |n,i)............|
00000800  f6 05 3a 0d 05 00 0f dd  20 f2 72 6f 77 28 72 6f  |..:..... .row(ro|
00000810  77 29 0d 05 0a 13 e3 20  69 3d 30 20 b8 20 78 73  |w)..... i=0 . xs|
00000820  69 7a 65 2d 31 0d 05 14  13 20 f2 73 71 75 61 72  |ize-1.... .squar|
00000830  65 28 69 2c 72 6f 77 29  0d 05 1e 05 ed 0d 05 28  |e(i,row).......(|
00000840  05 e1 0d 05 32 05 3a 0d  05 3c 17 dd 20 f2 70 6f  |....2.:..<.. .po|
00000850  6b 65 28 70 78 2c 70 79  2c 70 6f 6b 65 29 0d 05  |ke(px,py,poke)..|
00000860  46 1a 6d 61 70 3f 28 70  78 2a 78 6d 2b 70 79 2a  |F.map?(px*xm+py*|
00000870  79 6d 29 3d 70 6f 6b 65  0d 05 50 05 e1 0d 05 5a  |ym)=poke..P....Z|
00000880  05 3a 0d 05 64 14 dd 20  f2 73 71 75 61 72 65 28  |.:..d.. .square(|
00000890  73 78 2c 73 79 29 0d 05  6e 46 f2 73 70 72 69 74  |sx,sy)..nF.sprit|
000008a0  65 28 73 70 72 6e 61 6d  65 24 28 6d 61 70 3f 28  |e(sprname$(map?(|
000008b0  73 78 2a 78 6d 2b 73 79  2a 79 6d 29 29 2c 28 73  |sx*xm+sy*ym)),(s|
000008c0  78 2d 78 70 6f 73 29 2a  73 71 72 2c 28 73 79 2d  |x-xpos)*sqr,(sy-|
000008d0  79 70 6f 73 2b 31 29 2a  73 71 72 29 0d 05 78 05  |ypos+1)*sqr)..x.|
000008e0  e1 0d 05 82 05 3a 0d 05  8c 12 dd 20 f2 6d 65 6e  |.....:..... .men|
000008f0  75 28 73 74 61 72 74 29  0d 05 96 07 69 3d 30 0d  |u(start)....i=0.|
00000900  05 a0 05 f5 0d 05 aa 1b  20 f2 6d 65 6e 75 5f 70  |........ .menu_p|
00000910  69 65 63 65 28 73 74 61  72 74 2b 69 2c 69 29 0d  |iece(start+i,i).|
00000920  05 b4 09 20 69 2b 3d 31  0d 05 be 23 fd 20 69 3d  |... i+=1...#. i=|
00000930  6d 65 6e 75 73 69 7a 65  20 84 20 73 74 61 72 74  |menusize . start|
00000940  2b 69 3e 3d 73 70 72 69  74 65 73 0d 05 c8 05 e1  |+i>=sprites.....|
00000950  0d 05 d2 05 3a 0d 05 dc  18 dd 20 f2 6d 65 6e 75  |....:..... .menu|
00000960  5f 70 69 65 63 65 28 6d  70 2c 61 74 29 0d 05 e6  |_piece(mp,at)...|
00000970  2f f2 73 70 72 69 74 65  28 73 70 72 6e 61 6d 65  |/.sprite(sprname|
00000980  24 28 6d 70 29 2c 61 74  2a 6d 65 6e 75 67 61 70  |$(mp),at*menugap|
00000990  2a 34 2b 73 69 7a 65 2f  32 2c 30 29 0d 05 f0 05  |*4+size/2,0)....|
000009a0  e1 0d 05 fa 05 3a 0d 06  04 11 dd 20 f2 63 6c 65  |.....:..... .cle|
000009b0  61 72 5f 6d 65 6e 75 0d  06 0e 09 e6 20 31 32 38  |ar_menu..... 128|
000009c0  0d 06 18 1d ef 20 32 34  2c 30 3b 30 3b 31 32 37  |..... 24,0;0;127|
000009d0  39 3b 73 71 72 2d 34 3b  31 36 2c 32 36 0d 06 22  |9;sqr-4;16,26.."|
000009e0  05 e1 0d 06 2c 05 3a 0d  06 36 11 dd 20 f2 70 69  |....,.:..6.. .pi|
000009f0  65 63 65 28 6e 75 6d 29  0d 06 40 19 6f 66 66 3d  |ece(num)..@.off=|
00000a00  70 69 65 63 65 28 6e 75  6d 29 2d 73 70 72 70 6f  |piece(num)-sprpo|
00000a10  73 0d 06 4a 1d e7 20 6f  66 66 3e 3d 30 20 80 20  |s..J.. off>=0 . |
00000a20  6f 66 66 3c 6d 65 6e 75  73 69 7a 65 20 8c 0d 06  |off<menusize ...|
00000a30  54 12 20 e6 20 33 2c 70  63 6f 6c 28 6e 75 6d 29  |T. . 3,pcol(num)|
00000a40  0d 06 5e 2a 20 c8 93 20  6f 66 66 2a 6d 65 6e 75  |..^* .. off*menu|
00000a50  67 61 70 2a 34 2b 73 69  7a 65 2f 32 2c 30 2c 73  |gap*4+size/2,0,s|
00000a60  71 72 2d 34 2c 73 71 72  2d 34 0d 06 68 05 cd 0d  |qr-4,sqr-4..h...|
00000a70  06 72 05 e1 0d 06 7c 05  3a 0d 06 86 12 dd 20 f2  |.r....|.:..... .|
00000a80  63 75 72 73 28 63 78 2c  63 79 29 0d 06 90 13 e7  |curs(cx,cy).....|
00000a90  20 63 78 3c 30 20 84 20  63 79 3c 30 20 e1 0d 06  | cx<0 . cy<0 ...|
00000aa0  9a 0a e6 20 33 2c 36 33  0d 06 a4 24 c8 93 20 63  |... 3,63...$.. c|
00000ab0  78 2a 73 71 72 2c 28 63  79 2b 31 29 2a 73 71 72  |x*sqr,(cy+1)*sqr|
00000ac0  2c 73 71 72 2d 34 2c 73  71 72 2d 34 0d 06 ae 05  |,sqr-4,sqr-4....|
00000ad0  e1 0d 06 b8 05 3a 0d 06  c2 0b dd 20 f2 65 64 69  |.....:..... .edi|
00000ae0  74 0d 06 cc 08 c8 97 20  ee 0d 06 d6 0a 6c 61 73  |t...... .....las|
00000af0  74 3d 30 0d 06 e0 0a 68  65 6c 64 3d b9 0d 06 ea  |t=0....held=....|
00000b00  05 f5 0d 06 f4 0f 20 c8  97 20 6d 78 2c 6d 79 2c  |...... .. mx,my,|
00000b10  7a 0d 06 fe 13 20 79 3d  28 6d 79 20 81 20 73 71  |z.... y=(my . sq|
00000b20  72 29 2d 31 0d 07 08 0f  20 78 3d 6d 78 20 81 20  |r)-1.... x=mx . |
00000b30  73 71 72 0d 07 12 0b 20  c8 8e 20 79 20 ca 0d 07  |sqr.... .. y ...|
00000b40  1c 0a 20 c9 20 2d 31 3a  0d 07 26 21 20 20 e7 20  |.. . -1:..&!  . |
00000b50  28 6c 61 73 74 3d 31 20  80 20 7a 3d 30 29 20 84  |(last=1 . z=0) .|
00000b60  20 6c 61 73 74 3d 32 20  8c 0d 07 30 1c 20 20 20  | last=2 ...0.   |
00000b70  e7 20 6c 61 73 74 3d 31  20 f2 63 75 72 73 28 6f  |. last=1 .curs(o|
00000b80  78 2c 6f 79 29 0d 07 3a  0c 20 20 20 6f 78 3d 2d  |x,oy)..:.   ox=-|
00000b90  31 0d 07 44 0c 20 20 20  6f 79 3d 2d 31 0d 07 4e  |1..D.   oy=-1..N|
00000ba0  0d 20 20 20 6c 61 73 74  3d 32 0d 07 58 0f 20 20  |.   last=2..X.  |
00000bb0  20 e7 20 7a 3c 3e 30 20  8c 0d 07 62 17 20 20 20  | . z<>0 ...b.   |
00000bc0  20 78 3d 6d 78 20 81 20  28 73 69 7a 65 2f 32 29  | x=mx . (size/2)|
00000bd0  0d 07 6c 14 20 20 20 20  70 69 65 63 65 3d 78 20  |..l.    piece=x |
00000be0  81 20 31 30 0d 07 76 12  20 20 20 20 70 6f 73 3d  |. 10..v.    pos=|
00000bf0  78 20 83 20 31 30 0d 07  80 19 20 20 20 20 e7 20  |x . 10....    . |
00000c00  70 6f 73 3e 30 20 80 20  70 6f 73 3c 39 20 8c 0d  |pos>0 . pos<9 ..|
00000c10  07 8a 2b 20 20 20 20 20  e7 20 7a 20 80 20 34 20  |..+     . z . 4 |
00000c20  f2 6e 65 77 5f 70 69 65  63 65 28 30 2c 73 70 72  |.new_piece(0,spr|
00000c30  70 6f 73 2b 70 69 65 63  65 29 0d 07 94 2b 20 20  |pos+piece)...+  |
00000c40  20 20 20 e7 20 7a 20 80  20 31 20 f2 6e 65 77 5f  |   . z . 1 .new_|
00000c50  70 69 65 63 65 28 31 2c  73 70 72 70 6f 73 2b 70  |piece(1,sprpos+p|
00000c60  69 65 63 65 29 0d 07 9e  0f 20 20 20 20 20 68 65  |iece)....     he|
00000c70  6c 64 3d b9 0d 07 a8 09  20 20 20 20 cc 0d 07 b2  |ld=.....    ....|
00000c80  12 20 20 20 20 20 e7 20  7a 20 80 20 32 20 8c 0d  |.     . z . 2 ..|
00000c90  07 bc 15 20 20 20 20 20  20 f2 73 6c 69 64 65 5f  |...      .slide_|
00000ca0  6d 65 6e 75 0d 07 c6 0a  20 20 20 20 20 cc 0d 07  |menu....     ...|
00000cb0  d0 0f 20 20 20 20 20 20  62 75 74 3d 30 0d 07 da  |..      but=0...|
00000cc0  0f 20 20 20 20 20 20 64  69 72 3d 30 0d 07 e4 17  |.      dir=0....|
00000cd0  20 20 20 20 20 20 e7 20  7a 20 80 20 34 20 62 75  |      . z . 4 bu|
00000ce0  74 3d 31 0d 07 ee 18 20  20 20 20 20 20 e7 20 7a  |t=1....      . z|
00000cf0  20 80 20 31 20 62 75 74  3d 2d 31 0d 07 f8 22 20  | . 1 but=-1..." |
00000d00  20 20 20 20 20 e7 20 70  69 65 63 65 3d 30 20 80  |     . piece=0 .|
00000d10  20 70 6f 73 3d 30 20 64  69 72 3d 2d 31 0d 08 02  | pos=0 dir=-1...|
00000d20  2a 20 20 20 20 20 20 e7  20 70 69 65 63 65 3d 6d  |*      . piece=m|
00000d30  65 6e 75 73 69 7a 65 2d  31 20 80 20 70 6f 73 3d  |enusize-1 . pos=|
00000d40  39 20 64 69 72 3d 31 0d  08 0c 21 20 20 20 20 20  |9 dir=1...!     |
00000d50  20 f2 73 63 72 6f 6c 6c  5f 70 69 65 63 65 73 28  | .scroll_pieces(|
00000d60  64 69 72 2a 62 75 74 29  0d 08 16 0a 20 20 20 20  |dir*but)....    |
00000d70  20 cd 0d 08 20 09 20 20  20 20 cd 0d 08 2a 08 20  | ... .    ...*. |
00000d80  20 20 cd 0d 08 34 07 20  20 cd 0d 08 3e 07 20 7f  |  ...4.  ...>. .|
00000d90  3a 0d 08 48 0f 20 20 e7  20 7a 20 80 20 32 20 8c  |:..H.  . z . 2 .|
00000da0  0d 08 52 13 20 20 20 f2  63 75 72 73 28 6f 78 2c  |..R.   .curs(ox,|
00000db0  6f 79 29 0d 08 5c 12 20  20 20 6f 78 3d 2d 31 3a  |oy)..\.   ox=-1:|
00000dc0  6f 79 3d 2d 31 0d 08 66  10 20 20 20 c8 8e 20 64  |oy=-1..f.   .. d|
00000dd0  69 72 24 20 ca 0d 08 70  18 20 20 20 20 c9 20 22  |ir$ ...p.    . "|
00000de0  48 22 20 3a 20 f2 73 6c  69 64 65 5f 48 0d 08 7a  |H" : .slide_H..z|
00000df0  18 20 20 20 20 c9 20 22  56 22 20 3a 20 f2 73 6c  |.    . "V" : .sl|
00000e00  69 64 65 5f 56 0d 08 84  08 20 20 20 cb 0d 08 8e  |ide_V....   ....|
00000e10  07 20 20 cc 0d 08 98 18  20 20 20 e7 20 78 3c 3e  |.  .....   . x<>|
00000e20  6f 78 20 84 20 79 3c 3e  6f 79 20 8c 0d 08 a2 14  |ox . y<>oy .....|
00000e30  20 20 20 20 f2 63 75 72  73 28 6f 78 2c 6f 79 29  |    .curs(ox,oy)|
00000e40  0d 08 ac 12 20 20 20 20  f2 63 75 72 73 28 78 2c  |....    .curs(x,|
00000e50  79 29 0d 08 b6 0c 20 20  20 20 6f 78 3d 78 0d 08  |y)....    ox=x..|
00000e60  c0 0c 20 20 20 20 6f 79  3d 79 0d 08 ca 0e 20 20  |..    oy=y....  |
00000e70  20 20 6c 61 73 74 3d 31  0d 08 d4 08 20 20 20 cd  |  last=1....   .|
00000e80  0d 08 de 0e 20 20 20 e7  20 7a 3d 30 20 8c 0d 08  |....   . z=0 ...|
00000e90  e8 0e 20 20 20 20 68 65  6c 64 3d a3 0d 08 f2 08  |..    held=.....|
00000ea0  20 20 20 cc 0d 08 fc 12  20 20 20 20 e7 20 ac 20  |   .....    . . |
00000eb0  68 65 6c 64 20 8c 0d 09  06 21 20 20 20 20 20 e7  |held ....!     .|
00000ec0  20 7a 20 80 20 34 20 f2  70 6c 61 63 65 28 70 69  | z . 4 .place(pi|
00000ed0  65 63 65 28 30 29 29 0d  09 10 21 20 20 20 20 20  |ece(0))...!     |
00000ee0  e7 20 7a 20 80 20 31 20  f2 70 6c 61 63 65 28 70  |. z . 1 .place(p|
00000ef0  69 65 63 65 28 31 29 29  0d 09 1a 09 20 20 20 20  |iece(1))....    |
00000f00  cd 0d 09 24 08 20 20 20  cd 0d 09 2e 07 20 20 cd  |...$.   .....  .|
00000f10  0d 09 38 06 20 cb 0d 09  42 09 20 6b 3d a6 30 0d  |..8. ...B. k=.0.|
00000f20  09 4c 0b 20 c8 8e 20 6b  20 ca 0d 09 56 0b 20 20  |.L. .. k ...V.  |
00000f30  c9 20 33 20 3a 0d 09 60  12 20 20 c9 20 31 39 20  |. 3 :..`.  . 19 |
00000f40  3a 20 f2 73 61 76 65 0d  09 6a 15 20 20 c9 20 31  |: .save..j.  . 1|
00000f50  32 20 3a 20 f2 6c 6f 61  64 28 a3 29 0d 09 74 06  |2 : .load(.)..t.|
00000f60  20 cb 0d 09 7e 07 fd 20  a3 0d 09 88 05 e1 0d 09  | ...~.. ........|
00000f70  92 05 3a 0d 09 9c 1d dd  20 f2 6e 65 77 5f 70 69  |..:..... .new_pi|
00000f80  65 63 65 28 6e 75 6d 2c  63 6c 69 63 6b 65 64 29  |ece(num,clicked)|
00000f90  0d 09 a6 45 e7 20 63 6c  69 63 6b 65 64 3c 3e 70  |...E. clicked<>p|
00000fa0  69 65 63 65 28 6e 75 6d  29 20 80 20 63 6c 69 63  |iece(num) . clic|
00000fb0  6b 65 64 3c 3e 70 69 65  63 65 28 31 2d 6e 75 6d  |ked<>piece(1-num|
00000fc0  29 20 80 20 63 6c 69 63  6b 65 64 3c 73 70 72 69  |) . clicked<spri|
00000fd0  74 65 73 20 8c 0d 09 b0  10 20 f2 70 69 65 63 65  |tes ..... .piece|
00000fe0  28 6e 75 6d 29 0d 09 ba  17 20 70 69 65 63 65 28  |(num).... piece(|
00000ff0  6e 75 6d 29 3d 63 6c 69  63 6b 65 64 0d 09 c4 10  |num)=clicked....|
00001000  20 f2 70 69 65 63 65 28  6e 75 6d 29 0d 09 ce 05  | .piece(num)....|
00001010  cd 0d 09 d8 05 e1 0d 09  e2 05 3a 0d 09 ec 13 dd  |..........:.....|
00001020  20 f2 70 6c 61 63 65 28  70 69 65 63 65 29 0d 09  | .place(piece)..|
00001030  f6 15 e7 20 70 69 65 63  65 3c 30 20 70 69 65 63  |... piece<0 piec|
00001040  65 3d 30 0d 0a 00 1e f2  70 6f 6b 65 28 78 70 6f  |e=0.....poke(xpo|
00001050  73 2b 78 2c 79 70 6f 73  2b 79 2c 70 69 65 63 65  |s+x,ypos+y,piece|
00001060  29 0d 0a 0a 1a f2 73 71  75 61 72 65 28 78 70 6f  |).....square(xpo|
00001070  73 2b 78 2c 79 70 6f 73  2b 79 29 0d 0a 14 0e f2  |s+x,ypos+y).....|
00001080  63 75 72 73 28 78 2c 79  29 0d 0a 1e 05 e1 0d 0a  |curs(x,y).......|
00001090  28 05 3a 0d 0a 32 19 dd  20 f2 73 63 72 6f 6c 6c  |(.:..2.. .scroll|
000010a0  5f 70 69 65 63 65 73 28  64 69 72 29 0d 0a 3c 3f  |_pieces(dir)..<?|
000010b0  e7 20 73 70 72 70 6f 73  2b 64 69 72 3c 30 20 84  |. sprpos+dir<0 .|
000010c0  20 73 70 72 70 6f 73 2b  6d 65 6e 75 73 69 7a 65  | sprpos+menusize|
000010d0  2d 31 2b 64 69 72 3e 3d  73 70 72 69 74 65 73 20  |-1+dir>=sprites |
000010e0  84 20 94 64 69 72 3c 3e  31 20 e1 0d 0a 46 1e e3  |. .dir<>1 ...F..|
000010f0  20 73 63 72 6f 6c 6c 3d  30 20 b8 20 6d 65 6e 75  | scroll=0 . menu|
00001100  67 61 70 2d 31 20 88 20  34 0d 0a 50 07 20 c8 96  |gap-1 . 4..P. ..|
00001110  0d 0a 5a 25 20 c8 93 20  c8 90 20 30 2c 30 2c 31  |..Z% .. .. 0,0,1|
00001120  32 37 39 2c 73 71 72 2d  34 20 b8 20 2d 64 69 72  |279,sqr-4 . -dir|
00001130  2a 31 36 2c 30 0d 0a 64  05 ed 0d 0a 6e 0f 73 70  |*16,0..d....n.sp|
00001140  72 70 6f 73 2b 3d 64 69  72 0d 0a 78 0c c8 8e 20  |rpos+=dir..x... |
00001150  64 69 72 20 ca 0d 0a 82  0f 20 c9 20 2d 31 3a 20  |dir ..... . -1: |
00001160  61 74 3d 30 0d 0a 8c 18  20 c9 20 20 31 3a 20 61  |at=0.... .  1: a|
00001170  74 3d 6d 65 6e 75 73 69  7a 65 2d 31 0d 0a 96 05  |t=menusize-1....|
00001180  cb 0d 0a a0 1d f2 6d 65  6e 75 5f 70 69 65 63 65  |......menu_piece|
00001190  28 73 70 72 70 6f 73 2b  61 74 2c 61 74 29 0d 0a  |(sprpos+at,at)..|
000011a0  aa 22 e7 20 73 70 72 70  6f 73 2b 61 74 3d 70 69  |.". sprpos+at=pi|
000011b0  65 63 65 28 30 29 20 f2  70 69 65 63 65 28 30 29  |ece(0) .piece(0)|
000011c0  0d 0a b4 22 e7 20 73 70  72 70 6f 73 2b 61 74 3d  |...". sprpos+at=|
000011d0  70 69 65 63 65 28 31 29  20 f2 70 69 65 63 65 28  |piece(1) .piece(|
000011e0  31 29 0d 0a be 05 e1 0d  0a c8 05 3a 0d 0a d2 0e  |1).........:....|
000011f0  dd 20 f2 73 6c 69 64 65  5f 48 0d 0a dc 08 c8 97  |. .slide_H......|
00001200  20 87 0d 0a e6 18 c8 97  20 c8 93 20 2d 32 30 30  | ....... .. -200|
00001210  30 2c 30 2c 34 30 30 30  2c 30 0d 0a f0 0c c8 97  |0,0,4000,0......|
00001220  20 b8 20 30 2c 30 0d 0a  fa 05 f5 0d 0b 04 06 20  | . 0,0......... |
00001230  f5 0d 0b 0e 11 20 20 c8  97 20 73 78 2c 73 79 2c  |.....  .. sx,sy,|
00001240  73 7a 0d 0b 18 14 20 20  73 6c 69 64 65 3d 73 78  |sz....  slide=sx|
00001250  20 81 20 73 71 72 0d 0b  22 16 20 fd 20 73 7a 3d  | . sqr..". . sz=|
00001260  30 20 84 20 73 6c 69 64  65 3c 3e 30 0d 0b 2c 0b  |0 . slide<>0..,.|
00001270  20 6d 78 2b 3d 73 78 0d  0b 36 0d 20 c8 97 20 b8  | mx+=sx..6. .. .|
00001280  20 30 2c 30 0d 0b 40 11  20 e7 20 73 6c 69 64 65  | 0,0..@. . slide|
00001290  3c 3e 30 20 8c 0d 0b 4a  33 20 20 e7 20 78 70 6f  |<>0 ...J3  . xpo|
000012a0  73 2d 73 6c 69 64 65 3e  3d 30 20 80 20 78 70 6f  |s-slide>=0 . xpo|
000012b0  73 2b 78 73 69 7a 65 2d  31 2d 73 6c 69 64 65 3c  |s+xsize-1-slide<|
000012c0  6d 61 78 6c 65 6e 20 8c  0d 0b 54 30 20 20 20 c8  |maxlen ...T0   .|
000012d0  93 20 c8 90 20 30 2c 73  71 72 2c 31 32 37 39 2c  |. .. 0,sqr,1279,|
000012e0  31 30 32 33 2d 73 71 72  20 b8 20 73 6c 69 64 65  |1023-sqr . slide|
000012f0  2a 73 71 72 2c 73 71 72  0d 0b 5e 12 20 20 20 78  |*sqr,sqr..^.   x|
00001300  70 6f 73 2d 3d 73 6c 69  64 65 0d 0b 68 2c 20 20  |pos-=slide..h,  |
00001310  20 e7 20 73 6c 69 64 65  3e 30 20 66 69 72 73 74  | . slide>0 first|
00001320  3d 30 20 8b 20 66 69 72  73 74 3d 78 73 69 7a 65  |=0 . first=xsize|
00001330  2b 73 6c 69 64 65 0d 0b  72 1b 20 20 20 e3 20 63  |+slide..r.   . c|
00001340  6f 6c 3d 30 20 b8 20 94  28 73 6c 69 64 65 29 2d  |ol=0 . .(slide)-|
00001350  31 0d 0b 7c 1f 20 20 20  20 f2 63 6f 6c 75 6d 6e  |1..|.    .column|
00001360  28 78 70 6f 73 2b 66 69  72 73 74 2b 63 6f 6c 29  |(xpos+first+col)|
00001370  0d 0b 86 08 20 20 20 ed  0d 0b 90 07 20 20 cd 0d  |....   .....  ..|
00001380  0b 9a 06 20 cd 0d 0b a4  0a fd 20 73 7a 3d 30 0d  |... ...... sz=0.|
00001390  0b ae 0f e7 20 6d 78 3c  30 20 6d 78 3d 30 0d 0b  |.... mx<0 mx=0..|
000013a0  b8 15 e7 20 6d 78 3e 31  32 37 39 20 6d 78 3d 31  |... mx>1279 mx=1|
000013b0  32 37 39 0d 0b c2 17 c8  97 20 c8 93 20 30 2c 30  |279...... .. 0,0|
000013c0  2c 31 32 37 39 2c 31 30  32 33 0d 0b cc 0e c8 97  |,1279,1023......|
000013d0  20 b8 20 6d 78 2c 6d 79  0d 0b d6 08 c8 97 20 ee  | . mx,my...... .|
000013e0  0d 0b e0 05 e1 0d 0b ea  05 3a 0d 0b f4 0e dd 20  |.........:..... |
000013f0  f2 73 6c 69 64 65 5f 56  0d 0b fe 08 c8 97 20 87  |.slide_V...... .|
00001400  0d 0c 08 18 c8 97 20 c8  93 20 30 2c 2d 32 30 30  |...... .. 0,-200|
00001410  30 2c 30 2c 34 30 30 30  0d 0c 12 0c c8 97 20 b8  |0,0,4000...... .|
00001420  20 30 2c 30 0d 0c 1c 19  ef 20 32 34 2c 30 3b 73  | 0,0..... 24,0;s|
00001430  71 72 3b 31 32 37 39 3b  31 30 32 33 3b 0d 0c 26  |qr;1279;1023;..&|
00001440  05 f5 0d 0c 30 06 20 f5  0d 0c 3a 11 20 20 c8 97  |....0. ...:.  ..|
00001450  20 73 78 2c 73 79 2c 73  7a 0d 0c 44 14 20 20 73  | sx,sy,sz..D.  s|
00001460  6c 69 64 65 3d 73 79 20  81 20 73 71 72 0d 0c 4e  |lide=sy . sqr..N|
00001470  16 20 fd 20 73 7a 3d 30  20 84 20 73 6c 69 64 65  |. . sz=0 . slide|
00001480  3c 3e 30 0d 0c 58 0b 20  6d 79 2b 3d 73 79 0d 0c  |<>0..X. my+=sy..|
00001490  62 0d 20 c8 97 20 b8 20  30 2c 30 0d 0c 6c 11 20  |b. .. . 0,0..l. |
000014a0  e7 20 73 6c 69 64 65 3c  3e 30 20 8c 0d 0c 76 33  |. slide<>0 ...v3|
000014b0  20 20 e7 20 79 70 6f 73  2d 73 6c 69 64 65 3e 3d  |  . ypos-slide>=|
000014c0  30 20 80 20 79 70 6f 73  2b 79 73 69 7a 65 2d 31  |0 . ypos+ysize-1|
000014d0  2d 73 6c 69 64 65 3c 6d  61 78 6c 65 6e 20 8c 0d  |-slide<maxlen ..|
000014e0  0c 80 32 20 20 20 c8 93  20 c8 90 20 30 2c 73 71  |..2   .. .. 0,sq|
000014f0  72 2c 31 32 37 39 2c 31  30 32 33 2d 73 71 72 20  |r,1279,1023-sqr |
00001500  b8 20 30 2c 73 71 72 2b  73 6c 69 64 65 2a 73 71  |. 0,sqr+slide*sq|
00001510  72 0d 0c 8a 12 20 20 20  79 70 6f 73 2d 3d 73 6c  |r....   ypos-=sl|
00001520  69 64 65 0d 0c 94 2e 20  20 20 e7 20 73 6c 69 64  |ide....   . slid|
00001530  65 3e 30 20 66 69 72 73  74 3d 30 20 8b 20 66 69  |e>0 first=0 . fi|
00001540  72 73 74 3d 79 73 69 7a  65 2d 31 2b 73 6c 69 64  |rst=ysize-1+slid|
00001550  65 0d 0c 9e 1b 20 20 20  e3 20 72 6f 77 3d 30 20  |e....   . row=0 |
00001560  b8 20 94 28 73 6c 69 64  65 29 2d 31 0d 0c a8 29  |. .(slide)-1...)|
00001570  20 20 20 20 f2 72 6f 77  28 79 70 6f 73 2b 66 69  |    .row(ypos+fi|
00001580  72 73 74 2b 72 6f 77 29  3a f4 2c 66 69 72 73 74  |rst+row):.,first|
00001590  2b 72 6f 77 29 0d 0c b2  08 20 20 20 ed 0d 0c bc  |+row)....   ....|
000015a0  07 20 20 cd 0d 0c c6 06  20 cd 0d 0c d0 0a fd 20  |.  ..... ...... |
000015b0  73 7a 3d 30 0d 0c da 0f  e7 20 6d 79 3c 30 20 6d  |sz=0..... my<0 m|
000015c0  79 3d 30 0d 0c e4 15 e7  20 6d 79 3e 31 30 32 33  |y=0..... my>1023|
000015d0  20 6d 79 3d 31 30 32 33  0d 0c ee 08 ef 20 32 36  | my=1023..... 26|
000015e0  0d 0c f8 17 c8 97 20 c8  93 20 30 2c 30 2c 31 32  |...... .. 0,0,12|
000015f0  37 39 2c 31 30 32 33 0d  0d 02 0e c8 97 20 b8 20  |79,1023...... . |
00001600  6d 78 2c 6d 79 0d 0d 0c  08 c8 97 20 ee 0d 0d 16  |mx,my...... ....|
00001610  05 e1 0d 0d 20 05 3a 0d  0d 2a 11 dd 20 f2 73 6c  |.... .:..*.. .sl|
00001620  69 64 65 5f 6d 65 6e 75  0d 0d 34 08 c8 97 20 87  |ide_menu..4... .|
00001630  0d 0d 3e 18 c8 97 20 c8  93 20 2d 32 30 30 30 2c  |..>... .. -2000,|
00001640  30 2c 34 30 30 30 2c 30  0d 0d 48 0c c8 97 20 b8  |0,4000,0..H... .|
00001650  20 30 2c 30 0d 0d 52 17  f2 70 69 65 63 65 28 30  | 0,0..R..piece(0|
00001660  29 3a f2 70 69 65 63 65  28 31 29 0d 0d 5c 05 f5  |):.piece(1)..\..|
00001670  0d 0d 66 06 20 f5 0d 0d  70 11 20 20 c8 97 20 73  |..f. ...p.  .. s|
00001680  78 2c 73 79 2c 73 7a 0d  0d 7a 13 20 20 73 6c 69  |x,sy,sz..z.  sli|
00001690  64 65 3d 73 78 20 81 20  36 34 0d 0d 84 16 20 fd  |de=sx . 64.... .|
000016a0  20 73 7a 3d 30 20 84 20  73 6c 69 64 65 3c 3e 30  | sz=0 . slide<>0|
000016b0  0d 0d 8e 0b 20 6d 78 2b  3d 73 78 0d 0d 98 0d 20  |.... mx+=sx.... |
000016c0  c8 97 20 b8 20 30 2c 30  0d 0d a2 11 20 e7 20 73  |.. . 0,0.... . s|
000016d0  6c 69 64 65 3c 3e 30 20  8c 0d 0d ac 3b 20 20 e7  |lide<>0 ....;  .|
000016e0  20 73 70 72 70 6f 73 2d  73 6c 69 64 65 3e 3d 30  | sprpos-slide>=0|
000016f0  20 80 20 73 70 72 70 6f  73 2b 6d 65 6e 75 73 69  | . sprpos+menusi|
00001700  7a 65 2d 31 2d 73 6c 69  64 65 3c 73 70 72 69 74  |ze-1-slide<sprit|
00001710  65 73 20 8c 0d 0d b6 2f  20 20 20 c8 93 20 c8 90  |es ..../   .. ..|
00001720  20 30 2c 30 2c 31 32 37  39 2c 73 71 72 2d 34 20  | 0,0,1279,sqr-4 |
00001730  b8 20 73 6c 69 64 65 2a  6d 65 6e 75 67 61 70 2a  |. slide*menugap*|
00001740  34 2c 30 0d 0d c0 14 20  20 20 73 70 72 70 6f 73  |4,0....   sprpos|
00001750  2d 3d 73 6c 69 64 65 0d  0d ca 2f 20 20 20 e7 20  |-=slide.../   . |
00001760  73 6c 69 64 65 3e 30 20  66 69 72 73 74 3d 30 20  |slide>0 first=0 |
00001770  8b 20 66 69 72 73 74 3d  6d 65 6e 75 73 69 7a 65  |. first=menusize|
00001780  2b 73 6c 69 64 65 0d 0d  d4 19 20 20 20 e3 20 70  |+slide....   . p|
00001790  3d 30 20 b8 20 94 28 73  6c 69 64 65 29 2d 31 0d  |=0 . .(slide)-1.|
000017a0  0d de 2b 20 20 20 20 f2  6d 65 6e 75 5f 70 69 65  |..+    .menu_pie|
000017b0  63 65 28 73 70 72 70 6f  73 2b 66 69 72 73 74 2b  |ce(sprpos+first+|
000017c0  70 2c 66 69 72 73 74 2b  70 29 0d 0d e8 08 20 20  |p,first+p)....  |
000017d0  20 ed 0d 0d f2 07 20 20  cd 0d 0d fc 06 20 cd 0d  | .....  ..... ..|
000017e0  0e 06 0a fd 20 73 7a 3d  30 0d 0e 10 0f e7 20 6d  |.... sz=0..... m|
000017f0  78 3c 30 20 6d 78 3d 30  0d 0e 1a 15 e7 20 6d 78  |x<0 mx=0..... mx|
00001800  3e 31 32 37 39 20 6d 78  3d 31 32 37 39 0d 0e 24  |>1279 mx=1279..$|
00001810  17 c8 97 20 c8 93 20 30  2c 30 2c 31 32 37 39 2c  |... .. 0,0,1279,|
00001820  31 30 32 33 0d 0e 2e 0e  c8 97 20 b8 20 6d 78 2c  |1023...... . mx,|
00001830  6d 79 0d 0e 38 08 c8 97  20 ee 0d 0e 42 17 f2 70  |my..8... ...B..p|
00001840  69 65 63 65 28 30 29 3a  f2 70 69 65 63 65 28 31  |iece(0):.piece(1|
00001850  29 0d 0e 4c 05 e1 0d 0e  56 05 3a 0d 0e 60 0b dd  |)..L....V.:..`..|
00001860  20 f2 73 61 76 65 0d 0e  6a 0f f2 63 6c 65 61 72  | .save..j..clear|
00001870  5f 6d 65 6e 75 0d 0e 74  10 f2 63 75 72 73 28 6f  |_menu..t..curs(o|
00001880  78 2c 6f 79 29 0d 0e 7e  12 ef 20 33 30 3a 2a 43  |x,oy)..~.. 30:*C|
00001890  61 74 20 4d 61 70 73 0d  0e 88 20 6e 65 77 24 3d  |at Maps... new$=|
000018a0  a4 69 6e 70 75 74 28 22  53 61 76 65 20 3a 20 22  |.input("Save : "|
000018b0  2c 66 69 6c 65 24 29 0d  0e 92 10 e7 20 6e 65 77  |,file$)..... new|
000018c0  24 3c 3e 22 22 20 8c 0d  0e 9c 13 20 6c 65 6e 67  |$<>"" ..... leng|
000018d0  74 68 3d a4 6c 65 6e 67  74 68 0d 0e a6 0f 20 f2  |th=.length.... .|
000018e0  66 69 6e 64 5f 75 73 65  64 0d 0e b0 0f 20 66 69  |find_used.... fi|
000018f0  6c 65 24 3d 6e 65 77 24  0d 0e ba 29 20 c8 99 20  |le$=new$...) .. |
00001900  22 4f 53 5f 46 69 6c 65  22 2c 31 31 2c 6d 61 70  |"OS_File",11,map|
00001910  73 24 2b 22 2e 22 2b 66  69 6c 65 24 2c 26 46 46  |s$+"."+file$,&FF|
00001920  46 0d 0e c4 1b 20 6f 75  74 3d ae 28 6d 61 70 73  |F.... out=.(maps|
00001930  24 2b 22 2e 22 2b 66 69  6c 65 24 29 0d 0e ce 1e  |$+"."+file$)....|
00001940  20 f2 77 28 22 3b 20 3e  22 2b 6d 61 70 73 24 2b  | .w("; >"+maps$+|
00001950  22 2e 22 2b 66 69 6c 65  24 29 0d 0e d8 10 20 f2  |"."+file$).... .|
00001960  77 28 22 3b 20 22 2b 91  24 29 0d 0e e2 0b 20 f2  |w("; "+.$).... .|
00001970  77 28 22 22 29 0d 0e ec  10 20 f2 77 28 22 54 79  |w("").... .w("Ty|
00001980  70 65 3a 22 29 0d 0e f6  1a 20 f2 77 28 22 20 20  |pe:").... .w("  |
00001990  22 2b 64 69 72 24 2b c3  28 73 69 7a 65 29 29 0d  |"+dir$+.(size)).|
000019a0  0f 00 0b 20 f2 77 28 22  22 29 0d 0f 0a 11 20 f2  |... .w("").... .|
000019b0  77 28 22 46 69 6c 65 73  3a 22 29 0d 0f 14 14 20  |w("Files:").... |
000019c0  e3 20 69 3d 30 20 b8 20  66 69 6c 65 73 2d 31 0d  |. i=0 . files-1.|
000019d0  0f 1e 17 20 20 f2 77 28  22 20 20 22 2b 66 69 6c  |...  .w("  "+fil|
000019e0  65 24 28 69 29 29 0d 0f  28 06 20 ed 0d 0f 32 0b  |e$(i))..(. ...2.|
000019f0  20 f2 77 28 22 22 29 0d  0f 3c 10 20 f2 77 28 22  | .w("")..<. .w("|
00001a00  55 73 65 64 3a 22 29 0d  0f 46 10 20 e3 20 69 3d  |Used:")..F. . i=|
00001a10  30 20 b8 20 32 35 35 0d  0f 50 14 20 20 e7 20 75  |0 . 255..P.  . u|
00001a20  73 65 64 28 69 29 3e 3d  30 20 8c 0d 0f 5a 32 20  |sed(i)>=0 ...Z2 |
00001a30  20 20 f2 77 28 22 20 20  22 2b c2 22 30 30 22 2b  |  .w("  "+."00"+|
00001a40  c3 7e 75 73 65 64 28 69  29 2c 32 29 2b 22 20 22  |.~used(i),2)+" "|
00001a50  2b 73 70 72 6e 61 6d 65  24 28 69 29 29 0d 0f 64  |+sprname$(i))..d|
00001a60  07 20 20 cd 0d 0f 6e 06  20 ed 0d 0f 78 0b 20 f2  |.  ...n. ...x. .|
00001a70  77 28 22 22 29 0d 0f 82  0f 20 f2 77 28 22 4d 61  |w("").... .w("Ma|
00001a80  70 3a 22 29 0d 0f 8c 0c  20 6f 66 66 3d 6d 61 70  |p:").... off=map|
00001a90  0d 0f 96 15 20 e3 20 77  3d 30 20 b8 20 6c 65 6e  |.... . w=0 . len|
00001aa0  67 74 68 2d 31 0d 0f a0  0d 20 20 6f 75 74 24 3d  |gth-1....  out$=|
00001ab0  22 22 0d 0f aa 11 20 20  e3 20 69 3d 30 20 b8 20  |""....  . i=0 . |
00001ac0  74 6f 70 0d 0f b4 25 20  20 20 6f 75 74 24 2b 3d  |top...%   out$+=|
00001ad0  c2 22 30 30 22 2b c3 7e  28 75 73 65 64 28 6f 66  |."00"+.~(used(of|
00001ae0  66 3f 69 29 29 2c 32 29  0d 0f be 07 20 20 ed 0d  |f?i)),2)....  ..|
00001af0  0f c8 14 20 20 7a 24 3d  c4 a9 6f 75 74 24 2c 22  |...  z$=..out$,"|
00001b00  30 22 29 0d 0f d2 07 20  20 f5 0d 0f dc 10 20 20  |0")....  .....  |
00001b10  20 7a 24 3d c1 7a 24 2c  33 29 0d 0f e6 12 20 20  | z$=.z$,3)....  |
00001b20  20 7a 3d a7 6f 75 74 24  2c 7a 24 29 0d 0f f0 19  | z=.out$,z$)....|
00001b30  20 20 fd 20 7a 24 3d 22  22 20 84 20 28 7a 20 83  |  . z$="" . (z .|
00001b40  20 32 29 3d 31 0d 0f fa  2e 20 20 e7 20 a9 7a 24  | 2)=1....  . .z$|
00001b50  3e 30 20 6f 75 74 24 3d  c0 6f 75 74 24 2c 7a 2d  |>0 out$=.out$,z-|
00001b60  31 29 2b 22 2d 22 2b c1  6f 75 74 24 2c 7a 2b a9  |1)+"-"+.out$,z+.|
00001b70  7a 24 29 0d 10 04 13 20  20 f2 77 28 22 20 20 22  |z$)....  .w("  "|
00001b80  2b 6f 75 74 24 29 0d 10  0e 11 20 20 6f 66 66 2b  |+out$)....  off+|
00001b90  3d 6d 61 78 77 69 64 0d  10 18 06 20 ed 0d 10 22  |=maxwid.... ..."|
00001ba0  0b 20 d9 20 23 6f 75 74  0d 10 2c 05 cd 0d 10 36  |. . #out..,....6|
00001bb0  0b f2 73 63 72 65 65 6e  0d 10 40 0e f2 63 75 72  |..screen..@..cur|
00001bc0  73 28 78 2c 79 29 0d 10  4a 0f f2 63 6c 65 61 72  |s(x,y)..J..clear|
00001bd0  5f 6d 65 6e 75 0d 10 54  11 f2 6d 65 6e 75 28 73  |_menu..T..menu(s|
00001be0  70 72 70 6f 73 29 0d 10  5e 17 f2 70 69 65 63 65  |prpos)..^..piece|
00001bf0  28 30 29 3a f2 70 69 65  63 65 28 31 29 0d 10 68  |(0):.piece(1)..h|
00001c00  05 e1 0d 10 72 05 3a 0d  10 7c 0c dd 20 f2 77 28  |....r.:..|.. .w(|
00001c10  6f 24 29 0d 10 86 12 d5  20 23 6f 75 74 2c 6f 24  |o$)..... #out,o$|
00001c20  2b bd 31 30 3b 0d 10 90  05 e1 0d 10 9a 05 3a 0d  |+.10;.........:.|
00001c30  10 a4 1a dd 20 a4 69 6e  70 75 74 28 70 72 6f 6d  |.... .input(prom|
00001c40  70 74 24 2c 69 6e 73 24  29 0d 10 ae 22 f1 8a 34  |pt$,ins$)..."..4|
00001c50  2c 33 30 29 3b 70 72 6f  6d 70 74 24 3b 89 31 30  |,30);prompt$;.10|
00001c60  3b c4 31 30 2c bd 31 32  37 29 3b 0d 10 b8 11 e3  |;.10,.127);.....|
00001c70  20 69 3d 31 20 b8 20 a9  69 6e 73 24 0d 10 c2 23  | i=1 . .ins$...#|
00001c80  20 c8 99 20 22 4f 53 5f  42 79 74 65 22 2c 31 33  | .. "OS_Byte",13|
00001c90  38 2c 30 2c 97 c1 69 6e  73 24 2c 69 2c 31 29 0d  |8,0,..ins$,i,1).|
00001ca0  10 cc 05 ed 0d 10 d6 05  ee 0d 10 e0 09 61 24 3d  |.............a$=|
00001cb0  22 22 0d 10 ea 0c 2a 46  58 32 32 39 2c 31 0d 10  |""....*FX229,1..|
00001cc0  f4 05 f5 0d 10 fe 08 20  63 3d a5 0d 11 08 27 20  |....... c=....' |
00001cd0  e7 20 63 3e 33 32 20 80  20 63 3c 31 32 37 20 80  |. c>32 . c<127 .|
00001ce0  20 a9 61 24 3c 31 30 20  61 24 2b 3d bd 63 3a ef  | .a$<10 a$+=.c:.|
00001cf0  20 63 0d 11 12 23 20 e7  20 63 3d 31 32 37 20 80  | c...# . c=127 .|
00001d00  20 61 24 3c 3e 22 22 20  61 24 3d c0 61 24 29 3a  | a$<>"" a$=.a$):|
00001d10  ef 20 31 32 37 0d 11 1c  23 20 e7 20 63 3d 32 37  |. 127...# . c=27|
00001d20  20 80 20 a6 2d 31 20 c8  99 20 36 2c 32 32 39 3a  | . .-1 .. 6,229:|
00001d30  c8 99 20 36 2c 31 32 35  0d 11 26 25 20 e7 20 63  |.. 6,125..&% . c|
00001d40  3d 32 37 20 84 20 63 3d  32 31 20 f1 c4 a9 61 24  |=27 . c=21 ...a$|
00001d50  2c bd 31 32 37 29 3b 3a  61 24 3d 22 22 0d 11 30  |,.127);:a$=""..0|
00001d60  11 fd 20 63 3d 31 33 20  84 20 63 3d 32 37 0d 11  |.. c=13 . c=27..|
00001d70  3a 05 87 0d 11 44 0c 2a  46 58 32 32 39 2c 30 0d  |:....D.*FX229,0.|
00001d80  11 4e 07 3d 61 24 0d 11  58 05 3a 0d 11 62 0d dd  |.N.=a$..X.:..b..|
00001d90  20 a4 6c 65 6e 67 74 68  0d 11 6c 0c 77 3d 6d 61  | .length..l.w=ma|
00001da0  78 6c 65 6e 0d 11 76 05  f5 0d 11 80 09 20 77 2d  |xlen..v...... w-|
00001db0  3d 31 0d 11 8a 19 fd 20  77 3d 30 20 84 20 a4 6e  |=1..... w=0 . .n|
00001dc0  6f 74 5f 62 6c 61 6e 6b  28 77 29 0d 11 94 08 3d  |ot_blank(w)....=|
00001dd0  77 2b 31 0d 11 9e 05 3a  0d 11 a8 13 dd 20 a4 6e  |w+1....:..... .n|
00001de0  6f 74 5f 62 6c 61 6e 6b  28 63 29 0d 11 b2 09 6e  |ot_blank(c)....n|
00001df0  62 3d 2d 34 0d 11 bc 05  f5 0d 11 c6 0a 20 6e 62  |b=-4......... nb|
00001e00  2b 3d 34 0d 11 d0 23 fd  20 6e 62 3e 74 6f 70 20  |+=4...#. nb>top |
00001e10  84 20 6d 61 70 21 28 63  2a 6d 61 78 77 69 64 2b  |. map!(c*maxwid+|
00001e20  6e 62 29 3c 3e 30 0d 11  da 1b 3d 28 6d 61 70 21  |nb)<>0....=(map!|
00001e30  28 63 2a 6d 61 78 77 69  64 2b 6e 62 29 3c 3e 30  |(c*maxwid+nb)<>0|
00001e40  29 0d 11 e4 05 3a 0d 11  ee 10 dd 20 f2 66 69 6e  |)....:..... .fin|
00001e50  64 5f 75 73 65 64 0d 11  f8 0d 75 73 65 64 28 29  |d_used....used()|
00001e60  3d 2d 31 0d 12 02 0d 75  73 65 64 28 30 29 3d 30  |=-1....used(0)=0|
00001e70  0d 12 0c 0a 6e 65 78 74  3d 31 0d 12 16 14 e3 20  |....next=1..... |
00001e80  69 3d 30 20 b8 20 6c 65  6e 67 74 68 2d 31 0d 12  |i=0 . length-1..|
00001e90  20 15 20 e3 20 6a 3d 30  20 b8 20 61 63 72 6f 73  | . . j=0 . acros|
00001ea0  73 2d 31 0d 12 2a 18 20  20 6b 3d 6d 61 70 3f 28  |s-1..*.  k=map?(|
00001eb0  69 2a 6d 61 78 77 69 64  2b 6a 29 0d 12 34 26 20  |i*maxwid+j)..4& |
00001ec0  20 e7 20 75 73 65 64 28  6b 29 3c 30 20 75 73 65  | . used(k)<0 use|
00001ed0  64 28 6b 29 3d 6e 65 78  74 3a 6e 65 78 74 2b 3d  |d(k)=next:next+=|
00001ee0  31 0d 12 3e 06 20 ed 0d  12 48 05 ed 0d 12 52 05  |1..>. ...H....R.|
00001ef0  e1 0d 12 5c 05 3a 0d 12  66 12 dd 20 f2 6c 6f 61  |...\.:..f.. .loa|
00001f00  64 28 66 6f 72 63 65 29  0d 12 70 0f f2 63 6c 65  |d(force)..p..cle|
00001f10  61 72 5f 6d 65 6e 75 0d  12 7a 10 f2 63 75 72 73  |ar_menu..z..curs|
00001f20  28 6f 78 2c 6f 79 29 0d  12 84 12 ef 20 33 30 3a  |(ox,oy)..... 30:|
00001f30  2a 43 61 74 20 4d 61 70  73 0d 12 8e 05 f5 0d 12  |*Cat Maps.......|
00001f40  98 21 20 6e 65 77 24 3d  a4 69 6e 70 75 74 28 22  |.! new$=.input("|
00001f50  4c 6f 61 64 20 3a 20 22  2c 66 69 6c 65 24 29 0d  |Load : ",file$).|
00001f60  12 a2 11 20 e7 20 6e 65  77 24 3c 3e 22 22 20 8c  |... . new$<>"" .|
00001f70  0d 12 ac 1c 20 20 6f 6b  3d a4 6f 6b 28 6d 61 70  |....  ok=.ok(map|
00001f80  73 24 2b 22 2e 22 2b 6e  65 77 24 29 0d 12 b6 06  |s$+"."+new$)....|
00001f90  20 cc 0d 12 c0 10 20 20  6f 6b 3d ac 20 66 6f 72  | .....  ok=. for|
00001fa0  63 65 0d 12 ca 06 20 cd  0d 12 d4 08 fd 20 6f 6b  |ce.... ...... ok|
00001fb0  0d 12 de 10 e7 20 6e 65  77 24 3c 3e 22 22 20 8c  |..... new$<>"" .|
00001fc0  0d 12 e8 0f 20 66 69 6c  65 24 3d 6e 65 77 24 0d  |.... file$=new$.|
00001fd0  12 f2 18 20 69 6e 3d 8e  28 22 4d 61 70 73 2e 22  |... in=.("Maps."|
00001fe0  2b 66 69 6c 65 24 29 0d  12 fc 0d 20 6d 6f 64 65  |+file$).... mode|
00001ff0  24 3d 22 22 0d 13 06 06  20 f5 0d 13 10 07 20 20  |$="".... .....  |
00002000  f5 0d 13 1a 17 20 20 20  69 6e 24 3d a4 73 74 72  |.....   in$=.str|
00002010  69 70 28 be 23 69 6e 29  0d 13 24 27 20 20 fd 20  |ip(.#in)..$'  . |
00002020  c5 23 69 6e 20 84 20 28  c0 69 6e 24 2c 31 29 3c  |.#in . (.in$,1)<|
00002030  3e 22 3b 22 20 80 20 69  6e 24 3c 3e 22 22 29 0d  |>";" . in$<>"").|
00002040  13 2e 11 20 20 e7 20 69  6e 24 3c 3e 22 22 20 8c  |...  . in$<>"" .|
00002050  0d 13 38 16 20 20 20 e7  20 c2 69 6e 24 2c 31 29  |..8.   . .in$,1)|
00002060  3d 22 3a 22 20 8c 0d 13  42 11 20 20 20 20 6d 6f  |=":" ...B.    mo|
00002070  64 65 24 3d 69 6e 24 0d  13 4c 12 20 20 20 20 c8  |de$=in$..L.    .|
00002080  8e 20 6d 6f 64 65 24 20  ca 0d 13 56 13 20 20 20  |. mode$ ...V.   |
00002090  20 20 c9 20 22 54 79 70  65 3a 22 3a 0d 13 60 13  |  . "Type:":..`.|
000020a0  20 20 20 20 20 20 f4 20  6e 6f 74 68 69 6e 67 0d  |      . nothing.|
000020b0  13 6a 14 20 20 20 20 20  c9 20 22 46 69 6c 65 73  |.j.     . "Files|
000020c0  3a 22 3a 0d 13 74 11 20  20 20 20 20 20 66 69 6c  |:":..t.      fil|
000020d0  65 73 3d 30 0d 13 7e 18  20 20 20 20 20 20 f2 63  |es=0..~.      .c|
000020e0  6c 65 61 72 5f 73 70 72  69 74 65 73 0d 13 88 13  |lear_sprites....|
000020f0  20 20 20 20 20 c9 20 22  55 73 65 64 3a 22 3a 0d  |     . "Used:":.|
00002100  13 92 1f 20 20 20 20 20  20 73 70 72 69 74 65 73  |...      sprites|
00002110  3d a4 6e 6f 6f 66 5f 73  70 72 69 74 65 73 0d 13  |=.noof_sprites..|
00002120  9c 17 20 20 20 20 20 20  f2 73 70 72 69 74 65 5f  |..      .sprite_|
00002130  6e 61 6d 65 73 0d 13 a6  13 20 20 20 20 20 20 75  |names....      u|
00002140  73 65 64 28 29 3d 2d 31  0d 13 b0 11 20 20 20 20  |sed()=-1....    |
00002150  20 c9 20 22 4d 61 70 3a  22 0d 13 ba 14 20 20 20  | . "Map:"....   |
00002160  20 20 20 f2 63 6c 65 61  72 5f 6d 61 70 0d 13 c4  |   .clear_map...|
00002170  13 20 20 20 20 20 20 73  74 6f 72 65 3d 6d 61 70  |.      store=map|
00002180  0d 13 ce 09 20 20 20 20  cb 0d 13 d8 08 20 20 20  |....    .....   |
00002190  cc 0d 13 e2 12 20 20 20  20 c8 8e 20 6d 6f 64 65  |.....    .. mode|
000021a0  24 20 ca 0d 13 ec 12 20  20 20 20 20 c9 20 22 54  |$ .....     . "T|
000021b0  79 70 65 3a 22 0d 13 f6  16 20 20 20 20 20 20 64  |ype:"....      d|
000021c0  69 72 24 3d c0 69 6e 24  2c 31 29 0d 14 00 17 20  |ir$=.in$,1).... |
000021d0  20 20 20 20 20 73 69 7a  65 3d bb c1 69 6e 24 2c  |     size=..in$,|
000021e0  32 29 0d 14 0a 1e 20 20  20 20 20 20 f2 73 65 74  |2)....      .set|
000021f0  5f 76 61 72 73 28 64 69  72 24 2c 73 69 7a 65 29  |_vars(dir$,size)|
00002200  0d 14 14 13 20 20 20 20  20 c9 20 22 46 69 6c 65  |....     . "File|
00002210  73 3a 22 0d 14 1e 27 20  20 20 20 20 20 f2 6c 6f  |s:"...'      .lo|
00002220  61 64 5f 73 70 72 69 74  65 73 28 22 53 63 65 6e  |ad_sprites("Scen|
00002230  65 72 79 2e 22 2b 69 6e  24 29 0d 14 28 1a 20 20  |ery."+in$)..(.  |
00002240  20 20 20 20 66 69 6c 65  24 28 66 69 6c 65 73 29  |    file$(files)|
00002250  3d 69 6e 24 0d 14 32 12  20 20 20 20 20 20 66 69  |=in$..2.      fi|
00002260  6c 65 73 2b 3d 31 0d 14  3c 12 20 20 20 20 20 c9  |les+=1..<.     .|
00002270  20 22 55 73 65 64 3a 22  0d 14 46 17 20 20 20 20  | "Used:"..F.    |
00002280  20 20 73 70 63 3d a7 69  6e 24 2c 22 20 22 29 0d  |  spc=.in$," ").|
00002290  14 50 1c 20 20 20 20 20  20 73 70 72 3d a0 28 22  |.P.      spr=.("|
000022a0  26 22 2b c0 69 6e 24 2c  32 29 29 0d 14 5a 32 20  |&"+.in$,2))..Z2 |
000022b0  20 20 20 20 20 75 73 65  64 28 73 70 72 29 3d a4  |     used(spr)=.|
000022c0  66 69 6e 64 5f 73 70 72  69 74 65 28 a4 6c 6f 28  |find_sprite(.lo(|
000022d0  c1 69 6e 24 2c 73 70 63  2b 31 29 29 29 0d 14 64  |.in$,spc+1)))..d|
000022e0  11 20 20 20 20 20 c9 20  22 4d 61 70 3a 22 0d 14  |.     . "Map:"..|
000022f0  6e 20 20 20 20 20 20 20  e7 20 a7 69 6e 24 2c 22  |n       . .in$,"|
00002300  2d 22 29 3d 30 20 69 6e  24 2b 3d 22 2d 22 0d 14  |-")=0 in$+="-"..|
00002310  78 0d 20 20 20 20 20 20  69 3d 30 0d 14 82 19 20  |x.      i=0.... |
00002320  20 20 20 20 20 c8 95 20  c0 69 6e 24 2c 31 29 3c  |     .. .in$,1)<|
00002330  3e 22 2d 22 0d 14 8c 27  20 20 20 20 20 20 20 73  |>"-"...'       s|
00002340  74 6f 72 65 3f 69 3d 75  73 65 64 28 a0 28 22 26  |tore?i=used(.("&|
00002350  22 2b c0 69 6e 24 2c 32  29 29 29 0d 14 96 0f 20  |"+.in$,2))).... |
00002360  20 20 20 20 20 20 69 2b  3d 31 0d 14 a0 16 20 20  |      i+=1....  |
00002370  20 20 20 20 20 69 6e 24  3d c1 69 6e 24 2c 33 29  |     in$=.in$,3)|
00002380  0d 14 aa 0b 20 20 20 20  20 20 ce 0d 14 b4 15 20  |....      ..... |
00002390  20 20 20 20 20 69 6e 24  3d c1 69 6e 24 2c 32 29  |     in$=.in$,2)|
000023a0  0d 14 be 0f 20 20 20 20  20 20 69 3d 74 6f 70 0d  |....      i=top.|
000023b0  14 c8 14 20 20 20 20 20  20 c8 95 20 69 6e 24 3c  |...      .. in$<|
000023c0  3e 22 22 0d 14 d2 27 20  20 20 20 20 20 20 73 74  |>""...'       st|
000023d0  6f 72 65 3f 69 3d 75 73  65 64 28 a0 28 22 26 22  |ore?i=used(.("&"|
000023e0  2b c2 69 6e 24 2c 32 29  29 29 0d 14 dc 0f 20 20  |+.in$,2)))....  |
000023f0  20 20 20 20 20 69 2d 3d  31 0d 14 e6 1b 20 20 20  |     i-=1....   |
00002400  20 20 20 20 69 6e 24 3d  c0 69 6e 24 2c a9 69 6e  |    in$=.in$,.in|
00002410  24 2d 32 29 0d 14 f0 0b  20 20 20 20 20 20 ce 0d  |$-2)....      ..|
00002420  14 fa 17 20 20 20 20 20  20 73 74 6f 72 65 2b 3d  |...      store+=|
00002430  6d 61 78 77 69 64 0d 15  04 09 20 20 20 20 cb 0d  |maxwid....    ..|
00002440  15 0e 08 20 20 20 cd 0d  15 18 07 20 20 cd 0d 15  |...   .....  ...|
00002450  22 0b 20 fd 20 c5 23 69  6e 0d 15 2c 0a 20 d9 20  |". . .#in..,. . |
00002460  23 69 6e 0d 15 36 37 20  c8 99 20 22 4f 53 5f 53  |#in..67 .. "OS_S|
00002470  70 72 69 74 65 4f 70 22  2c 26 31 32 38 2c 73 62  |priteOp",&128,sb|
00002480  75 66 66 65 72 2c 22 62  6c 61 6e 6b 22 20 b8 20  |uffer,"blank" . |
00002490  2c 2c 2c 2c 2c 2c 6d 6f  64 65 0d 15 40 17 20 e7  |,,,,,,mode..@. .|
000024a0  20 eb 3c 3e 6d 6f 64 65  20 eb 20 6d 6f 64 65 3a  | .<>mode . mode:|
000024b0  87 0d 15 4a 0f 20 e7 20  6d 6f 64 65 3d 39 20 8c  |...J. . mode=9 .|
000024c0  0d 15 54 39 20 20 c8 99  20 22 4f 53 5f 53 70 72  |..T9  .. "OS_Spr|
000024d0  69 74 65 4f 70 22 2c 26  31 31 38 2c 73 62 75 66  |iteOp",&118,sbuf|
000024e0  66 65 72 2c 22 70 61 6c  65 74 74 65 22 20 b8 20  |fer,"palette" . |
000024f0  2c 2c 70 61 6c 5f 73 70  72 0d 15 5e 18 20 20 70  |,,pal_spr..^.  p|
00002500  61 6c 5f 64 61 74 3d 70  61 6c 5f 73 70 72 2b 34  |al_dat=pal_spr+4|
00002510  34 0d 15 68 10 20 20 e3  20 69 3d 30 20 b8 20 31  |4..h.  . i=0 . 1|
00002520  35 0d 15 72 14 20 20 20  61 3d 70 61 6c 5f 64 61  |5..r.   a=pal_da|
00002530  74 2b 38 2a 69 0d 15 7c  16 20 20 20 fb 20 69 2c  |t+8*i..|.   . i,|
00002540  61 3f 31 2c 61 3f 32 2c  61 3f 33 0d 15 86 07 20  |a?1,a?2,a?3.... |
00002550  20 ed 0d 15 90 06 20 cd  0d 15 9a 11 20 70 69 65  | ..... ..... pie|
00002560  63 65 28 29 3d 30 2c 2d  31 0d 15 a4 0b 20 78 70  |ce()=0,-1.... xp|
00002570  6f 73 3d 30 0d 15 ae 0b  20 79 70 6f 73 3d 30 0d  |os=0.... ypos=0.|
00002580  15 b8 0d 20 73 70 72 70  6f 73 3d 30 0d 15 c2 05  |... sprpos=0....|
00002590  cd 0d 15 cc 0b f2 73 63  72 65 65 6e 0d 15 d6 0f  |......screen....|
000025a0  f2 63 6c 65 61 72 5f 6d  65 6e 75 0d 15 e0 11 f2  |.clear_menu.....|
000025b0  6d 65 6e 75 28 73 70 72  70 6f 73 29 0d 15 ea 17  |menu(sprpos)....|
000025c0  f2 70 69 65 63 65 28 30  29 3a f2 70 69 65 63 65  |.piece(0):.piece|
000025d0  28 31 29 0d 15 f4 0e f2  63 75 72 73 28 78 2c 79  |(1).....curs(x,y|
000025e0  29 0d 15 fe 05 e1 0d 16  08 05 3a 0d 16 12 0d dd  |).........:.....|
000025f0  20 a4 6f 6b 28 66 24 29  0d 16 1c 1c c8 99 20 22  | .ok(f$)...... "|
00002600  4f 53 5f 46 69 6c 65 22  2c 35 2c 66 24 20 b8 20  |OS_File",5,f$ . |
00002610  74 79 70 65 0d 16 26 0d  3d 28 74 79 70 65 3d 31  |type..&.=(type=1|
00002620  29 0d ff                                          |)..|
00002623