�     >Populate
� By  Antony Bruce Lytis
� For 32-bit machines
(� (C) BAU April 1993
2:
<	� 9:�
F	�init
P�init_sblk
Z�clear_map
d�clear_pos
n	�load
x	�edit
��
�:
�� �init
�size=16
�pixlen=16384
�maxwid=256 � 16
�maxlen=pixlen � size
�xsize=320 � size
�ysize=256 � size
�sqr=size*4
�max_move=256
�,� sprname$(256),map maxwid*maxlen,blk 20
�,� used(256),pos pixlen*4,pused(max_move)

A� move$(max_move),mspr(max_move),pat$(max_move),spr(max_move)

game$="Test"

games$="Games"

"top=ysize-2

,
xpos=0

6spop=�swi("XOS_SpriteOp")

@	pat=0

J
null$=�13

T
sel=-1

^spc12$=�12," ")

h�

r:

|� �swi(swi$)

�+ș "OS_SWINumberFromString",,swi$ � swi

�=swi

�:

�� �init_sblk

�sbsize=�-�-32768

�� sblk sbsize

�!sblk=sbsize

�
sblk!8=16

�ș spop,&109,sblk

��

�:

�� �clear_sprites

�ș spop,&109,sblk
�
:
� �load_sprites(file$)
&ș spop,&10B,sblk,file$
0�
::
D� �sprite_names
N� s=0 � sprites-1
X" sprname$(s)=�sprite_name(s+1)
b�
l�
v:
�� �noof_sprites
�!ș spop,&108,sblk � ,,,number
�=number
�:
�� �sprite_name(spr)
�*ș spop,&10D,sblk,blk,20,spr � ,,,nlen
�blk?nlen=13
�	=$blk
�:
�� �match_sprname(spr$)
�i=1
�
matched=�
�spr$=�lo(spr$)
ȕ � matched
, ș spop,&10D,sblk,blk,20,i � ,,,nlen;ok
 � (ok � 1)>0 �
   matched=�
* �
4  blk?nlen=13
>  � �$blk,�(spr$))=spr$ �
H   matched=�
R   spr$=$blk
\  �
f   i+=1
p  �
z �
��
�	=spr$
�:
�� �address_of(spr$)
�&ș spop,&118,sblk,spr$ � ,,addr ;v
�� v � 1 addr=0
�	=addr
�:
�� �clear_map
�� i=0 � maxwid*maxlen-1 � 4
� map!i=0
��
��
:
� �clear_pos
� i=0 � pixlen*4 � 4
$
 pos!i=-1
.�
8�
B:
L� �strip(a$)
Vȕ �a$,1)=" "
` a$=�a$,2)
j�
tȕ �a$,1)=" "
~ a$=�a$)
��
�=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$
2�
<=b$
F:
P� �input(old$,x,y,max)
Z� 31,x+�old$,y
da$=old$
nȗ ix,iy,iz
xiheld=(iz>0)
�*FX229,1
�*FX21,0
��
��
� �
�  key=�0
�  ȗ x,y,z
�  � z=0 iheld=�
�! � key<>-1 � (z<>0 � � iheld)
� � z<>0 key=13
�$ � key=127 � �a$>0 � 127:a$=�a$)
�) � key=21 � key=27 �ĩa$,�127);:a$=""
� � key=27 a$=old$:�a$;
0 � key>32 � key<127 � �a$<max a$+=�key:� key
� key=13 � key=27
� key=27 a$=""
"�
,*FX229,0
6=a$
@:
J
� �length
Tw=maxlen
^�
h	 w-=1
r� 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)
&  � used(k)<0 used(k)=next:next+=1
& �
0�
:�
D:
N� �load
X"� 30:ș "OS_CLI","Cat "+games$
bok=�
l�
v �0,20);"Load game:";game$
�  new$=�input(game$,10,20,12)
� � new$<>"" �
�  � �ok(games$+"."+new$) �
�   game$=new$
�   �game(games$+"."+game$)
�   ok=�
�  �
� �
�� ok
��
�:
�� �game(g$)
�game=�(g$)
�
 in$=�strip(�#game)
� �in$,1)<>";" � in$<>""
 � line=1 � 6
* colon=�in$,":")
4 type$=�lo(�in$,colon-1))
>  file$=�strip(�in$,colon+1))
H* �("FNload_"+type$+"("""+file$+""")")
R in$=�strip(�#game)
\�
f� #game
p�
z:
�� �load_scenery(f$)
��clear_sprites
� �load_sprites("Scenery."+f$)
�sprites=�noof_sprites
��sprite_names
�=0
�:
�� �load_maps(f$)
�in=�("Maps."+f$)
�mode$=""
��
� �
�  in$=�strip(�#in)
	& � �#in � (�in$,1)<>";" � in$<>"")
	 � in$<>"" �
	  � �in$,1)=":" �
	$   mode$=in$
	.   Ȏ mode$ �
	8    � "Used:":
	B     used()=-1
	L    � "Map:"
	V     store=map
	`     maplen=0
	j   �
	t  �
	~   Ȏ mode$ �
	�    � "Used:"
	�     spc=�in$," ")
	�     spr=�("&"+�in$,2))
	�1     used(spr)=�find_sprite(�lo(�in$,spc+1)))
	�    � "Map:"
	�     � �in$,"-")=0 in$+="-"
	�     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
2      in$=�in$,�in$-2)
<
     �
F     store+=maxwid
P     maplen+=1
Z   �
d  �
n �
x
� �#in
�	� #in
�lastcol=(maplen-xsize)*sqr
�*ș spop,&128,sblk,"blank" � ,,,,,,mode
�� mode<>9 � 1,"Not Mode 9"
�+ș spop,&118,sblk,"palette" � ,,pal_spr
�pal_dat=pal_spr+44
�� i=0 � 15
� a=pal_dat+8*i
� � i,a?1,a?2,a?3
��
�=0
�:
�
� �ok(f$)
ș "OS_File",5,f$ � type

=(type=1)
:
"� �load_sprites(f$)
, �load_sprites("Sprites."+f$)
6=0
@:
J� �load_movement(f$)
Tin=�("Movement."+f$)
^moves=0
h
ȕ � �#in
r
 in$=�#in
| � in$<>"" � �in$,1)<>";" �
�  � �in$,27,1)=" " �
�   move$=�strip(�in$,2,12))
�   spr$=�strip(�in$,15,12))
�    spr$=�match_sprname(spr$)
�   addr=�address_of(spr$)
�   � addr>0 �
�    move$(moves)=�lo(move$)
�    mspr(moves)=addr
�    moves+=1
�   �
�  �
� �
��
	� #in
=0
:
&� �load_patterns(f$)
0in=�("Patterns."+f$)
:
pats=0
D
ȕ � �#in
N
 in$=�#in
X � in$<>"" � �in$,1)<>";" �
b  � �in$,1)<>" " �
l   spc=�in$," ")
v   pat$=�in$,spc-1)
�   rest$=�strip(�in$,spc))
�
   i=0
�   �
�    i+=1
�#   � i>�rest$ � �rest$,i,1)=" "
�   move$=�lo(�rest$,i-1))
�    move=�find(move$,move$())
�   � move<>-1 �
�    pat$(pats)=pat$
�    spr(pats)=mspr(move)
�    pats+=1
�   �
�  �

 �

�

	� #in

 =0

*:

4� �find(a$,a$())

>� i,got

Hi=�(a$(),1)+1

R�

\	 i-=1

f� a$=a$(i) � i=0

p� a$=a$(i) � =i

z=-1

�:

�� �load_layout(f$)

�in=�("Layout."+f$)

�
� in<>0 �

� found=�

� ȕ � �#in

�  in$=�strip(�#in)

�   � in$<>"" � �in$,1)<>";" �

�   � � found �

�    � in$="Layout:" found=�

�   �

�    pat=�eval(in$)

�    abs=�eval(in$)
    mem=pos+abs*4
    mem?0=pat
    mem?1=�eval(in$)
$    mem?2=-1
.    mem?3=-1
8&    � in$<>"" mem?2=�eval(in$) � 2
B&    � in$<>"" mem?3=�eval(in$) � 2
L   �
V  �
` �
j
 � #in
t�
~layout$=f$
�=0
�:
�� �eval(� a$)
�spc=�a$," ")
�	a=�a$
�)� spc=0 a$="" � a$=�strip(�a$,spc+1))
�=a
�:
�
� �screen
�� col=0 � xsize-1
�$ �column(col+xpos � sqr,col*sqr)
��
,�aliens(xpos � sqr,(xpos � sqr)+xsize-1)

�
:
� �column(column,at)
(addr=map+column*maxwid
2� i=0 � top
<4 ș spop,&122,sblk,sprname$(addr?i),at,(i+1)*sqr
F�
P�
Z:
d� �poke(px,py,poke)
nmap?(px*xm+py*ym)=poke
x�
�:
�� �pathname(p)
�0�1,31);�136;" ";�lpad(pat$(p),12);" ";�137;
��
�:
�� �layoutname
�(�21,31);"File: ";�lpad(layout$,12);
��
�:
�� �lpad(s$,l)
�=�s$+�l," "),l)
�:
�� �rpad(s$,r)
=��r," ")+s$,r)
:
� �edit
"�screen
,�pathname(pat)
6�layoutname
@ȗ �
J
held=�
T�
^
 ȗ x,y,z
h � z=0 �
r  �flash(sel,0)
|  move=�mouse(20)
�  �flash(sel,1)
�  � � move wait=�mouse(20)
� �
� � z=0 �
�  held=�
� �
�  � held z=0 � held=�
� �
� � y>sqr �
�  Ȏ z �
�   � 0:
�    � x>1279-4 �lscroll
�    � x<4 �rscroll
   � 2:
    � sel=-1 �
     �place
&	    �
0     � �what_at(x,y)=sel �
:      �respot
D
     �
N      �place
X
     �
b	    �
l   � 4:
v    � �-1 �
�     �delete
�	    �
�     �select
�	    �
�   � 1:�deselect
�  �
� �
�  x=x � 32
�  y=31-(y � 32)
�
  � z>0 �
�   � y=31 �
�    � x=1 �newpath(-1)
�    � x=16 �newpath(1)
3    � x=18 � x=19 � sel<>-1 �adjust_status(sel)
    � x>20 �save
   �
   �
* �
4� �
>�
H:
R� �adjust_status(at)
\col=at-xpos � 4
f� col>320 col=320
p� col<0 � 7:�
z� �-1 �
�
 mem?2=-1
�
 mem?3=-1
��
� � mem?2=255 �
�  mem?2=col � 2
� �
�  � z=4 mem?2=col � 2
�  � z=1 mem?3=col � 2
� �
�; � mem?2<>255 � mem?3<>255 � mem?2<mem?3 Ȕ mem?2,mem?3
��
��18,31);�status(at);
��
:
� �status(at)
� at=-1 � ="  "
$mem=pos+4*at
.col=at-xpos � 4
8� mem?2=255       � ="--"
B� col � 2>mem?2 � ="<<"
L� mem?3=255       � ="G1"
V� col � 2<mem?3 � ="G2"
`	="??"
j:
t� �flash(at,state)
~� at=-1 � pos!(at*4)=-1 �
�mem=pos+4*at
�fx=4*at-xpos
�fy=4*mem?1+sqr
�Ȏ state �
�	 � 0:
�  � 128
�'  ș spop,&231,sblk,spr(?mem),fx,fy
�	 � 1:
�)  ș spop,&222,sblk,spr(?mem),fx,fy,8
��
��
�:
� �mouse(wait)


time=�

xx=x:yy=y
�
(
 ȗ x,y,z
2 �1,30);�id(x,y);
<  move=(z>0 � x<4 � x>1279-4)
F � z=0 held=�
P� �>time+wait � move
Z	=move
d:
n� �id(x,y)
x� � �-2 � =spc12$+spc12$
�id=�what_at(x,y)
�$� id=-1 � ="[ "+spc12$+"   .. ]"
�;="[ "+�lpad(pat$(pos?(4*id)),12)+"   "+�status(id)+" ]"
�:
�� �newpath(a)
�pat=(pat+pats+a)�pats
��pathname(pat)
��
�:
�� �pointer(px,py)
�blk!1=px
�blk!3=py
�?blk=5:ș "OS_Word",21,blk
�
:
� �lscroll
"*FX 106,&81
,ȗ ȓ -1000,-1000,2000,2000
6ȗ � 0,0
@
ox=0:xs=0
J�
T
 dx=xs-ox
^
 ox=xs
h ȗ xs,ys,zs
r �pointer(x,y+ys)
| xs=(xs � � 7) � 2
�
 � xs>0 �
�7  � xpos+xs>lastcol scroll=lastcol-xpos � scroll=xs
�  � scroll<>0 �
�.   ȓ Ȑ 0,sqr,1279,1023-sqr � -scroll,sqr
�   �18,31);�status(sel);
�   x1=(xpos � sqr)+xsize
�"   xp=1280-scroll-(xpos � sqr)
�   x0=x1
�   �
�    �column(x1,xp)
�    xp+=sqr
�
    x1+=1
�   � xp>1280
   xpos+=scroll
   �aliens(x0,x1-1)
  �
& �
0
� dx<0
:ȗ ȓ 0,0,1279,1023
Dȗ � x+dx,y+ys
N
*FX 106,1
X�
b:
l� �rscroll
v*FX 106,&81
�ȗ ȓ -1000,-1000,2000,2000
�ȗ � 0,0
�
ox=0:xs=0
��
�
 dx=xs-ox
�
 ox=xs
� ȗ xs,ys,zs
� �pointer(x,y+ys)
� xs=(xs � � 7) � 2
�
 � xs<0 �
�)  � -xs>xpos scroll=-xpos � scroll=xs
�  � scroll<>0 �
�.   ȓ Ȑ 0,sqr,1279,1023-sqr � -scroll,sqr
   �18,31);�status(sel);
   x1=(xpos � sqr)
   xp=-scroll-(xpos � sqr)
    x0=x1
*   �
4    �column(x1,xp)
>    xp-=sqr
H
    x1-=1
R
   � xp<0
\   xpos+=scroll
f   �aliens(x1+1,x0)
p  �
z �
�
� dx>0
�ȗ ȓ 0,0,1279,1023
�ȗ � x+dx,y+ys
�
*FX 106,1
��
�:
�� �aliens(c1,c2)
�a1=(c1-1)*size:� a1<0 a1=0
�-a2=(c2+1)*size:� a2>=lastcol a2=lastcol-1
�� abs=a1*4 � a2*4 � 4
�N � pos!abs<>-1 ș spop,&222,sblk,spr(pos?abs),abs-xpos,sqr+4*pos?(abs+1),8
��
��
:
� �show(spr,x,y,w,h)
,ș spop,&110,sblk,null$,,x,y,x+w*4,y+h*4
$ș spop,&222,sblk,spr,x,y,8
.�
8:
B
� �respot
Lmem=pos+4*sel
Vspr=?mem
`old=!mem
jxoff=4*sel-xpos-x
tyoff=4*mem?1+sqr-y
~�remove(sel)
�new=�move(spr,xoff,yoff)
�
� new>0 �
� sel=new
� �18,31);�status(sel);
��
�
 !mem=old
�9 ș spop,&222,sblk,spr(?mem),sel*4-xpos,sqr+4*mem?1,8
��
��
�:
�� �place
�dummy=�move(pat,0,0)
�

:
� �move(p,dx,dy)

� held
(%ș spop,&228,sblk,spr(p) � ,,,w,h
2x+=dx:y+=dy
<�show(spr(p),x,y,w,h)
F
ox=x:oy=y
P	to=-1
Zȗ �
d�
n held=�
x �
�  ȗ x,y,z
�  x+=dx
�  y+=dy
�  � x<>ox � y<>oy �
�   � y>=sqr �
�
    Ȗ
�%    ș spop,&122,sblk,null$,ox,oy
�    �show(spr(p),x,y,w,h)
�    ox=x:oy=y
�   �
�  �
�  � z=0 held=�
� � (z>0 � � held) � y<sqr
 � y>=sqr �
  to=(xpos+x) � 4
  abs=pos+4*to
"  � !abs=-1 �
,
   ?abs=p
6   abs?1=(y-sqr) � 4
@   abs?2=-1
J   abs?3=-1
T  �
^
   � 7
h   to=-1
r  �
| �
�#  ș spop,&122,sblk,null$,ox,oy
�  to=-2
� �
�� to<>-1
�ȗ �
�=to
�:
�� �save
�ȗ �
�!new$=�input(layout$,27,31,12)
�� new$<>"" �
� � new$<>layout$ �
�  full$=games$+"."+game$
  out=�"_x_"
  in=�(full$)
  ȕ � �#in
&   in$=�#in
0   � �in$,7)="Layout:" �
:    at=�in$
D    ȕ �in$,at,1)<>" "
N     at-=1
X	    �
b    in$=�in$,at)+new$
l   �
v   �bput(out,in$)
�  �
�  � #in
�  � #out
�  layout$=new$
�(  ș "OS_CLI","Wipe "+full$+" F~C~V"
�%  ș "OS_CLI","Rename _x_ "+full$
�  �set_type(full$,&FFF)
� �
� pused()=�
� � i=0 � lastcol-1
�(  � pos!(i*4)<>-1 pused(pos?(i*4))=�
� �
� out=�("Layout."+layout$)
$ �bput(out,"; >Layout."+layout$)
 �bput(out,"; "+�$)
 �bput(out,"")
  �bput(out,"Patterns:")
* � i=0 � max_move
44  � pused(i) �bput(out," "+�lpad(pat$(i),13)+�i)
> �
H �bput(out,"")
R �bput(out,"Layout:")
\ � i=0 � lastcol-1
f  � pos!(i*4)<>-1 �
p   mem=pos+i*4
zB   out$=" "+�rpad(�?mem,3)+" "+�rpad(�i,5)+" "+�rpad(�mem?1,3)
�1   � mem?2<>255 out$+=" "+�rpad(�(mem?2*2),3)
�1   � mem?3<>255 out$+=" "+�rpad(�(mem?3*2),3)
�   �bput(out,out$)
�  �
� �
� � #out
�& �set_type("Layout."+layout$,&FFF)
� �layoutname
��
�ȗ �
��
�:
�� �set_type(f$,type)
ș "OS_File",18,f$,type
�
:
$� �bput(f,s$)
.� #f,s$+�10;
8�
B:
L
� �select
Vnew=�what_at(x,y)
`� new<>-1 �
j sel=new
t �18,31);�status(sel);
~�
��
�:
�� �what_at(xat,yat)
�xat=(xat+xpos) � 4
�yat=(yat-sqr) � 4
�	add=1
�	end=0
�try=xat
��
� � try>=0 � try<lastcol �
�  � �on(xat,yat,try) end=1
� �
 � end=0 �

  try+=add
  add=-add-�add
  � �add>2*sqr end=-1
( �
2� end<>0
<� end=1 � =try
F=-1
P:
Z
� �delete
ddel=�what_at(x,y)
n� del<>-1 �
x �remove(del)
� � sel=del sel=-1
� �18,31);�status(sel);
��
��
�:
�� �remove(s)
�mem=pos+s*4
�&ș spop,&228,sblk,spr(?mem) � ,,,w
�c1=s � size
�c2=(s+w) � size
�� col=c1 � c2
� �column(col,col*sqr-xpos)
��
!mem=-1
�aliens(c1,c2)
�
":
,� �on(sx,sy,s)
6� pos!(s*4)=-1 � =�
@mem=pos+s*4
J(ș spop,&228,sblk,spr(?mem) � ,,,w,h
T.=(sx>=s � sx<s+w � sy>=mem?1 � sy<mem?1+h)
^:
h� �deselect
r
sel=-1
|�18,31);�status(-1);
��
�

00000000  0d 00 0a 13 f4 20 20 20  20 20 3e 50 6f 70 75 6c  |.....     >Popul|
00000010  61 74 65 0d 00 14 1c f4  20 42 79 20 20 41 6e 74  |ate..... By  Ant|
00000020  6f 6e 79 20 42 72 75 63  65 20 4c 79 74 69 73 0d  |ony Bruce Lytis.|
00000030  00 1e 19 f4 20 46 6f 72  20 33 32 2d 62 69 74 20  |.... For 32-bit |
00000040  6d 61 63 68 69 6e 65 73  0d 00 28 18 f4 20 28 43  |machines..(.. (C|
00000050  29 20 42 41 55 20 41 70  72 69 6c 20 31 39 39 33  |) BAU April 1993|
00000060  0d 00 32 05 3a 0d 00 3c  09 eb 20 39 3a 87 0d 00  |..2.:..<.. 9:...|
00000070  46 09 f2 69 6e 69 74 0d  00 50 0e f2 69 6e 69 74  |F..init..P..init|
00000080  5f 73 62 6c 6b 0d 00 5a  0e f2 63 6c 65 61 72 5f  |_sblk..Z..clear_|
00000090  6d 61 70 0d 00 64 0e f2  63 6c 65 61 72 5f 70 6f  |map..d..clear_po|
000000a0  73 0d 00 6e 09 f2 6c 6f  61 64 0d 00 78 09 f2 65  |s..n..load..x..e|
000000b0  64 69 74 0d 00 82 05 e0  0d 00 8c 05 3a 0d 00 96  |dit.........:...|
000000c0  0b dd 20 f2 69 6e 69 74  0d 00 a0 0b 73 69 7a 65  |.. .init....size|
000000d0  3d 31 36 0d 00 aa 10 70  69 78 6c 65 6e 3d 31 36  |=16....pixlen=16|
000000e0  33 38 34 0d 00 b4 13 6d  61 78 77 69 64 3d 32 35  |384....maxwid=25|
000000f0  36 20 81 20 31 36 0d 00  be 18 6d 61 78 6c 65 6e  |6 . 16....maxlen|
00000100  3d 70 69 78 6c 65 6e 20  81 20 73 69 7a 65 0d 00  |=pixlen . size..|
00000110  c8 14 78 73 69 7a 65 3d  33 32 30 20 81 20 73 69  |..xsize=320 . si|
00000120  7a 65 0d 00 d2 14 79 73  69 7a 65 3d 32 35 36 20  |ze....ysize=256 |
00000130  81 20 73 69 7a 65 0d 00  dc 0e 73 71 72 3d 73 69  |. size....sqr=si|
00000140  7a 65 2a 34 0d 00 e6 10  6d 61 78 5f 6d 6f 76 65  |ze*4....max_move|
00000150  3d 32 35 36 0d 00 f0 2c  de 20 73 70 72 6e 61 6d  |=256...,. sprnam|
00000160  65 24 28 32 35 36 29 2c  6d 61 70 20 6d 61 78 77  |e$(256),map maxw|
00000170  69 64 2a 6d 61 78 6c 65  6e 2c 62 6c 6b 20 32 30  |id*maxlen,blk 20|
00000180  0d 00 fa 2c de 20 75 73  65 64 28 32 35 36 29 2c  |...,. used(256),|
00000190  70 6f 73 20 70 69 78 6c  65 6e 2a 34 2c 70 75 73  |pos pixlen*4,pus|
000001a0  65 64 28 6d 61 78 5f 6d  6f 76 65 29 0d 01 04 41  |ed(max_move)...A|
000001b0  de 20 6d 6f 76 65 24 28  6d 61 78 5f 6d 6f 76 65  |. move$(max_move|
000001c0  29 2c 6d 73 70 72 28 6d  61 78 5f 6d 6f 76 65 29  |),mspr(max_move)|
000001d0  2c 70 61 74 24 28 6d 61  78 5f 6d 6f 76 65 29 2c  |,pat$(max_move),|
000001e0  73 70 72 28 6d 61 78 5f  6d 6f 76 65 29 0d 01 0e  |spr(max_move)...|
000001f0  10 67 61 6d 65 24 3d 22  54 65 73 74 22 0d 01 18  |.game$="Test"...|
00000200  12 67 61 6d 65 73 24 3d  22 47 61 6d 65 73 22 0d  |.games$="Games".|
00000210  01 22 0f 74 6f 70 3d 79  73 69 7a 65 2d 32 0d 01  |.".top=ysize-2..|
00000220  2c 0a 78 70 6f 73 3d 30  0d 01 36 1d 73 70 6f 70  |,.xpos=0..6.spop|
00000230  3d a4 73 77 69 28 22 58  4f 53 5f 53 70 72 69 74  |=.swi("XOS_Sprit|
00000240  65 4f 70 22 29 0d 01 40  09 70 61 74 3d 30 0d 01  |eOp")..@.pat=0..|
00000250  4a 0d 6e 75 6c 6c 24 3d  bd 31 33 0d 01 54 0a 73  |J.null$=.13..T.s|
00000260  65 6c 3d 2d 31 0d 01 5e  13 73 70 63 31 32 24 3d  |el=-1..^.spc12$=|
00000270  c4 31 32 2c 22 20 22 29  0d 01 68 05 e1 0d 01 72  |.12," ")..h....r|
00000280  05 3a 0d 01 7c 10 dd 20  a4 73 77 69 28 73 77 69  |.:..|.. .swi(swi|
00000290  24 29 0d 01 86 2b c8 99  20 22 4f 53 5f 53 57 49  |$)...+.. "OS_SWI|
000002a0  4e 75 6d 62 65 72 46 72  6f 6d 53 74 72 69 6e 67  |NumberFromString|
000002b0  22 2c 2c 73 77 69 24 20  b8 20 73 77 69 0d 01 90  |",,swi$ . swi...|
000002c0  08 3d 73 77 69 0d 01 9a  05 3a 0d 01 a4 10 dd 20  |.=swi....:..... |
000002d0  f2 69 6e 69 74 5f 73 62  6c 6b 0d 01 ae 14 73 62  |.init_sblk....sb|
000002e0  73 69 7a 65 3d 93 2d e0  2d 33 32 37 36 38 0d 01  |size=.-.-32768..|
000002f0  b8 11 de 20 73 62 6c 6b  20 73 62 73 69 7a 65 0d  |... sblk sbsize.|
00000300  01 c2 10 21 73 62 6c 6b  3d 73 62 73 69 7a 65 0d  |...!sblk=sbsize.|
00000310  01 cc 0d 73 62 6c 6b 21  38 3d 31 36 0d 01 d6 15  |...sblk!8=16....|
00000320  c8 99 20 73 70 6f 70 2c  26 31 30 39 2c 73 62 6c  |.. spop,&109,sbl|
00000330  6b 0d 01 e0 05 e1 0d 01  ea 05 3a 0d 01 f4 14 dd  |k.........:.....|
00000340  20 f2 63 6c 65 61 72 5f  73 70 72 69 74 65 73 0d  | .clear_sprites.|
00000350  01 fe 15 c8 99 20 73 70  6f 70 2c 26 31 30 39 2c  |..... spop,&109,|
00000360  73 62 6c 6b 0d 02 08 05  e1 0d 02 12 05 3a 0d 02  |sblk.........:..|
00000370  1c 1a dd 20 f2 6c 6f 61  64 5f 73 70 72 69 74 65  |... .load_sprite|
00000380  73 28 66 69 6c 65 24 29  0d 02 26 1b c8 99 20 73  |s(file$)..&... s|
00000390  70 6f 70 2c 26 31 30 42  2c 73 62 6c 6b 2c 66 69  |pop,&10B,sblk,fi|
000003a0  6c 65 24 0d 02 30 05 e1  0d 02 3a 05 3a 0d 02 44  |le$..0....:.:..D|
000003b0  13 dd 20 f2 73 70 72 69  74 65 5f 6e 61 6d 65 73  |.. .sprite_names|
000003c0  0d 02 4e 15 e3 20 73 3d  30 20 b8 20 73 70 72 69  |..N.. s=0 . spri|
000003d0  74 65 73 2d 31 0d 02 58  22 20 73 70 72 6e 61 6d  |tes-1..X" sprnam|
000003e0  65 24 28 73 29 3d a4 73  70 72 69 74 65 5f 6e 61  |e$(s)=.sprite_na|
000003f0  6d 65 28 73 2b 31 29 0d  02 62 05 ed 0d 02 6c 05  |me(s+1)..b....l.|
00000400  e1 0d 02 76 05 3a 0d 02  80 13 dd 20 a4 6e 6f 6f  |...v.:..... .noo|
00000410  66 5f 73 70 72 69 74 65  73 0d 02 8a 21 c8 99 20  |f_sprites...!.. |
00000420  73 70 6f 70 2c 26 31 30  38 2c 73 62 6c 6b 20 b8  |spop,&108,sblk .|
00000430  20 2c 2c 2c 6e 75 6d 62  65 72 0d 02 94 0b 3d 6e  | ,,,number....=n|
00000440  75 6d 62 65 72 0d 02 9e  05 3a 0d 02 a8 17 dd 20  |umber....:..... |
00000450  a4 73 70 72 69 74 65 5f  6e 61 6d 65 28 73 70 72  |.sprite_name(spr|
00000460  29 0d 02 b2 2a c8 99 20  73 70 6f 70 2c 26 31 30  |)...*.. spop,&10|
00000470  44 2c 73 62 6c 6b 2c 62  6c 6b 2c 32 30 2c 73 70  |D,sblk,blk,20,sp|
00000480  72 20 b8 20 2c 2c 2c 6e  6c 65 6e 0d 02 bc 0f 62  |r . ,,,nlen....b|
00000490  6c 6b 3f 6e 6c 65 6e 3d  31 33 0d 02 c6 09 3d 24  |lk?nlen=13....=$|
000004a0  62 6c 6b 0d 02 d0 05 3a  0d 02 da 1a dd 20 a4 6d  |blk....:..... .m|
000004b0  61 74 63 68 5f 73 70 72  6e 61 6d 65 28 73 70 72  |atch_sprname(spr|
000004c0  24 29 0d 02 e4 07 69 3d  31 0d 02 ee 0d 6d 61 74  |$)....i=1....mat|
000004d0  63 68 65 64 3d a3 0d 02  f8 12 73 70 72 24 3d a4  |ched=.....spr$=.|
000004e0  6c 6f 28 73 70 72 24 29  0d 03 02 10 c8 95 20 ac  |lo(spr$)...... .|
000004f0  20 6d 61 74 63 68 65 64  0d 03 0c 2c 20 c8 99 20  | matched..., .. |
00000500  73 70 6f 70 2c 26 31 30  44 2c 73 62 6c 6b 2c 62  |spop,&10D,sblk,b|
00000510  6c 6b 2c 32 30 2c 69 20  b8 20 2c 2c 2c 6e 6c 65  |lk,20,i . ,,,nle|
00000520  6e 3b 6f 6b 0d 03 16 13  20 e7 20 28 6f 6b 20 80  |n;ok.... . (ok .|
00000530  20 31 29 3e 30 20 8c 0d  03 20 0f 20 20 6d 61 74  | 1)>0 ... .  mat|
00000540  63 68 65 64 3d b9 0d 03  2a 06 20 cc 0d 03 34 11  |ched=...*. ...4.|
00000550  20 20 62 6c 6b 3f 6e 6c  65 6e 3d 31 33 0d 03 3e  |  blk?nlen=13..>|
00000560  1d 20 20 e7 20 c0 24 62  6c 6b 2c a9 28 73 70 72  |.  . .$blk,.(spr|
00000570  24 29 29 3d 73 70 72 24  20 8c 0d 03 48 10 20 20  |$))=spr$ ...H.  |
00000580  20 6d 61 74 63 68 65 64  3d b9 0d 03 52 10 20 20  | matched=...R.  |
00000590  20 73 70 72 24 3d 24 62  6c 6b 0d 03 5c 07 20 20  | spr$=$blk..\.  |
000005a0  cc 0d 03 66 0b 20 20 20  69 2b 3d 31 0d 03 70 07  |...f.   i+=1..p.|
000005b0  20 20 cd 0d 03 7a 06 20  cd 0d 03 84 05 ce 0d 03  |  ...z. ........|
000005c0  8e 09 3d 73 70 72 24 0d  03 98 05 3a 0d 03 a2 17  |..=spr$....:....|
000005d0  dd 20 a4 61 64 64 72 65  73 73 5f 6f 66 28 73 70  |. .address_of(sp|
000005e0  72 24 29 0d 03 ac 26 c8  99 20 73 70 6f 70 2c 26  |r$)...&.. spop,&|
000005f0  31 31 38 2c 73 62 6c 6b  2c 73 70 72 24 20 b8 20  |118,sblk,spr$ . |
00000600  2c 2c 61 64 64 72 20 3b  76 0d 03 b6 12 e7 20 76  |,,addr ;v..... v|
00000610  20 80 20 31 20 61 64 64  72 3d 30 0d 03 c0 09 3d  | . 1 addr=0....=|
00000620  61 64 64 72 0d 03 ca 05  3a 0d 03 d4 10 dd 20 f2  |addr....:..... .|
00000630  63 6c 65 61 72 5f 6d 61  70 0d 03 de 1f e3 20 69  |clear_map..... i|
00000640  3d 30 20 b8 20 6d 61 78  77 69 64 2a 6d 61 78 6c  |=0 . maxwid*maxl|
00000650  65 6e 2d 31 20 88 20 34  0d 03 e8 0c 20 6d 61 70  |en-1 . 4.... map|
00000660  21 69 3d 30 0d 03 f2 05  ed 0d 03 fc 05 e1 0d 04  |!i=0............|
00000670  06 05 3a 0d 04 10 10 dd  20 f2 63 6c 65 61 72 5f  |..:..... .clear_|
00000680  70 6f 73 0d 04 1a 18 e3  20 69 3d 30 20 b8 20 70  |pos..... i=0 . p|
00000690  69 78 6c 65 6e 2a 34 20  88 20 34 0d 04 24 0d 20  |ixlen*4 . 4..$. |
000006a0  70 6f 73 21 69 3d 2d 31  0d 04 2e 05 ed 0d 04 38  |pos!i=-1.......8|
000006b0  05 e1 0d 04 42 05 3a 0d  04 4c 10 dd 20 a4 73 74  |....B.:..L.. .st|
000006c0  72 69 70 28 61 24 29 0d  04 56 11 c8 95 20 c0 61  |rip(a$)..V... .a|
000006d0  24 2c 31 29 3d 22 20 22  0d 04 60 0e 20 61 24 3d  |$,1)=" "..`. a$=|
000006e0  c1 61 24 2c 32 29 0d 04  6a 05 ce 0d 04 74 11 c8  |.a$,2)..j....t..|
000006f0  95 20 c2 61 24 2c 31 29  3d 22 20 22 0d 04 7e 0c  |. .a$,1)=" "..~.|
00000700  20 61 24 3d c0 61 24 29  0d 04 88 05 ce 0d 04 92  | a$=.a$)........|
00000710  07 3d 61 24 0d 04 9c 05  3a 0d 04 a6 18 dd 20 a4  |.=a$....:..... .|
00000720  66 69 6e 64 5f 73 70 72  69 74 65 28 73 70 72 24  |find_sprite(spr$|
00000730  29 0d 04 b0 0f 73 70 72  3d 73 70 72 69 74 65 73  |)....spr=sprites|
00000740  0d 04 ba 05 f5 0d 04 c4  0b 20 73 70 72 2d 3d 31  |......... spr-=1|
00000750  0d 04 ce 20 fd 20 73 70  72 3d 30 20 84 20 73 70  |... . spr=0 . sp|
00000760  72 24 3d 73 70 72 6e 61  6d 65 24 28 73 70 72 29  |r$=sprname$(spr)|
00000770  0d 04 d8 1f e7 20 73 70  72 24 3d 73 70 72 6e 61  |..... spr$=sprna|
00000780  6d 65 24 28 73 70 72 29  20 8c 20 3d 73 70 72 0d  |me$(spr) . =spr.|
00000790  04 e2 23 85 20 31 2c 22  55 6e 6b 6e 6f 77 6e 20  |..#. 1,"Unknown |
000007a0  73 70 72 69 74 65 20 27  22 2b 73 70 72 24 2b 22  |sprite '"+spr$+"|
000007b0  27 22 0d 04 ec 05 3a 0d  04 f6 0d dd 20 a4 6c 6f  |'"....:..... .lo|
000007c0  28 61 24 29 0d 05 00 09  62 24 3d 22 22 0d 05 0a  |(a$)....b$=""...|
000007d0  10 e3 20 6c 6f 3d 31 20  b8 20 a9 61 24 0d 05 14  |.. lo=1 . .a$...|
000007e0  11 20 63 24 3d c1 61 24  2c 6c 6f 2c 31 29 0d 05  |. c$=.a$,lo,1)..|
000007f0  1e 25 20 e7 20 63 24 3e  3d 22 41 22 20 80 20 63  |.% . c$>="A" . c|
00000800  24 3c 3d 22 5a 22 20 63  24 3d bd 28 97 63 24 2b  |$<="Z" c$=.(.c$+|
00000810  33 32 29 0d 05 28 0b 20  62 24 2b 3d 63 24 0d 05  |32)..(. b$+=c$..|
00000820  32 05 ed 0d 05 3c 07 3d  62 24 0d 05 46 05 3a 0d  |2....<.=b$..F.:.|
00000830  05 50 1a dd 20 a4 69 6e  70 75 74 28 6f 6c 64 24  |.P.. .input(old$|
00000840  2c 78 2c 79 2c 6d 61 78  29 0d 05 5a 12 ef 20 33  |,x,y,max)..Z.. 3|
00000850  31 2c 78 2b a9 6f 6c 64  24 2c 79 0d 05 64 0b 61  |1,x+.old$,y..d.a|
00000860  24 3d 6f 6c 64 24 0d 05  6e 0f c8 97 20 69 78 2c  |$=old$..n... ix,|
00000870  69 79 2c 69 7a 0d 05 78  10 69 68 65 6c 64 3d 28  |iy,iz..x.iheld=(|
00000880  69 7a 3e 30 29 0d 05 82  0c 2a 46 58 32 32 39 2c  |iz>0)....*FX229,|
00000890  31 0d 05 8c 0b 2a 46 58  32 31 2c 30 0d 05 96 05  |1....*FX21,0....|
000008a0  ee 0d 05 a0 05 f5 0d 05  aa 06 20 f5 0d 05 b4 0c  |.......... .....|
000008b0  20 20 6b 65 79 3d a6 30  0d 05 be 0e 20 20 c8 97  |  key=.0....  ..|
000008c0  20 78 2c 79 2c 7a 0d 05  c8 13 20 20 e7 20 7a 3d  | x,y,z....  . z=|
000008d0  30 20 69 68 65 6c 64 3d  a3 0d 05 d2 21 20 fd 20  |0 iheld=....! . |
000008e0  6b 65 79 3c 3e 2d 31 20  84 20 28 7a 3c 3e 30 20  |key<>-1 . (z<>0 |
000008f0  80 20 ac 20 69 68 65 6c  64 29 0d 05 dc 12 20 e7  |. . iheld).... .|
00000900  20 7a 3c 3e 30 20 6b 65  79 3d 31 33 0d 05 e6 24  | z<>0 key=13...$|
00000910  20 e7 20 6b 65 79 3d 31  32 37 20 80 20 a9 61 24  | . key=127 . .a$|
00000920  3e 30 20 ef 20 31 32 37  3a 61 24 3d c0 61 24 29  |>0 . 127:a$=.a$)|
00000930  0d 05 f0 29 20 e7 20 6b  65 79 3d 32 31 20 84 20  |...) . key=21 . |
00000940  6b 65 79 3d 32 37 20 f1  c4 a9 61 24 2c bd 31 32  |key=27 ...a$,.12|
00000950  37 29 3b 3a 61 24 3d 22  22 0d 05 fa 1a 20 e7 20  |7);:a$="".... . |
00000960  6b 65 79 3d 32 37 20 61  24 3d 6f 6c 64 24 3a f1  |key=27 a$=old$:.|
00000970  61 24 3b 0d 06 04 30 20  e7 20 6b 65 79 3e 33 32  |a$;...0 . key>32|
00000980  20 80 20 6b 65 79 3c 31  32 37 20 80 20 a9 61 24  | . key<127 . .a$|
00000990  3c 6d 61 78 20 61 24 2b  3d bd 6b 65 79 3a ef 20  |<max a$+=.key:. |
000009a0  6b 65 79 0d 06 0e 15 fd  20 6b 65 79 3d 31 33 20  |key..... key=13 |
000009b0  84 20 6b 65 79 3d 32 37  0d 06 18 12 e7 20 6b 65  |. key=27..... ke|
000009c0  79 3d 32 37 20 61 24 3d  22 22 0d 06 22 05 87 0d  |y=27 a$="".."...|
000009d0  06 2c 0c 2a 46 58 32 32  39 2c 30 0d 06 36 07 3d  |.,.*FX229,0..6.=|
000009e0  61 24 0d 06 40 05 3a 0d  06 4a 0d dd 20 a4 6c 65  |a$..@.:..J.. .le|
000009f0  6e 67 74 68 0d 06 54 0c  77 3d 6d 61 78 6c 65 6e  |ngth..T.w=maxlen|
00000a00  0d 06 5e 05 f5 0d 06 68  09 20 77 2d 3d 31 0d 06  |..^....h. w-=1..|
00000a10  72 19 fd 20 77 3d 30 20  84 20 a4 6e 6f 74 5f 62  |r.. w=0 . .not_b|
00000a20  6c 61 6e 6b 28 77 29 0d  06 7c 08 3d 77 2b 31 0d  |lank(w)..|.=w+1.|
00000a30  06 86 05 3a 0d 06 90 13  dd 20 a4 6e 6f 74 5f 62  |...:..... .not_b|
00000a40  6c 61 6e 6b 28 63 29 0d  06 9a 09 6e 62 3d 2d 34  |lank(c)....nb=-4|
00000a50  0d 06 a4 05 f5 0d 06 ae  0a 20 6e 62 2b 3d 34 0d  |......... nb+=4.|
00000a60  06 b8 23 fd 20 6e 62 3e  74 6f 70 20 84 20 6d 61  |..#. nb>top . ma|
00000a70  70 21 28 63 2a 6d 61 78  77 69 64 2b 6e 62 29 3c  |p!(c*maxwid+nb)<|
00000a80  3e 30 0d 06 c2 1b 3d 28  6d 61 70 21 28 63 2a 6d  |>0....=(map!(c*m|
00000a90  61 78 77 69 64 2b 6e 62  29 3c 3e 30 29 0d 06 cc  |axwid+nb)<>0)...|
00000aa0  05 3a 0d 06 d6 10 dd 20  f2 66 69 6e 64 5f 75 73  |.:..... .find_us|
00000ab0  65 64 0d 06 e0 0d 75 73  65 64 28 29 3d 2d 31 0d  |ed....used()=-1.|
00000ac0  06 ea 0d 75 73 65 64 28  30 29 3d 30 0d 06 f4 0a  |...used(0)=0....|
00000ad0  6e 65 78 74 3d 31 0d 06  fe 14 e3 20 69 3d 30 20  |next=1..... i=0 |
00000ae0  b8 20 6c 65 6e 67 74 68  2d 31 0d 07 08 15 20 e3  |. length-1.... .|
00000af0  20 6a 3d 30 20 b8 20 61  63 72 6f 73 73 2d 31 0d  | j=0 . across-1.|
00000b00  07 12 18 20 20 6b 3d 6d  61 70 3f 28 69 2a 6d 61  |...  k=map?(i*ma|
00000b10  78 77 69 64 2b 6a 29 0d  07 1c 26 20 20 e7 20 75  |xwid+j)...&  . u|
00000b20  73 65 64 28 6b 29 3c 30  20 75 73 65 64 28 6b 29  |sed(k)<0 used(k)|
00000b30  3d 6e 65 78 74 3a 6e 65  78 74 2b 3d 31 0d 07 26  |=next:next+=1..&|
00000b40  06 20 ed 0d 07 30 05 ed  0d 07 3a 05 e1 0d 07 44  |. ...0....:....D|
00000b50  05 3a 0d 07 4e 0b dd 20  f2 6c 6f 61 64 0d 07 58  |.:..N.. .load..X|
00000b60  22 ef 20 33 30 3a c8 99  20 22 4f 53 5f 43 4c 49  |". 30:.. "OS_CLI|
00000b70  22 2c 22 43 61 74 20 22  2b 67 61 6d 65 73 24 0d  |","Cat "+games$.|
00000b80  07 62 08 6f 6b 3d a3 0d  07 6c 05 f5 0d 07 76 1f  |.b.ok=...l....v.|
00000b90  20 f1 8a 30 2c 32 30 29  3b 22 4c 6f 61 64 20 67  | ..0,20);"Load g|
00000ba0  61 6d 65 3a 22 3b 67 61  6d 65 24 0d 07 80 20 20  |ame:";game$...  |
00000bb0  6e 65 77 24 3d a4 69 6e  70 75 74 28 67 61 6d 65  |new$=.input(game|
00000bc0  24 2c 31 30 2c 32 30 2c  31 32 29 0d 07 8a 11 20  |$,10,20,12).... |
00000bd0  e7 20 6e 65 77 24 3c 3e  22 22 20 8c 0d 07 94 1e  |. new$<>"" .....|
00000be0  20 20 e7 20 a4 6f 6b 28  67 61 6d 65 73 24 2b 22  |  . .ok(games$+"|
00000bf0  2e 22 2b 6e 65 77 24 29  20 8c 0d 07 9e 11 20 20  |."+new$) .....  |
00000c00  20 67 61 6d 65 24 3d 6e  65 77 24 0d 07 a8 1e 20  | game$=new$.... |
00000c10  20 20 f2 67 61 6d 65 28  67 61 6d 65 73 24 2b 22  |  .game(games$+"|
00000c20  2e 22 2b 67 61 6d 65 24  29 0d 07 b2 0b 20 20 20  |."+game$)....   |
00000c30  6f 6b 3d b9 0d 07 bc 07  20 20 cd 0d 07 c6 06 20  |ok=.....  ..... |
00000c40  cd 0d 07 d0 08 fd 20 6f  6b 0d 07 da 05 e1 0d 07  |...... ok.......|
00000c50  e4 05 3a 0d 07 ee 0f dd  20 f2 67 61 6d 65 28 67  |..:..... .game(g|
00000c60  24 29 0d 07 f8 0e 67 61  6d 65 3d 8e 28 67 24 29  |$)....game=.(g$)|
00000c70  0d 08 02 05 f5 0d 08 0c  17 20 69 6e 24 3d a4 73  |......... in$=.s|
00000c80  74 72 69 70 28 be 23 67  61 6d 65 29 0d 08 16 1c  |trip(.#game)....|
00000c90  fd 20 c0 69 6e 24 2c 31  29 3c 3e 22 3b 22 20 80  |. .in$,1)<>";" .|
00000ca0  20 69 6e 24 3c 3e 22 22  0d 08 20 10 e3 20 6c 69  | in$<>"".. .. li|
00000cb0  6e 65 3d 31 20 b8 20 36  0d 08 2a 14 20 63 6f 6c  |ne=1 . 6..*. col|
00000cc0  6f 6e 3d a7 69 6e 24 2c  22 3a 22 29 0d 08 34 1d  |on=.in$,":")..4.|
00000cd0  20 74 79 70 65 24 3d a4  6c 6f 28 c0 69 6e 24 2c  | type$=.lo(.in$,|
00000ce0  63 6f 6c 6f 6e 2d 31 29  29 0d 08 3e 20 20 66 69  |colon-1))..>  fi|
00000cf0  6c 65 24 3d a4 73 74 72  69 70 28 c1 69 6e 24 2c  |le$=.strip(.in$,|
00000d00  63 6f 6c 6f 6e 2b 31 29  29 0d 08 48 2a 20 e7 a0  |colon+1))..H* ..|
00000d10  28 22 46 4e 6c 6f 61 64  5f 22 2b 74 79 70 65 24  |("FNload_"+type$|
00000d20  2b 22 28 22 22 22 2b 66  69 6c 65 24 2b 22 22 22  |+"("""+file$+"""|
00000d30  29 22 29 0d 08 52 17 20  69 6e 24 3d a4 73 74 72  |)")..R. in$=.str|
00000d40  69 70 28 be 23 67 61 6d  65 29 0d 08 5c 05 ed 0d  |ip(.#game)..\...|
00000d50  08 66 0b d9 20 23 67 61  6d 65 0d 08 70 05 e1 0d  |.f.. #game..p...|
00000d60  08 7a 05 3a 0d 08 84 17  dd 20 a4 6c 6f 61 64 5f  |.z.:..... .load_|
00000d70  73 63 65 6e 65 72 79 28  66 24 29 0d 08 8e 12 f2  |scenery(f$).....|
00000d80  63 6c 65 61 72 5f 73 70  72 69 74 65 73 0d 08 98  |clear_sprites...|
00000d90  20 f2 6c 6f 61 64 5f 73  70 72 69 74 65 73 28 22  | .load_sprites("|
00000da0  53 63 65 6e 65 72 79 2e  22 2b 66 24 29 0d 08 a2  |Scenery."+f$)...|
00000db0  19 73 70 72 69 74 65 73  3d a4 6e 6f 6f 66 5f 73  |.sprites=.noof_s|
00000dc0  70 72 69 74 65 73 0d 08  ac 11 f2 73 70 72 69 74  |prites.....sprit|
00000dd0  65 5f 6e 61 6d 65 73 0d  08 b6 06 3d 30 0d 08 c0  |e_names....=0...|
00000de0  05 3a 0d 08 ca 14 dd 20  a4 6c 6f 61 64 5f 6d 61  |.:..... .load_ma|
00000df0  70 73 28 66 24 29 0d 08  d4 14 69 6e 3d 8e 28 22  |ps(f$)....in=.("|
00000e00  4d 61 70 73 2e 22 2b 66  24 29 0d 08 de 0c 6d 6f  |Maps."+f$)....mo|
00000e10  64 65 24 3d 22 22 0d 08  e8 05 f5 0d 08 f2 06 20  |de$=""......... |
00000e20  f5 0d 08 fc 16 20 20 69  6e 24 3d a4 73 74 72 69  |.....  in$=.stri|
00000e30  70 28 be 23 69 6e 29 0d  09 06 26 20 fd 20 c5 23  |p(.#in)...& . .#|
00000e40  69 6e 20 84 20 28 c0 69  6e 24 2c 31 29 3c 3e 22  |in . (.in$,1)<>"|
00000e50  3b 22 20 80 20 69 6e 24  3c 3e 22 22 29 0d 09 10  |;" . in$<>"")...|
00000e60  10 20 e7 20 69 6e 24 3c  3e 22 22 20 8c 0d 09 1a  |. . in$<>"" ....|
00000e70  15 20 20 e7 20 c2 69 6e  24 2c 31 29 3d 22 3a 22  |.  . .in$,1)=":"|
00000e80  20 8c 0d 09 24 10 20 20  20 6d 6f 64 65 24 3d 69  | ...$.   mode$=i|
00000e90  6e 24 0d 09 2e 11 20 20  20 c8 8e 20 6d 6f 64 65  |n$....   .. mode|
00000ea0  24 20 ca 0d 09 38 12 20  20 20 20 c9 20 22 55 73  |$ ...8.    . "Us|
00000eb0  65 64 3a 22 3a 0d 09 42  12 20 20 20 20 20 75 73  |ed:":..B.     us|
00000ec0  65 64 28 29 3d 2d 31 0d  09 4c 10 20 20 20 20 c9  |ed()=-1..L.    .|
00000ed0  20 22 4d 61 70 3a 22 0d  09 56 12 20 20 20 20 20  | "Map:"..V.     |
00000ee0  73 74 6f 72 65 3d 6d 61  70 0d 09 60 11 20 20 20  |store=map..`.   |
00000ef0  20 20 6d 61 70 6c 65 6e  3d 30 0d 09 6a 08 20 20  |  maplen=0..j.  |
00000f00  20 cb 0d 09 74 07 20 20  cc 0d 09 7e 11 20 20 20  | ...t.  ...~.   |
00000f10  c8 8e 20 6d 6f 64 65 24  20 ca 0d 09 88 11 20 20  |.. mode$ .....  |
00000f20  20 20 c9 20 22 55 73 65  64 3a 22 0d 09 92 16 20  |  . "Used:".... |
00000f30  20 20 20 20 73 70 63 3d  a7 69 6e 24 2c 22 20 22  |    spc=.in$," "|
00000f40  29 0d 09 9c 1b 20 20 20  20 20 73 70 72 3d a0 28  |)....     spr=.(|
00000f50  22 26 22 2b c0 69 6e 24  2c 32 29 29 0d 09 a6 31  |"&"+.in$,2))...1|
00000f60  20 20 20 20 20 75 73 65  64 28 73 70 72 29 3d a4  |     used(spr)=.|
00000f70  66 69 6e 64 5f 73 70 72  69 74 65 28 a4 6c 6f 28  |find_sprite(.lo(|
00000f80  c1 69 6e 24 2c 73 70 63  2b 31 29 29 29 0d 09 b0  |.in$,spc+1)))...|
00000f90  10 20 20 20 20 c9 20 22  4d 61 70 3a 22 0d 09 ba  |.    . "Map:"...|
00000fa0  1f 20 20 20 20 20 e7 20  a7 69 6e 24 2c 22 2d 22  |.     . .in$,"-"|
00000fb0  29 3d 30 20 69 6e 24 2b  3d 22 2d 22 0d 09 c4 0c  |)=0 in$+="-"....|
00000fc0  20 20 20 20 20 69 3d 30  0d 09 ce 18 20 20 20 20  |     i=0....    |
00000fd0  20 c8 95 20 c0 69 6e 24  2c 31 29 3c 3e 22 2d 22  | .. .in$,1)<>"-"|
00000fe0  0d 09 d8 26 20 20 20 20  20 20 73 74 6f 72 65 3f  |...&      store?|
00000ff0  69 3d 75 73 65 64 28 a0  28 22 26 22 2b c0 69 6e  |i=used(.("&"+.in|
00001000  24 2c 32 29 29 29 0d 09  e2 0e 20 20 20 20 20 20  |$,2)))....      |
00001010  69 2b 3d 31 0d 09 ec 15  20 20 20 20 20 20 69 6e  |i+=1....      in|
00001020  24 3d c1 69 6e 24 2c 33  29 0d 09 f6 0a 20 20 20  |$=.in$,3)....   |
00001030  20 20 ce 0d 0a 00 14 20  20 20 20 20 69 6e 24 3d  |  .....     in$=|
00001040  c1 69 6e 24 2c 32 29 0d  0a 0a 0e 20 20 20 20 20  |.in$,2)....     |
00001050  69 3d 74 6f 70 0d 0a 14  13 20 20 20 20 20 c8 95  |i=top....     ..|
00001060  20 69 6e 24 3c 3e 22 22  0d 0a 1e 26 20 20 20 20  | in$<>""...&    |
00001070  20 20 73 74 6f 72 65 3f  69 3d 75 73 65 64 28 a0  |  store?i=used(.|
00001080  28 22 26 22 2b c2 69 6e  24 2c 32 29 29 29 0d 0a  |("&"+.in$,2)))..|
00001090  28 0e 20 20 20 20 20 20  69 2d 3d 31 0d 0a 32 1a  |(.      i-=1..2.|
000010a0  20 20 20 20 20 20 69 6e  24 3d c0 69 6e 24 2c a9  |      in$=.in$,.|
000010b0  69 6e 24 2d 32 29 0d 0a  3c 0a 20 20 20 20 20 ce  |in$-2)..<.     .|
000010c0  0d 0a 46 16 20 20 20 20  20 73 74 6f 72 65 2b 3d  |..F.     store+=|
000010d0  6d 61 78 77 69 64 0d 0a  50 12 20 20 20 20 20 6d  |maxwid..P.     m|
000010e0  61 70 6c 65 6e 2b 3d 31  0d 0a 5a 08 20 20 20 cb  |aplen+=1..Z.   .|
000010f0  0d 0a 64 07 20 20 cd 0d  0a 6e 06 20 cd 0d 0a 78  |..d.  ...n. ...x|
00001100  0a fd 20 c5 23 69 6e 0d  0a 82 09 d9 20 23 69 6e  |.. .#in..... #in|
00001110  0d 0a 8c 1e 6c 61 73 74  63 6f 6c 3d 28 6d 61 70  |....lastcol=(map|
00001120  6c 65 6e 2d 78 73 69 7a  65 29 2a 73 71 72 0d 0a  |len-xsize)*sqr..|
00001130  96 2a c8 99 20 73 70 6f  70 2c 26 31 32 38 2c 73  |.*.. spop,&128,s|
00001140  62 6c 6b 2c 22 62 6c 61  6e 6b 22 20 b8 20 2c 2c  |blk,"blank" . ,,|
00001150  2c 2c 2c 2c 6d 6f 64 65  0d 0a a0 1e e7 20 6d 6f  |,,,,mode..... mo|
00001160  64 65 3c 3e 39 20 85 20  31 2c 22 4e 6f 74 20 4d  |de<>9 . 1,"Not M|
00001170  6f 64 65 20 39 22 0d 0a  aa 2b c8 99 20 73 70 6f  |ode 9"...+.. spo|
00001180  70 2c 26 31 31 38 2c 73  62 6c 6b 2c 22 70 61 6c  |p,&118,sblk,"pal|
00001190  65 74 74 65 22 20 b8 20  2c 2c 70 61 6c 5f 73 70  |ette" . ,,pal_sp|
000011a0  72 0d 0a b4 16 70 61 6c  5f 64 61 74 3d 70 61 6c  |r....pal_dat=pal|
000011b0  5f 73 70 72 2b 34 34 0d  0a be 0e e3 20 69 3d 30  |_spr+44..... i=0|
000011c0  20 b8 20 31 35 0d 0a c8  12 20 61 3d 70 61 6c 5f  | . 15.... a=pal_|
000011d0  64 61 74 2b 38 2a 69 0d  0a d2 14 20 fb 20 69 2c  |dat+8*i.... . i,|
000011e0  61 3f 31 2c 61 3f 32 2c  61 3f 33 0d 0a dc 05 ed  |a?1,a?2,a?3.....|
000011f0  0d 0a e6 06 3d 30 0d 0a  f0 05 3a 0d 0a fa 0d dd  |....=0....:.....|
00001200  20 a4 6f 6b 28 66 24 29  0d 0b 04 1c c8 99 20 22  | .ok(f$)...... "|
00001210  4f 53 5f 46 69 6c 65 22  2c 35 2c 66 24 20 b8 20  |OS_File",5,f$ . |
00001220  74 79 70 65 0d 0b 0e 0d  3d 28 74 79 70 65 3d 31  |type....=(type=1|
00001230  29 0d 0b 18 05 3a 0d 0b  22 17 dd 20 a4 6c 6f 61  |)....:..".. .loa|
00001240  64 5f 73 70 72 69 74 65  73 28 66 24 29 0d 0b 2c  |d_sprites(f$)..,|
00001250  20 f2 6c 6f 61 64 5f 73  70 72 69 74 65 73 28 22  | .load_sprites("|
00001260  53 70 72 69 74 65 73 2e  22 2b 66 24 29 0d 0b 36  |Sprites."+f$)..6|
00001270  06 3d 30 0d 0b 40 05 3a  0d 0b 4a 18 dd 20 a4 6c  |.=0..@.:..J.. .l|
00001280  6f 61 64 5f 6d 6f 76 65  6d 65 6e 74 28 66 24 29  |oad_movement(f$)|
00001290  0d 0b 54 18 69 6e 3d 8e  28 22 4d 6f 76 65 6d 65  |..T.in=.("Moveme|
000012a0  6e 74 2e 22 2b 66 24 29  0d 0b 5e 0b 6d 6f 76 65  |nt."+f$)..^.move|
000012b0  73 3d 30 0d 0b 68 0d c8  95 20 ac 20 c5 23 69 6e  |s=0..h... . .#in|
000012c0  0d 0b 72 0d 20 69 6e 24  3d be 23 69 6e 0d 0b 7c  |..r. in$=.#in..||
000012d0  1f 20 e7 20 69 6e 24 3c  3e 22 22 20 80 20 c0 69  |. . in$<>"" . .i|
000012e0  6e 24 2c 31 29 3c 3e 22  3b 22 20 8c 0d 0b 86 18  |n$,1)<>";" .....|
000012f0  20 20 e7 20 c1 69 6e 24  2c 32 37 2c 31 29 3d 22  |  . .in$,27,1)="|
00001300  20 22 20 8c 0d 0b 90 1f  20 20 20 6d 6f 76 65 24  | " .....   move$|
00001310  3d a4 73 74 72 69 70 28  c1 69 6e 24 2c 32 2c 31  |=.strip(.in$,2,1|
00001320  32 29 29 0d 0b 9a 1f 20  20 20 73 70 72 24 3d a4  |2))....   spr$=.|
00001330  73 74 72 69 70 28 c1 69  6e 24 2c 31 35 2c 31 32  |strip(.in$,15,12|
00001340  29 29 0d 0b a4 20 20 20  20 73 70 72 24 3d a4 6d  |))...    spr$=.m|
00001350  61 74 63 68 5f 73 70 72  6e 61 6d 65 28 73 70 72  |atch_sprname(spr|
00001360  24 29 0d 0b ae 1d 20 20  20 61 64 64 72 3d a4 61  |$)....   addr=.a|
00001370  64 64 72 65 73 73 5f 6f  66 28 73 70 72 24 29 0d  |ddress_of(spr$).|
00001380  0b b8 11 20 20 20 e7 20  61 64 64 72 3e 30 20 8c  |...   . addr>0 .|
00001390  0d 0b c2 1f 20 20 20 20  6d 6f 76 65 24 28 6d 6f  |....    move$(mo|
000013a0  76 65 73 29 3d a4 6c 6f  28 6d 6f 76 65 24 29 0d  |ves)=.lo(move$).|
000013b0  0b cc 18 20 20 20 20 6d  73 70 72 28 6d 6f 76 65  |...    mspr(move|
000013c0  73 29 3d 61 64 64 72 0d  0b d6 10 20 20 20 20 6d  |s)=addr....    m|
000013d0  6f 76 65 73 2b 3d 31 0d  0b e0 08 20 20 20 cd 0d  |oves+=1....   ..|
000013e0  0b ea 07 20 20 cd 0d 0b  f4 06 20 cd 0d 0b fe 05  |...  ..... .....|
000013f0  ce 0d 0c 08 09 d9 20 23  69 6e 0d 0c 12 06 3d 30  |...... #in....=0|
00001400  0d 0c 1c 05 3a 0d 0c 26  18 dd 20 a4 6c 6f 61 64  |....:..&.. .load|
00001410  5f 70 61 74 74 65 72 6e  73 28 66 24 29 0d 0c 30  |_patterns(f$)..0|
00001420  18 69 6e 3d 8e 28 22 50  61 74 74 65 72 6e 73 2e  |.in=.("Patterns.|
00001430  22 2b 66 24 29 0d 0c 3a  0a 70 61 74 73 3d 30 0d  |"+f$)..:.pats=0.|
00001440  0c 44 0d c8 95 20 ac 20  c5 23 69 6e 0d 0c 4e 0d  |.D... . .#in..N.|
00001450  20 69 6e 24 3d be 23 69  6e 0d 0c 58 1f 20 e7 20  | in$=.#in..X. . |
00001460  69 6e 24 3c 3e 22 22 20  80 20 c0 69 6e 24 2c 31  |in$<>"" . .in$,1|
00001470  29 3c 3e 22 3b 22 20 8c  0d 0c 62 16 20 20 e7 20  |)<>";" ...b.  . |
00001480  c0 69 6e 24 2c 31 29 3c  3e 22 20 22 20 8c 0d 0c  |.in$,1)<>" " ...|
00001490  6c 14 20 20 20 73 70 63  3d a7 69 6e 24 2c 22 20  |l.   spc=.in$," |
000014a0  22 29 0d 0c 76 17 20 20  20 70 61 74 24 3d c0 69  |")..v.   pat$=.i|
000014b0  6e 24 2c 73 70 63 2d 31  29 0d 0c 80 1e 20 20 20  |n$,spc-1)....   |
000014c0  72 65 73 74 24 3d a4 73  74 72 69 70 28 c1 69 6e  |rest$=.strip(.in|
000014d0  24 2c 73 70 63 29 29 0d  0c 8a 0a 20 20 20 69 3d  |$,spc))....   i=|
000014e0  30 0d 0c 94 08 20 20 20  f5 0d 0c 9e 0c 20 20 20  |0....   .....   |
000014f0  20 69 2b 3d 31 0d 0c a8  23 20 20 20 fd 20 69 3e  | i+=1...#   . i>|
00001500  a9 72 65 73 74 24 20 84  20 c1 72 65 73 74 24 2c  |.rest$ . .rest$,|
00001510  69 2c 31 29 3d 22 20 22  0d 0c b2 1d 20 20 20 6d  |i,1)=" "....   m|
00001520  6f 76 65 24 3d a4 6c 6f  28 c0 72 65 73 74 24 2c  |ove$=.lo(.rest$,|
00001530  69 2d 31 29 29 0d 0c bc  20 20 20 20 6d 6f 76 65  |i-1))...    move|
00001540  3d a4 66 69 6e 64 28 6d  6f 76 65 24 2c 6d 6f 76  |=.find(move$,mov|
00001550  65 24 28 29 29 0d 0c c6  13 20 20 20 e7 20 6d 6f  |e$())....   . mo|
00001560  76 65 3c 3e 2d 31 20 8c  0d 0c d0 17 20 20 20 20  |ve<>-1 .....    |
00001570  70 61 74 24 28 70 61 74  73 29 3d 70 61 74 24 0d  |pat$(pats)=pat$.|
00001580  0c da 1c 20 20 20 20 73  70 72 28 70 61 74 73 29  |...    spr(pats)|
00001590  3d 6d 73 70 72 28 6d 6f  76 65 29 0d 0c e4 0f 20  |=mspr(move).... |
000015a0  20 20 20 70 61 74 73 2b  3d 31 0d 0c ee 08 20 20  |   pats+=1....  |
000015b0  20 cd 0d 0c f8 07 20 20  cd 0d 0d 02 06 20 cd 0d  | .....  ..... ..|
000015c0  0d 0c 05 ce 0d 0d 16 09  d9 20 23 69 6e 0d 0d 20  |......... #in.. |
000015d0  06 3d 30 0d 0d 2a 05 3a  0d 0d 34 14 dd 20 a4 66  |.=0..*.:..4.. .f|
000015e0  69 6e 64 28 61 24 2c 61  24 28 29 29 0d 0d 3e 0b  |ind(a$,a$())..>.|
000015f0  ea 20 69 2c 67 6f 74 0d  0d 48 11 69 3d de 28 61  |. i,got..H.i=.(a|
00001600  24 28 29 2c 31 29 2b 31  0d 0d 52 05 f5 0d 0d 5c  |$(),1)+1..R....\|
00001610  09 20 69 2d 3d 31 0d 0d  66 14 fd 20 61 24 3d 61  |. i-=1..f.. a$=a|
00001620  24 28 69 29 20 84 20 69  3d 30 0d 0d 70 13 e7 20  |$(i) . i=0..p.. |
00001630  61 24 3d 61 24 28 69 29  20 8c 20 3d 69 0d 0d 7a  |a$=a$(i) . =i..z|
00001640  07 3d 2d 31 0d 0d 84 05  3a 0d 0d 8e 16 dd 20 a4  |.=-1....:..... .|
00001650  6c 6f 61 64 5f 6c 61 79  6f 75 74 28 66 24 29 0d  |load_layout(f$).|
00001660  0d 98 16 69 6e 3d 8e 28  22 4c 61 79 6f 75 74 2e  |...in=.("Layout.|
00001670  22 2b 66 24 29 0d 0d a2  0d e7 20 69 6e 3c 3e 30  |"+f$)..... in<>0|
00001680  20 8c 0d 0d ac 0c 20 66  6f 75 6e 64 3d a3 0d 0d  | ..... found=...|
00001690  b6 0e 20 c8 95 20 ac 20  c5 23 69 6e 0d 0d c0 16  |.. .. . .#in....|
000016a0  20 20 69 6e 24 3d a4 73  74 72 69 70 28 be 23 69  |  in$=.strip(.#i|
000016b0  6e 29 0d 0d ca 20 20 20  e7 20 69 6e 24 3c 3e 22  |n)...   . in$<>"|
000016c0  22 20 80 20 c0 69 6e 24  2c 31 29 3c 3e 22 3b 22  |" . .in$,1)<>";"|
000016d0  20 8c 0d 0d d4 12 20 20  20 e7 20 ac 20 66 6f 75  | .....   . . fou|
000016e0  6e 64 20 8c 0d 0d de 1f  20 20 20 20 e7 20 69 6e  |nd .....    . in|
000016f0  24 3d 22 4c 61 79 6f 75  74 3a 22 20 66 6f 75 6e  |$="Layout:" foun|
00001700  64 3d b9 0d 0d e8 08 20  20 20 cc 0d 0d f2 16 20  |d=.....   ..... |
00001710  20 20 20 70 61 74 3d a4  65 76 61 6c 28 69 6e 24  |   pat=.eval(in$|
00001720  29 0d 0d fc 16 20 20 20  20 61 62 73 3d a4 65 76  |)....    abs=.ev|
00001730  61 6c 28 69 6e 24 29 0d  0e 06 15 20 20 20 20 6d  |al(in$)....    m|
00001740  65 6d 3d 70 6f 73 2b 61  62 73 2a 34 0d 0e 10 11  |em=pos+abs*4....|
00001750  20 20 20 20 6d 65 6d 3f  30 3d 70 61 74 0d 0e 1a  |    mem?0=pat...|
00001760  18 20 20 20 20 6d 65 6d  3f 31 3d a4 65 76 61 6c  |.    mem?1=.eval|
00001770  28 69 6e 24 29 0d 0e 24  10 20 20 20 20 6d 65 6d  |(in$)..$.    mem|
00001780  3f 32 3d 2d 31 0d 0e 2e  10 20 20 20 20 6d 65 6d  |?2=-1....    mem|
00001790  3f 33 3d 2d 31 0d 0e 38  26 20 20 20 20 e7 20 69  |?3=-1..8&    . i|
000017a0  6e 24 3c 3e 22 22 20 6d  65 6d 3f 32 3d a4 65 76  |n$<>"" mem?2=.ev|
000017b0  61 6c 28 69 6e 24 29 20  81 20 32 0d 0e 42 26 20  |al(in$) . 2..B& |
000017c0  20 20 20 e7 20 69 6e 24  3c 3e 22 22 20 6d 65 6d  |   . in$<>"" mem|
000017d0  3f 33 3d a4 65 76 61 6c  28 69 6e 24 29 20 81 20  |?3=.eval(in$) . |
000017e0  32 0d 0e 4c 08 20 20 20  cd 0d 0e 56 07 20 20 cd  |2..L.   ...V.  .|
000017f0  0d 0e 60 06 20 ce 0d 0e  6a 0a 20 d9 20 23 69 6e  |..`. ...j. . #in|
00001800  0d 0e 74 05 cd 0d 0e 7e  0e 6c 61 79 6f 75 74 24  |..t....~.layout$|
00001810  3d 66 24 0d 0e 88 06 3d  30 0d 0e 92 05 3a 0d 0e  |=f$....=0....:..|
00001820  9c 11 dd 20 a4 65 76 61  6c 28 f8 20 61 24 29 0d  |... .eval(. a$).|
00001830  0e a6 10 73 70 63 3d a7  61 24 2c 22 20 22 29 0d  |...spc=.a$," ").|
00001840  0e b0 09 61 3d a0 61 24  0d 0e ba 29 e7 20 73 70  |...a=.a$...). sp|
00001850  63 3d 30 20 61 24 3d 22  22 20 8b 20 61 24 3d a4  |c=0 a$="" . a$=.|
00001860  73 74 72 69 70 28 c1 61  24 2c 73 70 63 2b 31 29  |strip(.a$,spc+1)|
00001870  29 0d 0e c4 06 3d 61 0d  0e ce 05 3a 0d 0e d8 0d  |)....=a....:....|
00001880  dd 20 f2 73 63 72 65 65  6e 0d 0e e2 15 e3 20 63  |. .screen..... c|
00001890  6f 6c 3d 30 20 b8 20 78  73 69 7a 65 2d 31 0d 0e  |ol=0 . xsize-1..|
000018a0  ec 24 20 f2 63 6f 6c 75  6d 6e 28 63 6f 6c 2b 78  |.$ .column(col+x|
000018b0  70 6f 73 20 81 20 73 71  72 2c 63 6f 6c 2a 73 71  |pos . sqr,col*sq|
000018c0  72 29 0d 0e f6 05 ed 0d  0f 00 2c f2 61 6c 69 65  |r)........,.alie|
000018d0  6e 73 28 78 70 6f 73 20  81 20 73 71 72 2c 28 78  |ns(xpos . sqr,(x|
000018e0  70 6f 73 20 81 20 73 71  72 29 2b 78 73 69 7a 65  |pos . sqr)+xsize|
000018f0  2d 31 29 0d 0f 0a 05 e1  0d 0f 14 05 3a 0d 0f 1e  |-1).........:...|
00001900  18 dd 20 f2 63 6f 6c 75  6d 6e 28 63 6f 6c 75 6d  |.. .column(colum|
00001910  6e 2c 61 74 29 0d 0f 28  1a 61 64 64 72 3d 6d 61  |n,at)..(.addr=ma|
00001920  70 2b 63 6f 6c 75 6d 6e  2a 6d 61 78 77 69 64 0d  |p+column*maxwid.|
00001930  0f 32 0f e3 20 69 3d 30  20 b8 20 74 6f 70 0d 0f  |.2.. i=0 . top..|
00001940  3c 34 20 c8 99 20 73 70  6f 70 2c 26 31 32 32 2c  |<4 .. spop,&122,|
00001950  73 62 6c 6b 2c 73 70 72  6e 61 6d 65 24 28 61 64  |sblk,sprname$(ad|
00001960  64 72 3f 69 29 2c 61 74  2c 28 69 2b 31 29 2a 73  |dr?i),at,(i+1)*s|
00001970  71 72 0d 0f 46 05 ed 0d  0f 50 05 e1 0d 0f 5a 05  |qr..F....P....Z.|
00001980  3a 0d 0f 64 17 dd 20 f2  70 6f 6b 65 28 70 78 2c  |:..d.. .poke(px,|
00001990  70 79 2c 70 6f 6b 65 29  0d 0f 6e 1a 6d 61 70 3f  |py,poke)..n.map?|
000019a0  28 70 78 2a 78 6d 2b 70  79 2a 79 6d 29 3d 70 6f  |(px*xm+py*ym)=po|
000019b0  6b 65 0d 0f 78 05 e1 0d  0f 82 05 3a 0d 0f 8c 12  |ke..x......:....|
000019c0  dd 20 f2 70 61 74 68 6e  61 6d 65 28 70 29 0d 0f  |. .pathname(p)..|
000019d0  96 30 f1 8a 31 2c 33 31  29 3b bd 31 33 36 3b 22  |.0..1,31);.136;"|
000019e0  20 22 3b a4 6c 70 61 64  28 70 61 74 24 28 70 29  | ";.lpad(pat$(p)|
000019f0  2c 31 32 29 3b 22 20 22  3b bd 31 33 37 3b 0d 0f  |,12);" ";.137;..|
00001a00  a0 05 e1 0d 0f aa 05 3a  0d 0f b4 11 dd 20 f2 6c  |.......:..... .l|
00001a10  61 79 6f 75 74 6e 61 6d  65 0d 0f be 28 f1 8a 32  |ayoutname...(..2|
00001a20  31 2c 33 31 29 3b 22 46  69 6c 65 3a 20 22 3b a4  |1,31);"File: ";.|
00001a30  6c 70 61 64 28 6c 61 79  6f 75 74 24 2c 31 32 29  |lpad(layout$,12)|
00001a40  3b 0d 0f c8 05 e1 0d 0f  d2 05 3a 0d 0f dc 11 dd  |;.........:.....|
00001a50  20 a4 6c 70 61 64 28 73  24 2c 6c 29 0d 0f e6 13  | .lpad(s$,l)....|
00001a60  3d c0 73 24 2b c4 6c 2c  22 20 22 29 2c 6c 29 0d  |=.s$+.l," "),l).|
00001a70  0f f0 05 3a 0d 0f fa 11  dd 20 a4 72 70 61 64 28  |...:..... .rpad(|
00001a80  73 24 2c 72 29 0d 10 04  13 3d c2 c4 72 2c 22 20  |s$,r)....=..r," |
00001a90  22 29 2b 73 24 2c 72 29  0d 10 0e 05 3a 0d 10 18  |")+s$,r)....:...|
00001aa0  0b dd 20 f2 65 64 69 74  0d 10 22 0b f2 73 63 72  |.. .edit.."..scr|
00001ab0  65 65 6e 0d 10 2c 12 f2  70 61 74 68 6e 61 6d 65  |een..,..pathname|
00001ac0  28 70 61 74 29 0d 10 36  0f f2 6c 61 79 6f 75 74  |(pat)..6..layout|
00001ad0  6e 61 6d 65 0d 10 40 08  c8 97 20 ee 0d 10 4a 0a  |name..@... ...J.|
00001ae0  68 65 6c 64 3d a3 0d 10  54 05 f5 0d 10 5e 0d 20  |held=...T....^. |
00001af0  c8 97 20 78 2c 79 2c 7a  0d 10 68 0c 20 e7 20 7a  |.. x,y,z..h. . z|
00001b00  3d 30 20 8c 0d 10 72 13  20 20 f2 66 6c 61 73 68  |=0 ...r.  .flash|
00001b10  28 73 65 6c 2c 30 29 0d  10 7c 15 20 20 6d 6f 76  |(sel,0)..|.  mov|
00001b20  65 3d a4 6d 6f 75 73 65  28 32 30 29 0d 10 86 13  |e=.mouse(20)....|
00001b30  20 20 f2 66 6c 61 73 68  28 73 65 6c 2c 31 29 0d  |  .flash(sel,1).|
00001b40  10 90 1e 20 20 e7 20 ac  20 6d 6f 76 65 20 77 61  |...  . . move wa|
00001b50  69 74 3d a4 6d 6f 75 73  65 28 32 30 29 0d 10 9a  |it=.mouse(20)...|
00001b60  06 20 cd 0d 10 a4 0c 20  e7 20 7a 3d 30 20 8c 0d  |. ..... . z=0 ..|
00001b70  10 ae 0c 20 20 68 65 6c  64 3d a3 0d 10 b8 06 20  |...  held=..... |
00001b80  cc 0d 10 c2 19 20 20 e7  20 68 65 6c 64 20 7a 3d  |.....  . held z=|
00001b90  30 20 8b 20 68 65 6c 64  3d b9 0d 10 cc 06 20 cd  |0 . held=..... .|
00001ba0  0d 10 d6 0e 20 e7 20 79  3e 73 71 72 20 8c 0d 10  |.... . y>sqr ...|
00001bb0  e0 0c 20 20 c8 8e 20 7a  20 ca 0d 10 ea 0b 20 20  |..  .. z .....  |
00001bc0  20 c9 20 30 3a 0d 10 f4  1b 20 20 20 20 e7 20 78  | . 0:....    . x|
00001bd0  3e 31 32 37 39 2d 34 20  f2 6c 73 63 72 6f 6c 6c  |>1279-4 .lscroll|
00001be0  0d 10 fe 16 20 20 20 20  e7 20 78 3c 34 20 f2 72  |....    . x<4 .r|
00001bf0  73 63 72 6f 6c 6c 0d 11  08 0b 20 20 20 c9 20 32  |scroll....   . 2|
00001c00  3a 0d 11 12 12 20 20 20  20 e7 20 73 65 6c 3d 2d  |:....    . sel=-|
00001c10  31 20 8c 0d 11 1c 0f 20  20 20 20 20 f2 70 6c 61  |1 .....     .pla|
00001c20  63 65 0d 11 26 09 20 20  20 20 cc 0d 11 30 1e 20  |ce..&.    ...0. |
00001c30  20 20 20 20 e7 20 a4 77  68 61 74 5f 61 74 28 78  |    . .what_at(x|
00001c40  2c 79 29 3d 73 65 6c 20  8c 0d 11 3a 11 20 20 20  |,y)=sel ...:.   |
00001c50  20 20 20 f2 72 65 73 70  6f 74 0d 11 44 0a 20 20  |   .respot..D.  |
00001c60  20 20 20 cc 0d 11 4e 10  20 20 20 20 20 20 f2 70  |   ...N.      .p|
00001c70  6c 61 63 65 0d 11 58 0a  20 20 20 20 20 cd 0d 11  |lace..X.     ...|
00001c80  62 09 20 20 20 20 cd 0d  11 6c 0b 20 20 20 c9 20  |b.    ...l.   . |
00001c90  34 3a 0d 11 76 0f 20 20  20 20 e7 20 a6 2d 31 20  |4:..v.    . .-1 |
00001ca0  8c 0d 11 80 10 20 20 20  20 20 f2 64 65 6c 65 74  |.....     .delet|
00001cb0  65 0d 11 8a 09 20 20 20  20 cc 0d 11 94 10 20 20  |e....    .....  |
00001cc0  20 20 20 f2 73 65 6c 65  63 74 0d 11 9e 09 20 20  |   .select....  |
00001cd0  20 20 cd 0d 11 a8 14 20  20 20 c9 20 31 3a f2 64  |  .....   . 1:.d|
00001ce0  65 73 65 6c 65 63 74 0d  11 b2 07 20 20 cb 0d 11  |eselect....  ...|
00001cf0  bc 06 20 cc 0d 11 c6 0e  20 20 78 3d 78 20 81 20  |.. .....  x=x . |
00001d00  33 32 0d 11 d0 13 20 20  79 3d 33 31 2d 28 79 20  |32....  y=31-(y |
00001d10  81 20 33 32 29 0d 11 da  0d 20 20 e7 20 7a 3e 30  |. 32)....  . z>0|
00001d20  20 8c 0d 11 e4 0f 20 20  20 e7 20 79 3d 33 31 20  | .....   . y=31 |
00001d30  8c 0d 11 ee 1a 20 20 20  20 e7 20 78 3d 31 20 f2  |.....    . x=1 .|
00001d40  6e 65 77 70 61 74 68 28  2d 31 29 0d 11 f8 1a 20  |newpath(-1).... |
00001d50  20 20 20 e7 20 78 3d 31  36 20 f2 6e 65 77 70 61  |   . x=16 .newpa|
00001d60  74 68 28 31 29 0d 12 02  33 20 20 20 20 e7 20 78  |th(1)...3    . x|
00001d70  3d 31 38 20 84 20 78 3d  31 39 20 80 20 73 65 6c  |=18 . x=19 . sel|
00001d80  3c 3e 2d 31 20 f2 61 64  6a 75 73 74 5f 73 74 61  |<>-1 .adjust_sta|
00001d90  74 75 73 28 73 65 6c 29  0d 12 0c 14 20 20 20 20  |tus(sel)....    |
00001da0  e7 20 78 3e 32 30 20 f2  73 61 76 65 0d 12 16 08  |. x>20 .save....|
00001db0  20 20 20 cd 0d 12 20 07  20 20 cd 0d 12 2a 06 20  |   ... .  ...*. |
00001dc0  cd 0d 12 34 07 fd 20 a3  0d 12 3e 05 e1 0d 12 48  |...4.. ...>....H|
00001dd0  05 3a 0d 12 52 18 dd 20  f2 61 64 6a 75 73 74 5f  |.:..R.. .adjust_|
00001de0  73 74 61 74 75 73 28 61  74 29 0d 12 5c 13 63 6f  |status(at)..\.co|
00001df0  6c 3d 61 74 2d 78 70 6f  73 20 81 20 34 0d 12 66  |l=at-xpos . 4..f|
00001e00  15 e7 20 63 6f 6c 3e 33  32 30 20 63 6f 6c 3d 33  |.. col>320 col=3|
00001e10  32 30 0d 12 70 11 e7 20  63 6f 6c 3c 30 20 ef 20  |20..p.. col<0 . |
00001e20  37 3a e1 0d 12 7a 0b e7  20 a6 2d 31 20 8c 0d 12  |7:...z.. .-1 ...|
00001e30  84 0d 20 6d 65 6d 3f 32  3d 2d 31 0d 12 8e 0d 20  |.. mem?2=-1.... |
00001e40  6d 65 6d 3f 33 3d 2d 31  0d 12 98 05 cc 0d 12 a2  |mem?3=-1........|
00001e50  12 20 e7 20 6d 65 6d 3f  32 3d 32 35 35 20 8c 0d  |. . mem?2=255 ..|
00001e60  12 ac 13 20 20 6d 65 6d  3f 32 3d 63 6f 6c 20 81  |...  mem?2=col .|
00001e70  20 32 0d 12 b6 06 20 cc  0d 12 c0 19 20 20 e7 20  | 2.... .....  . |
00001e80  7a 3d 34 20 6d 65 6d 3f  32 3d 63 6f 6c 20 81 20  |z=4 mem?2=col . |
00001e90  32 0d 12 ca 19 20 20 e7  20 7a 3d 31 20 6d 65 6d  |2....  . z=1 mem|
00001ea0  3f 33 3d 63 6f 6c 20 81  20 32 0d 12 d4 06 20 cd  |?3=col . 2.... .|
00001eb0  0d 12 de 3b 20 e7 20 6d  65 6d 3f 32 3c 3e 32 35  |...; . mem?2<>25|
00001ec0  35 20 80 20 6d 65 6d 3f  33 3c 3e 32 35 35 20 80  |5 . mem?3<>255 .|
00001ed0  20 6d 65 6d 3f 32 3c 6d  65 6d 3f 33 20 c8 94 20  | mem?2<mem?3 .. |
00001ee0  6d 65 6d 3f 32 2c 6d 65  6d 3f 33 0d 12 e8 05 cd  |mem?2,mem?3.....|
00001ef0  0d 12 f2 19 f1 8a 31 38  2c 33 31 29 3b a4 73 74  |......18,31);.st|
00001f00  61 74 75 73 28 61 74 29  3b 0d 12 fc 05 e1 0d 13  |atus(at);.......|
00001f10  06 05 3a 0d 13 10 11 dd  20 a4 73 74 61 74 75 73  |..:..... .status|
00001f20  28 61 74 29 0d 13 1a 13  e7 20 61 74 3d 2d 31 20  |(at)..... at=-1 |
00001f30  8c 20 3d 22 20 20 22 0d  13 24 10 6d 65 6d 3d 70  |. ="  "..$.mem=p|
00001f40  6f 73 2b 34 2a 61 74 0d  13 2e 13 63 6f 6c 3d 61  |os+4*at....col=a|
00001f50  74 2d 78 70 6f 73 20 81  20 34 0d 13 38 1d e7 20  |t-xpos . 4..8.. |
00001f60  6d 65 6d 3f 32 3d 32 35  35 20 20 20 20 20 20 20  |mem?2=255       |
00001f70  8c 20 3d 22 2d 2d 22 0d  13 42 1b e7 20 63 6f 6c  |. ="--"..B.. col|
00001f80  20 81 20 32 3e 6d 65 6d  3f 32 20 8c 20 3d 22 3c  | . 2>mem?2 . ="<|
00001f90  3c 22 0d 13 4c 1d e7 20  6d 65 6d 3f 33 3d 32 35  |<"..L.. mem?3=25|
00001fa0  35 20 20 20 20 20 20 20  8c 20 3d 22 47 31 22 0d  |5       . ="G1".|
00001fb0  13 56 1b e7 20 63 6f 6c  20 81 20 32 3c 6d 65 6d  |.V.. col . 2<mem|
00001fc0  3f 33 20 8c 20 3d 22 47  32 22 0d 13 60 09 3d 22  |?3 . ="G2"..`.="|
00001fd0  3f 3f 22 0d 13 6a 05 3a  0d 13 74 16 dd 20 f2 66  |??"..j.:..t.. .f|
00001fe0  6c 61 73 68 28 61 74 2c  73 74 61 74 65 29 0d 13  |lash(at,state)..|
00001ff0  7e 1d e7 20 61 74 3d 2d  31 20 84 20 70 6f 73 21  |~.. at=-1 . pos!|
00002000  28 61 74 2a 34 29 3d 2d  31 20 e1 0d 13 88 10 6d  |(at*4)=-1 .....m|
00002010  65 6d 3d 70 6f 73 2b 34  2a 61 74 0d 13 92 10 66  |em=pos+4*at....f|
00002020  78 3d 34 2a 61 74 2d 78  70 6f 73 0d 13 9c 12 66  |x=4*at-xpos....f|
00002030  79 3d 34 2a 6d 65 6d 3f  31 2b 73 71 72 0d 13 a6  |y=4*mem?1+sqr...|
00002040  0e c8 8e 20 73 74 61 74  65 20 ca 0d 13 b0 09 20  |... state ..... |
00002050  c9 20 30 3a 0d 13 ba 0b  20 20 e6 20 31 32 38 0d  |. 0:....  . 128.|
00002060  13 c4 27 20 20 c8 99 20  73 70 6f 70 2c 26 32 33  |..'  .. spop,&23|
00002070  31 2c 73 62 6c 6b 2c 73  70 72 28 3f 6d 65 6d 29  |1,sblk,spr(?mem)|
00002080  2c 66 78 2c 66 79 0d 13  ce 09 20 c9 20 31 3a 0d  |,fx,fy.... . 1:.|
00002090  13 d8 29 20 20 c8 99 20  73 70 6f 70 2c 26 32 32  |..)  .. spop,&22|
000020a0  32 2c 73 62 6c 6b 2c 73  70 72 28 3f 6d 65 6d 29  |2,sblk,spr(?mem)|
000020b0  2c 66 78 2c 66 79 2c 38  0d 13 e2 05 cb 0d 13 ec  |,fx,fy,8........|
000020c0  05 e1 0d 13 f6 05 3a 0d  14 00 12 dd 20 a4 6d 6f  |......:..... .mo|
000020d0  75 73 65 28 77 61 69 74  29 0d 14 0a 0a 74 69 6d  |use(wait)....tim|
000020e0  65 3d 91 0d 14 14 0d 78  78 3d 78 3a 79 79 3d 79  |e=.....xx=x:yy=y|
000020f0  0d 14 1e 05 f5 0d 14 28  0d 20 c8 97 20 78 2c 79  |.......(. .. x,y|
00002100  2c 7a 0d 14 32 16 20 f1  8a 31 2c 33 30 29 3b a4  |,z..2. ..1,30);.|
00002110  69 64 28 78 2c 79 29 3b  0d 14 3c 20 20 6d 6f 76  |id(x,y);..<  mov|
00002120  65 3d 28 7a 3e 30 20 84  20 78 3c 34 20 84 20 78  |e=(z>0 . x<4 . x|
00002130  3e 31 32 37 39 2d 34 29  0d 14 46 11 20 e7 20 7a  |>1279-4)..F. . z|
00002140  3d 30 20 68 65 6c 64 3d  a3 0d 14 50 18 fd 20 91  |=0 held=...P.. .|
00002150  3e 74 69 6d 65 2b 77 61  69 74 20 84 20 6d 6f 76  |>time+wait . mov|
00002160  65 0d 14 5a 09 3d 6d 6f  76 65 0d 14 64 05 3a 0d  |e..Z.=move..d.:.|
00002170  14 6e 0e dd 20 a4 69 64  28 78 2c 79 29 0d 14 78  |.n.. .id(x,y)..x|
00002180  1c e7 20 ac 20 a6 2d 32  20 8c 20 3d 73 70 63 31  |.. . .-2 . =spc1|
00002190  32 24 2b 73 70 63 31 32  24 0d 14 82 14 69 64 3d  |2$+spc12$....id=|
000021a0  a4 77 68 61 74 5f 61 74  28 78 2c 79 29 0d 14 8c  |.what_at(x,y)...|
000021b0  24 e7 20 69 64 3d 2d 31  20 8c 20 3d 22 5b 20 22  |$. id=-1 . ="[ "|
000021c0  2b 73 70 63 31 32 24 2b  22 20 20 20 2e 2e 20 5d  |+spc12$+"   .. ]|
000021d0  22 0d 14 96 3b 3d 22 5b  20 22 2b a4 6c 70 61 64  |"...;="[ "+.lpad|
000021e0  28 70 61 74 24 28 70 6f  73 3f 28 34 2a 69 64 29  |(pat$(pos?(4*id)|
000021f0  29 2c 31 32 29 2b 22 20  20 20 22 2b a4 73 74 61  |),12)+"   "+.sta|
00002200  74 75 73 28 69 64 29 2b  22 20 5d 22 0d 14 a0 05  |tus(id)+" ]"....|
00002210  3a 0d 14 aa 11 dd 20 f2  6e 65 77 70 61 74 68 28  |:..... .newpath(|
00002220  61 29 0d 14 b4 19 70 61  74 3d 28 70 61 74 2b 70  |a)....pat=(pat+p|
00002230  61 74 73 2b 61 29 83 70  61 74 73 0d 14 be 12 f2  |ats+a).pats.....|
00002240  70 61 74 68 6e 61 6d 65  28 70 61 74 29 0d 14 c8  |pathname(pat)...|
00002250  05 e1 0d 14 d2 05 3a 0d  14 dc 15 dd 20 f2 70 6f  |......:..... .po|
00002260  69 6e 74 65 72 28 70 78  2c 70 79 29 0d 14 e6 0c  |inter(px,py)....|
00002270  62 6c 6b 21 31 3d 70 78  0d 14 f0 0c 62 6c 6b 21  |blk!1=px....blk!|
00002280  33 3d 70 79 0d 14 fa 1e  3f 62 6c 6b 3d 35 3a c8  |3=py....?blk=5:.|
00002290  99 20 22 4f 53 5f 57 6f  72 64 22 2c 32 31 2c 62  |. "OS_Word",21,b|
000022a0  6c 6b 0d 15 04 05 e1 0d  15 0e 05 3a 0d 15 18 0e  |lk.........:....|
000022b0  dd 20 f2 6c 73 63 72 6f  6c 6c 0d 15 22 0f 2a 46  |. .lscroll..".*F|
000022c0  58 20 31 30 36 2c 26 38  31 0d 15 2c 1f c8 97 20  |X 106,&81..,... |
000022d0  c8 93 20 2d 31 30 30 30  2c 2d 31 30 30 30 2c 32  |.. -1000,-1000,2|
000022e0  30 30 30 2c 32 30 30 30  0d 15 36 0c c8 97 20 b8  |000,2000..6... .|
000022f0  20 30 2c 30 0d 15 40 0d  6f 78 3d 30 3a 78 73 3d  | 0,0..@.ox=0:xs=|
00002300  30 0d 15 4a 05 f5 0d 15  54 0d 20 64 78 3d 78 73  |0..J....T. dx=xs|
00002310  2d 6f 78 0d 15 5e 0a 20  6f 78 3d 78 73 0d 15 68  |-ox..^. ox=xs..h|
00002320  10 20 c8 97 20 78 73 2c  79 73 2c 7a 73 0d 15 72  |. .. xs,ys,zs..r|
00002330  15 20 f2 70 6f 69 6e 74  65 72 28 78 2c 79 2b 79  |. .pointer(x,y+y|
00002340  73 29 0d 15 7c 16 20 78  73 3d 28 78 73 20 80 20  |s)..|. xs=(xs . |
00002350  ac 20 37 29 20 81 20 32  0d 15 86 0d 20 e7 20 78  |. 7) . 2.... . x|
00002360  73 3e 30 20 8c 0d 15 90  37 20 20 e7 20 78 70 6f  |s>0 ....7  . xpo|
00002370  73 2b 78 73 3e 6c 61 73  74 63 6f 6c 20 73 63 72  |s+xs>lastcol scr|
00002380  6f 6c 6c 3d 6c 61 73 74  63 6f 6c 2d 78 70 6f 73  |oll=lastcol-xpos|
00002390  20 8b 20 73 63 72 6f 6c  6c 3d 78 73 0d 15 9a 13  | . scroll=xs....|
000023a0  20 20 e7 20 73 63 72 6f  6c 6c 3c 3e 30 20 8c 0d  |  . scroll<>0 ..|
000023b0  15 a4 2e 20 20 20 c8 93  20 c8 90 20 30 2c 73 71  |...   .. .. 0,sq|
000023c0  72 2c 31 32 37 39 2c 31  30 32 33 2d 73 71 72 20  |r,1279,1023-sqr |
000023d0  b8 20 2d 73 63 72 6f 6c  6c 2c 73 71 72 0d 15 ae  |. -scroll,sqr...|
000023e0  1d 20 20 20 f1 8a 31 38  2c 33 31 29 3b a4 73 74  |.   ..18,31);.st|
000023f0  61 74 75 73 28 73 65 6c  29 3b 0d 15 b8 1c 20 20  |atus(sel);....  |
00002400  20 78 31 3d 28 78 70 6f  73 20 81 20 73 71 72 29  | x1=(xpos . sqr)|
00002410  2b 78 73 69 7a 65 0d 15  c2 22 20 20 20 78 70 3d  |+xsize..."   xp=|
00002420  31 32 38 30 2d 73 63 72  6f 6c 6c 2d 28 78 70 6f  |1280-scroll-(xpo|
00002430  73 20 83 20 73 71 72 29  0d 15 cc 0c 20 20 20 78  |s . sqr)....   x|
00002440  30 3d 78 31 0d 15 d6 08  20 20 20 f5 0d 15 e0 16  |0=x1....   .....|
00002450  20 20 20 20 f2 63 6f 6c  75 6d 6e 28 78 31 2c 78  |    .column(x1,x|
00002460  70 29 0d 15 ea 0f 20 20  20 20 78 70 2b 3d 73 71  |p)....    xp+=sq|
00002470  72 0d 15 f4 0d 20 20 20  20 78 31 2b 3d 31 0d 15  |r....    x1+=1..|
00002480  fe 10 20 20 20 fd 20 78  70 3e 31 32 38 30 0d 16  |..   . xp>1280..|
00002490  08 13 20 20 20 78 70 6f  73 2b 3d 73 63 72 6f 6c  |..   xpos+=scrol|
000024a0  6c 0d 16 12 17 20 20 20  f2 61 6c 69 65 6e 73 28  |l....   .aliens(|
000024b0  78 30 2c 78 31 2d 31 29  0d 16 1c 07 20 20 cd 0d  |x0,x1-1)....  ..|
000024c0  16 26 06 20 cd 0d 16 30  0a fd 20 64 78 3c 30 0d  |.&. ...0.. dx<0.|
000024d0  16 3a 17 c8 97 20 c8 93  20 30 2c 30 2c 31 32 37  |.:... .. 0,0,127|
000024e0  39 2c 31 30 32 33 0d 16  44 12 c8 97 20 b8 20 78  |9,1023..D... . x|
000024f0  2b 64 78 2c 79 2b 79 73  0d 16 4e 0d 2a 46 58 20  |+dx,y+ys..N.*FX |
00002500  31 30 36 2c 31 0d 16 58  05 e1 0d 16 62 05 3a 0d  |106,1..X....b.:.|
00002510  16 6c 0e dd 20 f2 72 73  63 72 6f 6c 6c 0d 16 76  |.l.. .rscroll..v|
00002520  0f 2a 46 58 20 31 30 36  2c 26 38 31 0d 16 80 1f  |.*FX 106,&81....|
00002530  c8 97 20 c8 93 20 2d 31  30 30 30 2c 2d 31 30 30  |.. .. -1000,-100|
00002540  30 2c 32 30 30 30 2c 32  30 30 30 0d 16 8a 0c c8  |0,2000,2000.....|
00002550  97 20 b8 20 30 2c 30 0d  16 94 0d 6f 78 3d 30 3a  |. . 0,0....ox=0:|
00002560  78 73 3d 30 0d 16 9e 05  f5 0d 16 a8 0d 20 64 78  |xs=0......... dx|
00002570  3d 78 73 2d 6f 78 0d 16  b2 0a 20 6f 78 3d 78 73  |=xs-ox.... ox=xs|
00002580  0d 16 bc 10 20 c8 97 20  78 73 2c 79 73 2c 7a 73  |.... .. xs,ys,zs|
00002590  0d 16 c6 15 20 f2 70 6f  69 6e 74 65 72 28 78 2c  |.... .pointer(x,|
000025a0  79 2b 79 73 29 0d 16 d0  16 20 78 73 3d 28 78 73  |y+ys).... xs=(xs|
000025b0  20 80 20 ac 20 37 29 20  81 20 32 0d 16 da 0d 20  | . . 7) . 2.... |
000025c0  e7 20 78 73 3c 30 20 8c  0d 16 e4 29 20 20 e7 20  |. xs<0 ....)  . |
000025d0  2d 78 73 3e 78 70 6f 73  20 73 63 72 6f 6c 6c 3d  |-xs>xpos scroll=|
000025e0  2d 78 70 6f 73 20 8b 20  73 63 72 6f 6c 6c 3d 78  |-xpos . scroll=x|
000025f0  73 0d 16 ee 13 20 20 e7  20 73 63 72 6f 6c 6c 3c  |s....  . scroll<|
00002600  3e 30 20 8c 0d 16 f8 2e  20 20 20 c8 93 20 c8 90  |>0 .....   .. ..|
00002610  20 30 2c 73 71 72 2c 31  32 37 39 2c 31 30 32 33  | 0,sqr,1279,1023|
00002620  2d 73 71 72 20 b8 20 2d  73 63 72 6f 6c 6c 2c 73  |-sqr . -scroll,s|
00002630  71 72 0d 17 02 1d 20 20  20 f1 8a 31 38 2c 33 31  |qr....   ..18,31|
00002640  29 3b a4 73 74 61 74 75  73 28 73 65 6c 29 3b 0d  |);.status(sel);.|
00002650  17 0c 16 20 20 20 78 31  3d 28 78 70 6f 73 20 81  |...   x1=(xpos .|
00002660  20 73 71 72 29 0d 17 16  1e 20 20 20 78 70 3d 2d  | sqr)....   xp=-|
00002670  73 63 72 6f 6c 6c 2d 28  78 70 6f 73 20 83 20 73  |scroll-(xpos . s|
00002680  71 72 29 0d 17 20 0c 20  20 20 78 30 3d 78 31 0d  |qr).. .   x0=x1.|
00002690  17 2a 08 20 20 20 f5 0d  17 34 16 20 20 20 20 f2  |.*.   ...4.    .|
000026a0  63 6f 6c 75 6d 6e 28 78  31 2c 78 70 29 0d 17 3e  |column(x1,xp)..>|
000026b0  0f 20 20 20 20 78 70 2d  3d 73 71 72 0d 17 48 0d  |.    xp-=sqr..H.|
000026c0  20 20 20 20 78 31 2d 3d  31 0d 17 52 0d 20 20 20  |    x1-=1..R.   |
000026d0  fd 20 78 70 3c 30 0d 17  5c 13 20 20 20 78 70 6f  |. xp<0..\.   xpo|
000026e0  73 2b 3d 73 63 72 6f 6c  6c 0d 17 66 17 20 20 20  |s+=scroll..f.   |
000026f0  f2 61 6c 69 65 6e 73 28  78 31 2b 31 2c 78 30 29  |.aliens(x1+1,x0)|
00002700  0d 17 70 07 20 20 cd 0d  17 7a 06 20 cd 0d 17 84  |..p.  ...z. ....|
00002710  0a fd 20 64 78 3e 30 0d  17 8e 17 c8 97 20 c8 93  |.. dx>0...... ..|
00002720  20 30 2c 30 2c 31 32 37  39 2c 31 30 32 33 0d 17  | 0,0,1279,1023..|
00002730  98 12 c8 97 20 b8 20 78  2b 64 78 2c 79 2b 79 73  |.... . x+dx,y+ys|
00002740  0d 17 a2 0d 2a 46 58 20  31 30 36 2c 31 0d 17 ac  |....*FX 106,1...|
00002750  05 e1 0d 17 b6 05 3a 0d  17 c0 14 dd 20 f2 61 6c  |......:..... .al|
00002760  69 65 6e 73 28 63 31 2c  63 32 29 0d 17 ca 1e 61  |iens(c1,c2)....a|
00002770  31 3d 28 63 31 2d 31 29  2a 73 69 7a 65 3a e7 20  |1=(c1-1)*size:. |
00002780  61 31 3c 30 20 61 31 3d  30 0d 17 d4 2d 61 32 3d  |a1<0 a1=0...-a2=|
00002790  28 63 32 2b 31 29 2a 73  69 7a 65 3a e7 20 61 32  |(c2+1)*size:. a2|
000027a0  3e 3d 6c 61 73 74 63 6f  6c 20 61 32 3d 6c 61 73  |>=lastcol a2=las|
000027b0  74 63 6f 6c 2d 31 0d 17  de 19 e3 20 61 62 73 3d  |tcol-1..... abs=|
000027c0  61 31 2a 34 20 b8 20 61  32 2a 34 20 88 20 34 0d  |a1*4 . a2*4 . 4.|
000027d0  17 e8 4e 20 e7 20 70 6f  73 21 61 62 73 3c 3e 2d  |..N . pos!abs<>-|
000027e0  31 20 c8 99 20 73 70 6f  70 2c 26 32 32 32 2c 73  |1 .. spop,&222,s|
000027f0  62 6c 6b 2c 73 70 72 28  70 6f 73 3f 61 62 73 29  |blk,spr(pos?abs)|
00002800  2c 61 62 73 2d 78 70 6f  73 2c 73 71 72 2b 34 2a  |,abs-xpos,sqr+4*|
00002810  70 6f 73 3f 28 61 62 73  2b 31 29 2c 38 0d 17 f2  |pos?(abs+1),8...|
00002820  05 ed 0d 17 fc 05 e1 0d  18 06 05 3a 0d 18 10 18  |...........:....|
00002830  dd 20 f2 73 68 6f 77 28  73 70 72 2c 78 2c 79 2c  |. .show(spr,x,y,|
00002840  77 2c 68 29 0d 18 1a 2c  c8 99 20 73 70 6f 70 2c  |w,h)...,.. spop,|
00002850  26 31 31 30 2c 73 62 6c  6b 2c 6e 75 6c 6c 24 2c  |&110,sblk,null$,|
00002860  2c 78 2c 79 2c 78 2b 77  2a 34 2c 79 2b 68 2a 34  |,x,y,x+w*4,y+h*4|
00002870  0d 18 24 1f c8 99 20 73  70 6f 70 2c 26 32 32 32  |..$... spop,&222|
00002880  2c 73 62 6c 6b 2c 73 70  72 2c 78 2c 79 2c 38 0d  |,sblk,spr,x,y,8.|
00002890  18 2e 05 e1 0d 18 38 05  3a 0d 18 42 0d dd 20 f2  |......8.:..B.. .|
000028a0  72 65 73 70 6f 74 0d 18  4c 11 6d 65 6d 3d 70 6f  |respot..L.mem=po|
000028b0  73 2b 34 2a 73 65 6c 0d  18 56 0c 73 70 72 3d 3f  |s+4*sel..V.spr=?|
000028c0  6d 65 6d 0d 18 60 0c 6f  6c 64 3d 21 6d 65 6d 0d  |mem..`.old=!mem.|
000028d0  18 6a 15 78 6f 66 66 3d  34 2a 73 65 6c 2d 78 70  |.j.xoff=4*sel-xp|
000028e0  6f 73 2d 78 0d 18 74 16  79 6f 66 66 3d 34 2a 6d  |os-x..t.yoff=4*m|
000028f0  65 6d 3f 31 2b 73 71 72  2d 79 0d 18 7e 10 f2 72  |em?1+sqr-y..~..r|
00002900  65 6d 6f 76 65 28 73 65  6c 29 0d 18 88 1c 6e 65  |emove(sel)....ne|
00002910  77 3d a4 6d 6f 76 65 28  73 70 72 2c 78 6f 66 66  |w=.move(spr,xoff|
00002920  2c 79 6f 66 66 29 0d 18  92 0d e7 20 6e 65 77 3e  |,yoff)..... new>|
00002930  30 20 8c 0d 18 9c 0c 20  73 65 6c 3d 6e 65 77 0d  |0 ..... sel=new.|
00002940  18 a6 1b 20 f1 8a 31 38  2c 33 31 29 3b a4 73 74  |... ..18,31);.st|
00002950  61 74 75 73 28 73 65 6c  29 3b 0d 18 b0 05 cc 0d  |atus(sel);......|
00002960  18 ba 0d 20 21 6d 65 6d  3d 6f 6c 64 0d 18 c4 39  |... !mem=old...9|
00002970  20 c8 99 20 73 70 6f 70  2c 26 32 32 32 2c 73 62  | .. spop,&222,sb|
00002980  6c 6b 2c 73 70 72 28 3f  6d 65 6d 29 2c 73 65 6c  |lk,spr(?mem),sel|
00002990  2a 34 2d 78 70 6f 73 2c  73 71 72 2b 34 2a 6d 65  |*4-xpos,sqr+4*me|
000029a0  6d 3f 31 2c 38 0d 18 ce  05 cd 0d 18 d8 05 e1 0d  |m?1,8...........|
000029b0  18 e2 05 3a 0d 18 ec 0c  dd 20 f2 70 6c 61 63 65  |...:..... .place|
000029c0  0d 18 f6 18 64 75 6d 6d  79 3d a4 6d 6f 76 65 28  |....dummy=.move(|
000029d0  70 61 74 2c 30 2c 30 29  0d 19 00 05 e1 0d 19 0a  |pat,0,0)........|
000029e0  05 3a 0d 19 14 14 dd 20  a4 6d 6f 76 65 28 70 2c  |.:..... .move(p,|
000029f0  64 78 2c 64 79 29 0d 19  1e 0a ea 20 68 65 6c 64  |dx,dy)..... held|
00002a00  0d 19 28 25 c8 99 20 73  70 6f 70 2c 26 32 32 38  |..(%.. spop,&228|
00002a10  2c 73 62 6c 6b 2c 73 70  72 28 70 29 20 b8 20 2c  |,sblk,spr(p) . ,|
00002a20  2c 2c 77 2c 68 0d 19 32  0f 78 2b 3d 64 78 3a 79  |,,w,h..2.x+=dx:y|
00002a30  2b 3d 64 79 0d 19 3c 19  f2 73 68 6f 77 28 73 70  |+=dy..<..show(sp|
00002a40  72 28 70 29 2c 78 2c 79  2c 77 2c 68 29 0d 19 46  |r(p),x,y,w,h)..F|
00002a50  0d 6f 78 3d 78 3a 6f 79  3d 79 0d 19 50 09 74 6f  |.ox=x:oy=y..P.to|
00002a60  3d 2d 31 0d 19 5a 08 c8  97 20 87 0d 19 64 05 f5  |=-1..Z... ...d..|
00002a70  0d 19 6e 0b 20 68 65 6c  64 3d b9 0d 19 78 06 20  |..n. held=...x. |
00002a80  f5 0d 19 82 0e 20 20 c8  97 20 78 2c 79 2c 7a 0d  |.....  .. x,y,z.|
00002a90  19 8c 0b 20 20 78 2b 3d  64 78 0d 19 96 0b 20 20  |...  x+=dx....  |
00002aa0  79 2b 3d 64 79 0d 19 a0  17 20 20 e7 20 78 3c 3e  |y+=dy....  . x<>|
00002ab0  6f 78 20 84 20 79 3c 3e  6f 79 20 8c 0d 19 aa 11  |ox . y<>oy .....|
00002ac0  20 20 20 e7 20 79 3e 3d  73 71 72 20 8c 0d 19 b4  |   . y>=sqr ....|
00002ad0  0a 20 20 20 20 c8 96 0d  19 be 25 20 20 20 20 c8  |.    .....%    .|
00002ae0  99 20 73 70 6f 70 2c 26  31 32 32 2c 73 62 6c 6b  |. spop,&122,sblk|
00002af0  2c 6e 75 6c 6c 24 2c 6f  78 2c 6f 79 0d 19 c8 1d  |,null$,ox,oy....|
00002b00  20 20 20 20 f2 73 68 6f  77 28 73 70 72 28 70 29  |    .show(spr(p)|
00002b10  2c 78 2c 79 2c 77 2c 68  29 0d 19 d2 11 20 20 20  |,x,y,w,h)....   |
00002b20  20 6f 78 3d 78 3a 6f 79  3d 79 0d 19 dc 08 20 20  | ox=x:oy=y....  |
00002b30  20 cd 0d 19 e6 07 20 20  cd 0d 19 f0 12 20 20 e7  | .....  .....  .|
00002b40  20 7a 3d 30 20 68 65 6c  64 3d a3 0d 19 fa 1d 20  | z=0 held=..... |
00002b50  fd 20 28 7a 3e 30 20 80  20 ac 20 68 65 6c 64 29  |. (z>0 . . held)|
00002b60  20 84 20 79 3c 73 71 72  0d 1a 04 0f 20 e7 20 79  | . y<sqr.... . y|
00002b70  3e 3d 73 71 72 20 8c 0d  1a 0e 15 20 20 74 6f 3d  |>=sqr .....  to=|
00002b80  28 78 70 6f 73 2b 78 29  20 81 20 34 0d 1a 18 12  |(xpos+x) . 4....|
00002b90  20 20 61 62 73 3d 70 6f  73 2b 34 2a 74 6f 0d 1a  |  abs=pos+4*to..|
00002ba0  22 11 20 20 e7 20 21 61  62 73 3d 2d 31 20 8c 0d  |".  . !abs=-1 ..|
00002bb0  1a 2c 0d 20 20 20 3f 61  62 73 3d 70 0d 1a 36 18  |.,.   ?abs=p..6.|
00002bc0  20 20 20 61 62 73 3f 31  3d 28 79 2d 73 71 72 29  |   abs?1=(y-sqr)|
00002bd0  20 81 20 34 0d 1a 40 0f  20 20 20 61 62 73 3f 32  | . 4..@.   abs?2|
00002be0  3d 2d 31 0d 1a 4a 0f 20  20 20 61 62 73 3f 33 3d  |=-1..J.   abs?3=|
00002bf0  2d 31 0d 1a 54 07 20 20  cc 0d 1a 5e 0a 20 20 20  |-1..T.  ...^.   |
00002c00  ef 20 37 0d 1a 68 0c 20  20 20 74 6f 3d 2d 31 0d  |. 7..h.   to=-1.|
00002c10  1a 72 07 20 20 cd 0d 1a  7c 06 20 cc 0d 1a 86 23  |.r.  ...|. ....#|
00002c20  20 20 c8 99 20 73 70 6f  70 2c 26 31 32 32 2c 73  |  .. spop,&122,s|
00002c30  62 6c 6b 2c 6e 75 6c 6c  24 2c 6f 78 2c 6f 79 0d  |blk,null$,ox,oy.|
00002c40  1a 90 0b 20 20 74 6f 3d  2d 32 0d 1a 9a 06 20 cd  |...  to=-2.... .|
00002c50  0d 1a a4 0c fd 20 74 6f  3c 3e 2d 31 0d 1a ae 08  |..... to<>-1....|
00002c60  c8 97 20 ee 0d 1a b8 07  3d 74 6f 0d 1a c2 05 3a  |.. .....=to....:|
00002c70  0d 1a cc 0b dd 20 f2 73  61 76 65 0d 1a d6 08 c8  |..... .save.....|
00002c80  97 20 87 0d 1a e0 21 6e  65 77 24 3d a4 69 6e 70  |. ....!new$=.inp|
00002c90  75 74 28 6c 61 79 6f 75  74 24 2c 32 37 2c 33 31  |ut(layout$,27,31|
00002ca0  2c 31 32 29 0d 1a ea 10  e7 20 6e 65 77 24 3c 3e  |,12)..... new$<>|
00002cb0  22 22 20 8c 0d 1a f4 16  20 e7 20 6e 65 77 24 3c  |"" ..... . new$<|
00002cc0  3e 6c 61 79 6f 75 74 24  20 8c 0d 1a fe 1c 20 20  |>layout$ .....  |
00002cd0  66 75 6c 6c 24 3d 67 61  6d 65 73 24 2b 22 2e 22  |full$=games$+"."|
00002ce0  2b 67 61 6d 65 24 0d 1b  08 10 20 20 6f 75 74 3d  |+game$....  out=|
00002cf0  ae 22 5f 78 5f 22 0d 1b  12 11 20 20 69 6e 3d 8e  |."_x_"....  in=.|
00002d00  28 66 75 6c 6c 24 29 0d  1b 1c 0f 20 20 c8 95 20  |(full$)....  .. |
00002d10  ac 20 c5 23 69 6e 0d 1b  26 0f 20 20 20 69 6e 24  |. .#in..&.   in$|
00002d20  3d be 23 69 6e 0d 1b 30  1c 20 20 20 e7 20 c0 69  |=.#in..0.   . .i|
00002d30  6e 24 2c 37 29 3d 22 4c  61 79 6f 75 74 3a 22 20  |n$,7)="Layout:" |
00002d40  8c 0d 1b 3a 0f 20 20 20  20 61 74 3d a9 69 6e 24  |...:.    at=.in$|
00002d50  0d 1b 44 1a 20 20 20 20  c8 95 20 c1 69 6e 24 2c  |..D.    .. .in$,|
00002d60  61 74 2c 31 29 3c 3e 22  20 22 0d 1b 4e 0e 20 20  |at,1)<>" "..N.  |
00002d70  20 20 20 61 74 2d 3d 31  0d 1b 58 09 20 20 20 20  |   at-=1..X.    |
00002d80  ce 0d 1b 62 19 20 20 20  20 69 6e 24 3d c0 69 6e  |...b.    in$=.in|
00002d90  24 2c 61 74 29 2b 6e 65  77 24 0d 1b 6c 08 20 20  |$,at)+new$..l.  |
00002da0  20 cd 0d 1b 76 15 20 20  20 f2 62 70 75 74 28 6f  | ...v.   .bput(o|
00002db0  75 74 2c 69 6e 24 29 0d  1b 80 07 20 20 ce 0d 1b  |ut,in$)....  ...|
00002dc0  8a 0b 20 20 d9 20 23 69  6e 0d 1b 94 0c 20 20 d9  |..  . #in....  .|
00002dd0  20 23 6f 75 74 0d 1b 9e  12 20 20 6c 61 79 6f 75  | #out....  layou|
00002de0  74 24 3d 6e 65 77 24 0d  1b a8 28 20 20 c8 99 20  |t$=new$...(  .. |
00002df0  22 4f 53 5f 43 4c 49 22  2c 22 57 69 70 65 20 22  |"OS_CLI","Wipe "|
00002e00  2b 66 75 6c 6c 24 2b 22  20 46 7e 43 7e 56 22 0d  |+full$+" F~C~V".|
00002e10  1b b2 25 20 20 c8 99 20  22 4f 53 5f 43 4c 49 22  |..%  .. "OS_CLI"|
00002e20  2c 22 52 65 6e 61 6d 65  20 5f 78 5f 20 22 2b 66  |,"Rename _x_ "+f|
00002e30  75 6c 6c 24 0d 1b bc 1b  20 20 f2 73 65 74 5f 74  |ull$....  .set_t|
00002e40  79 70 65 28 66 75 6c 6c  24 2c 26 46 46 46 29 0d  |ype(full$,&FFF).|
00002e50  1b c6 06 20 cd 0d 1b d0  0e 20 70 75 73 65 64 28  |... ..... pused(|
00002e60  29 3d a3 0d 1b da 16 20  e3 20 69 3d 30 20 b8 20  |)=..... . i=0 . |
00002e70  6c 61 73 74 63 6f 6c 2d  31 0d 1b e4 28 20 20 e7  |lastcol-1...(  .|
00002e80  20 70 6f 73 21 28 69 2a  34 29 3c 3e 2d 31 20 70  | pos!(i*4)<>-1 p|
00002e90  75 73 65 64 28 70 6f 73  3f 28 69 2a 34 29 29 3d  |used(pos?(i*4))=|
00002ea0  b9 0d 1b ee 06 20 ed 0d  1b f8 1d 20 6f 75 74 3d  |..... ..... out=|
00002eb0  ae 28 22 4c 61 79 6f 75  74 2e 22 2b 6c 61 79 6f  |.("Layout."+layo|
00002ec0  75 74 24 29 0d 1c 02 24  20 f2 62 70 75 74 28 6f  |ut$)...$ .bput(o|
00002ed0  75 74 2c 22 3b 20 3e 4c  61 79 6f 75 74 2e 22 2b  |ut,"; >Layout."+|
00002ee0  6c 61 79 6f 75 74 24 29  0d 1c 0c 17 20 f2 62 70  |layout$).... .bp|
00002ef0  75 74 28 6f 75 74 2c 22  3b 20 22 2b 91 24 29 0d  |ut(out,"; "+.$).|
00002f00  1c 16 12 20 f2 62 70 75  74 28 6f 75 74 2c 22 22  |... .bput(out,""|
00002f10  29 0d 1c 20 1b 20 f2 62  70 75 74 28 6f 75 74 2c  |).. . .bput(out,|
00002f20  22 50 61 74 74 65 72 6e  73 3a 22 29 0d 1c 2a 15  |"Patterns:")..*.|
00002f30  20 e3 20 69 3d 30 20 b8  20 6d 61 78 5f 6d 6f 76  | . i=0 . max_mov|
00002f40  65 0d 1c 34 34 20 20 e7  20 70 75 73 65 64 28 69  |e..44  . pused(i|
00002f50  29 20 f2 62 70 75 74 28  6f 75 74 2c 22 20 22 2b  |) .bput(out," "+|
00002f60  a4 6c 70 61 64 28 70 61  74 24 28 69 29 2c 31 33  |.lpad(pat$(i),13|
00002f70  29 2b c3 69 29 0d 1c 3e  06 20 ed 0d 1c 48 12 20  |)+.i)..>. ...H. |
00002f80  f2 62 70 75 74 28 6f 75  74 2c 22 22 29 0d 1c 52  |.bput(out,"")..R|
00002f90  19 20 f2 62 70 75 74 28  6f 75 74 2c 22 4c 61 79  |. .bput(out,"Lay|
00002fa0  6f 75 74 3a 22 29 0d 1c  5c 16 20 e3 20 69 3d 30  |out:")..\. . i=0|
00002fb0  20 b8 20 6c 61 73 74 63  6f 6c 2d 31 0d 1c 66 17  | . lastcol-1..f.|
00002fc0  20 20 e7 20 70 6f 73 21  28 69 2a 34 29 3c 3e 2d  |  . pos!(i*4)<>-|
00002fd0  31 20 8c 0d 1c 70 12 20  20 20 6d 65 6d 3d 70 6f  |1 ...p.   mem=po|
00002fe0  73 2b 69 2a 34 0d 1c 7a  42 20 20 20 6f 75 74 24  |s+i*4..zB   out$|
00002ff0  3d 22 20 22 2b a4 72 70  61 64 28 c3 3f 6d 65 6d  |=" "+.rpad(.?mem|
00003000  2c 33 29 2b 22 20 22 2b  a4 72 70 61 64 28 c3 69  |,3)+" "+.rpad(.i|
00003010  2c 35 29 2b 22 20 22 2b  a4 72 70 61 64 28 c3 6d  |,5)+" "+.rpad(.m|
00003020  65 6d 3f 31 2c 33 29 0d  1c 84 31 20 20 20 e7 20  |em?1,3)...1   . |
00003030  6d 65 6d 3f 32 3c 3e 32  35 35 20 6f 75 74 24 2b  |mem?2<>255 out$+|
00003040  3d 22 20 22 2b a4 72 70  61 64 28 c3 28 6d 65 6d  |=" "+.rpad(.(mem|
00003050  3f 32 2a 32 29 2c 33 29  0d 1c 8e 31 20 20 20 e7  |?2*2),3)...1   .|
00003060  20 6d 65 6d 3f 33 3c 3e  32 35 35 20 6f 75 74 24  | mem?3<>255 out$|
00003070  2b 3d 22 20 22 2b a4 72  70 61 64 28 c3 28 6d 65  |+=" "+.rpad(.(me|
00003080  6d 3f 33 2a 32 29 2c 33  29 0d 1c 98 16 20 20 20  |m?3*2),3)....   |
00003090  f2 62 70 75 74 28 6f 75  74 2c 6f 75 74 24 29 0d  |.bput(out,out$).|
000030a0  1c a2 07 20 20 cd 0d 1c  ac 06 20 ed 0d 1c b6 0b  |...  ..... .....|
000030b0  20 d9 20 23 6f 75 74 0d  1c c0 26 20 f2 73 65 74  | . #out...& .set|
000030c0  5f 74 79 70 65 28 22 4c  61 79 6f 75 74 2e 22 2b  |_type("Layout."+|
000030d0  6c 61 79 6f 75 74 24 2c  26 46 46 46 29 0d 1c ca  |layout$,&FFF)...|
000030e0  10 20 f2 6c 61 79 6f 75  74 6e 61 6d 65 0d 1c d4  |. .layoutname...|
000030f0  05 cd 0d 1c de 08 c8 97  20 ee 0d 1c e8 05 e1 0d  |........ .......|
00003100  1c f2 05 3a 0d 1c fc 18  dd 20 f2 73 65 74 5f 74  |...:..... .set_t|
00003110  79 70 65 28 66 24 2c 74  79 70 65 29 0d 1d 06 1b  |ype(f$,type)....|
00003120  c8 99 20 22 4f 53 5f 46  69 6c 65 22 2c 31 38 2c  |.. "OS_File",18,|
00003130  66 24 2c 74 79 70 65 0d  1d 10 05 e1 0d 1d 1a 05  |f$,type.........|
00003140  3a 0d 1d 24 11 dd 20 f2  62 70 75 74 28 66 2c 73  |:..$.. .bput(f,s|
00003150  24 29 0d 1d 2e 10 d5 20  23 66 2c 73 24 2b bd 31  |$)..... #f,s$+.1|
00003160  30 3b 0d 1d 38 05 e1 0d  1d 42 05 3a 0d 1d 4c 0d  |0;..8....B.:..L.|
00003170  dd 20 f2 73 65 6c 65 63  74 0d 1d 56 15 6e 65 77  |. .select..V.new|
00003180  3d a4 77 68 61 74 5f 61  74 28 78 2c 79 29 0d 1d  |=.what_at(x,y)..|
00003190  60 0f e7 20 6e 65 77 3c  3e 2d 31 20 8c 0d 1d 6a  |`.. new<>-1 ...j|
000031a0  0c 20 73 65 6c 3d 6e 65  77 0d 1d 74 1b 20 f1 8a  |. sel=new..t. ..|
000031b0  31 38 2c 33 31 29 3b a4  73 74 61 74 75 73 28 73  |18,31);.status(s|
000031c0  65 6c 29 3b 0d 1d 7e 05  cd 0d 1d 88 05 e1 0d 1d  |el);..~.........|
000031d0  92 05 3a 0d 1d 9c 17 dd  20 a4 77 68 61 74 5f 61  |..:..... .what_a|
000031e0  74 28 78 61 74 2c 79 61  74 29 0d 1d a6 16 78 61  |t(xat,yat)....xa|
000031f0  74 3d 28 78 61 74 2b 78  70 6f 73 29 20 81 20 34  |t=(xat+xpos) . 4|
00003200  0d 1d b0 15 79 61 74 3d  28 79 61 74 2d 73 71 72  |....yat=(yat-sqr|
00003210  29 20 81 20 34 0d 1d ba  09 61 64 64 3d 31 0d 1d  |) . 4....add=1..|
00003220  c4 09 65 6e 64 3d 30 0d  1d ce 0b 74 72 79 3d 78  |..end=0....try=x|
00003230  61 74 0d 1d d8 05 f5 0d  1d e2 1d 20 e7 20 74 72  |at......... . tr|
00003240  79 3e 3d 30 20 80 20 74  72 79 3c 6c 61 73 74 63  |y>=0 . try<lastc|
00003250  6f 6c 20 8c 0d 1d ec 1e  20 20 e7 20 a4 6f 6e 28  |ol .....  . .on(|
00003260  78 61 74 2c 79 61 74 2c  74 72 79 29 20 65 6e 64  |xat,yat,try) end|
00003270  3d 31 0d 1d f6 06 20 cd  0d 1e 00 0e 20 e7 20 65  |=1.... ..... . e|
00003280  6e 64 3d 30 20 8c 0d 1e  0a 0e 20 20 74 72 79 2b  |nd=0 .....  try+|
00003290  3d 61 64 64 0d 1e 14 13  20 20 61 64 64 3d 2d 61  |=add....  add=-a|
000032a0  64 64 2d b4 61 64 64 0d  1e 1e 19 20 20 e7 20 94  |dd-.add....  . .|
000032b0  61 64 64 3e 32 2a 73 71  72 20 65 6e 64 3d 2d 31  |add>2*sqr end=-1|
000032c0  0d 1e 28 06 20 cd 0d 1e  32 0c fd 20 65 6e 64 3c  |..(. ...2.. end<|
000032d0  3e 30 0d 1e 3c 12 e7 20  65 6e 64 3d 31 20 8c 20  |>0..<.. end=1 . |
000032e0  3d 74 72 79 0d 1e 46 07  3d 2d 31 0d 1e 50 05 3a  |=try..F.=-1..P.:|
000032f0  0d 1e 5a 0d dd 20 f2 64  65 6c 65 74 65 0d 1e 64  |..Z.. .delete..d|
00003300  15 64 65 6c 3d a4 77 68  61 74 5f 61 74 28 78 2c  |.del=.what_at(x,|
00003310  79 29 0d 1e 6e 0f e7 20  64 65 6c 3c 3e 2d 31 20  |y)..n.. del<>-1 |
00003320  8c 0d 1e 78 11 20 f2 72  65 6d 6f 76 65 28 64 65  |...x. .remove(de|
00003330  6c 29 0d 1e 82 15 20 e7  20 73 65 6c 3d 64 65 6c  |l).... . sel=del|
00003340  20 73 65 6c 3d 2d 31 0d  1e 8c 1b 20 f1 8a 31 38  | sel=-1.... ..18|
00003350  2c 33 31 29 3b a4 73 74  61 74 75 73 28 73 65 6c  |,31);.status(sel|
00003360  29 3b 0d 1e 96 05 cd 0d  1e a0 05 e1 0d 1e aa 05  |);..............|
00003370  3a 0d 1e b4 10 dd 20 f2  72 65 6d 6f 76 65 28 73  |:..... .remove(s|
00003380  29 0d 1e be 0f 6d 65 6d  3d 70 6f 73 2b 73 2a 34  |)....mem=pos+s*4|
00003390  0d 1e c8 26 c8 99 20 73  70 6f 70 2c 26 32 32 38  |...&.. spop,&228|
000033a0  2c 73 62 6c 6b 2c 73 70  72 28 3f 6d 65 6d 29 20  |,sblk,spr(?mem) |
000033b0  b8 20 2c 2c 2c 77 0d 1e  d2 0f 63 31 3d 73 20 81  |. ,,,w....c1=s .|
000033c0  20 73 69 7a 65 0d 1e dc  13 63 32 3d 28 73 2b 77  | size....c2=(s+w|
000033d0  29 20 81 20 73 69 7a 65  0d 1e e6 11 e3 20 63 6f  |) . size..... co|
000033e0  6c 3d 63 31 20 b8 20 63  32 0d 1e f0 1e 20 f2 63  |l=c1 . c2.... .c|
000033f0  6f 6c 75 6d 6e 28 63 6f  6c 2c 63 6f 6c 2a 73 71  |olumn(col,col*sq|
00003400  72 2d 78 70 6f 73 29 0d  1e fa 05 ed 0d 1f 04 0b  |r-xpos).........|
00003410  21 6d 65 6d 3d 2d 31 0d  1f 0e 12 f2 61 6c 69 65  |!mem=-1.....alie|
00003420  6e 73 28 63 31 2c 63 32  29 0d 1f 18 05 e1 0d 1f  |ns(c1,c2).......|
00003430  22 05 3a 0d 1f 2c 12 dd  20 a4 6f 6e 28 73 78 2c  |".:..,.. .on(sx,|
00003440  73 79 2c 73 29 0d 1f 36  17 e7 20 70 6f 73 21 28  |sy,s)..6.. pos!(|
00003450  73 2a 34 29 3d 2d 31 20  8c 20 3d a3 0d 1f 40 0f  |s*4)=-1 . =...@.|
00003460  6d 65 6d 3d 70 6f 73 2b  73 2a 34 0d 1f 4a 28 c8  |mem=pos+s*4..J(.|
00003470  99 20 73 70 6f 70 2c 26  32 32 38 2c 73 62 6c 6b  |. spop,&228,sblk|
00003480  2c 73 70 72 28 3f 6d 65  6d 29 20 b8 20 2c 2c 2c  |,spr(?mem) . ,,,|
00003490  77 2c 68 0d 1f 54 2e 3d  28 73 78 3e 3d 73 20 80  |w,h..T.=(sx>=s .|
000034a0  20 73 78 3c 73 2b 77 20  80 20 73 79 3e 3d 6d 65  | sx<s+w . sy>=me|
000034b0  6d 3f 31 20 80 20 73 79  3c 6d 65 6d 3f 31 2b 68  |m?1 . sy<mem?1+h|
000034c0  29 0d 1f 5e 05 3a 0d 1f  68 0f dd 20 f2 64 65 73  |)..^.:..h.. .des|
000034d0  65 6c 65 63 74 0d 1f 72  0a 73 65 6c 3d 2d 31 0d  |elect..r.sel=-1.|
000034e0  1f 7c 19 f1 8a 31 38 2c  33 31 29 3b a4 73 74 61  |.|...18,31);.sta|
000034f0  74 75 73 28 2d 31 29 3b  0d 1f 86 05 e1 0d ff     |tus(-1);.......|
000034ff