)�adfs::HardDisc4.$.!Badger.!runimage

cache%=�:��TE@

*CACHE ON
cache%=�


*FX220,27
A%=�:�=&12000:oldhimem%=A%
work%=�
CMAXWINDIND%=4096:MAXWINDSTR%=4096:SPRITESEXT%=8000:pdbs%=&40000
	0windind%=work%:windstr%=windind%+MAXWINDIND%

Mwindptrlist%=windstr%+MAXWINDSTR% : wptrlist%=windptrlist%+40:B%=windstr%
mysprites%=wptrlist%+40
mc%=&16800

memtop%=&5B400
Aș "Wimp_Initialise",200,&4B534154,"Badger" � wimpver%,taskh%
Y� �error(�$+" (Internal error code "+Þ+")"+�0,�):�:ș "Wimp_CloseDown",,&4B534154:�
-X=�("<Badger$Dir>.ASprites"):ext%=�#X:�#X
G� blk% 256,ibname% 20,errblk% 200,menu% 1024,blk2% 100,pdbbuff% 256
+set2w%=0:setupw%=0:quit%=�:afterwarn%=�
,� �readsysvar("Badger$Status")="Fresh" �
!  start%=1:S%=1:saved%=�:M%=0
-  !mysprites%=SPRITESEXT%:mysprites%!8=16
&  ș "OS_SpriteOp",&109,mysprites%
>  ș "OS_SpriteOp",&10A,mysprites%,"<Badger$Dir>.ASprites"
/  �"LOAD <Badger$Dir>.code "+�~mc%:A%=work%
;  � IFNOTFNtidy OSCLI"Set Badger$tidy "+STR$USR(mc%!44)
2  wptr1%=windstr%:wptr2%=windind%:windcount%=1
6  ș "Wimp_OpenTemplate",,"<Badger$Dir>.Templates"
8  �load_template("proginfo"):�load_template("setup")
6  �load_template("set2"):�load_template("crapola")
  �load_template("warning")
  �readsound
 �
!5  ș "Wimp_SetMode",��readsysvar("Badger$Screen")
"  saved%=�
#�
$
start%=S%
%sndmax%=15:windcount%=3
&�resetsound
' a$=�readsysvar("Badger$Dir")
(&�a$,"adfs::badger")<>0 Y%=0 �Y%=1
)!� Y%=0 : REM test floppy disk
*0ș "Wimp_CreateWindow",,wptrlist%!0 � infow%
+1ș "Wimp_CreateWindow",,wptrlist%!4 � setupw%
,0ș "Wimp_CreateWindow",,wptrlist%!8 � set2w%
-0ș "Wimp_CreateWindow",,wptrlist%!12 � msgw%
.1ș "Wimp_CreateWindow",,wptrlist%!16 � warnw%
/ș "Wimp_CloseTemplate"
0&levbar1step=�readbarmax(4)/sndmax%
1+d%=wptrlist%!8:fixedwidth%=(d%!8)-(!d%)
2Msound%=��readsysvar("Badger$Volume"):�level(setupw%,4,levbar1step*sound%)
3>�puticnstring(set2w%,3,�readsysvar("Badger$SaveGamePath"))
4?�puticnstring(setupw%,9,�readsysvar("Badger$SaveLogoPath"))
50prelink_flag%=��readsysvar("Badger$PreLink")
6�hide_logosave
7�baricon
87� � �error(�$+" (Internal error code "+Þ+")"+�0,�)
9� �event:� quit%
:"ș "Wimp_CloseDown",,&4B534154
;;ș "XOS_Module",4,"marked3":ș "XOS_Module",4,"marked4"
<7ș "XOS_Module",4,"engine":ș "XOS_Module",4,"roar"
=	*QUIT
>�
?
@��event
A(ș "Wimp_Poll",%110001,blk% � e%,eb%
BȎ e% �
C  � 1: �redraw
D  � 2: �openwind(blk%)
E  � 3: �closewind(blk%)
F&  � 6: �click(eb%!8,eb%!12,eb%!16)
G  � 7: �dragend
H  � 8: �keyevent
I  � 9: �menuselect
J  � 17,18: �receive
K�
L�
M
N��redraw
O+� VDU23,224,170,85,170,85,170,85,170,85
P(ș "Wimp_RedrawWindow",,blk% � more%
Q3� x0%=blk%!4:y0%=blk%!8:x1%=blk%!12:y1%=blk%!16
Rȕ more%
S+  ș "Wimp_GetRectangle",,blk% � more%:
T2�  GCOL0,7:MOVEx0%,y1%:FORI%=1TO35:VDU224:NEXT
U6�  FORI%=1TO20:MOVEx0%,y1%-(I%*16):VDU224,224:NEXT
V�
W�
X
Y��keyevent
Z ș "Wimp_ProcessKey",blk%!24
[�
\
]ݤreadsysvar(a$)
^Oș "OS_ReadVarVal",a$,blk%,256,0,0 � ,,a%:a$="":�A%=0�a%-1:a$+=�(blk%?A%):�
_=a$
`
a��openwind(b%)
bwin%=!b%
c�afterwarn% �
d � (win%=set2w%) �
e4  !blk2%=setupw%:ș "Wimp_GetWindowState",,blk2%
f-  width%=(blk2%!12)-(blk2%!4):height%=400
g1  blk2%!4=b%!4:�(b%!8)-height%<0 height%=b%!8
h  blk2%!8=b%!8-height%
i;  blk2%!12=blk2%!4+fixedwidth%:blk2%!16=blk2%!8+height%
j  blk2%!28=b%!28
k!  ș "Wimp_OpenWindow",,blk2%
l, � � win%=setupw% b%!12=b%!4+fixedwidth%
m �
n�
oș "Wimp_OpenWindow",,b%
p�
q
r��closewind(b%)
sș "Wimp_CloseWindow",,b%
t5�!b%=set2w% !b%=setupw% � �!b%=setupw% !b%=set2w%
u9�(!b%=set2w%)�(!b%=setupw%) ș "Wimp_CloseWindow",,b%
v�
w
xݤreadstring(p%)
y2�a$:a$="":ȕ �a$<255 � ?p%>31 a$+=�?p%:p%+=1:�
z=a$
{
|��load_template(name$)
}Nwptrlist%!((windcount%-1)*4)=wptr1%:windptrlist%!((windcount%-1)*4)=wptr2%
~Tș "Wimp_LoadTemplate",,wptr1%,wptr2%,windind%+MAXWINDIND%,-1,name$,0 � ,,wptr2%
>n%=wptr1%!84:�I%=0�(n%-1)*32�32:d%=wptr1%+88+I%:f%=(d%!16)
�/  �(f%�258)=258 � (f%�1)=0 d%!24=mysprites%
�[�  IF wimpver%<300 AND (name$="setup"ORname$="set2"ORname$="msg"ORname$="warning") THEN
�@  � name$="setup"�name$="set2"�name$="msg"�name$="warning" �
�]    �(f%�259)=257 � d%!24<>-1 � 秤readstring(d%!24),"b2")<>0 f%=(f%�&0FF00FFF)�&C00F9000
�*    �(f%�&E000)=&E000 d%!4+=4:d%!12-=4
�    �(f%�258)=2 �
�      a$=�readstring(d%+20)
�/      ș "XWimp_SpriteOp",40,,a$ � ,,,w%,h%
�      �(w%�h%)=0�
�2        f%=f%�256:$wptr2%=a$:?(wptr2%+(�a$))=0
�C        d%!20=wptr2%:d%!24=mysprites%:d%!28=�a$:wptr2%+=�(a$)+1
�      �
�	    �
�    d%!16=f%
�  �
��
�-wptr1%+=88+((wptr1%!84)*32):windcount%+=1
��
�
�
��baricon
�$ibname%="frame1"
�4!blk%=-1:blk%!4=0:blk%!8=0:blk%!12=62:blk%!16=96
�Jblk%!20=&1000313A:blk%!24=ibname%:blk%!28=mysprites%:blk%!32=�$ibname%
�%ș "Wimp_CreateIcon",,blk% � ibh%
��
�
���savesetup(f$)
�K� �f$,".")=0 �error("To save, drag the icon to a directory viewer",0):�
�"X=� f$:�#X,3:�#X,5:�#X,3:�#X,4
��#X,"Badger";:�#X,0
�R�#X,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%,M%,N%,O%,P%,Q%,R%,S%,T%,U%,V%,W%,X%,Z%
��#X,start%,sound%
� �#X,�geticnstring(setupw%,9)
��#X
�8�"Set Badger$SaveLogoPath "+�geticnstring(setupw%,9)
��"SETTYPE "+f$+" ae8"
�=�puticnstring(set2w%,3,f$):�"Set Badger$SaveGamePath "+f$
�!ș "Wimp_SetCaretPosition",-1
� saved%=�:�afterwarn% quit%=�
��
�
�ݤload_file(f$,t%)
�2�t%<>&AE8 �error("Not a saved-game file",0):=�
�!ș "Wimp_SetCaretPosition",-1
�
X=� f$
�.id%=�#X+((�#X)<<8)+((�#X)<<16)+((�#X)<<24)
�SI%=0:�:blk%?I%=�#X:I%+=1:� (I%=11)�((blk%?(I%-1))=0):creator$=�readstring(blk%)
�K� FORI%=0TO11:blk%?I%=BGET#X:NEXT:blk%?12=0:creator$=FNreadstring(blk%)
�a�id%<>&04030503 �error("I do not understand this file as it belongs to '"+creator$+"'.",0):=�
�R�#X,A%,B%,C%,D%,E%,F%,G%,H%,I%,J%,K%,L%,M%,N%,O%,P%,Q%,R%,S%,T%,U%,V%,W%,X%,Z%
��#X,start%
��#X,sound%
�(�level(setupw%,4,sound%*levbar1step)
�E�#X,a$:�puticnstring(setupw%,9,a$):�"Set Badger$SaveLogoPath "+a$
��#X
�=�puticnstring(set2w%,3,f$):�"Set Badger$SaveGamePath "+f$
�)prelink_flag%=0:*Set Badger$PreLink 0
�saved%=�
�=�
�
���setsavedir(dir$)
�!�puticnstring(setupw%,9,dir$)
�!ș "Wimp_SetCaretPosition",-1
��"CDIR "+dir$
��
�
�ݤfiletype(a$)
�ș "XOS_File",5,a$ � a%
�=a%
�
�
��receive
�Ȏ eb%!16 �
�  � 0: quit% = �
�8  � 2: � dragging%=1 �savesetup(�readstring(eb%+44))
�    � dragging%=2 �
�d      b$=�leaf(�geticnstring(setupw%,9)):�b$=""�error("You must give this directory a name",1):�
�6      �setsavedir(�readstring(eb%+44)+b$):saved%=�
�	    �
�
  � 3:
�=    �I%=0�!eb%�4:blk2%!I%=eb%!I%:�:a$=�readstring(eb%+44)
�    �eb%!24=12 �
�F      �filetype(a$)<>2�error("Only directories allowed here",1):�
�"      �setsavedir(a$):saved%=�
�	    �
�3      �load_file(�readstring(eb%+44),eb%!40) �
�I        blk2%!12=1:blk2%!16=4:ș "Wimp_SendMessage",19,blk2%,blk2%!20
�      �
�	    �
�  � 8: �saved% �prequit
��
��
�
�
��prequit
�blk%!12=blk%!8
�!ș "Wimp_SendMessage",19,blk%
��offersave:prequit%=�
��
�
���error(msg$,errno%)
��#0
�!!errblk%=99:$(errblk%+4)=msg$
�,ș "Wimp_ReportError",errblk%,0,"Badger"
��
�
���selecticn(w%,i%,f%)
�F!blk%=w%:blk%!4=i%:blk%!12=(1<<21):�f%=0 blk%!8=0:� blk%!8=blk%!12
� ș "Wimp_SetIconState",,blk%
��
�
���geticonstate(w%,i%)
�3!blk%=w%:blk%!4=i%:ș "Wimp_GetIconState",,blk%
��
�
�ݤisselected(w%,i%)
��geticonstate(w%,i%)
� =((blk%!24)�(1<<21))=(1<<21)
�
���tweaksetup
��geticonstate(setupw%,17)
�Bvbarx0%=blk%!8:vbary0%=blk%!12:vbarx1%=blk%!16:vbary1%=blk%!20
�blk%!8=0:blk%!12=1<<23
��
�
���popup_menu(t$,o$,w%,i%)
�#�geticonstate(w%,i%):x%=blk%!16
��
�
�ݤreadbarmax(i%)

8!blk%=setupw%:blk%!4=i%:ș "Wimp_GetIconState",,blk%


=(blk%!16)-(blk%!8)



��level(w%,i%,a)

W!blk%=w%:blk%!4=i%:ș "Wimp_GetIconState",,blk%:y0%=blk%!12:x1%=blk%!16:y1%=blk%!20

=blk%!16=(blk%!8)+a:x0%=blk%!16:ș "Wimp_DeleteIcon",,blk%

C�I%=0�31�4:I%!(blk%+4)=I%!(blk%+8):�:ș "Wimp_CreateIcon",,blk%

u�x0%<x1% � ș "Wimp_ForceRedraw",w%,x0%-8,y0%,x1%,y1% � blk%!4=i%:blk%!8=0:blk%!12=0:ș "Wimp_SetIconState",,blk%

�

	


��wintoscrn(b%)

.!blk2%=!b%:ș "Wimp_GetWindowState",,blk2%

b%!8+=(blk2%!4)-(blk2%!20)


 b%!12+=(blk2%!16)-(blk2%!24)

b%!16+=(blk2%!4)-(blk2%!20)

 b%!20+=(blk2%!16)-(blk2%!24)

�



ݤrndup(n%) = �((n%+3)/4)*4



2ݤleaf(f$) I%=�f$:ȕI%>1��f$,I%,1)<>"."I%-=1:�

�f$,I%,1)="."I%+=1

=�f$,I%)



ݤgeticnstring(w%,i%)

3!blk%=w%:blk%!4=i%:ș "Wimp_GetIconState",,blk%

=�readstring(blk%!28)



��puticnstring(w%,i%,a$)

3!blk%=w%:blk%!4=i%:ș "Wimp_GetIconState",,blk%

$$(blk%!28)=a$:?((blk%!28)+�a$)=0

3blk%!8=0:blk%!12=0:ș "Wimp_SetIconState",,blk%

 �

!

"
��dragend

#Kș "Wimp_GetPointerInfo",,blk%:x%=!blk%:y%=blk%!4:w%=blk%!12:i%=blk%!16

$!!blk%=56:blk%!12=0:blk%!16=1:

%`blk%!20=w%:blk%!24=i%:blk%!28=x%:blk%!32=y%:blk%!36=100:blk%!40=&FFF:$(blk%+44)=dragname$+�0

&2ș "Wimp_SendMessage",17,blk%,w%:myref%=blk%!8

'�

(

)��startdrag(w%,i%,n$)

*dragname$=n$

+3!blk%=w%:blk%!4=i%:ș "Wimp_GetIconState",,blk%

,?�wintoscrn(blk%):blk%!8-=4:blk%!12-=4:blk%!16+=4:blk%!20+=4

-Rblk%!4=5:blk%!24=0:blk%!28=0:blk%!32=2000:blk%!36=2000:ș "Wimp_DragBox",,blk%

.�

/

0
��dropmsg

1}�error("Drop a directory icon here to change the logo save area directory (or drag out the directory icon next to it)",0)

2�

3

4��setupwclick(b%,i%)

5Ȏ i% �

6L  � 3: �sound%>0 sound%-=1:�level(setupw%,4,sound%*levbar1step):saved%=�

7R  � 5: �sound%<sndmax% sound%+=1:�level(setupw%,4,sound%*levbar1step):saved%=�

87  � 8: �b%=64 �startdrag(setupw%,i%,""):dragging%=2

9  � 12: �dropmsg

:�

;�

<

=��set2wclick(b%,i%)

>Ȏ i% �

?R  � 2: �b%=64 �startdrag(set2w%,i%,�leaf(�geticnstring(set2w%,3))):dragging%=1

@.  � 4: �savesetup(�geticnstring(set2w%,3))

A�

B�

C

D��warnwclick(b%,i%)

EȎ i% �

FM  � 1: !blk%=warnw%:�closewind(blk%):ș "Wimp_CreateMenu",,set2w%,310,550

G  � 2: quit%=�

H�

I�

J

K��click(but%,w%,i%)

LȎ w% �

M  � -2:

N    afterwarn%=�

O    Ȏ but% �

PL      � 2: �master_menu("Badger","Info,Teacher,Setup...,Quit,",!eb%,256)

Q      � 4: �startgame

R	    �

S&  � setupw%: �setupwclick(but%,i%)

T$  � set2w%: �set2wclick(but%,i%)

U$  � warnw%: �warnwclick(but%,i%)

V�

W�

X

Y��submenu(m%,i%,h%)

Zm%+=28+((i%-1)*24)

[m%!4=h%

\�

]

^"��master_menu(title$,m$,x%,y%)

_!�create_menu(menu%,title$,m$)

`4�submenu(menu%,1,infow%):�submenu(menu%,2,msgw%)

a2ș "Wimp_CreateMenu",,menu%,x%-menu%!16 / 2,y%

bcurrmenu%=-1

c�

d

e��create_menu(m%,title$,m$)

f
� i%,max%

g$m%=title$

h4m%?12=7:m%?13=2:m%?14=7:m%?15=0:m%!20=40:m%!24=0

ii%=m%+28:max%=�(title$)-2

j�

k  a%=�m$,",")

l  i$=�m$,a%-1):!i%=0

m  �:more%=�

n'    �i$,1)=">" !i%=(!i%)�8:more%=�

o'    �i$,1)="!" !i%=(!i%)�1:more%=�

p    � more% i$=�i$,�(i$)-1)

q  � � more%:$(i%+12)=i$

r  � a%>max% max%=a%

s  i%!4=0:i%!8=&07000021

t  m$ = �m$,a%+1)

u  Ȏ $(i%+12) �

v  �

w  i% = i% + 24

x
� m$ = ""

yi%!-24 = (i%!-24)� &80

zm%!16 = max%*16

{�

|

}��open_window1

~#ș "Wimp_GetPointerInfo",,blk2%

/!blk%=set2w%:ș "Wimp_GetWindowState",,blk%

�Da%=(blk%!12)-(blk%!4):blk%!4=(!blk2%)-(a%/2):blk%!12=(blk%!4)+a%

�<blk%!8=572:blk%!16=blk%!8+252:blk%!28=-1:�openwind(blk%)

�J!blk%=setupw%:ș "Wimp_GetWindowState",,blk%:blk%!8=96:�openwind(blk%)

��

�

���menuselect

�Ȏ currmenu% �

�  � -1:

�    Ȏ !eb% �

�      � 0:

�      � 1:

�      � 2: �open_window1

�=      � 3: �saveareadiffers:�saved% �offersave � quit%=�

�	    �

��

��

�

���saveareadiffers

�J�readsysvar("Badger$SaveLogoPath")<>�geticnstring(setupw%,9) saved%=�

��

�

���offersave

�/!blk%=set2w%:ș "Wimp_GetWindowState",,blk%

�3f%=blk%!32:�(f%�&10000)=&10000 �closewind(blk%)

�(ș "Wimp_CreateMenu",,warnw%,260,650

�afterwarn%=�

��

�

���hide_logosave

�1!blk%=370:blk%!4=-496:blk%!8=976:blk%!12=-344

�$ș "Wimp_SetExtent",setupw%,blk%

��

�

�ݤreadvduvar(a%)

�9!blk%=a%:blk%!4=-1:ș "OS_ReadVduVariables",blk%,blk%

�
=!blk%

�

�ݤcheckfont(a$,A%,B%)

�� �

�� � �:=0

�)ș "Font_FindFont",,a$,A%,B%,0,0 � h%

�ș "Font_LoseFont",h%:� �

�=�

�

���readsound

�9ș "Sound_ReadControlBlock",1,0 � ,,a%:a%=(a%>>8)�255

�)ș "Sound_Configure",0,0,0 � A%,B%,C%

�6�"Set Badger$chan1 "+�a%:�"Set Badger$nchans "+�A%

�7�"Set Badger$sampsz "+�B%:�"Set Badger$period "+�C%

�3ș "Sound_Volume",0 � A%:�"Set Badger$vol "+�A%

��

�

���resetsound

�2�"channelvoice 1 "+�readsysvar("Badger$chan1")

�EA%=��readsysvar("Badger$nchans"):B%=��readsysvar("Badger$sampsz")

�BC%=��readsysvar("Badger$period"):ș "Sound_Configure",A%,B%,C%

�0ș "Sound_Volume",��readsysvar("Badger$vol")

��

�

�
ݤtidy

�!� l%,cs%,I%,D%,N%,n%,cs%,X,r%

�CX=�"<Badger$Dir>.!Sprites":r%=-1:�#X=(�#X)-2:l%=�#X+((�#X)*256)

�
�l%>0�

�l  �#X=�#X-l%:cs%=(�#X)+((�#X)<<8)+((�#X)<<16)+((�#X)<<24):�I%=0�l%-7:pdbbuff%?I%=�#X:�:pdbbuff%?I%=I%�10

�� r%=0:pdbbuff%=mc%!52

�	�:�#X

�SD%=(mc%!48)+272:�z(4,pdbbuff%):D%=(mc%!48)+208:�z(2,(mc%!56)):�z2(176,(mc%!64))

�Kș pdbs%+&C1,,(mc%!48)+4 � pdbh%:!(mc%!48)=pdbh%:ș pdbs%+&C5,,(mc%!48)

�=r%

�

���z(n%,b%)

�aI%=-1:�N%=1�n%:!D%=b%+I%+1:D%!4=(mc%!60):�:I%+=1:I%?b%=(I%?b%)� I%:�I%?b%=10:I%?b%=0:D%+=32:�

��

�

�E��z2(a%,b%) c%=mc%!48:c%!a%=b%:c%!(a%+4)=mysprites%:c%!(a%+8)=4:�

�

���startgame

�5ș "OS_Byte",135 � ,,a%:�"Set Badger$Screen "+�a%

�N�"Set Badger$Save "+�geticnstring(setupw%,9):�"Set Badger$Volume "+�sound%

�8�"Set Badger$SaveLogoPath "+�geticnstring(setupw%,9)

� *Set Amazon$Dir <Badger$Dir>

�W�checkfont("Tabloid.medium",20,28)=� �error("Font:'Tabloid.Medium' not found",0):�

�kș "Wimp_SetMode",15:�(�readvduvar(150)/1024)<160 �error("Not enough memory to change screen mode",1):�

�"ș "Wimp_CloseDown",,&4B534154

��readsound

��=oldhimem%

�

�;� *********** Start of Simon's application ************

�

�S%=start%:H%=mc%

� ș "Sound_Configure",2,0,100

�*ChannelVoice 1 2

�*ChannelVoice 2 6

�*ș "Sound_Volume",sound%*(127/sndmax%)

�
*FX220,17

�� �

�*SET Badger$Status Restart

�+A%=memtop%:�=A%:�"<Badger$Dir>.Prelink"

�

�(� DIM input% 16,output% 16,scale% 16

�;� DIM coor_table%(2,300),emask%(40),l$(20),zoom%(6,100)

�;� total_but%=30:DIM but%(total_but%,4),but$(total_but%)

�#� MODE12:SYS "OS_RemoveCursors"

�>� PROCclear_text2:PROCclear_title:PROCclear_picture(128,2)

�� *FX112,1

�� *FX113,1

�#a$=�readsysvar("Badger$Status")

�$�a$,"Fresh"):�title:�pause(200)

�*FX112,2

�S�f%=32�126:�pri(30,644,0,1,128,2,�(f%)):�pri(30,644,0,1,128,1,�(f%)):�:*FX112,1

�A� IF prelink_flag% OR X%=0 PROCpre_link:*Set Badger$PreLink 0

�	�link

��

�

���pause(n%)

�A%=�:���=A%+n%

��

�

�
��link

�!�S%=1 K%=0:�chain("ONE.LINK")

�&�S%=2 K%=1:J%=2:�chain("ONE.LINK")

�&�S%=3 K%=2:J%=2:�chain("ONE.LINK")

�!�S%=4 K%=1:�chain("TWO.LINK")

�!�S%=5 K%=0:�chain("TWO.LINK")

�!�S%=6 K%=2:�chain("TWO.LINK")

�!�S%=7 K%=2:�chain("TWO.LINK")

�!�S%=8 K%=4:�chain("TWO.LINK")

�!�S%=9 K%=4:�chain("TWO.LINK")
"�S%=10 K%=0:�chain("TWO.LINK")

"�S%=11 K%=0:�chain("TWO.LINK")
"�S%=12 K%=0:�chain("TWO.LINK")
"�S%=13 K%=5:�chain("TWO.LINK")
"�S%=14 K%=6:�chain("TWO.LINK")
"�S%=15 K%=7:�chain("TWO.LINK")
$�S%=16 P%=1:�chain("THREE.LINK")
$�S%=17 P%=2:�chain("THREE.LINK")
$�S%=18 P%=3:�chain("THREE.LINK")
	$�S%=19 P%=4:�chain("THREE.LINK")

$�S%=20 P%=5:�chain("THREE.LINK")
$�S%=21 P%=7:�chain("THREE.LINK")
$�S%=22 P%=8:�chain("THREE.LINK")

$�S%=23 P%=9:�chain("THREE.LINK")
$�S%=24 P%=10:�chain("FOUR.LINK")
$�S%=25 P%=11:�chain("FOUR.LINK")
$�S%=26 P%=12:�chain("FOUR.LINK")
�

��chain(file$)
�palette
D�file$="ONE.LINK":name$="INTRODUCTION":path$="$.!CRYSTAL."+file$
B�file$="TWO.LINK":name$="BRIDGETOWN":path$="$.!CRYSTAL."+file$
@�file$="THREE.LINK":name$="FOREST":path$="$.!CRYSTAL."+file$
<�file$="FOUR.LINK":name$="KEY":path$="$.!CRYSTAL."+file$
C�Y%=0 test%=0:�:�floppy_disk(name$,path$,"$.!badger"):�error%=0
&file$="<AMAZON$DIR>."+file$:*FX229

*FX220,17
� cache% � *CACHE OFF
A%=memtop%:�=A%:�file$
�

 #��floppy_disk(name$,path$,set$)
!Bș "OS_SpriteOp",&110,sprite_area1%,"loadsc",0,400,500,880,700
"error%=0
#�
$z��:� �:ș "OS_SpriteOp",&134,sprite_area1%,"loadsc",400,500,0:ș "OS_SpriteOp",&119,sprite_area1%,"loadsc":error%=1:�
%�
&  �test%=1 �
'    �clear_text
(2    �pri(430,644,0,1,128,1,"Please place the")
)%    �pri(430,582,0,1,128,1,name$)
*7    �pri(430,520,0,1,128,1,"disk in drive 0    OK")
+    okx%=760:oky%=512
,;    �0,3:�okx%,oky%:�1,100,0:�1,0,56:�1,-100,0:�1,0,-56
-    ȗ�
.Q    �:ȗmx%,my%,mc%:�mc%=4 � mx%>okx% � mx%<okx%+100 � my%>oky% � my%<oky%+58
/  �
0
  test%=1
1  *MOUNT 0
2  �"SET AMAZON$DIR "+set$
3"  ș "XOS_Find",&40,path$ � h%
4�h%:�#h%
5:ș "OS_SpriteOp",&134,sprite_area1%,"loadsc",400,500,0
60ș "OS_SpriteOp",&119,sprite_area1%,"loadsc"
7� �
8�
9
:��pre_link
;NJ%=0:K%=0:L%=0:M%=0:N%=0:O%=0:P%=0:Q%=0:R%=0:T%=0:U%=0:V%=0:W%=0:X%=0:Z%=0
<	�S%=1
=	�S%=2
>	�S%=3
?�S%>3 � S%<16 �
@  X%=�(3)+4
A  W%=�(4)+3
B  V%=�(4)+3
C"  �X%=W% � W%=V% � V%=X% �D@B
D�
E�X%=5x%=38
F�X%=6x%=364
G�X%=7x%=598
H�S%=4 R%=113
I�S%=5 R%=x%
J�S%=6 R%=x%:K%=2
K#�S%=7 R%=x%:K%=2:Z%=1:T%=1:L%=1
L$�S%=8 R%=770:T%=1:K%=8:N%=1:L%=1
M)�S%=9 R%=770:T%=1:K%=8:N%=1:Z%=1:L%=1
N+�S%=10 R%=770:T%=1:K%=2:N%=2:M%=20:L%=1
O0�S%=11 R%=770:T%=1:K%=2:Z%=1:N%=2:M%=20:L%=1
P0�S%=12 R%=462:T%=1:K%=0:N%=2:M%=20:Z%=1:L%=1
Q:�S%=13 R%=462:T%=1:K%=5:N%=2:M%=18:Z%=1:O%=1:Q%=1:L%=1
R:�S%=14 R%=462:T%=1:K%=6:N%=2:M%=12:Z%=1:O%=3:Q%=1:L%=1
S:�S%=15 R%=462:T%=1:K%=7:N%=2:M%=12:Z%=1:O%=3:Q%=1:L%=1
T8�S%=16 R%=1:J%=720:K%=500:L%=400:Z%=1:T%=1:X%=0:O%=0
U8�S%=17 R%=5:J%=760:K%=600:L%=550:Z%=1:T%=1:X%=0:O%=1
V2�S%=18 R%=6:J%=0:K%=0:L%=0:Z%=1:T%=1:X%=1:O%=1
W7�S%=19 R%=6:J%=0:K%=0:L%=0:Z%=1:T%=1:X%=1:O%=1:U%=1
X7�S%=20 R%=7:J%=0:K%=0:L%=0:Z%=1:T%=1:X%=1:O%=1:U%=1
Y<�S%=21 R%=8:J%=0:K%=0:L%=0:Z%=1:T%=1:X%=2:O%=1:U%=1:N%=1
Z<�S%=22 R%=4:J%=0:K%=0:L%=0:Z%=1:T%=1:X%=3:O%=1:U%=1:N%=1
[=�S%=23 R%=10:J%=0:K%=0:L%=0:Z%=1:T%=1:X%=3:O%=1:U%=1:N%=1
\
�S%=24
]
�S%=25
^
�S%=26
_�
`
a��clear_text
bE�24,400;500;880;700;18,0,131,16,24,408;508;872;692;18,0,128,16,26
c�
d
e&��pri(x%,y%,ll%,col%,bcol%,si%,a$)
f�23,25,2,4,8,12,0,0,0,0,0
g/�x%-20,y%-30:�x%+ll%+20,y%+60:�x%+ll%+20,y%
h��ll%>0:�24,x%-24;y%-(4+16/si%);x%+ll%;y%+30+(28/si%);18,0,bcol%,16,26,18,0,2:�x%-24,y%-(4+16/si%):�x%+ll%,y%-(4+16/si%):�x%+ll%,y%+30+(28/si%):�x%-24,y%+30+(28/si%):�x%-24,y%-(4+16/si%)
iC%=320:D%=360
j�si%=2 C%=400:D%=460
k A%=x%:B%=y%:E%=col%:F%=bcol%
lT�sent%=1� �(a$):?(letters%+(sent%-1))=�(�a$,sent%,1)):�:?(letters%+(sent%-1))=13
mmș "Font_FindFont",,"tabloid.medium",C%,D%,0,0�h%:ș "Font_SetFontColours",h%,0,0,2:ș "Font_LoseFont",h%
n� fonts%
o�
p
q��pull_variables
rclear_sprite%=!(H%+0)
sdraw_picture%=!(H%+4)
tscreen_start%=!(H%+8)
usimons_sprite%=!(H%+12)
vexplode_merge%=!(H%+16)
wblock_merge%=!(H%+20)
xslow_merge%=!(H%+24)
ydelay%=!(H%+28)
zsave_screen%=!(H%+32)
{fonts%=!(H%+36)
|letters%=!(H%+40)
}sprite_area1%=H%+(5*1024)
~&picture1%=sprite_area1%+(200*1024)
!picture2%=picture1%+(10*1024)
��
�
�
��palette
��p%,r%,g%,b%:� �tGB
��p%=0�15
�  �r%,g%,b%:�p%,r%,g%,b%
��:�
�,� 255,255,255,170,170,170,85,85,85,0,0,0
�)� 0,0,153,0,0,255,0,204,255,255,255,0
�(� 255,136,0,221,0,0,136,17,0,0,102,0
�(� 0,153,34,0,204,0,0,255,34,153,68,0
�
���initialise_sprite_area
�P!sprite_area1%=&3C000:sprite_area1%!8=16:ș "OS_SpriteOp",&109,sprite_area1%
��
�
���title
�*SET Badger$Status Restart
��24,12;336;1266;1010;
�)�load_sprite(sprite_area1%,"FRONTSC")
�<ș "OS_SpriteOp",&122,sprite_area1%,"ads_title",12,336,0
��26
�?�pri(48,260,0,1,128,1,"BADGER title screen by Adam Hosler")
��
�
���load_sprite(at%,name$)
�3ș "OS_SpriteOp",&10A,at%,"<AMAZON$DIR>."+name$
��
�
�5��plot_sprite_scaled(x%,y%,xm%,ym%,xd%,yd%,name$)
�!(scale%+0)=xm%
�!(scale%+4)=ym%
�!(scale%+8)=xd%
�!(scale%+12)=yd%
�>ș "OS_SpriteOp",&134,sprite_area1%,name$,x%,y%,0,scale%,0
��
�
���clear_text2
�e�15,0,0,0:�24,0;0;1278;320;18,0,128,16,24,4;4;1274;316;18,0,131,16,24,8;8;1270;312;18,0,128,16,26
��
�
�!��clear_picture(col%,screen%)
��"FX112,"+�(screen%)
�Q�15,0,0,0:�24,0;324;1278;1022;18,0,131,16,24,16;340;1262;1006;18,0,col%,16,26
��
�
���clear_title
��clear_picture(128,0):�
�&�24,44;400;1234;946;18,0,132,16,26
�&�24,76;432;1202;914;18,0,133,16,26
��
�
���find_starts
�*FX112,1
�screen_one%=� screen_start%
�*FX112,2
�screen_two%=� screen_start%
�*FX112,1
��
�
�6��sprite_plot(area%,name$,sx%,sy%,mask%,bk1%,bk2%)
�A%=�find_screen(148)
�0ș "OS_SpriteOp",&118,area%,name$ � r0,r1,B%
�
C%=sx% /4
�D%=(1028-(sy%))/4
�E%=mask%:F%=bk1%:G%=bk2%
��simons_sprite%:�
�
�Vݤfind_screen(scr%):!blk%=scr%:blk%!4=-1:ș "OS_ReadVduVariables",blk%,blk%:=!blk%
�

00000000  0d 00 00 29 f4 ff 61 64  66 73 3a 3a 48 61 72 64  |...)..adfs::Hard|
00000010  44 69 73 63 34 2e 24 2e  21 42 61 64 67 65 72 2e  |Disc4.$.!Badger.|
00000020  21 72 75 6e 69 6d 61 67  65 0d 00 01 14 63 61 63  |!runimage....cac|
00000030  68 65 25 3d a3 3a ee 85  e5 8d 54 45 40 0d 00 02  |he%=.:....TE@...|
00000040  0d 2a 43 41 43 48 45 20  4f 4e 0d 00 03 0c 63 61  |.*CACHE ON....ca|
00000050  63 68 65 25 3d b9 0d 00  04 07 ee 85 87 0d 00 05  |che%=...........|
00000060  0d 2a 46 58 32 32 30 2c  32 37 0d 00 06 1e 41 25  |.*FX220,27....A%|
00000070  3d 93 3a d3 3d 26 31 32  30 30 30 3a 6f 6c 64 68  |=.:.=&12000:oldh|
00000080  69 6d 65 6d 25 3d 41 25  0d 00 07 0b 77 6f 72 6b  |imem%=A%....work|
00000090  25 3d 93 0d 00 08 43 4d  41 58 57 49 4e 44 49 4e  |%=....CMAXWINDIN|
000000a0  44 25 3d 34 30 39 36 3a  4d 41 58 57 49 4e 44 53  |D%=4096:MAXWINDS|
000000b0  54 52 25 3d 34 30 39 36  3a 53 50 52 49 54 45 53  |TR%=4096:SPRITES|
000000c0  45 58 54 25 3d 38 30 30  30 3a 70 64 62 73 25 3d  |EXT%=8000:pdbs%=|
000000d0  26 34 30 30 30 30 0d 00  09 30 77 69 6e 64 69 6e  |&40000...0windin|
000000e0  64 25 3d 77 6f 72 6b 25  3a 77 69 6e 64 73 74 72  |d%=work%:windstr|
000000f0  25 3d 77 69 6e 64 69 6e  64 25 2b 4d 41 58 57 49  |%=windind%+MAXWI|
00000100  4e 44 49 4e 44 25 0d 00  0a 4d 77 69 6e 64 70 74  |NDIND%...Mwindpt|
00000110  72 6c 69 73 74 25 3d 77  69 6e 64 73 74 72 25 2b  |rlist%=windstr%+|
00000120  4d 41 58 57 49 4e 44 53  54 52 25 20 3a 20 77 70  |MAXWINDSTR% : wp|
00000130  74 72 6c 69 73 74 25 3d  77 69 6e 64 70 74 72 6c  |trlist%=windptrl|
00000140  69 73 74 25 2b 34 30 3a  42 25 3d 77 69 6e 64 73  |ist%+40:B%=winds|
00000150  74 72 25 0d 00 0b 1b 6d  79 73 70 72 69 74 65 73  |tr%....mysprites|
00000160  25 3d 77 70 74 72 6c 69  73 74 25 2b 34 30 0d 00  |%=wptrlist%+40..|
00000170  0c 0e 6d 63 25 3d 26 31  36 38 30 30 0d 00 0d 12  |..mc%=&16800....|
00000180  6d 65 6d 74 6f 70 25 3d  26 35 42 34 30 30 0d 00  |memtop%=&5B400..|
00000190  0e 41 c8 99 20 22 57 69  6d 70 5f 49 6e 69 74 69  |.A.. "Wimp_Initi|
000001a0  61 6c 69 73 65 22 2c 32  30 30 2c 26 34 42 35 33  |alise",200,&4B53|
000001b0  34 31 35 34 2c 22 42 61  64 67 65 72 22 20 b8 20  |4154,"Badger" . |
000001c0  77 69 6d 70 76 65 72 25  2c 74 61 73 6b 68 25 0d  |wimpver%,taskh%.|
000001d0  00 0f 59 ee 85 20 f2 65  72 72 6f 72 28 f6 24 2b  |..Y.. .error(.$+|
000001e0  22 20 28 49 6e 74 65 72  6e 61 6c 20 65 72 72 6f  |" (Internal erro|
000001f0  72 20 63 6f 64 65 20 22  2b c3 9e 2b 22 29 22 2b  |r code "+..+")"+|
00000200  bd 30 2c 9f 29 3a e0 3a  c8 99 20 22 57 69 6d 70  |.0,.):.:.. "Wimp|
00000210  5f 43 6c 6f 73 65 44 6f  77 6e 22 2c 2c 26 34 42  |_CloseDown",,&4B|
00000220  35 33 34 31 35 34 3a e0  0d 00 10 2d 58 3d 8e 28  |534154:....-X=.(|
00000230  22 3c 42 61 64 67 65 72  24 44 69 72 3e 2e 41 53  |"<Badger$Dir>.AS|
00000240  70 72 69 74 65 73 22 29  3a 65 78 74 25 3d a2 23  |prites"):ext%=.#|
00000250  58 3a d9 23 58 0d 00 11  47 de 20 62 6c 6b 25 20  |X:.#X...G. blk% |
00000260  32 35 36 2c 69 62 6e 61  6d 65 25 20 32 30 2c 65  |256,ibname% 20,e|
00000270  72 72 62 6c 6b 25 20 32  30 30 2c 6d 65 6e 75 25  |rrblk% 200,menu%|
00000280  20 31 30 32 34 2c 62 6c  6b 32 25 20 31 30 30 2c  | 1024,blk2% 100,|
00000290  70 64 62 62 75 66 66 25  20 32 35 36 0d 00 12 2b  |pdbbuff% 256...+|
000002a0  73 65 74 32 77 25 3d 30  3a 73 65 74 75 70 77 25  |set2w%=0:setupw%|
000002b0  3d 30 3a 71 75 69 74 25  3d a3 3a 61 66 74 65 72  |=0:quit%=.:after|
000002c0  77 61 72 6e 25 3d a3 0d  00 13 2c e7 20 a4 72 65  |warn%=....,. .re|
000002d0  61 64 73 79 73 76 61 72  28 22 42 61 64 67 65 72  |adsysvar("Badger|
000002e0  24 53 74 61 74 75 73 22  29 3d 22 46 72 65 73 68  |$Status")="Fresh|
000002f0  22 20 8c 0d 00 14 21 20  20 73 74 61 72 74 25 3d  |" ....!  start%=|
00000300  31 3a 53 25 3d 31 3a 73  61 76 65 64 25 3d b9 3a  |1:S%=1:saved%=.:|
00000310  4d 25 3d 30 0d 00 15 2d  20 20 21 6d 79 73 70 72  |M%=0...-  !myspr|
00000320  69 74 65 73 25 3d 53 50  52 49 54 45 53 45 58 54  |ites%=SPRITESEXT|
00000330  25 3a 6d 79 73 70 72 69  74 65 73 25 21 38 3d 31  |%:mysprites%!8=1|
00000340  36 0d 00 16 26 20 20 c8  99 20 22 4f 53 5f 53 70  |6...&  .. "OS_Sp|
00000350  72 69 74 65 4f 70 22 2c  26 31 30 39 2c 6d 79 73  |riteOp",&109,mys|
00000360  70 72 69 74 65 73 25 0d  00 17 3e 20 20 c8 99 20  |prites%...>  .. |
00000370  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00000380  30 41 2c 6d 79 73 70 72  69 74 65 73 25 2c 22 3c  |0A,mysprites%,"<|
00000390  42 61 64 67 65 72 24 44  69 72 3e 2e 41 53 70 72  |Badger$Dir>.ASpr|
000003a0  69 74 65 73 22 0d 00 18  2f 20 20 ff 22 4c 4f 41  |ites".../  ."LOA|
000003b0  44 20 3c 42 61 64 67 65  72 24 44 69 72 3e 2e 63  |D <Badger$Dir>.c|
000003c0  6f 64 65 20 22 2b c3 7e  6d 63 25 3a 41 25 3d 77  |ode "+.~mc%:A%=w|
000003d0  6f 72 6b 25 0d 00 19 3b  20 20 f4 20 49 46 4e 4f  |ork%...;  . IFNO|
000003e0  54 46 4e 74 69 64 79 20  4f 53 43 4c 49 22 53 65  |TFNtidy OSCLI"Se|
000003f0  74 20 42 61 64 67 65 72  24 74 69 64 79 20 22 2b  |t Badger$tidy "+|
00000400  53 54 52 24 55 53 52 28  6d 63 25 21 34 34 29 0d  |STR$USR(mc%!44).|
00000410  00 1a 32 20 20 77 70 74  72 31 25 3d 77 69 6e 64  |..2  wptr1%=wind|
00000420  73 74 72 25 3a 77 70 74  72 32 25 3d 77 69 6e 64  |str%:wptr2%=wind|
00000430  69 6e 64 25 3a 77 69 6e  64 63 6f 75 6e 74 25 3d  |ind%:windcount%=|
00000440  31 0d 00 1b 36 20 20 c8  99 20 22 57 69 6d 70 5f  |1...6  .. "Wimp_|
00000450  4f 70 65 6e 54 65 6d 70  6c 61 74 65 22 2c 2c 22  |OpenTemplate",,"|
00000460  3c 42 61 64 67 65 72 24  44 69 72 3e 2e 54 65 6d  |<Badger$Dir>.Tem|
00000470  70 6c 61 74 65 73 22 0d  00 1c 38 20 20 f2 6c 6f  |plates"...8  .lo|
00000480  61 64 5f 74 65 6d 70 6c  61 74 65 28 22 70 72 6f  |ad_template("pro|
00000490  67 69 6e 66 6f 22 29 3a  f2 6c 6f 61 64 5f 74 65  |ginfo"):.load_te|
000004a0  6d 70 6c 61 74 65 28 22  73 65 74 75 70 22 29 0d  |mplate("setup").|
000004b0  00 1d 36 20 20 f2 6c 6f  61 64 5f 74 65 6d 70 6c  |..6  .load_templ|
000004c0  61 74 65 28 22 73 65 74  32 22 29 3a f2 6c 6f 61  |ate("set2"):.loa|
000004d0  64 5f 74 65 6d 70 6c 61  74 65 28 22 63 72 61 70  |d_template("crap|
000004e0  6f 6c 61 22 29 0d 00 1e  1f 20 20 f2 6c 6f 61 64  |ola")....  .load|
000004f0  5f 74 65 6d 70 6c 61 74  65 28 22 77 61 72 6e 69  |_template("warni|
00000500  6e 67 22 29 0d 00 1f 10  20 20 f2 72 65 61 64 73  |ng")....  .reads|
00000510  6f 75 6e 64 0d 00 20 05  cc 0d 00 21 35 20 20 c8  |ound.. ....!5  .|
00000520  99 20 22 57 69 6d 70 5f  53 65 74 4d 6f 64 65 22  |. "Wimp_SetMode"|
00000530  2c bb a4 72 65 61 64 73  79 73 76 61 72 28 22 42  |,..readsysvar("B|
00000540  61 64 67 65 72 24 53 63  72 65 65 6e 22 29 0d 00  |adger$Screen")..|
00000550  22 0e 20 20 73 61 76 65  64 25 3d a3 0d 00 23 05  |".  saved%=...#.|
00000560  cd 0d 00 24 0d 73 74 61  72 74 25 3d 53 25 0d 00  |...$.start%=S%..|
00000570  25 1b 73 6e 64 6d 61 78  25 3d 31 35 3a 77 69 6e  |%.sndmax%=15:win|
00000580  64 63 6f 75 6e 74 25 3d  33 0d 00 26 0f f2 72 65  |dcount%=3..&..re|
00000590  73 65 74 73 6f 75 6e 64  0d 00 27 20 61 24 3d a4  |setsound..' a$=.|
000005a0  72 65 61 64 73 79 73 76  61 72 28 22 42 61 64 67  |readsysvar("Badg|
000005b0  65 72 24 44 69 72 22 29  0d 00 28 26 e7 a7 61 24  |er$Dir")..(&..a$|
000005c0  2c 22 61 64 66 73 3a 3a  62 61 64 67 65 72 22 29  |,"adfs::badger")|
000005d0  3c 3e 30 20 59 25 3d 30  20 8b 59 25 3d 31 0d 00  |<>0 Y%=0 .Y%=1..|
000005e0  29 21 f4 20 59 25 3d 30  20 3a 20 52 45 4d 20 74  |)!. Y%=0 : REM t|
000005f0  65 73 74 20 66 6c 6f 70  70 79 20 64 69 73 6b 0d  |est floppy disk.|
00000600  00 2a 30 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |.*0.. "Wimp_Crea|
00000610  74 65 57 69 6e 64 6f 77  22 2c 2c 77 70 74 72 6c  |teWindow",,wptrl|
00000620  69 73 74 25 21 30 20 b8  20 69 6e 66 6f 77 25 0d  |ist%!0 . infow%.|
00000630  00 2b 31 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |.+1.. "Wimp_Crea|
00000640  74 65 57 69 6e 64 6f 77  22 2c 2c 77 70 74 72 6c  |teWindow",,wptrl|
00000650  69 73 74 25 21 34 20 b8  20 73 65 74 75 70 77 25  |ist%!4 . setupw%|
00000660  0d 00 2c 30 c8 99 20 22  57 69 6d 70 5f 43 72 65  |..,0.. "Wimp_Cre|
00000670  61 74 65 57 69 6e 64 6f  77 22 2c 2c 77 70 74 72  |ateWindow",,wptr|
00000680  6c 69 73 74 25 21 38 20  b8 20 73 65 74 32 77 25  |list%!8 . set2w%|
00000690  0d 00 2d 30 c8 99 20 22  57 69 6d 70 5f 43 72 65  |..-0.. "Wimp_Cre|
000006a0  61 74 65 57 69 6e 64 6f  77 22 2c 2c 77 70 74 72  |ateWindow",,wptr|
000006b0  6c 69 73 74 25 21 31 32  20 b8 20 6d 73 67 77 25  |list%!12 . msgw%|
000006c0  0d 00 2e 31 c8 99 20 22  57 69 6d 70 5f 43 72 65  |...1.. "Wimp_Cre|
000006d0  61 74 65 57 69 6e 64 6f  77 22 2c 2c 77 70 74 72  |ateWindow",,wptr|
000006e0  6c 69 73 74 25 21 31 36  20 b8 20 77 61 72 6e 77  |list%!16 . warnw|
000006f0  25 0d 00 2f 1b c8 99 20  22 57 69 6d 70 5f 43 6c  |%../... "Wimp_Cl|
00000700  6f 73 65 54 65 6d 70 6c  61 74 65 22 0d 00 30 26  |oseTemplate"..0&|
00000710  6c 65 76 62 61 72 31 73  74 65 70 3d a4 72 65 61  |levbar1step=.rea|
00000720  64 62 61 72 6d 61 78 28  34 29 2f 73 6e 64 6d 61  |dbarmax(4)/sndma|
00000730  78 25 0d 00 31 2b 64 25  3d 77 70 74 72 6c 69 73  |x%..1+d%=wptrlis|
00000740  74 25 21 38 3a 66 69 78  65 64 77 69 64 74 68 25  |t%!8:fixedwidth%|
00000750  3d 28 64 25 21 38 29 2d  28 21 64 25 29 0d 00 32  |=(d%!8)-(!d%)..2|
00000760  4d 73 6f 75 6e 64 25 3d  bb a4 72 65 61 64 73 79  |Msound%=..readsy|
00000770  73 76 61 72 28 22 42 61  64 67 65 72 24 56 6f 6c  |svar("Badger$Vol|
00000780  75 6d 65 22 29 3a f2 6c  65 76 65 6c 28 73 65 74  |ume"):.level(set|
00000790  75 70 77 25 2c 34 2c 6c  65 76 62 61 72 31 73 74  |upw%,4,levbar1st|
000007a0  65 70 2a 73 6f 75 6e 64  25 29 0d 00 33 3e f2 70  |ep*sound%)..3>.p|
000007b0  75 74 69 63 6e 73 74 72  69 6e 67 28 73 65 74 32  |uticnstring(set2|
000007c0  77 25 2c 33 2c a4 72 65  61 64 73 79 73 76 61 72  |w%,3,.readsysvar|
000007d0  28 22 42 61 64 67 65 72  24 53 61 76 65 47 61 6d  |("Badger$SaveGam|
000007e0  65 50 61 74 68 22 29 29  0d 00 34 3f f2 70 75 74  |ePath"))..4?.put|
000007f0  69 63 6e 73 74 72 69 6e  67 28 73 65 74 75 70 77  |icnstring(setupw|
00000800  25 2c 39 2c a4 72 65 61  64 73 79 73 76 61 72 28  |%,9,.readsysvar(|
00000810  22 42 61 64 67 65 72 24  53 61 76 65 4c 6f 67 6f  |"Badger$SaveLogo|
00000820  50 61 74 68 22 29 29 0d  00 35 30 70 72 65 6c 69  |Path"))..50preli|
00000830  6e 6b 5f 66 6c 61 67 25  3d bb a4 72 65 61 64 73  |nk_flag%=..reads|
00000840  79 73 76 61 72 28 22 42  61 64 67 65 72 24 50 72  |ysvar("Badger$Pr|
00000850  65 4c 69 6e 6b 22 29 0d  00 36 12 f2 68 69 64 65  |eLink")..6..hide|
00000860  5f 6c 6f 67 6f 73 61 76  65 0d 00 37 0c f2 62 61  |_logosave..7..ba|
00000870  72 69 63 6f 6e 0d 00 38  37 ee 20 85 20 f2 65 72  |ricon..87. . .er|
00000880  72 6f 72 28 f6 24 2b 22  20 28 49 6e 74 65 72 6e  |ror(.$+" (Intern|
00000890  61 6c 20 65 72 72 6f 72  20 63 6f 64 65 20 22 2b  |al error code "+|
000008a0  c3 9e 2b 22 29 22 2b bd  30 2c 9f 29 0d 00 39 14  |..+")"+.0,.)..9.|
000008b0  f5 20 f2 65 76 65 6e 74  3a fd 20 71 75 69 74 25  |. .event:. quit%|
000008c0  0d 00 3a 22 c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |..:".. "Wimp_Clo|
000008d0  73 65 44 6f 77 6e 22 2c  2c 26 34 42 35 33 34 31  |seDown",,&4B5341|
000008e0  35 34 0d 00 3b 3b c8 99  20 22 58 4f 53 5f 4d 6f  |54..;;.. "XOS_Mo|
000008f0  64 75 6c 65 22 2c 34 2c  22 6d 61 72 6b 65 64 33  |dule",4,"marked3|
00000900  22 3a c8 99 20 22 58 4f  53 5f 4d 6f 64 75 6c 65  |":.. "XOS_Module|
00000910  22 2c 34 2c 22 6d 61 72  6b 65 64 34 22 0d 00 3c  |",4,"marked4"..<|
00000920  37 c8 99 20 22 58 4f 53  5f 4d 6f 64 75 6c 65 22  |7.. "XOS_Module"|
00000930  2c 34 2c 22 65 6e 67 69  6e 65 22 3a c8 99 20 22  |,4,"engine":.. "|
00000940  58 4f 53 5f 4d 6f 64 75  6c 65 22 2c 34 2c 22 72  |XOS_Module",4,"r|
00000950  6f 61 72 22 0d 00 3d 09  2a 51 55 49 54 0d 00 3e  |oar"..=.*QUIT..>|
00000960  05 e0 0d 00 3f 04 0d 00  40 0b dd f2 65 76 65 6e  |....?...@...even|
00000970  74 0d 00 41 28 c8 99 20  22 57 69 6d 70 5f 50 6f  |t..A(.. "Wimp_Po|
00000980  6c 6c 22 2c 25 31 31 30  30 30 31 2c 62 6c 6b 25  |ll",%110001,blk%|
00000990  20 b8 20 65 25 2c 65 62  25 0d 00 42 0b c8 8e 20  | . e%,eb%..B... |
000009a0  65 25 20 ca 0d 00 43 12  20 20 c9 20 31 3a 20 f2  |e% ...C.  . 1: .|
000009b0  72 65 64 72 61 77 0d 00  44 1a 20 20 c9 20 32 3a  |redraw..D.  . 2:|
000009c0  20 f2 6f 70 65 6e 77 69  6e 64 28 62 6c 6b 25 29  | .openwind(blk%)|
000009d0  0d 00 45 1b 20 20 c9 20  33 3a 20 f2 63 6c 6f 73  |..E.  . 3: .clos|
000009e0  65 77 69 6e 64 28 62 6c  6b 25 29 0d 00 46 26 20  |ewind(blk%)..F& |
000009f0  20 c9 20 36 3a 20 f2 63  6c 69 63 6b 28 65 62 25  | . 6: .click(eb%|
00000a00  21 38 2c 65 62 25 21 31  32 2c 65 62 25 21 31 36  |!8,eb%!12,eb%!16|
00000a10  29 0d 00 47 13 20 20 c9  20 37 3a 20 f2 64 72 61  |)..G.  . 7: .dra|
00000a20  67 65 6e 64 0d 00 48 14  20 20 c9 20 38 3a 20 f2  |gend..H.  . 8: .|
00000a30  6b 65 79 65 76 65 6e 74  0d 00 49 16 20 20 c9 20  |keyevent..I.  . |
00000a40  39 3a 20 f2 6d 65 6e 75  73 65 6c 65 63 74 0d 00  |9: .menuselect..|
00000a50  4a 17 20 20 c9 20 31 37  2c 31 38 3a 20 f2 72 65  |J.  . 17,18: .re|
00000a60  63 65 69 76 65 0d 00 4b  05 cb 0d 00 4c 05 e1 0d  |ceive..K....L...|
00000a70  00 4d 04 0d 00 4e 0c dd  f2 72 65 64 72 61 77 0d  |.M...N...redraw.|
00000a80  00 4f 2b f4 20 56 44 55  32 33 2c 32 32 34 2c 31  |.O+. VDU23,224,1|
00000a90  37 30 2c 38 35 2c 31 37  30 2c 38 35 2c 31 37 30  |70,85,170,85,170|
00000aa0  2c 38 35 2c 31 37 30 2c  38 35 0d 00 50 28 c8 99  |,85,170,85..P(..|
00000ab0  20 22 57 69 6d 70 5f 52  65 64 72 61 77 57 69 6e  | "Wimp_RedrawWin|
00000ac0  64 6f 77 22 2c 2c 62 6c  6b 25 20 b8 20 6d 6f 72  |dow",,blk% . mor|
00000ad0  65 25 0d 00 51 33 f4 20  78 30 25 3d 62 6c 6b 25  |e%..Q3. x0%=blk%|
00000ae0  21 34 3a 79 30 25 3d 62  6c 6b 25 21 38 3a 78 31  |!4:y0%=blk%!8:x1|
00000af0  25 3d 62 6c 6b 25 21 31  32 3a 79 31 25 3d 62 6c  |%=blk%!12:y1%=bl|
00000b00  6b 25 21 31 36 0d 00 52  0c c8 95 20 6d 6f 72 65  |k%!16..R... more|
00000b10  25 0d 00 53 2b 20 20 c8  99 20 22 57 69 6d 70 5f  |%..S+  .. "Wimp_|
00000b20  47 65 74 52 65 63 74 61  6e 67 6c 65 22 2c 2c 62  |GetRectangle",,b|
00000b30  6c 6b 25 20 b8 20 6d 6f  72 65 25 3a 0d 00 54 32  |lk% . more%:..T2|
00000b40  f4 20 20 47 43 4f 4c 30  2c 37 3a 4d 4f 56 45 78  |.  GCOL0,7:MOVEx|
00000b50  30 25 2c 79 31 25 3a 46  4f 52 49 25 3d 31 54 4f  |0%,y1%:FORI%=1TO|
00000b60  33 35 3a 56 44 55 32 32  34 3a 4e 45 58 54 0d 00  |35:VDU224:NEXT..|
00000b70  55 36 f4 20 20 46 4f 52  49 25 3d 31 54 4f 32 30  |U6.  FORI%=1TO20|
00000b80  3a 4d 4f 56 45 78 30 25  2c 79 31 25 2d 28 49 25  |:MOVEx0%,y1%-(I%|
00000b90  2a 31 36 29 3a 56 44 55  32 32 34 2c 32 32 34 3a  |*16):VDU224,224:|
00000ba0  4e 45 58 54 0d 00 56 05  ce 0d 00 57 05 e1 0d 00  |NEXT..V....W....|
00000bb0  58 04 0d 00 59 0e dd f2  6b 65 79 65 76 65 6e 74  |X...Y...keyevent|
00000bc0  0d 00 5a 20 c8 99 20 22  57 69 6d 70 5f 50 72 6f  |..Z .. "Wimp_Pro|
00000bd0  63 65 73 73 4b 65 79 22  2c 62 6c 6b 25 21 32 34  |cessKey",blk%!24|
00000be0  0d 00 5b 05 e1 0d 00 5c  04 0d 00 5d 14 dd a4 72  |..[....\...]...r|
00000bf0  65 61 64 73 79 73 76 61  72 28 61 24 29 0d 00 5e  |eadsysvar(a$)..^|
00000c00  4f c8 99 20 22 4f 53 5f  52 65 61 64 56 61 72 56  |O.. "OS_ReadVarV|
00000c10  61 6c 22 2c 61 24 2c 62  6c 6b 25 2c 32 35 36 2c  |al",a$,blk%,256,|
00000c20  30 2c 30 20 b8 20 2c 2c  61 25 3a 61 24 3d 22 22  |0,0 . ,,a%:a$=""|
00000c30  3a e3 41 25 3d 30 b8 61  25 2d 31 3a 61 24 2b 3d  |:.A%=0.a%-1:a$+=|
00000c40  bd 28 62 6c 6b 25 3f 41  25 29 3a ed 0d 00 5f 07  |.(blk%?A%):..._.|
00000c50  3d 61 24 0d 00 60 04 0d  00 61 12 dd f2 6f 70 65  |=a$..`...a...ope|
00000c60  6e 77 69 6e 64 28 62 25  29 0d 00 62 0c 77 69 6e  |nwind(b%)..b.win|
00000c70  25 3d 21 62 25 0d 00 63  12 e7 ac 61 66 74 65 72  |%=!b%..c...after|
00000c80  77 61 72 6e 25 20 8c 0d  00 64 16 20 e7 20 28 77  |warn% ...d. . (w|
00000c90  69 6e 25 3d 73 65 74 32  77 25 29 20 8c 0d 00 65  |in%=set2w%) ...e|
00000ca0  34 20 20 21 62 6c 6b 32  25 3d 73 65 74 75 70 77  |4  !blk2%=setupw|
00000cb0  25 3a c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |%:.. "Wimp_GetWi|
00000cc0  6e 64 6f 77 53 74 61 74  65 22 2c 2c 62 6c 6b 32  |ndowState",,blk2|
00000cd0  25 0d 00 66 2d 20 20 77  69 64 74 68 25 3d 28 62  |%..f-  width%=(b|
00000ce0  6c 6b 32 25 21 31 32 29  2d 28 62 6c 6b 32 25 21  |lk2%!12)-(blk2%!|
00000cf0  34 29 3a 68 65 69 67 68  74 25 3d 34 30 30 0d 00  |4):height%=400..|
00000d00  67 31 20 20 62 6c 6b 32  25 21 34 3d 62 25 21 34  |g1  blk2%!4=b%!4|
00000d10  3a e7 28 62 25 21 38 29  2d 68 65 69 67 68 74 25  |:.(b%!8)-height%|
00000d20  3c 30 20 68 65 69 67 68  74 25 3d 62 25 21 38 0d  |<0 height%=b%!8.|
00000d30  00 68 1a 20 20 62 6c 6b  32 25 21 38 3d 62 25 21  |.h.  blk2%!8=b%!|
00000d40  38 2d 68 65 69 67 68 74  25 0d 00 69 3b 20 20 62  |8-height%..i;  b|
00000d50  6c 6b 32 25 21 31 32 3d  62 6c 6b 32 25 21 34 2b  |lk2%!12=blk2%!4+|
00000d60  66 69 78 65 64 77 69 64  74 68 25 3a 62 6c 6b 32  |fixedwidth%:blk2|
00000d70  25 21 31 36 3d 62 6c 6b  32 25 21 38 2b 68 65 69  |%!16=blk2%!8+hei|
00000d80  67 68 74 25 0d 00 6a 14  20 20 62 6c 6b 32 25 21  |ght%..j.  blk2%!|
00000d90  32 38 3d 62 25 21 32 38  0d 00 6b 21 20 20 c8 99  |28=b%!28..k!  ..|
00000da0  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
00000db0  77 22 2c 2c 62 6c 6b 32  25 0d 00 6c 2c 20 cc 20  |w",,blk2%..l, . |
00000dc0  e7 20 77 69 6e 25 3d 73  65 74 75 70 77 25 20 62  |. win%=setupw% b|
00000dd0  25 21 31 32 3d 62 25 21  34 2b 66 69 78 65 64 77  |%!12=b%!4+fixedw|
00000de0  69 64 74 68 25 0d 00 6d  06 20 cd 0d 00 6e 05 cd  |idth%..m. ...n..|
00000df0  0d 00 6f 1c c8 99 20 22  57 69 6d 70 5f 4f 70 65  |..o... "Wimp_Ope|
00000e00  6e 57 69 6e 64 6f 77 22  2c 2c 62 25 0d 00 70 05  |nWindow",,b%..p.|
00000e10  e1 0d 00 71 04 0d 00 72  13 dd f2 63 6c 6f 73 65  |...q...r...close|
00000e20  77 69 6e 64 28 62 25 29  0d 00 73 1d c8 99 20 22  |wind(b%)..s... "|
00000e30  57 69 6d 70 5f 43 6c 6f  73 65 57 69 6e 64 6f 77  |Wimp_CloseWindow|
00000e40  22 2c 2c 62 25 0d 00 74  35 e7 21 62 25 3d 73 65  |",,b%..t5.!b%=se|
00000e50  74 32 77 25 20 21 62 25  3d 73 65 74 75 70 77 25  |t2w% !b%=setupw%|
00000e60  20 8b 20 e7 21 62 25 3d  73 65 74 75 70 77 25 20  | . .!b%=setupw% |
00000e70  21 62 25 3d 73 65 74 32  77 25 0d 00 75 39 e7 28  |!b%=set2w%..u9.(|
00000e80  21 62 25 3d 73 65 74 32  77 25 29 84 28 21 62 25  |!b%=set2w%).(!b%|
00000e90  3d 73 65 74 75 70 77 25  29 20 c8 99 20 22 57 69  |=setupw%) .. "Wi|
00000ea0  6d 70 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 22 2c  |mp_CloseWindow",|
00000eb0  2c 62 25 0d 00 76 05 e1  0d 00 77 04 0d 00 78 14  |,b%..v....w...x.|
00000ec0  dd a4 72 65 61 64 73 74  72 69 6e 67 28 70 25 29  |..readstring(p%)|
00000ed0  0d 00 79 32 ea 61 24 3a  61 24 3d 22 22 3a c8 95  |..y2.a$:a$="":..|
00000ee0  20 a9 61 24 3c 32 35 35  20 80 20 3f 70 25 3e 33  | .a$<255 . ?p%>3|
00000ef0  31 20 61 24 2b 3d bd 3f  70 25 3a 70 25 2b 3d 31  |1 a$+=.?p%:p%+=1|
00000f00  3a ce 0d 00 7a 07 3d 61  24 0d 00 7b 04 0d 00 7c  |:...z.=a$..{...||
00000f10  1a dd f2 6c 6f 61 64 5f  74 65 6d 70 6c 61 74 65  |...load_template|
00000f20  28 6e 61 6d 65 24 29 0d  00 7d 4e 77 70 74 72 6c  |(name$)..}Nwptrl|
00000f30  69 73 74 25 21 28 28 77  69 6e 64 63 6f 75 6e 74  |ist%!((windcount|
00000f40  25 2d 31 29 2a 34 29 3d  77 70 74 72 31 25 3a 77  |%-1)*4)=wptr1%:w|
00000f50  69 6e 64 70 74 72 6c 69  73 74 25 21 28 28 77 69  |indptrlist%!((wi|
00000f60  6e 64 63 6f 75 6e 74 25  2d 31 29 2a 34 29 3d 77  |ndcount%-1)*4)=w|
00000f70  70 74 72 32 25 0d 00 7e  54 c8 99 20 22 57 69 6d  |ptr2%..~T.. "Wim|
00000f80  70 5f 4c 6f 61 64 54 65  6d 70 6c 61 74 65 22 2c  |p_LoadTemplate",|
00000f90  2c 77 70 74 72 31 25 2c  77 70 74 72 32 25 2c 77  |,wptr1%,wptr2%,w|
00000fa0  69 6e 64 69 6e 64 25 2b  4d 41 58 57 49 4e 44 49  |indind%+MAXWINDI|
00000fb0  4e 44 25 2c 2d 31 2c 6e  61 6d 65 24 2c 30 20 b8  |ND%,-1,name$,0 .|
00000fc0  20 2c 2c 77 70 74 72 32  25 0d 00 7f 3e 6e 25 3d  | ,,wptr2%...>n%=|
00000fd0  77 70 74 72 31 25 21 38  34 3a e3 49 25 3d 30 b8  |wptr1%!84:.I%=0.|
00000fe0  28 6e 25 2d 31 29 2a 33  32 88 33 32 3a 64 25 3d  |(n%-1)*32.32:d%=|
00000ff0  77 70 74 72 31 25 2b 38  38 2b 49 25 3a 66 25 3d  |wptr1%+88+I%:f%=|
00001000  28 64 25 21 31 36 29 0d  00 80 2f 20 20 e7 28 66  |(d%!16).../  .(f|
00001010  25 80 32 35 38 29 3d 32  35 38 20 80 20 28 66 25  |%.258)=258 . (f%|
00001020  80 31 29 3d 30 20 64 25  21 32 34 3d 6d 79 73 70  |.1)=0 d%!24=mysp|
00001030  72 69 74 65 73 25 0d 00  81 5b f4 20 20 49 46 20  |rites%...[.  IF |
00001040  77 69 6d 70 76 65 72 25  3c 33 30 30 20 41 4e 44  |wimpver%<300 AND|
00001050  20 28 6e 61 6d 65 24 3d  22 73 65 74 75 70 22 4f  | (name$="setup"O|
00001060  52 6e 61 6d 65 24 3d 22  73 65 74 32 22 4f 52 6e  |Rname$="set2"ORn|
00001070  61 6d 65 24 3d 22 6d 73  67 22 4f 52 6e 61 6d 65  |ame$="msg"ORname|
00001080  24 3d 22 77 61 72 6e 69  6e 67 22 29 20 54 48 45  |$="warning") THE|
00001090  4e 0d 00 82 40 20 20 e7  20 6e 61 6d 65 24 3d 22  |N...@  . name$="|
000010a0  73 65 74 75 70 22 84 6e  61 6d 65 24 3d 22 73 65  |setup".name$="se|
000010b0  74 32 22 84 6e 61 6d 65  24 3d 22 6d 73 67 22 84  |t2".name$="msg".|
000010c0  6e 61 6d 65 24 3d 22 77  61 72 6e 69 6e 67 22 20  |name$="warning" |
000010d0  8c 0d 00 83 5d 20 20 20  20 e7 28 66 25 80 32 35  |....]    .(f%.25|
000010e0  39 29 3d 32 35 37 20 80  20 64 25 21 32 34 3c 3e  |9)=257 . d%!24<>|
000010f0  2d 31 20 8c 20 e7 a7 a4  72 65 61 64 73 74 72 69  |-1 . ...readstri|
00001100  6e 67 28 64 25 21 32 34  29 2c 22 62 32 22 29 3c  |ng(d%!24),"b2")<|
00001110  3e 30 20 66 25 3d 28 66  25 80 26 30 46 46 30 30  |>0 f%=(f%.&0FF00|
00001120  46 46 46 29 84 26 43 30  30 46 39 30 30 30 0d 00  |FFF).&C00F9000..|
00001130  84 2a 20 20 20 20 e7 28  66 25 80 26 45 30 30 30  |.*    .(f%.&E000|
00001140  29 3d 26 45 30 30 30 20  64 25 21 34 2b 3d 34 3a  |)=&E000 d%!4+=4:|
00001150  64 25 21 31 32 2d 3d 34  0d 00 85 15 20 20 20 20  |d%!12-=4....    |
00001160  e7 28 66 25 80 32 35 38  29 3d 32 20 8c 0d 00 86  |.(f%.258)=2 ....|
00001170  1f 20 20 20 20 20 20 61  24 3d a4 72 65 61 64 73  |.      a$=.reads|
00001180  74 72 69 6e 67 28 64 25  2b 32 30 29 0d 00 87 2f  |tring(d%+20).../|
00001190  20 20 20 20 20 20 c8 99  20 22 58 57 69 6d 70 5f  |      .. "XWimp_|
000011a0  53 70 72 69 74 65 4f 70  22 2c 34 30 2c 2c 61 24  |SpriteOp",40,,a$|
000011b0  20 b8 20 2c 2c 2c 77 25  2c 68 25 0d 00 88 15 20  | . ,,,w%,h%.... |
000011c0  20 20 20 20 20 e7 28 77  25 84 68 25 29 3d 30 8c  |     .(w%.h%)=0.|
000011d0  0d 00 89 32 20 20 20 20  20 20 20 20 66 25 3d 66  |...2        f%=f|
000011e0  25 84 32 35 36 3a 24 77  70 74 72 32 25 3d 61 24  |%.256:$wptr2%=a$|
000011f0  3a 3f 28 77 70 74 72 32  25 2b 28 a9 61 24 29 29  |:?(wptr2%+(.a$))|
00001200  3d 30 0d 00 8a 43 20 20  20 20 20 20 20 20 64 25  |=0...C        d%|
00001210  21 32 30 3d 77 70 74 72  32 25 3a 64 25 21 32 34  |!20=wptr2%:d%!24|
00001220  3d 6d 79 73 70 72 69 74  65 73 25 3a 64 25 21 32  |=mysprites%:d%!2|
00001230  38 3d a9 61 24 3a 77 70  74 72 32 25 2b 3d a9 28  |8=.a$:wptr2%+=.(|
00001240  61 24 29 2b 31 0d 00 8b  0b 20 20 20 20 20 20 cd  |a$)+1....      .|
00001250  0d 00 8c 09 20 20 20 20  cd 0d 00 8d 10 20 20 20  |....    .....   |
00001260  20 64 25 21 31 36 3d 66  25 0d 00 8e 07 20 20 cd  | d%!16=f%....  .|
00001270  0d 00 8f 05 ed 0d 00 90  2d 77 70 74 72 31 25 2b  |........-wptr1%+|
00001280  3d 38 38 2b 28 28 77 70  74 72 31 25 21 38 34 29  |=88+((wptr1%!84)|
00001290  2a 33 32 29 3a 77 69 6e  64 63 6f 75 6e 74 25 2b  |*32):windcount%+|
000012a0  3d 31 0d 00 91 05 e1 0d  00 92 04 0d 00 93 0d dd  |=1..............|
000012b0  f2 62 61 72 69 63 6f 6e  0d 00 94 15 24 69 62 6e  |.baricon....$ibn|
000012c0  61 6d 65 25 3d 22 66 72  61 6d 65 31 22 0d 00 95  |ame%="frame1"...|
000012d0  34 21 62 6c 6b 25 3d 2d  31 3a 62 6c 6b 25 21 34  |4!blk%=-1:blk%!4|
000012e0  3d 30 3a 62 6c 6b 25 21  38 3d 30 3a 62 6c 6b 25  |=0:blk%!8=0:blk%|
000012f0  21 31 32 3d 36 32 3a 62  6c 6b 25 21 31 36 3d 39  |!12=62:blk%!16=9|
00001300  36 0d 00 96 4a 62 6c 6b  25 21 32 30 3d 26 31 30  |6...Jblk%!20=&10|
00001310  30 30 33 31 33 41 3a 62  6c 6b 25 21 32 34 3d 69  |00313A:blk%!24=i|
00001320  62 6e 61 6d 65 25 3a 62  6c 6b 25 21 32 38 3d 6d  |bname%:blk%!28=m|
00001330  79 73 70 72 69 74 65 73  25 3a 62 6c 6b 25 21 33  |ysprites%:blk%!3|
00001340  32 3d a9 24 69 62 6e 61  6d 65 25 0d 00 97 25 c8  |2=.$ibname%...%.|
00001350  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 49 63  |. "Wimp_CreateIc|
00001360  6f 6e 22 2c 2c 62 6c 6b  25 20 b8 20 69 62 68 25  |on",,blk% . ibh%|
00001370  0d 00 98 05 e1 0d 00 99  04 0d 00 9a 13 dd f2 73  |...............s|
00001380  61 76 65 73 65 74 75 70  28 66 24 29 0d 00 9b 4b  |avesetup(f$)...K|
00001390  e7 20 a7 66 24 2c 22 2e  22 29 3d 30 20 f2 65 72  |. .f$,".")=0 .er|
000013a0  72 6f 72 28 22 54 6f 20  73 61 76 65 2c 20 64 72  |ror("To save, dr|
000013b0  61 67 20 74 68 65 20 69  63 6f 6e 20 74 6f 20 61  |ag the icon to a|
000013c0  20 64 69 72 65 63 74 6f  72 79 20 76 69 65 77 65  | directory viewe|
000013d0  72 22 2c 30 29 3a e1 0d  00 9c 22 58 3d ae 20 66  |r",0):...."X=. f|
000013e0  24 3a d5 23 58 2c 33 3a  d5 23 58 2c 35 3a d5 23  |$:.#X,3:.#X,5:.#|
000013f0  58 2c 33 3a d5 23 58 2c  34 0d 00 9d 17 d5 23 58  |X,3:.#X,4.....#X|
00001400  2c 22 42 61 64 67 65 72  22 3b 3a d5 23 58 2c 30  |,"Badger";:.#X,0|
00001410  0d 00 9e 52 f1 23 58 2c  41 25 2c 42 25 2c 43 25  |...R.#X,A%,B%,C%|
00001420  2c 44 25 2c 45 25 2c 46  25 2c 47 25 2c 48 25 2c  |,D%,E%,F%,G%,H%,|
00001430  49 25 2c 4a 25 2c 4b 25  2c 4c 25 2c 4d 25 2c 4e  |I%,J%,K%,L%,M%,N|
00001440  25 2c 4f 25 2c 50 25 2c  51 25 2c 52 25 2c 53 25  |%,O%,P%,Q%,R%,S%|
00001450  2c 54 25 2c 55 25 2c 56  25 2c 57 25 2c 58 25 2c  |,T%,U%,V%,W%,X%,|
00001460  5a 25 0d 00 9f 15 f1 23  58 2c 73 74 61 72 74 25  |Z%.....#X,start%|
00001470  2c 73 6f 75 6e 64 25 0d  00 a0 20 f1 23 58 2c a4  |,sound%... .#X,.|
00001480  67 65 74 69 63 6e 73 74  72 69 6e 67 28 73 65 74  |geticnstring(set|
00001490  75 70 77 25 2c 39 29 0d  00 a1 07 d9 23 58 0d 00  |upw%,9).....#X..|
000014a0  a2 38 ff 22 53 65 74 20  42 61 64 67 65 72 24 53  |.8."Set Badger$S|
000014b0  61 76 65 4c 6f 67 6f 50  61 74 68 20 22 2b a4 67  |aveLogoPath "+.g|
000014c0  65 74 69 63 6e 73 74 72  69 6e 67 28 73 65 74 75  |eticnstring(setu|
000014d0  70 77 25 2c 39 29 0d 00  a3 19 ff 22 53 45 54 54  |pw%,9)....."SETT|
000014e0  59 50 45 20 22 2b 66 24  2b 22 20 61 65 38 22 0d  |YPE "+f$+" ae8".|
000014f0  00 a4 3d f2 70 75 74 69  63 6e 73 74 72 69 6e 67  |..=.puticnstring|
00001500  28 73 65 74 32 77 25 2c  33 2c 66 24 29 3a ff 22  |(set2w%,3,f$):."|
00001510  53 65 74 20 42 61 64 67  65 72 24 53 61 76 65 47  |Set Badger$SaveG|
00001520  61 6d 65 50 61 74 68 20  22 2b 66 24 0d 00 a5 21  |amePath "+f$...!|
00001530  c8 99 20 22 57 69 6d 70  5f 53 65 74 43 61 72 65  |.. "Wimp_SetCare|
00001540  74 50 6f 73 69 74 69 6f  6e 22 2c 2d 31 0d 00 a6  |tPosition",-1...|
00001550  20 73 61 76 65 64 25 3d  b9 3a e7 61 66 74 65 72  | saved%=.:.after|
00001560  77 61 72 6e 25 20 71 75  69 74 25 3d b9 0d 00 a7  |warn% quit%=....|
00001570  05 e1 0d 00 a8 04 0d 00  a9 16 dd a4 6c 6f 61 64  |............load|
00001580  5f 66 69 6c 65 28 66 24  2c 74 25 29 0d 00 aa 32  |_file(f$,t%)...2|
00001590  e7 74 25 3c 3e 26 41 45  38 20 f2 65 72 72 6f 72  |.t%<>&AE8 .error|
000015a0  28 22 4e 6f 74 20 61 20  73 61 76 65 64 2d 67 61  |("Not a saved-ga|
000015b0  6d 65 20 66 69 6c 65 22  2c 30 29 3a 3d a3 0d 00  |me file",0):=...|
000015c0  ab 21 c8 99 20 22 57 69  6d 70 5f 53 65 74 43 61  |.!.. "Wimp_SetCa|
000015d0  72 65 74 50 6f 73 69 74  69 6f 6e 22 2c 2d 31 0d  |retPosition",-1.|
000015e0  00 ac 0a 58 3d 8e 20 66  24 0d 00 ad 2e 69 64 25  |...X=. f$....id%|
000015f0  3d 9a 23 58 2b 28 28 9a  23 58 29 3c 3c 38 29 2b  |=.#X+((.#X)<<8)+|
00001600  28 28 9a 23 58 29 3c 3c  31 36 29 2b 28 28 9a 23  |((.#X)<<16)+((.#|
00001610  58 29 3c 3c 32 34 29 0d  00 ae 53 49 25 3d 30 3a  |X)<<24)...SI%=0:|
00001620  f5 3a 62 6c 6b 25 3f 49  25 3d 9a 23 58 3a 49 25  |.:blk%?I%=.#X:I%|
00001630  2b 3d 31 3a fd 20 28 49  25 3d 31 31 29 84 28 28  |+=1:. (I%=11).((|
00001640  62 6c 6b 25 3f 28 49 25  2d 31 29 29 3d 30 29 3a  |blk%?(I%-1))=0):|
00001650  63 72 65 61 74 6f 72 24  3d a4 72 65 61 64 73 74  |creator$=.readst|
00001660  72 69 6e 67 28 62 6c 6b  25 29 0d 00 af 4b f4 20  |ring(blk%)...K. |
00001670  46 4f 52 49 25 3d 30 54  4f 31 31 3a 62 6c 6b 25  |FORI%=0TO11:blk%|
00001680  3f 49 25 3d 42 47 45 54  23 58 3a 4e 45 58 54 3a  |?I%=BGET#X:NEXT:|
00001690  62 6c 6b 25 3f 31 32 3d  30 3a 63 72 65 61 74 6f  |blk%?12=0:creato|
000016a0  72 24 3d 46 4e 72 65 61  64 73 74 72 69 6e 67 28  |r$=FNreadstring(|
000016b0  62 6c 6b 25 29 0d 00 b0  61 e7 69 64 25 3c 3e 26  |blk%)...a.id%<>&|
000016c0  30 34 30 33 30 35 30 33  20 f2 65 72 72 6f 72 28  |04030503 .error(|
000016d0  22 49 20 64 6f 20 6e 6f  74 20 75 6e 64 65 72 73  |"I do not unders|
000016e0  74 61 6e 64 20 74 68 69  73 20 66 69 6c 65 20 61  |tand this file a|
000016f0  73 20 69 74 20 62 65 6c  6f 6e 67 73 20 74 6f 20  |s it belongs to |
00001700  27 22 2b 63 72 65 61 74  6f 72 24 2b 22 27 2e 22  |'"+creator$+"'."|
00001710  2c 30 29 3a 3d a3 0d 00  b1 52 e8 23 58 2c 41 25  |,0):=....R.#X,A%|
00001720  2c 42 25 2c 43 25 2c 44  25 2c 45 25 2c 46 25 2c  |,B%,C%,D%,E%,F%,|
00001730  47 25 2c 48 25 2c 49 25  2c 4a 25 2c 4b 25 2c 4c  |G%,H%,I%,J%,K%,L|
00001740  25 2c 4d 25 2c 4e 25 2c  4f 25 2c 50 25 2c 51 25  |%,M%,N%,O%,P%,Q%|
00001750  2c 52 25 2c 53 25 2c 54  25 2c 55 25 2c 56 25 2c  |,R%,S%,T%,U%,V%,|
00001760  57 25 2c 58 25 2c 5a 25  0d 00 b2 0e e8 23 58 2c  |W%,X%,Z%.....#X,|
00001770  73 74 61 72 74 25 0d 00  b3 0e e8 23 58 2c 73 6f  |start%.....#X,so|
00001780  75 6e 64 25 0d 00 b4 28  f2 6c 65 76 65 6c 28 73  |und%...(.level(s|
00001790  65 74 75 70 77 25 2c 34  2c 73 6f 75 6e 64 25 2a  |etupw%,4,sound%*|
000017a0  6c 65 76 62 61 72 31 73  74 65 70 29 0d 00 b5 45  |levbar1step)...E|
000017b0  e8 23 58 2c 61 24 3a f2  70 75 74 69 63 6e 73 74  |.#X,a$:.puticnst|
000017c0  72 69 6e 67 28 73 65 74  75 70 77 25 2c 39 2c 61  |ring(setupw%,9,a|
000017d0  24 29 3a ff 22 53 65 74  20 42 61 64 67 65 72 24  |$):."Set Badger$|
000017e0  53 61 76 65 4c 6f 67 6f  50 61 74 68 20 22 2b 61  |SaveLogoPath "+a|
000017f0  24 0d 00 b6 07 d9 23 58  0d 00 b7 3d f2 70 75 74  |$.....#X...=.put|
00001800  69 63 6e 73 74 72 69 6e  67 28 73 65 74 32 77 25  |icnstring(set2w%|
00001810  2c 33 2c 66 24 29 3a ff  22 53 65 74 20 42 61 64  |,3,f$):."Set Bad|
00001820  67 65 72 24 53 61 76 65  47 61 6d 65 50 61 74 68  |ger$SaveGamePath|
00001830  20 22 2b 66 24 0d 00 b8  29 70 72 65 6c 69 6e 6b  | "+f$...)prelink|
00001840  5f 66 6c 61 67 25 3d 30  3a 2a 53 65 74 20 42 61  |_flag%=0:*Set Ba|
00001850  64 67 65 72 24 50 72 65  4c 69 6e 6b 20 30 0d 00  |dger$PreLink 0..|
00001860  b9 0c 73 61 76 65 64 25  3d b9 0d 00 ba 06 3d b9  |..saved%=.....=.|
00001870  0d 00 bb 04 0d 00 bc 16  dd f2 73 65 74 73 61 76  |..........setsav|
00001880  65 64 69 72 28 64 69 72  24 29 0d 00 bd 21 f2 70  |edir(dir$)...!.p|
00001890  75 74 69 63 6e 73 74 72  69 6e 67 28 73 65 74 75  |uticnstring(setu|
000018a0  70 77 25 2c 39 2c 64 69  72 24 29 0d 00 be 21 c8  |pw%,9,dir$)...!.|
000018b0  99 20 22 57 69 6d 70 5f  53 65 74 43 61 72 65 74  |. "Wimp_SetCaret|
000018c0  50 6f 73 69 74 69 6f 6e  22 2c 2d 31 0d 00 bf 11  |Position",-1....|
000018d0  ff 22 43 44 49 52 20 22  2b 64 69 72 24 0d 00 c0  |."CDIR "+dir$...|
000018e0  05 e1 0d 00 c1 04 0d 00  c2 12 dd a4 66 69 6c 65  |............file|
000018f0  74 79 70 65 28 61 24 29  0d 00 c3 1b c8 99 20 22  |type(a$)...... "|
00001900  58 4f 53 5f 46 69 6c 65  22 2c 35 2c 61 24 20 b8  |XOS_File",5,a$ .|
00001910  20 61 25 0d 00 c4 07 3d  61 25 0d 00 c5 04 0d 00  | a%....=a%......|
00001920  c6 0d dd f2 72 65 63 65  69 76 65 0d 00 c7 0f c8  |....receive.....|
00001930  8e 20 65 62 25 21 31 36  20 ca 0d 00 c8 14 20 20  |. eb%!16 .....  |
00001940  c9 20 30 3a 20 71 75 69  74 25 20 3d 20 b9 0d 00  |. 0: quit% = ...|
00001950  c9 38 20 20 c9 20 32 3a  20 e7 20 64 72 61 67 67  |.8  . 2: . dragg|
00001960  69 6e 67 25 3d 31 20 f2  73 61 76 65 73 65 74 75  |ing%=1 .savesetu|
00001970  70 28 a4 72 65 61 64 73  74 72 69 6e 67 28 65 62  |p(.readstring(eb|
00001980  25 2b 34 34 29 29 0d 00  ca 17 20 20 20 20 e7 20  |%+44))....    . |
00001990  64 72 61 67 67 69 6e 67  25 3d 32 20 8c 0d 00 cb  |dragging%=2 ....|
000019a0  64 20 20 20 20 20 20 62  24 3d a4 6c 65 61 66 28  |d      b$=.leaf(|
000019b0  a4 67 65 74 69 63 6e 73  74 72 69 6e 67 28 73 65  |.geticnstring(se|
000019c0  74 75 70 77 25 2c 39 29  29 3a e7 62 24 3d 22 22  |tupw%,9)):.b$=""|
000019d0  f2 65 72 72 6f 72 28 22  59 6f 75 20 6d 75 73 74  |.error("You must|
000019e0  20 67 69 76 65 20 74 68  69 73 20 64 69 72 65 63  | give this direc|
000019f0  74 6f 72 79 20 61 20 6e  61 6d 65 22 2c 31 29 3a  |tory a name",1):|
00001a00  e1 0d 00 cc 36 20 20 20  20 20 20 f2 73 65 74 73  |....6      .sets|
00001a10  61 76 65 64 69 72 28 a4  72 65 61 64 73 74 72 69  |avedir(.readstri|
00001a20  6e 67 28 65 62 25 2b 34  34 29 2b 62 24 29 3a 73  |ng(eb%+44)+b$):s|
00001a30  61 76 65 64 25 3d a3 0d  00 cd 09 20 20 20 20 cd  |aved%=.....    .|
00001a40  0d 00 ce 0a 20 20 c9 20  33 3a 0d 00 cf 3d 20 20  |....  . 3:...=  |
00001a50  20 20 e3 49 25 3d 30 b8  21 65 62 25 88 34 3a 62  |  .I%=0.!eb%.4:b|
00001a60  6c 6b 32 25 21 49 25 3d  65 62 25 21 49 25 3a ed  |lk2%!I%=eb%!I%:.|
00001a70  3a 61 24 3d a4 72 65 61  64 73 74 72 69 6e 67 28  |:a$=.readstring(|
00001a80  65 62 25 2b 34 34 29 0d  00 d0 14 20 20 20 20 e7  |eb%+44)....    .|
00001a90  65 62 25 21 32 34 3d 31  32 20 8c 0d 00 d1 46 20  |eb%!24=12 ....F |
00001aa0  20 20 20 20 20 e7 a4 66  69 6c 65 74 79 70 65 28  |     ..filetype(|
00001ab0  61 24 29 3c 3e 32 f2 65  72 72 6f 72 28 22 4f 6e  |a$)<>2.error("On|
00001ac0  6c 79 20 64 69 72 65 63  74 6f 72 69 65 73 20 61  |ly directories a|
00001ad0  6c 6c 6f 77 65 64 20 68  65 72 65 22 2c 31 29 3a  |llowed here",1):|
00001ae0  e1 0d 00 d2 22 20 20 20  20 20 20 f2 73 65 74 73  |...."      .sets|
00001af0  61 76 65 64 69 72 28 61  24 29 3a 73 61 76 65 64  |avedir(a$):saved|
00001b00  25 3d a3 0d 00 d3 09 20  20 20 20 cc 0d 00 d4 33  |%=.....    ....3|
00001b10  20 20 20 20 20 20 e7 a4  6c 6f 61 64 5f 66 69 6c  |      ..load_fil|
00001b20  65 28 a4 72 65 61 64 73  74 72 69 6e 67 28 65 62  |e(.readstring(eb|
00001b30  25 2b 34 34 29 2c 65 62  25 21 34 30 29 20 8c 0d  |%+44),eb%!40) ..|
00001b40  00 d5 49 20 20 20 20 20  20 20 20 62 6c 6b 32 25  |..I        blk2%|
00001b50  21 31 32 3d 31 3a 62 6c  6b 32 25 21 31 36 3d 34  |!12=1:blk2%!16=4|
00001b60  3a c8 99 20 22 57 69 6d  70 5f 53 65 6e 64 4d 65  |:.. "Wimp_SendMe|
00001b70  73 73 61 67 65 22 2c 31  39 2c 62 6c 6b 32 25 2c  |ssage",19,blk2%,|
00001b80  62 6c 6b 32 25 21 32 30  0d 00 d6 0b 20 20 20 20  |blk2%!20....    |
00001b90  20 20 cd 0d 00 d7 09 20  20 20 20 cd 0d 00 d8 1c  |  .....    .....|
00001ba0  20 20 c9 20 38 3a 20 e7  ac 73 61 76 65 64 25 20  |  . 8: ..saved% |
00001bb0  f2 70 72 65 71 75 69 74  0d 00 d9 05 cb 0d 00 da  |.prequit........|
00001bc0  05 e1 0d 00 db 04 0d 00  dc 0d dd f2 70 72 65 71  |............preq|
00001bd0  75 69 74 0d 00 dd 12 62  6c 6b 25 21 31 32 3d 62  |uit....blk%!12=b|
00001be0  6c 6b 25 21 38 0d 00 de  21 c8 99 20 22 57 69 6d  |lk%!8...!.. "Wim|
00001bf0  70 5f 53 65 6e 64 4d 65  73 73 61 67 65 22 2c 31  |p_SendMessage",1|
00001c00  39 2c 62 6c 6b 25 0d 00  df 19 f2 6f 66 66 65 72  |9,blk%.....offer|
00001c10  73 61 76 65 3a 70 72 65  71 75 69 74 25 3d b9 0d  |save:prequit%=..|
00001c20  00 e0 05 e1 0d 00 e1 04  0d 00 e2 18 dd f2 65 72  |..............er|
00001c30  72 6f 72 28 6d 73 67 24  2c 65 72 72 6e 6f 25 29  |ror(msg$,errno%)|
00001c40  0d 00 e3 07 d9 23 30 0d  00 e4 21 21 65 72 72 62  |.....#0...!!errb|
00001c50  6c 6b 25 3d 39 39 3a 24  28 65 72 72 62 6c 6b 25  |lk%=99:$(errblk%|
00001c60  2b 34 29 3d 6d 73 67 24  0d 00 e5 2c c8 99 20 22  |+4)=msg$...,.. "|
00001c70  57 69 6d 70 5f 52 65 70  6f 72 74 45 72 72 6f 72  |Wimp_ReportError|
00001c80  22 2c 65 72 72 62 6c 6b  25 2c 30 2c 22 42 61 64  |",errblk%,0,"Bad|
00001c90  67 65 72 22 0d 00 e6 05  e1 0d 00 e7 04 0d 00 e8  |ger"............|
00001ca0  19 dd f2 73 65 6c 65 63  74 69 63 6e 28 77 25 2c  |...selecticn(w%,|
00001cb0  69 25 2c 66 25 29 0d 00  e9 46 21 62 6c 6b 25 3d  |i%,f%)...F!blk%=|
00001cc0  77 25 3a 62 6c 6b 25 21  34 3d 69 25 3a 62 6c 6b  |w%:blk%!4=i%:blk|
00001cd0  25 21 31 32 3d 28 31 3c  3c 32 31 29 3a e7 66 25  |%!12=(1<<21):.f%|
00001ce0  3d 30 20 62 6c 6b 25 21  38 3d 30 3a 8b 20 62 6c  |=0 blk%!8=0:. bl|
00001cf0  6b 25 21 38 3d 62 6c 6b  25 21 31 32 0d 00 ea 20  |k%!8=blk%!12... |
00001d00  c8 99 20 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |.. "Wimp_SetIcon|
00001d10  53 74 61 74 65 22 2c 2c  62 6c 6b 25 0d 00 eb 05  |State",,blk%....|
00001d20  e1 0d 00 ec 04 0d 00 ed  19 dd f2 67 65 74 69 63  |...........getic|
00001d30  6f 6e 73 74 61 74 65 28  77 25 2c 69 25 29 0d 00  |onstate(w%,i%)..|
00001d40  ee 33 21 62 6c 6b 25 3d  77 25 3a 62 6c 6b 25 21  |.3!blk%=w%:blk%!|
00001d50  34 3d 69 25 3a c8 99 20  22 57 69 6d 70 5f 47 65  |4=i%:.. "Wimp_Ge|
00001d60  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 62 6c 6b  |tIconState",,blk|
00001d70  25 0d 00 ef 05 e1 0d 00  f0 04 0d 00 f1 17 dd a4  |%...............|
00001d80  69 73 73 65 6c 65 63 74  65 64 28 77 25 2c 69 25  |isselected(w%,i%|
00001d90  29 0d 00 f2 18 f2 67 65  74 69 63 6f 6e 73 74 61  |).....geticonsta|
00001da0  74 65 28 77 25 2c 69 25  29 0d 00 f3 20 3d 28 28  |te(w%,i%)... =((|
00001db0  62 6c 6b 25 21 32 34 29  80 28 31 3c 3c 32 31 29  |blk%!24).(1<<21)|
00001dc0  29 3d 28 31 3c 3c 32 31  29 0d 00 f4 04 0d 00 f5  |)=(1<<21).......|
00001dd0  10 dd f2 74 77 65 61 6b  73 65 74 75 70 0d 00 f6  |...tweaksetup...|
00001de0  1d f2 67 65 74 69 63 6f  6e 73 74 61 74 65 28 73  |..geticonstate(s|
00001df0  65 74 75 70 77 25 2c 31  37 29 0d 00 f7 42 76 62  |etupw%,17)...Bvb|
00001e00  61 72 78 30 25 3d 62 6c  6b 25 21 38 3a 76 62 61  |arx0%=blk%!8:vba|
00001e10  72 79 30 25 3d 62 6c 6b  25 21 31 32 3a 76 62 61  |ry0%=blk%!12:vba|
00001e20  72 78 31 25 3d 62 6c 6b  25 21 31 36 3a 76 62 61  |rx1%=blk%!16:vba|
00001e30  72 79 31 25 3d 62 6c 6b  25 21 32 30 0d 00 f8 1a  |ry1%=blk%!20....|
00001e40  62 6c 6b 25 21 38 3d 30  3a 62 6c 6b 25 21 31 32  |blk%!8=0:blk%!12|
00001e50  3d 31 3c 3c 32 33 0d 00  f9 05 e1 0d 00 fa 04 0d  |=1<<23..........|
00001e60  00 fb 1d dd f2 70 6f 70  75 70 5f 6d 65 6e 75 28  |.....popup_menu(|
00001e70  74 24 2c 6f 24 2c 77 25  2c 69 25 29 0d 00 fc 23  |t$,o$,w%,i%)...#|
00001e80  f2 67 65 74 69 63 6f 6e  73 74 61 74 65 28 77 25  |.geticonstate(w%|
00001e90  2c 69 25 29 3a 78 25 3d  62 6c 6b 25 21 31 36 0d  |,i%):x%=blk%!16.|
00001ea0  00 fd 05 e1 0d 00 fe 04  0d 00 ff 14 dd a4 72 65  |..............re|
00001eb0  61 64 62 61 72 6d 61 78  28 69 25 29 0d 01 00 38  |adbarmax(i%)...8|
00001ec0  21 62 6c 6b 25 3d 73 65  74 75 70 77 25 3a 62 6c  |!blk%=setupw%:bl|
00001ed0  6b 25 21 34 3d 69 25 3a  c8 99 20 22 57 69 6d 70  |k%!4=i%:.. "Wimp|
00001ee0  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00001ef0  62 6c 6b 25 0d 01 01 17  3d 28 62 6c 6b 25 21 31  |blk%....=(blk%!1|
00001f00  36 29 2d 28 62 6c 6b 25  21 38 29 0d 01 02 04 0d  |6)-(blk%!8).....|
00001f10  01 03 14 dd f2 6c 65 76  65 6c 28 77 25 2c 69 25  |.....level(w%,i%|
00001f20  2c 61 29 0d 01 04 57 21  62 6c 6b 25 3d 77 25 3a  |,a)...W!blk%=w%:|
00001f30  62 6c 6b 25 21 34 3d 69  25 3a c8 99 20 22 57 69  |blk%!4=i%:.. "Wi|
00001f40  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00001f50  2c 2c 62 6c 6b 25 3a 79  30 25 3d 62 6c 6b 25 21  |,,blk%:y0%=blk%!|
00001f60  31 32 3a 78 31 25 3d 62  6c 6b 25 21 31 36 3a 79  |12:x1%=blk%!16:y|
00001f70  31 25 3d 62 6c 6b 25 21  32 30 0d 01 05 3d 62 6c  |1%=blk%!20...=bl|
00001f80  6b 25 21 31 36 3d 28 62  6c 6b 25 21 38 29 2b 61  |k%!16=(blk%!8)+a|
00001f90  3a 78 30 25 3d 62 6c 6b  25 21 31 36 3a c8 99 20  |:x0%=blk%!16:.. |
00001fa0  22 57 69 6d 70 5f 44 65  6c 65 74 65 49 63 6f 6e  |"Wimp_DeleteIcon|
00001fb0  22 2c 2c 62 6c 6b 25 0d  01 06 43 e3 49 25 3d 30  |",,blk%...C.I%=0|
00001fc0  b8 33 31 88 34 3a 49 25  21 28 62 6c 6b 25 2b 34  |.31.4:I%!(blk%+4|
00001fd0  29 3d 49 25 21 28 62 6c  6b 25 2b 38 29 3a ed 3a  |)=I%!(blk%+8):.:|
00001fe0  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 49  |.. "Wimp_CreateI|
00001ff0  63 6f 6e 22 2c 2c 62 6c  6b 25 0d 01 07 75 e7 78  |con",,blk%...u.x|
00002000  30 25 3c 78 31 25 20 8c  20 c8 99 20 22 57 69 6d  |0%<x1% . .. "Wim|
00002010  70 5f 46 6f 72 63 65 52  65 64 72 61 77 22 2c 77  |p_ForceRedraw",w|
00002020  25 2c 78 30 25 2d 38 2c  79 30 25 2c 78 31 25 2c  |%,x0%-8,y0%,x1%,|
00002030  79 31 25 20 8b 20 62 6c  6b 25 21 34 3d 69 25 3a  |y1% . blk%!4=i%:|
00002040  62 6c 6b 25 21 38 3d 30  3a 62 6c 6b 25 21 31 32  |blk%!8=0:blk%!12|
00002050  3d 30 3a c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |=0:.. "Wimp_SetI|
00002060  63 6f 6e 53 74 61 74 65  22 2c 2c 62 6c 6b 25 0d  |conState",,blk%.|
00002070  01 08 05 e1 0d 01 09 04  0d 01 0a 13 dd f2 77 69  |..............wi|
00002080  6e 74 6f 73 63 72 6e 28  62 25 29 0d 01 0b 2e 21  |ntoscrn(b%)....!|
00002090  62 6c 6b 32 25 3d 21 62  25 3a c8 99 20 22 57 69  |blk2%=!b%:.. "Wi|
000020a0  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
000020b0  65 22 2c 2c 62 6c 6b 32  25 0d 01 0c 1e 62 25 21  |e",,blk2%....b%!|
000020c0  38 2b 3d 28 62 6c 6b 32  25 21 34 29 2d 28 62 6c  |8+=(blk2%!4)-(bl|
000020d0  6b 32 25 21 32 30 29 0d  01 0d 20 62 25 21 31 32  |k2%!20)... b%!12|
000020e0  2b 3d 28 62 6c 6b 32 25  21 31 36 29 2d 28 62 6c  |+=(blk2%!16)-(bl|
000020f0  6b 32 25 21 32 34 29 0d  01 0e 1f 62 25 21 31 36  |k2%!24)....b%!16|
00002100  2b 3d 28 62 6c 6b 32 25  21 34 29 2d 28 62 6c 6b  |+=(blk2%!4)-(blk|
00002110  32 25 21 32 30 29 0d 01  0f 20 62 25 21 32 30 2b  |2%!20)... b%!20+|
00002120  3d 28 62 6c 6b 32 25 21  31 36 29 2d 28 62 6c 6b  |=(blk2%!16)-(blk|
00002130  32 25 21 32 34 29 0d 01  10 05 e1 0d 01 11 04 0d  |2%!24)..........|
00002140  01 12 1f dd a4 72 6e 64  75 70 28 6e 25 29 20 3d  |.....rndup(n%) =|
00002150  20 a8 28 28 6e 25 2b 33  29 2f 34 29 2a 34 0d 01  | .((n%+3)/4)*4..|
00002160  13 04 0d 01 14 32 dd a4  6c 65 61 66 28 66 24 29  |.....2..leaf(f$)|
00002170  20 49 25 3d a9 66 24 3a  c8 95 49 25 3e 31 80 c1  | I%=.f$:..I%>1..|
00002180  66 24 2c 49 25 2c 31 29  3c 3e 22 2e 22 49 25 2d  |f$,I%,1)<>"."I%-|
00002190  3d 31 3a ce 0d 01 15 17  e7 c1 66 24 2c 49 25 2c  |=1:.......f$,I%,|
000021a0  31 29 3d 22 2e 22 49 25  2b 3d 31 0d 01 16 0c 3d  |1)="."I%+=1....=|
000021b0  c1 66 24 2c 49 25 29 0d  01 17 04 0d 01 18 19 dd  |.f$,I%).........|
000021c0  a4 67 65 74 69 63 6e 73  74 72 69 6e 67 28 77 25  |.geticnstring(w%|
000021d0  2c 69 25 29 0d 01 19 33  21 62 6c 6b 25 3d 77 25  |,i%)...3!blk%=w%|
000021e0  3a 62 6c 6b 25 21 34 3d  69 25 3a c8 99 20 22 57  |:blk%!4=i%:.. "W|
000021f0  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
00002200  22 2c 2c 62 6c 6b 25 0d  01 1a 19 3d a4 72 65 61  |",,blk%....=.rea|
00002210  64 73 74 72 69 6e 67 28  62 6c 6b 25 21 32 38 29  |dstring(blk%!28)|
00002220  0d 01 1b 04 0d 01 1c 1c  dd f2 70 75 74 69 63 6e  |..........puticn|
00002230  73 74 72 69 6e 67 28 77  25 2c 69 25 2c 61 24 29  |string(w%,i%,a$)|
00002240  0d 01 1d 33 21 62 6c 6b  25 3d 77 25 3a 62 6c 6b  |...3!blk%=w%:blk|
00002250  25 21 34 3d 69 25 3a c8  99 20 22 57 69 6d 70 5f  |%!4=i%:.. "Wimp_|
00002260  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |GetIconState",,b|
00002270  6c 6b 25 0d 01 1e 24 24  28 62 6c 6b 25 21 32 38  |lk%...$$(blk%!28|
00002280  29 3d 61 24 3a 3f 28 28  62 6c 6b 25 21 32 38 29  |)=a$:?((blk%!28)|
00002290  2b a9 61 24 29 3d 30 0d  01 1f 33 62 6c 6b 25 21  |+.a$)=0...3blk%!|
000022a0  38 3d 30 3a 62 6c 6b 25  21 31 32 3d 30 3a c8 99  |8=0:blk%!12=0:..|
000022b0  20 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  | "Wimp_SetIconSt|
000022c0  61 74 65 22 2c 2c 62 6c  6b 25 0d 01 20 05 e1 0d  |ate",,blk%.. ...|
000022d0  01 21 04 0d 01 22 0d dd  f2 64 72 61 67 65 6e 64  |.!..."...dragend|
000022e0  0d 01 23 4b c8 99 20 22  57 69 6d 70 5f 47 65 74  |..#K.. "Wimp_Get|
000022f0  50 6f 69 6e 74 65 72 49  6e 66 6f 22 2c 2c 62 6c  |PointerInfo",,bl|
00002300  6b 25 3a 78 25 3d 21 62  6c 6b 25 3a 79 25 3d 62  |k%:x%=!blk%:y%=b|
00002310  6c 6b 25 21 34 3a 77 25  3d 62 6c 6b 25 21 31 32  |lk%!4:w%=blk%!12|
00002320  3a 69 25 3d 62 6c 6b 25  21 31 36 0d 01 24 21 21  |:i%=blk%!16..$!!|
00002330  62 6c 6b 25 3d 35 36 3a  62 6c 6b 25 21 31 32 3d  |blk%=56:blk%!12=|
00002340  30 3a 62 6c 6b 25 21 31  36 3d 31 3a 0d 01 25 60  |0:blk%!16=1:..%`|
00002350  62 6c 6b 25 21 32 30 3d  77 25 3a 62 6c 6b 25 21  |blk%!20=w%:blk%!|
00002360  32 34 3d 69 25 3a 62 6c  6b 25 21 32 38 3d 78 25  |24=i%:blk%!28=x%|
00002370  3a 62 6c 6b 25 21 33 32  3d 79 25 3a 62 6c 6b 25  |:blk%!32=y%:blk%|
00002380  21 33 36 3d 31 30 30 3a  62 6c 6b 25 21 34 30 3d  |!36=100:blk%!40=|
00002390  26 46 46 46 3a 24 28 62  6c 6b 25 2b 34 34 29 3d  |&FFF:$(blk%+44)=|
000023a0  64 72 61 67 6e 61 6d 65  24 2b bd 30 0d 01 26 32  |dragname$+.0..&2|
000023b0  c8 99 20 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |.. "Wimp_SendMes|
000023c0  73 61 67 65 22 2c 31 37  2c 62 6c 6b 25 2c 77 25  |sage",17,blk%,w%|
000023d0  3a 6d 79 72 65 66 25 3d  62 6c 6b 25 21 38 0d 01  |:myref%=blk%!8..|
000023e0  27 05 e1 0d 01 28 04 0d  01 29 19 dd f2 73 74 61  |'....(...)...sta|
000023f0  72 74 64 72 61 67 28 77  25 2c 69 25 2c 6e 24 29  |rtdrag(w%,i%,n$)|
00002400  0d 01 2a 10 64 72 61 67  6e 61 6d 65 24 3d 6e 24  |..*.dragname$=n$|
00002410  0d 01 2b 33 21 62 6c 6b  25 3d 77 25 3a 62 6c 6b  |..+3!blk%=w%:blk|
00002420  25 21 34 3d 69 25 3a c8  99 20 22 57 69 6d 70 5f  |%!4=i%:.. "Wimp_|
00002430  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 62  |GetIconState",,b|
00002440  6c 6b 25 0d 01 2c 3f f2  77 69 6e 74 6f 73 63 72  |lk%..,?.wintoscr|
00002450  6e 28 62 6c 6b 25 29 3a  62 6c 6b 25 21 38 2d 3d  |n(blk%):blk%!8-=|
00002460  34 3a 62 6c 6b 25 21 31  32 2d 3d 34 3a 62 6c 6b  |4:blk%!12-=4:blk|
00002470  25 21 31 36 2b 3d 34 3a  62 6c 6b 25 21 32 30 2b  |%!16+=4:blk%!20+|
00002480  3d 34 0d 01 2d 52 62 6c  6b 25 21 34 3d 35 3a 62  |=4..-Rblk%!4=5:b|
00002490  6c 6b 25 21 32 34 3d 30  3a 62 6c 6b 25 21 32 38  |lk%!24=0:blk%!28|
000024a0  3d 30 3a 62 6c 6b 25 21  33 32 3d 32 30 30 30 3a  |=0:blk%!32=2000:|
000024b0  62 6c 6b 25 21 33 36 3d  32 30 30 30 3a c8 99 20  |blk%!36=2000:.. |
000024c0  22 57 69 6d 70 5f 44 72  61 67 42 6f 78 22 2c 2c  |"Wimp_DragBox",,|
000024d0  62 6c 6b 25 0d 01 2e 05  e1 0d 01 2f 04 0d 01 30  |blk%......./...0|
000024e0  0d dd f2 64 72 6f 70 6d  73 67 0d 01 31 7d f2 65  |...dropmsg..1}.e|
000024f0  72 72 6f 72 28 22 44 72  6f 70 20 61 20 64 69 72  |rror("Drop a dir|
00002500  65 63 74 6f 72 79 20 69  63 6f 6e 20 68 65 72 65  |ectory icon here|
00002510  20 74 6f 20 63 68 61 6e  67 65 20 74 68 65 20 6c  | to change the l|
00002520  6f 67 6f 20 73 61 76 65  20 61 72 65 61 20 64 69  |ogo save area di|
00002530  72 65 63 74 6f 72 79 20  28 6f 72 20 64 72 61 67  |rectory (or drag|
00002540  20 6f 75 74 20 74 68 65  20 64 69 72 65 63 74 6f  | out the directo|
00002550  72 79 20 69 63 6f 6e 20  6e 65 78 74 20 74 6f 20  |ry icon next to |
00002560  69 74 29 22 2c 30 29 0d  01 32 05 e1 0d 01 33 04  |it)",0)..2....3.|
00002570  0d 01 34 18 dd f2 73 65  74 75 70 77 63 6c 69 63  |..4...setupwclic|
00002580  6b 28 62 25 2c 69 25 29  0d 01 35 0b c8 8e 20 69  |k(b%,i%)..5... i|
00002590  25 20 ca 0d 01 36 4c 20  20 c9 20 33 3a 20 e7 73  |% ...6L  . 3: .s|
000025a0  6f 75 6e 64 25 3e 30 20  73 6f 75 6e 64 25 2d 3d  |ound%>0 sound%-=|
000025b0  31 3a f2 6c 65 76 65 6c  28 73 65 74 75 70 77 25  |1:.level(setupw%|
000025c0  2c 34 2c 73 6f 75 6e 64  25 2a 6c 65 76 62 61 72  |,4,sound%*levbar|
000025d0  31 73 74 65 70 29 3a 73  61 76 65 64 25 3d a3 0d  |1step):saved%=..|
000025e0  01 37 52 20 20 c9 20 35  3a 20 e7 73 6f 75 6e 64  |.7R  . 5: .sound|
000025f0  25 3c 73 6e 64 6d 61 78  25 20 73 6f 75 6e 64 25  |%<sndmax% sound%|
00002600  2b 3d 31 3a f2 6c 65 76  65 6c 28 73 65 74 75 70  |+=1:.level(setup|
00002610  77 25 2c 34 2c 73 6f 75  6e 64 25 2a 6c 65 76 62  |w%,4,sound%*levb|
00002620  61 72 31 73 74 65 70 29  3a 73 61 76 65 64 25 3d  |ar1step):saved%=|
00002630  a3 0d 01 38 37 20 20 c9  20 38 3a 20 e7 62 25 3d  |...87  . 8: .b%=|
00002640  36 34 20 f2 73 74 61 72  74 64 72 61 67 28 73 65  |64 .startdrag(se|
00002650  74 75 70 77 25 2c 69 25  2c 22 22 29 3a 64 72 61  |tupw%,i%,""):dra|
00002660  67 67 69 6e 67 25 3d 32  0d 01 39 14 20 20 c9 20  |gging%=2..9.  . |
00002670  31 32 3a 20 f2 64 72 6f  70 6d 73 67 0d 01 3a 05  |12: .dropmsg..:.|
00002680  cb 0d 01 3b 05 e1 0d 01  3c 04 0d 01 3d 17 dd f2  |...;....<...=...|
00002690  73 65 74 32 77 63 6c 69  63 6b 28 62 25 2c 69 25  |set2wclick(b%,i%|
000026a0  29 0d 01 3e 0b c8 8e 20  69 25 20 ca 0d 01 3f 52  |)..>... i% ...?R|
000026b0  20 20 c9 20 32 3a 20 e7  62 25 3d 36 34 20 f2 73  |  . 2: .b%=64 .s|
000026c0  74 61 72 74 64 72 61 67  28 73 65 74 32 77 25 2c  |tartdrag(set2w%,|
000026d0  69 25 2c a4 6c 65 61 66  28 a4 67 65 74 69 63 6e  |i%,.leaf(.geticn|
000026e0  73 74 72 69 6e 67 28 73  65 74 32 77 25 2c 33 29  |string(set2w%,3)|
000026f0  29 29 3a 64 72 61 67 67  69 6e 67 25 3d 31 0d 01  |)):dragging%=1..|
00002700  40 2e 20 20 c9 20 34 3a  20 f2 73 61 76 65 73 65  |@.  . 4: .savese|
00002710  74 75 70 28 a4 67 65 74  69 63 6e 73 74 72 69 6e  |tup(.geticnstrin|
00002720  67 28 73 65 74 32 77 25  2c 33 29 29 0d 01 41 05  |g(set2w%,3))..A.|
00002730  cb 0d 01 42 05 e1 0d 01  43 04 0d 01 44 17 dd f2  |...B....C...D...|
00002740  77 61 72 6e 77 63 6c 69  63 6b 28 62 25 2c 69 25  |warnwclick(b%,i%|
00002750  29 0d 01 45 0b c8 8e 20  69 25 20 ca 0d 01 46 4d  |)..E... i% ...FM|
00002760  20 20 c9 20 31 3a 20 21  62 6c 6b 25 3d 77 61 72  |  . 1: !blk%=war|
00002770  6e 77 25 3a f2 63 6c 6f  73 65 77 69 6e 64 28 62  |nw%:.closewind(b|
00002780  6c 6b 25 29 3a c8 99 20  22 57 69 6d 70 5f 43 72  |lk%):.. "Wimp_Cr|
00002790  65 61 74 65 4d 65 6e 75  22 2c 2c 73 65 74 32 77  |eateMenu",,set2w|
000027a0  25 2c 33 31 30 2c 35 35  30 0d 01 47 12 20 20 c9  |%,310,550..G.  .|
000027b0  20 32 3a 20 71 75 69 74  25 3d b9 0d 01 48 05 cb  | 2: quit%=...H..|
000027c0  0d 01 49 05 e1 0d 01 4a  04 0d 01 4b 17 dd f2 63  |..I....J...K...c|
000027d0  6c 69 63 6b 28 62 75 74  25 2c 77 25 2c 69 25 29  |lick(but%,w%,i%)|
000027e0  0d 01 4c 0b c8 8e 20 77  25 20 ca 0d 01 4d 0b 20  |..L... w% ...M. |
000027f0  20 c9 20 2d 32 3a 0d 01  4e 14 20 20 20 20 61 66  | . -2:..N.    af|
00002800  74 65 72 77 61 72 6e 25  3d a3 0d 01 4f 11 20 20  |terwarn%=...O.  |
00002810  20 20 c8 8e 20 62 75 74  25 20 ca 0d 01 50 4c 20  |  .. but% ...PL |
00002820  20 20 20 20 20 c9 20 32  3a 20 f2 6d 61 73 74 65  |     . 2: .maste|
00002830  72 5f 6d 65 6e 75 28 22  42 61 64 67 65 72 22 2c  |r_menu("Badger",|
00002840  22 49 6e 66 6f 2c 54 65  61 63 68 65 72 2c 53 65  |"Info,Teacher,Se|
00002850  74 75 70 2e 2e 2e 2c 51  75 69 74 2c 22 2c 21 65  |tup...,Quit,",!e|
00002860  62 25 2c 32 35 36 29 0d  01 51 19 20 20 20 20 20  |b%,256)..Q.     |
00002870  20 c9 20 34 3a 20 f2 73  74 61 72 74 67 61 6d 65  | . 4: .startgame|
00002880  0d 01 52 09 20 20 20 20  cb 0d 01 53 26 20 20 c9  |..R.    ...S&  .|
00002890  20 73 65 74 75 70 77 25  3a 20 f2 73 65 74 75 70  | setupw%: .setup|
000028a0  77 63 6c 69 63 6b 28 62  75 74 25 2c 69 25 29 0d  |wclick(but%,i%).|
000028b0  01 54 24 20 20 c9 20 73  65 74 32 77 25 3a 20 f2  |.T$  . set2w%: .|
000028c0  73 65 74 32 77 63 6c 69  63 6b 28 62 75 74 25 2c  |set2wclick(but%,|
000028d0  69 25 29 0d 01 55 24 20  20 c9 20 77 61 72 6e 77  |i%)..U$  . warnw|
000028e0  25 3a 20 f2 77 61 72 6e  77 63 6c 69 63 6b 28 62  |%: .warnwclick(b|
000028f0  75 74 25 2c 69 25 29 0d  01 56 05 cb 0d 01 57 05  |ut%,i%)..V....W.|
00002900  e1 0d 01 58 04 0d 01 59  17 dd f2 73 75 62 6d 65  |...X...Y...subme|
00002910  6e 75 28 6d 25 2c 69 25  2c 68 25 29 0d 01 5a 16  |nu(m%,i%,h%)..Z.|
00002920  6d 25 2b 3d 32 38 2b 28  28 69 25 2d 31 29 2a 32  |m%+=28+((i%-1)*2|
00002930  34 29 0d 01 5b 0b 6d 25  21 34 3d 68 25 0d 01 5c  |4)..[.m%!4=h%..\|
00002940  05 e1 0d 01 5d 04 0d 01  5e 22 dd f2 6d 61 73 74  |....]...^"..mast|
00002950  65 72 5f 6d 65 6e 75 28  74 69 74 6c 65 24 2c 6d  |er_menu(title$,m|
00002960  24 2c 78 25 2c 79 25 29  0d 01 5f 21 f2 63 72 65  |$,x%,y%).._!.cre|
00002970  61 74 65 5f 6d 65 6e 75  28 6d 65 6e 75 25 2c 74  |ate_menu(menu%,t|
00002980  69 74 6c 65 24 2c 6d 24  29 0d 01 60 34 f2 73 75  |itle$,m$)..`4.su|
00002990  62 6d 65 6e 75 28 6d 65  6e 75 25 2c 31 2c 69 6e  |bmenu(menu%,1,in|
000029a0  66 6f 77 25 29 3a f2 73  75 62 6d 65 6e 75 28 6d  |fow%):.submenu(m|
000029b0  65 6e 75 25 2c 32 2c 6d  73 67 77 25 29 0d 01 61  |enu%,2,msgw%)..a|
000029c0  32 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |2.. "Wimp_Create|
000029d0  4d 65 6e 75 22 2c 2c 6d  65 6e 75 25 2c 78 25 2d  |Menu",,menu%,x%-|
000029e0  6d 65 6e 75 25 21 31 36  20 2f 20 32 2c 79 25 0d  |menu%!16 / 2,y%.|
000029f0  01 62 10 63 75 72 72 6d  65 6e 75 25 3d 2d 31 0d  |.b.currmenu%=-1.|
00002a00  01 63 05 e1 0d 01 64 04  0d 01 65 1f dd f2 63 72  |.c....d...e...cr|
00002a10  65 61 74 65 5f 6d 65 6e  75 28 6d 25 2c 74 69 74  |eate_menu(m%,tit|
00002a20  6c 65 24 2c 6d 24 29 0d  01 66 0d ea 20 69 25 2c  |le$,m$)..f.. i%,|
00002a30  6d 61 78 25 0d 01 67 0e  24 6d 25 3d 74 69 74 6c  |max%..g.$m%=titl|
00002a40  65 24 0d 01 68 34 6d 25  3f 31 32 3d 37 3a 6d 25  |e$..h4m%?12=7:m%|
00002a50  3f 31 33 3d 32 3a 6d 25  3f 31 34 3d 37 3a 6d 25  |?13=2:m%?14=7:m%|
00002a60  3f 31 35 3d 30 3a 6d 25  21 32 30 3d 34 30 3a 6d  |?15=0:m%!20=40:m|
00002a70  25 21 32 34 3d 30 0d 01  69 1d 69 25 3d 6d 25 2b  |%!24=0..i.i%=m%+|
00002a80  32 38 3a 6d 61 78 25 3d  a9 28 74 69 74 6c 65 24  |28:max%=.(title$|
00002a90  29 2d 32 0d 01 6a 05 f5  0d 01 6b 11 20 20 61 25  |)-2..j....k.  a%|
00002aa0  3d a7 6d 24 2c 22 2c 22  29 0d 01 6c 18 20 20 69  |=.m$,",")..l.  i|
00002ab0  24 3d c0 6d 24 2c 61 25  2d 31 29 3a 21 69 25 3d  |$=.m$,a%-1):!i%=|
00002ac0  30 0d 01 6d 0f 20 20 f5  3a 6d 6f 72 65 25 3d a3  |0..m.  .:more%=.|
00002ad0  0d 01 6e 27 20 20 20 20  e7 c0 69 24 2c 31 29 3d  |..n'    ..i$,1)=|
00002ae0  22 3e 22 20 21 69 25 3d  28 21 69 25 29 84 38 3a  |">" !i%=(!i%).8:|
00002af0  6d 6f 72 65 25 3d b9 0d  01 6f 27 20 20 20 20 e7  |more%=...o'    .|
00002b00  c0 69 24 2c 31 29 3d 22  21 22 20 21 69 25 3d 28  |.i$,1)="!" !i%=(|
00002b10  21 69 25 29 84 31 3a 6d  6f 72 65 25 3d b9 0d 01  |!i%).1:more%=...|
00002b20  70 1f 20 20 20 20 e7 20  6d 6f 72 65 25 20 69 24  |p.    . more% i$|
00002b30  3d c2 69 24 2c a9 28 69  24 29 2d 31 29 0d 01 71  |=.i$,.(i$)-1)..q|
00002b40  1b 20 20 fd 20 ac 20 6d  6f 72 65 25 3a 24 28 69  |.  . . more%:$(i|
00002b50  25 2b 31 32 29 3d 69 24  0d 01 72 17 20 20 e7 20  |%+12)=i$..r.  . |
00002b60  61 25 3e 6d 61 78 25 20  6d 61 78 25 3d 61 25 0d  |a%>max% max%=a%.|
00002b70  01 73 1b 20 20 69 25 21  34 3d 30 3a 69 25 21 38  |.s.  i%!4=0:i%!8|
00002b80  3d 26 30 37 30 30 30 30  32 31 0d 01 74 14 20 20  |=&07000021..t.  |
00002b90  6d 24 20 3d 20 c1 6d 24  2c 61 25 2b 31 29 0d 01  |m$ = .m$,a%+1)..|
00002ba0  75 13 20 20 c8 8e 20 24  28 69 25 2b 31 32 29 20  |u.  .. $(i%+12) |
00002bb0  ca 0d 01 76 07 20 20 cb  0d 01 77 12 20 20 69 25  |...v.  ...w.  i%|
00002bc0  20 3d 20 69 25 20 2b 20  32 34 0d 01 78 0d fd 20  | = i% + 24..x.. |
00002bd0  6d 24 20 3d 20 22 22 0d  01 79 1a 69 25 21 2d 32  |m$ = ""..y.i%!-2|
00002be0  34 20 3d 20 28 69 25 21  2d 32 34 29 84 20 26 38  |4 = (i%!-24). &8|
00002bf0  30 0d 01 7a 13 6d 25 21  31 36 20 3d 20 6d 61 78  |0..z.m%!16 = max|
00002c00  25 2a 31 36 0d 01 7b 05  e1 0d 01 7c 04 0d 01 7d  |%*16..{....|...}|
00002c10  12 dd f2 6f 70 65 6e 5f  77 69 6e 64 6f 77 31 0d  |...open_window1.|
00002c20  01 7e 23 c8 99 20 22 57  69 6d 70 5f 47 65 74 50  |.~#.. "Wimp_GetP|
00002c30  6f 69 6e 74 65 72 49 6e  66 6f 22 2c 2c 62 6c 6b  |ointerInfo",,blk|
00002c40  32 25 0d 01 7f 2f 21 62  6c 6b 25 3d 73 65 74 32  |2%.../!blk%=set2|
00002c50  77 25 3a c8 99 20 22 57  69 6d 70 5f 47 65 74 57  |w%:.. "Wimp_GetW|
00002c60  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 62 6c 6b  |indowState",,blk|
00002c70  25 0d 01 80 44 61 25 3d  28 62 6c 6b 25 21 31 32  |%...Da%=(blk%!12|
00002c80  29 2d 28 62 6c 6b 25 21  34 29 3a 62 6c 6b 25 21  |)-(blk%!4):blk%!|
00002c90  34 3d 28 21 62 6c 6b 32  25 29 2d 28 61 25 2f 32  |4=(!blk2%)-(a%/2|
00002ca0  29 3a 62 6c 6b 25 21 31  32 3d 28 62 6c 6b 25 21  |):blk%!12=(blk%!|
00002cb0  34 29 2b 61 25 0d 01 81  3c 62 6c 6b 25 21 38 3d  |4)+a%...<blk%!8=|
00002cc0  35 37 32 3a 62 6c 6b 25  21 31 36 3d 62 6c 6b 25  |572:blk%!16=blk%|
00002cd0  21 38 2b 32 35 32 3a 62  6c 6b 25 21 32 38 3d 2d  |!8+252:blk%!28=-|
00002ce0  31 3a f2 6f 70 65 6e 77  69 6e 64 28 62 6c 6b 25  |1:.openwind(blk%|
00002cf0  29 0d 01 82 4a 21 62 6c  6b 25 3d 73 65 74 75 70  |)...J!blk%=setup|
00002d00  77 25 3a c8 99 20 22 57  69 6d 70 5f 47 65 74 57  |w%:.. "Wimp_GetW|
00002d10  69 6e 64 6f 77 53 74 61  74 65 22 2c 2c 62 6c 6b  |indowState",,blk|
00002d20  25 3a 62 6c 6b 25 21 38  3d 39 36 3a f2 6f 70 65  |%:blk%!8=96:.ope|
00002d30  6e 77 69 6e 64 28 62 6c  6b 25 29 0d 01 83 05 e1  |nwind(blk%).....|
00002d40  0d 01 84 04 0d 01 85 10  dd f2 6d 65 6e 75 73 65  |..........menuse|
00002d50  6c 65 63 74 0d 01 86 12  c8 8e 20 63 75 72 72 6d  |lect...... currm|
00002d60  65 6e 75 25 20 ca 0d 01  87 0b 20 20 c9 20 2d 31  |enu% .....  . -1|
00002d70  3a 0d 01 88 11 20 20 20  20 c8 8e 20 21 65 62 25  |:....    .. !eb%|
00002d80  20 ca 0d 01 89 0e 20 20  20 20 20 20 c9 20 30 3a  | .....      . 0:|
00002d90  0d 01 8a 0e 20 20 20 20  20 20 c9 20 31 3a 0d 01  |....      . 1:..|
00002da0  8b 1c 20 20 20 20 20 20  c9 20 32 3a 20 f2 6f 70  |..      . 2: .op|
00002db0  65 6e 5f 77 69 6e 64 6f  77 31 0d 01 8c 3d 20 20  |en_window1...=  |
00002dc0  20 20 20 20 c9 20 33 3a  20 f2 73 61 76 65 61 72  |    . 3: .savear|
00002dd0  65 61 64 69 66 66 65 72  73 3a e7 ac 73 61 76 65  |eadiffers:..save|
00002de0  64 25 20 f2 6f 66 66 65  72 73 61 76 65 20 8b 20  |d% .offersave . |
00002df0  71 75 69 74 25 3d b9 0d  01 8d 09 20 20 20 20 cb  |quit%=.....    .|
00002e00  0d 01 8e 05 cb 0d 01 8f  05 e1 0d 01 90 04 0d 01  |................|
00002e10  91 15 dd f2 73 61 76 65  61 72 65 61 64 69 66 66  |....saveareadiff|
00002e20  65 72 73 0d 01 92 4a e7  a4 72 65 61 64 73 79 73  |ers...J..readsys|
00002e30  76 61 72 28 22 42 61 64  67 65 72 24 53 61 76 65  |var("Badger$Save|
00002e40  4c 6f 67 6f 50 61 74 68  22 29 3c 3e a4 67 65 74  |LogoPath")<>.get|
00002e50  69 63 6e 73 74 72 69 6e  67 28 73 65 74 75 70 77  |icnstring(setupw|
00002e60  25 2c 39 29 20 73 61 76  65 64 25 3d a3 0d 01 93  |%,9) saved%=....|
00002e70  05 e1 0d 01 94 04 0d 01  95 0f dd f2 6f 66 66 65  |............offe|
00002e80  72 73 61 76 65 0d 01 96  2f 21 62 6c 6b 25 3d 73  |rsave.../!blk%=s|
00002e90  65 74 32 77 25 3a c8 99  20 22 57 69 6d 70 5f 47  |et2w%:.. "Wimp_G|
00002ea0  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00002eb0  62 6c 6b 25 0d 01 97 33  66 25 3d 62 6c 6b 25 21  |blk%...3f%=blk%!|
00002ec0  33 32 3a e7 28 66 25 80  26 31 30 30 30 30 29 3d  |32:.(f%.&10000)=|
00002ed0  26 31 30 30 30 30 20 f2  63 6c 6f 73 65 77 69 6e  |&10000 .closewin|
00002ee0  64 28 62 6c 6b 25 29 0d  01 98 28 c8 99 20 22 57  |d(blk%)...(.. "W|
00002ef0  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
00002f00  2c 77 61 72 6e 77 25 2c  32 36 30 2c 36 35 30 0d  |,warnw%,260,650.|
00002f10  01 99 10 61 66 74 65 72  77 61 72 6e 25 3d b9 0d  |...afterwarn%=..|
00002f20  01 9a 05 e1 0d 01 9b 04  0d 01 9c 13 dd f2 68 69  |..............hi|
00002f30  64 65 5f 6c 6f 67 6f 73  61 76 65 0d 01 9d 31 21  |de_logosave...1!|
00002f40  62 6c 6b 25 3d 33 37 30  3a 62 6c 6b 25 21 34 3d  |blk%=370:blk%!4=|
00002f50  2d 34 39 36 3a 62 6c 6b  25 21 38 3d 39 37 36 3a  |-496:blk%!8=976:|
00002f60  62 6c 6b 25 21 31 32 3d  2d 33 34 34 0d 01 9e 24  |blk%!12=-344...$|
00002f70  c8 99 20 22 57 69 6d 70  5f 53 65 74 45 78 74 65  |.. "Wimp_SetExte|
00002f80  6e 74 22 2c 73 65 74 75  70 77 25 2c 62 6c 6b 25  |nt",setupw%,blk%|
00002f90  0d 01 9f 05 e1 0d 01 a0  04 0d 01 a1 14 dd a4 72  |...............r|
00002fa0  65 61 64 76 64 75 76 61  72 28 61 25 29 0d 01 a2  |eadvduvar(a%)...|
00002fb0  39 21 62 6c 6b 25 3d 61  25 3a 62 6c 6b 25 21 34  |9!blk%=a%:blk%!4|
00002fc0  3d 2d 31 3a c8 99 20 22  4f 53 5f 52 65 61 64 56  |=-1:.. "OS_ReadV|
00002fd0  64 75 56 61 72 69 61 62  6c 65 73 22 2c 62 6c 6b  |duVariables",blk|
00002fe0  25 2c 62 6c 6b 25 0d 01  a3 0a 3d 21 62 6c 6b 25  |%,blk%....=!blk%|
00002ff0  0d 01 a4 04 0d 01 a5 19  dd a4 63 68 65 63 6b 66  |..........checkf|
00003000  6f 6e 74 28 61 24 2c 41  25 2c 42 25 29 0d 01 a6  |ont(a$,A%,B%)...|
00003010  07 ea 20 85 0d 01 a7 0c  ee 20 85 20 ea 3a 3d 30  |.. ...... . .:=0|
00003020  0d 01 a8 29 c8 99 20 22  46 6f 6e 74 5f 46 69 6e  |...).. "Font_Fin|
00003030  64 46 6f 6e 74 22 2c 2c  61 24 2c 41 25 2c 42 25  |dFont",,a$,A%,B%|
00003040  2c 30 2c 30 20 b8 20 68  25 0d 01 a9 1d c8 99 20  |,0,0 . h%...... |
00003050  22 46 6f 6e 74 5f 4c 6f  73 65 46 6f 6e 74 22 2c  |"Font_LoseFont",|
00003060  68 25 3a f7 20 85 0d 01  aa 06 3d b9 0d 01 ab 04  |h%:. .....=.....|
00003070  0d 01 ac 0f dd f2 72 65  61 64 73 6f 75 6e 64 0d  |......readsound.|
00003080  01 ad 39 c8 99 20 22 53  6f 75 6e 64 5f 52 65 61  |..9.. "Sound_Rea|
00003090  64 43 6f 6e 74 72 6f 6c  42 6c 6f 63 6b 22 2c 31  |dControlBlock",1|
000030a0  2c 30 20 b8 20 2c 2c 61  25 3a 61 25 3d 28 61 25  |,0 . ,,a%:a%=(a%|
000030b0  3e 3e 38 29 80 32 35 35  0d 01 ae 29 c8 99 20 22  |>>8).255...).. "|
000030c0  53 6f 75 6e 64 5f 43 6f  6e 66 69 67 75 72 65 22  |Sound_Configure"|
000030d0  2c 30 2c 30 2c 30 20 b8  20 41 25 2c 42 25 2c 43  |,0,0,0 . A%,B%,C|
000030e0  25 0d 01 af 36 ff 22 53  65 74 20 42 61 64 67 65  |%...6."Set Badge|
000030f0  72 24 63 68 61 6e 31 20  22 2b c3 61 25 3a ff 22  |r$chan1 "+.a%:."|
00003100  53 65 74 20 42 61 64 67  65 72 24 6e 63 68 61 6e  |Set Badger$nchan|
00003110  73 20 22 2b c3 41 25 0d  01 b0 37 ff 22 53 65 74  |s "+.A%...7."Set|
00003120  20 42 61 64 67 65 72 24  73 61 6d 70 73 7a 20 22  | Badger$sampsz "|
00003130  2b c3 42 25 3a ff 22 53  65 74 20 42 61 64 67 65  |+.B%:."Set Badge|
00003140  72 24 70 65 72 69 6f 64  20 22 2b c3 43 25 0d 01  |r$period "+.C%..|
00003150  b1 33 c8 99 20 22 53 6f  75 6e 64 5f 56 6f 6c 75  |.3.. "Sound_Volu|
00003160  6d 65 22 2c 30 20 b8 20  41 25 3a ff 22 53 65 74  |me",0 . A%:."Set|
00003170  20 42 61 64 67 65 72 24  76 6f 6c 20 22 2b c3 41  | Badger$vol "+.A|
00003180  25 0d 01 b2 05 e1 0d 01  b3 04 0d 01 b4 10 dd f2  |%...............|
00003190  72 65 73 65 74 73 6f 75  6e 64 0d 01 b5 32 ff 22  |resetsound...2."|
000031a0  63 68 61 6e 6e 65 6c 76  6f 69 63 65 20 31 20 22  |channelvoice 1 "|
000031b0  2b a4 72 65 61 64 73 79  73 76 61 72 28 22 42 61  |+.readsysvar("Ba|
000031c0  64 67 65 72 24 63 68 61  6e 31 22 29 0d 01 b6 45  |dger$chan1")...E|
000031d0  41 25 3d bb a4 72 65 61  64 73 79 73 76 61 72 28  |A%=..readsysvar(|
000031e0  22 42 61 64 67 65 72 24  6e 63 68 61 6e 73 22 29  |"Badger$nchans")|
000031f0  3a 42 25 3d bb a4 72 65  61 64 73 79 73 76 61 72  |:B%=..readsysvar|
00003200  28 22 42 61 64 67 65 72  24 73 61 6d 70 73 7a 22  |("Badger$sampsz"|
00003210  29 0d 01 b7 42 43 25 3d  bb a4 72 65 61 64 73 79  |)...BC%=..readsy|
00003220  73 76 61 72 28 22 42 61  64 67 65 72 24 70 65 72  |svar("Badger$per|
00003230  69 6f 64 22 29 3a c8 99  20 22 53 6f 75 6e 64 5f  |iod"):.. "Sound_|
00003240  43 6f 6e 66 69 67 75 72  65 22 2c 41 25 2c 42 25  |Configure",A%,B%|
00003250  2c 43 25 0d 01 b8 30 c8  99 20 22 53 6f 75 6e 64  |,C%...0.. "Sound|
00003260  5f 56 6f 6c 75 6d 65 22  2c bb a4 72 65 61 64 73  |_Volume",..reads|
00003270  79 73 76 61 72 28 22 42  61 64 67 65 72 24 76 6f  |ysvar("Badger$vo|
00003280  6c 22 29 0d 01 b9 05 e1  0d 01 ba 04 0d 01 bb 0a  |l").............|
00003290  dd a4 74 69 64 79 0d 01  bc 21 ea 20 6c 25 2c 63  |..tidy...!. l%,c|
000032a0  73 25 2c 49 25 2c 44 25  2c 4e 25 2c 6e 25 2c 63  |s%,I%,D%,N%,n%,c|
000032b0  73 25 2c 58 2c 72 25 0d  01 bd 43 58 3d 8e 22 3c  |s%,X,r%...CX=."<|
000032c0  42 61 64 67 65 72 24 44  69 72 3e 2e 21 53 70 72  |Badger$Dir>.!Spr|
000032d0  69 74 65 73 22 3a 72 25  3d 2d 31 3a cf 23 58 3d  |ites":r%=-1:.#X=|
000032e0  28 a2 23 58 29 2d 32 3a  6c 25 3d 9a 23 58 2b 28  |(.#X)-2:l%=.#X+(|
000032f0  28 9a 23 58 29 2a 32 35  36 29 0d 01 be 0a e7 6c  |(.#X)*256).....l|
00003300  25 3e 30 8c 0d 01 bf 6c  20 20 cf 23 58 3d 8f 23  |%>0....l  .#X=.#|
00003310  58 2d 6c 25 3a 63 73 25  3d 28 9a 23 58 29 2b 28  |X-l%:cs%=(.#X)+(|
00003320  28 9a 23 58 29 3c 3c 38  29 2b 28 28 9a 23 58 29  |(.#X)<<8)+((.#X)|
00003330  3c 3c 31 36 29 2b 28 28  9a 23 58 29 3c 3c 32 34  |<<16)+((.#X)<<24|
00003340  29 3a e3 49 25 3d 30 b8  6c 25 2d 37 3a 70 64 62  |):.I%=0.l%-7:pdb|
00003350  62 75 66 66 25 3f 49 25  3d 9a 23 58 3a ed 3a 70  |buff%?I%=.#X:.:p|
00003360  64 62 62 75 66 66 25 3f  49 25 3d 49 25 82 31 30  |dbbuff%?I%=I%.10|
00003370  0d 01 c0 1a cc 20 72 25  3d 30 3a 70 64 62 62 75  |..... r%=0:pdbbu|
00003380  66 66 25 3d 6d 63 25 21  35 32 0d 01 c1 09 cd 3a  |ff%=mc%!52.....:|
00003390  d9 23 58 0d 01 c2 53 44  25 3d 28 6d 63 25 21 34  |.#X...SD%=(mc%!4|
000033a0  38 29 2b 32 37 32 3a f2  7a 28 34 2c 70 64 62 62  |8)+272:.z(4,pdbb|
000033b0  75 66 66 25 29 3a 44 25  3d 28 6d 63 25 21 34 38  |uff%):D%=(mc%!48|
000033c0  29 2b 32 30 38 3a f2 7a  28 32 2c 28 6d 63 25 21  |)+208:.z(2,(mc%!|
000033d0  35 36 29 29 3a f2 7a 32  28 31 37 36 2c 28 6d 63  |56)):.z2(176,(mc|
000033e0  25 21 36 34 29 29 0d 01  c3 4b c8 99 20 70 64 62  |%!64))...K.. pdb|
000033f0  73 25 2b 26 43 31 2c 2c  28 6d 63 25 21 34 38 29  |s%+&C1,,(mc%!48)|
00003400  2b 34 20 b8 20 70 64 62  68 25 3a 21 28 6d 63 25  |+4 . pdbh%:!(mc%|
00003410  21 34 38 29 3d 70 64 62  68 25 3a c8 99 20 70 64  |!48)=pdbh%:.. pd|
00003420  62 73 25 2b 26 43 35 2c  2c 28 6d 63 25 21 34 38  |bs%+&C5,,(mc%!48|
00003430  29 0d 01 c4 07 3d 72 25  0d 01 c5 04 0d 01 c6 0e  |)....=r%........|
00003440  dd f2 7a 28 6e 25 2c 62  25 29 0d 01 c7 61 49 25  |..z(n%,b%)...aI%|
00003450  3d 2d 31 3a e3 4e 25 3d  31 b8 6e 25 3a 21 44 25  |=-1:.N%=1.n%:!D%|
00003460  3d 62 25 2b 49 25 2b 31  3a 44 25 21 34 3d 28 6d  |=b%+I%+1:D%!4=(m|
00003470  63 25 21 36 30 29 3a f5  3a 49 25 2b 3d 31 3a 49  |c%!60):.:I%+=1:I|
00003480  25 3f 62 25 3d 28 49 25  3f 62 25 29 82 20 49 25  |%?b%=(I%?b%). I%|
00003490  3a fd 49 25 3f 62 25 3d  31 30 3a 49 25 3f 62 25  |:.I%?b%=10:I%?b%|
000034a0  3d 30 3a 44 25 2b 3d 33  32 3a ed 0d 01 c8 05 e1  |=0:D%+=32:......|
000034b0  0d 01 c9 04 0d 01 ca 45  dd f2 7a 32 28 61 25 2c  |.......E..z2(a%,|
000034c0  62 25 29 20 63 25 3d 6d  63 25 21 34 38 3a 63 25  |b%) c%=mc%!48:c%|
000034d0  21 61 25 3d 62 25 3a 63  25 21 28 61 25 2b 34 29  |!a%=b%:c%!(a%+4)|
000034e0  3d 6d 79 73 70 72 69 74  65 73 25 3a 63 25 21 28  |=mysprites%:c%!(|
000034f0  61 25 2b 38 29 3d 34 3a  e1 0d 01 cb 04 0d 01 cc  |a%+8)=4:........|
00003500  0f dd f2 73 74 61 72 74  67 61 6d 65 0d 01 cd 35  |...startgame...5|
00003510  c8 99 20 22 4f 53 5f 42  79 74 65 22 2c 31 33 35  |.. "OS_Byte",135|
00003520  20 b8 20 2c 2c 61 25 3a  ff 22 53 65 74 20 42 61  | . ,,a%:."Set Ba|
00003530  64 67 65 72 24 53 63 72  65 65 6e 20 22 2b c3 61  |dger$Screen "+.a|
00003540  25 0d 01 ce 4e ff 22 53  65 74 20 42 61 64 67 65  |%...N."Set Badge|
00003550  72 24 53 61 76 65 20 22  2b a4 67 65 74 69 63 6e  |r$Save "+.geticn|
00003560  73 74 72 69 6e 67 28 73  65 74 75 70 77 25 2c 39  |string(setupw%,9|
00003570  29 3a ff 22 53 65 74 20  42 61 64 67 65 72 24 56  |):."Set Badger$V|
00003580  6f 6c 75 6d 65 20 22 2b  c3 73 6f 75 6e 64 25 0d  |olume "+.sound%.|
00003590  01 cf 38 ff 22 53 65 74  20 42 61 64 67 65 72 24  |..8."Set Badger$|
000035a0  53 61 76 65 4c 6f 67 6f  50 61 74 68 20 22 2b a4  |SaveLogoPath "+.|
000035b0  67 65 74 69 63 6e 73 74  72 69 6e 67 28 73 65 74  |geticnstring(set|
000035c0  75 70 77 25 2c 39 29 0d  01 d0 20 2a 53 65 74 20  |upw%,9)... *Set |
000035d0  41 6d 61 7a 6f 6e 24 44  69 72 20 3c 42 61 64 67  |Amazon$Dir <Badg|
000035e0  65 72 24 44 69 72 3e 0d  01 d1 57 e7 a4 63 68 65  |er$Dir>...W..che|
000035f0  63 6b 66 6f 6e 74 28 22  54 61 62 6c 6f 69 64 2e  |ckfont("Tabloid.|
00003600  6d 65 64 69 75 6d 22 2c  32 30 2c 32 38 29 3d a3  |medium",20,28)=.|
00003610  20 f2 65 72 72 6f 72 28  22 46 6f 6e 74 3a 27 54  | .error("Font:'T|
00003620  61 62 6c 6f 69 64 2e 4d  65 64 69 75 6d 27 20 6e  |abloid.Medium' n|
00003630  6f 74 20 66 6f 75 6e 64  22 2c 30 29 3a e1 0d 01  |ot found",0):...|
00003640  d2 6b c8 99 20 22 57 69  6d 70 5f 53 65 74 4d 6f  |.k.. "Wimp_SetMo|
00003650  64 65 22 2c 31 35 3a e7  28 a4 72 65 61 64 76 64  |de",15:.(.readvd|
00003660  75 76 61 72 28 31 35 30  29 2f 31 30 32 34 29 3c  |uvar(150)/1024)<|
00003670  31 36 30 20 f2 65 72 72  6f 72 28 22 4e 6f 74 20  |160 .error("Not |
00003680  65 6e 6f 75 67 68 20 6d  65 6d 6f 72 79 20 74 6f  |enough memory to|
00003690  20 63 68 61 6e 67 65 20  73 63 72 65 65 6e 20 6d  | change screen m|
000036a0  6f 64 65 22 2c 31 29 3a  e1 0d 01 d3 22 c8 99 20  |ode",1):....".. |
000036b0  22 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |"Wimp_CloseDown"|
000036c0  2c 2c 26 34 42 35 33 34  31 35 34 0d 01 d4 0e f2  |,,&4B534154.....|
000036d0  72 65 61 64 73 6f 75 6e  64 0d 01 d5 0f d3 3d 6f  |readsound.....=o|
000036e0  6c 64 68 69 6d 65 6d 25  0d 01 d6 04 0d 01 d7 3b  |ldhimem%.......;|
000036f0  f4 20 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 20 53 74  |. *********** St|
00003700  61 72 74 20 6f 66 20 53  69 6d 6f 6e 27 73 20 61  |art of Simon's a|
00003710  70 70 6c 69 63 61 74 69  6f 6e 20 2a 2a 2a 2a 2a  |pplication *****|
00003720  2a 2a 2a 2a 2a 2a 2a 0d  01 d8 04 0d 01 d9 14 53  |*******........S|
00003730  25 3d 73 74 61 72 74 25  3a 48 25 3d 6d 63 25 0d  |%=start%:H%=mc%.|
00003740  01 da 20 c8 99 20 22 53  6f 75 6e 64 5f 43 6f 6e  |.. .. "Sound_Con|
00003750  66 69 67 75 72 65 22 2c  32 2c 30 2c 31 30 30 0d  |figure",2,0,100.|
00003760  01 db 15 2a 43 68 61 6e  6e 65 6c 56 6f 69 63 65  |...*ChannelVoice|
00003770  20 31 20 32 0d 01 dc 15  2a 43 68 61 6e 6e 65 6c  | 1 2....*Channel|
00003780  56 6f 69 63 65 20 32 20  36 0d 01 dd 2a c8 99 20  |Voice 2 6...*.. |
00003790  22 53 6f 75 6e 64 5f 56  6f 6c 75 6d 65 22 2c 73  |"Sound_Volume",s|
000037a0  6f 75 6e 64 25 2a 28 31  32 37 2f 73 6e 64 6d 61  |ound%*(127/sndma|
000037b0  78 25 29 0d 01 de 0d 2a  46 58 32 32 30 2c 31 37  |x%)....*FX220,17|
000037c0  0d 01 df 08 ee 85 20 87  0d 01 e0 1e 2a 53 45 54  |...... .....*SET|
000037d0  20 42 61 64 67 65 72 24  53 74 61 74 75 73 20 52  | Badger$Status R|
000037e0  65 73 74 61 72 74 0d 01  e1 2b 41 25 3d 6d 65 6d  |estart...+A%=mem|
000037f0  74 6f 70 25 3a d0 3d 41  25 3a d7 22 3c 42 61 64  |top%:.=A%:."<Bad|
00003800  67 65 72 24 44 69 72 3e  2e 50 72 65 6c 69 6e 6b  |ger$Dir>.Prelink|
00003810  22 0d 01 e2 04 0d 01 e3  28 f4 20 44 49 4d 20 69  |".......(. DIM i|
00003820  6e 70 75 74 25 20 31 36  2c 6f 75 74 70 75 74 25  |nput% 16,output%|
00003830  20 31 36 2c 73 63 61 6c  65 25 20 31 36 0d 01 e4  | 16,scale% 16...|
00003840  3b f4 20 44 49 4d 20 63  6f 6f 72 5f 74 61 62 6c  |;. DIM coor_tabl|
00003850  65 25 28 32 2c 33 30 30  29 2c 65 6d 61 73 6b 25  |e%(2,300),emask%|
00003860  28 34 30 29 2c 6c 24 28  32 30 29 2c 7a 6f 6f 6d  |(40),l$(20),zoom|
00003870  25 28 36 2c 31 30 30 29  0d 01 e5 3b f4 20 74 6f  |%(6,100)...;. to|
00003880  74 61 6c 5f 62 75 74 25  3d 33 30 3a 44 49 4d 20  |tal_but%=30:DIM |
00003890  62 75 74 25 28 74 6f 74  61 6c 5f 62 75 74 25 2c  |but%(total_but%,|
000038a0  34 29 2c 62 75 74 24 28  74 6f 74 61 6c 5f 62 75  |4),but$(total_bu|
000038b0  74 25 29 0d 01 e6 23 f4  20 4d 4f 44 45 31 32 3a  |t%)...#. MODE12:|
000038c0  53 59 53 20 22 4f 53 5f  52 65 6d 6f 76 65 43 75  |SYS "OS_RemoveCu|
000038d0  72 73 6f 72 73 22 0d 01  e7 3e f4 20 50 52 4f 43  |rsors"...>. PROC|
000038e0  63 6c 65 61 72 5f 74 65  78 74 32 3a 50 52 4f 43  |clear_text2:PROC|
000038f0  63 6c 65 61 72 5f 74 69  74 6c 65 3a 50 52 4f 43  |clear_title:PROC|
00003900  63 6c 65 61 72 5f 70 69  63 74 75 72 65 28 31 32  |clear_picture(12|
00003910  38 2c 32 29 0d 01 e8 0e  f4 20 2a 46 58 31 31 32  |8,2)..... *FX112|
00003920  2c 31 0d 01 e9 0e f4 20  2a 46 58 31 31 33 2c 31  |,1..... *FX113,1|
00003930  0d 01 ea 23 61 24 3d a4  72 65 61 64 73 79 73 76  |...#a$=.readsysv|
00003940  61 72 28 22 42 61 64 67  65 72 24 53 74 61 74 75  |ar("Badger$Statu|
00003950  73 22 29 0d 01 eb 24 e7  a7 61 24 2c 22 46 72 65  |s")...$..a$,"Fre|
00003960  73 68 22 29 3a f2 74 69  74 6c 65 3a f2 70 61 75  |sh"):.title:.pau|
00003970  73 65 28 32 30 30 29 0d  01 ec 0c 2a 46 58 31 31  |se(200)....*FX11|
00003980  32 2c 32 0d 01 ed 53 e3  66 25 3d 33 32 b8 31 32  |2,2...S.f%=32.12|
00003990  36 3a f2 70 72 69 28 33  30 2c 36 34 34 2c 30 2c  |6:.pri(30,644,0,|
000039a0  31 2c 31 32 38 2c 32 2c  bd 28 66 25 29 29 3a f2  |1,128,2,.(f%)):.|
000039b0  70 72 69 28 33 30 2c 36  34 34 2c 30 2c 31 2c 31  |pri(30,644,0,1,1|
000039c0  32 38 2c 31 2c bd 28 66  25 29 29 3a ed 3a 2a 46  |28,1,.(f%)):.:*F|
000039d0  58 31 31 32 2c 31 0d 01  ee 41 f4 20 49 46 20 70  |X112,1...A. IF p|
000039e0  72 65 6c 69 6e 6b 5f 66  6c 61 67 25 20 4f 52 20  |relink_flag% OR |
000039f0  58 25 3d 30 20 50 52 4f  43 70 72 65 5f 6c 69 6e  |X%=0 PROCpre_lin|
00003a00  6b 3a 2a 53 65 74 20 42  61 64 67 65 72 24 50 72  |k:*Set Badger$Pr|
00003a10  65 4c 69 6e 6b 20 30 0d  01 ef 09 f2 6c 69 6e 6b  |eLink 0.....link|
00003a20  0d 01 f0 05 e0 0d 01 f1  04 0d 01 f2 0f dd f2 70  |...............p|
00003a30  61 75 73 65 28 6e 25 29  0d 01 f3 12 41 25 3d 91  |ause(n%)....A%=.|
00003a40  3a f5 fd 91 3d 41 25 2b  6e 25 0d 01 f4 05 e1 0d  |:...=A%+n%......|
00003a50  01 f5 04 0d 01 f6 0a dd  f2 6c 69 6e 6b 0d 01 f7  |.........link...|
00003a60  21 e7 53 25 3d 31 20 4b  25 3d 30 3a f2 63 68 61  |!.S%=1 K%=0:.cha|
00003a70  69 6e 28 22 4f 4e 45 2e  4c 49 4e 4b 22 29 0d 01  |in("ONE.LINK")..|
00003a80  f8 26 e7 53 25 3d 32 20  4b 25 3d 31 3a 4a 25 3d  |.&.S%=2 K%=1:J%=|
00003a90  32 3a f2 63 68 61 69 6e  28 22 4f 4e 45 2e 4c 49  |2:.chain("ONE.LI|
00003aa0  4e 4b 22 29 0d 01 f9 26  e7 53 25 3d 33 20 4b 25  |NK")...&.S%=3 K%|
00003ab0  3d 32 3a 4a 25 3d 32 3a  f2 63 68 61 69 6e 28 22  |=2:J%=2:.chain("|
00003ac0  4f 4e 45 2e 4c 49 4e 4b  22 29 0d 01 fa 21 e7 53  |ONE.LINK")...!.S|
00003ad0  25 3d 34 20 4b 25 3d 31  3a f2 63 68 61 69 6e 28  |%=4 K%=1:.chain(|
00003ae0  22 54 57 4f 2e 4c 49 4e  4b 22 29 0d 01 fb 21 e7  |"TWO.LINK")...!.|
00003af0  53 25 3d 35 20 4b 25 3d  30 3a f2 63 68 61 69 6e  |S%=5 K%=0:.chain|
00003b00  28 22 54 57 4f 2e 4c 49  4e 4b 22 29 0d 01 fc 21  |("TWO.LINK")...!|
00003b10  e7 53 25 3d 36 20 4b 25  3d 32 3a f2 63 68 61 69  |.S%=6 K%=2:.chai|
00003b20  6e 28 22 54 57 4f 2e 4c  49 4e 4b 22 29 0d 01 fd  |n("TWO.LINK")...|
00003b30  21 e7 53 25 3d 37 20 4b  25 3d 32 3a f2 63 68 61  |!.S%=7 K%=2:.cha|
00003b40  69 6e 28 22 54 57 4f 2e  4c 49 4e 4b 22 29 0d 01  |in("TWO.LINK")..|
00003b50  fe 21 e7 53 25 3d 38 20  4b 25 3d 34 3a f2 63 68  |.!.S%=8 K%=4:.ch|
00003b60  61 69 6e 28 22 54 57 4f  2e 4c 49 4e 4b 22 29 0d  |ain("TWO.LINK").|
00003b70  01 ff 21 e7 53 25 3d 39  20 4b 25 3d 34 3a f2 63  |..!.S%=9 K%=4:.c|
00003b80  68 61 69 6e 28 22 54 57  4f 2e 4c 49 4e 4b 22 29  |hain("TWO.LINK")|
00003b90  0d 02 00 22 e7 53 25 3d  31 30 20 4b 25 3d 30 3a  |...".S%=10 K%=0:|
00003ba0  f2 63 68 61 69 6e 28 22  54 57 4f 2e 4c 49 4e 4b  |.chain("TWO.LINK|
00003bb0  22 29 0d 02 01 22 e7 53  25 3d 31 31 20 4b 25 3d  |")...".S%=11 K%=|
00003bc0  30 3a f2 63 68 61 69 6e  28 22 54 57 4f 2e 4c 49  |0:.chain("TWO.LI|
00003bd0  4e 4b 22 29 0d 02 02 22  e7 53 25 3d 31 32 20 4b  |NK")...".S%=12 K|
00003be0  25 3d 30 3a f2 63 68 61  69 6e 28 22 54 57 4f 2e  |%=0:.chain("TWO.|
00003bf0  4c 49 4e 4b 22 29 0d 02  03 22 e7 53 25 3d 31 33  |LINK")...".S%=13|
00003c00  20 4b 25 3d 35 3a f2 63  68 61 69 6e 28 22 54 57  | K%=5:.chain("TW|
00003c10  4f 2e 4c 49 4e 4b 22 29  0d 02 04 22 e7 53 25 3d  |O.LINK")...".S%=|
00003c20  31 34 20 4b 25 3d 36 3a  f2 63 68 61 69 6e 28 22  |14 K%=6:.chain("|
00003c30  54 57 4f 2e 4c 49 4e 4b  22 29 0d 02 05 22 e7 53  |TWO.LINK")...".S|
00003c40  25 3d 31 35 20 4b 25 3d  37 3a f2 63 68 61 69 6e  |%=15 K%=7:.chain|
00003c50  28 22 54 57 4f 2e 4c 49  4e 4b 22 29 0d 02 06 24  |("TWO.LINK")...$|
00003c60  e7 53 25 3d 31 36 20 50  25 3d 31 3a f2 63 68 61  |.S%=16 P%=1:.cha|
00003c70  69 6e 28 22 54 48 52 45  45 2e 4c 49 4e 4b 22 29  |in("THREE.LINK")|
00003c80  0d 02 07 24 e7 53 25 3d  31 37 20 50 25 3d 32 3a  |...$.S%=17 P%=2:|
00003c90  f2 63 68 61 69 6e 28 22  54 48 52 45 45 2e 4c 49  |.chain("THREE.LI|
00003ca0  4e 4b 22 29 0d 02 08 24  e7 53 25 3d 31 38 20 50  |NK")...$.S%=18 P|
00003cb0  25 3d 33 3a f2 63 68 61  69 6e 28 22 54 48 52 45  |%=3:.chain("THRE|
00003cc0  45 2e 4c 49 4e 4b 22 29  0d 02 09 24 e7 53 25 3d  |E.LINK")...$.S%=|
00003cd0  31 39 20 50 25 3d 34 3a  f2 63 68 61 69 6e 28 22  |19 P%=4:.chain("|
00003ce0  54 48 52 45 45 2e 4c 49  4e 4b 22 29 0d 02 0a 24  |THREE.LINK")...$|
00003cf0  e7 53 25 3d 32 30 20 50  25 3d 35 3a f2 63 68 61  |.S%=20 P%=5:.cha|
00003d00  69 6e 28 22 54 48 52 45  45 2e 4c 49 4e 4b 22 29  |in("THREE.LINK")|
00003d10  0d 02 0b 24 e7 53 25 3d  32 31 20 50 25 3d 37 3a  |...$.S%=21 P%=7:|
00003d20  f2 63 68 61 69 6e 28 22  54 48 52 45 45 2e 4c 49  |.chain("THREE.LI|
00003d30  4e 4b 22 29 0d 02 0c 24  e7 53 25 3d 32 32 20 50  |NK")...$.S%=22 P|
00003d40  25 3d 38 3a f2 63 68 61  69 6e 28 22 54 48 52 45  |%=8:.chain("THRE|
00003d50  45 2e 4c 49 4e 4b 22 29  0d 02 0d 24 e7 53 25 3d  |E.LINK")...$.S%=|
00003d60  32 33 20 50 25 3d 39 3a  f2 63 68 61 69 6e 28 22  |23 P%=9:.chain("|
00003d70  54 48 52 45 45 2e 4c 49  4e 4b 22 29 0d 02 0e 24  |THREE.LINK")...$|
00003d80  e7 53 25 3d 32 34 20 50  25 3d 31 30 3a f2 63 68  |.S%=24 P%=10:.ch|
00003d90  61 69 6e 28 22 46 4f 55  52 2e 4c 49 4e 4b 22 29  |ain("FOUR.LINK")|
00003da0  0d 02 0f 24 e7 53 25 3d  32 35 20 50 25 3d 31 31  |...$.S%=25 P%=11|
00003db0  3a f2 63 68 61 69 6e 28  22 46 4f 55 52 2e 4c 49  |:.chain("FOUR.LI|
00003dc0  4e 4b 22 29 0d 02 10 24  e7 53 25 3d 32 36 20 50  |NK")...$.S%=26 P|
00003dd0  25 3d 31 32 3a f2 63 68  61 69 6e 28 22 46 4f 55  |%=12:.chain("FOU|
00003de0  52 2e 4c 49 4e 4b 22 29  0d 02 11 05 e0 0d 02 12  |R.LINK")........|
00003df0  04 0d 02 13 12 dd f2 63  68 61 69 6e 28 66 69 6c  |.......chain(fil|
00003e00  65 24 29 0d 02 14 0c f2  70 61 6c 65 74 74 65 0d  |e$).....palette.|
00003e10  02 15 44 e7 66 69 6c 65  24 3d 22 4f 4e 45 2e 4c  |..D.file$="ONE.L|
00003e20  49 4e 4b 22 3a 6e 61 6d  65 24 3d 22 49 4e 54 52  |INK":name$="INTR|
00003e30  4f 44 55 43 54 49 4f 4e  22 3a 70 61 74 68 24 3d  |ODUCTION":path$=|
00003e40  22 24 2e 21 43 52 59 53  54 41 4c 2e 22 2b 66 69  |"$.!CRYSTAL."+fi|
00003e50  6c 65 24 0d 02 16 42 e7  66 69 6c 65 24 3d 22 54  |le$...B.file$="T|
00003e60  57 4f 2e 4c 49 4e 4b 22  3a 6e 61 6d 65 24 3d 22  |WO.LINK":name$="|
00003e70  42 52 49 44 47 45 54 4f  57 4e 22 3a 70 61 74 68  |BRIDGETOWN":path|
00003e80  24 3d 22 24 2e 21 43 52  59 53 54 41 4c 2e 22 2b  |$="$.!CRYSTAL."+|
00003e90  66 69 6c 65 24 0d 02 17  40 e7 66 69 6c 65 24 3d  |file$...@.file$=|
00003ea0  22 54 48 52 45 45 2e 4c  49 4e 4b 22 3a 6e 61 6d  |"THREE.LINK":nam|
00003eb0  65 24 3d 22 46 4f 52 45  53 54 22 3a 70 61 74 68  |e$="FOREST":path|
00003ec0  24 3d 22 24 2e 21 43 52  59 53 54 41 4c 2e 22 2b  |$="$.!CRYSTAL."+|
00003ed0  66 69 6c 65 24 0d 02 18  3c e7 66 69 6c 65 24 3d  |file$...<.file$=|
00003ee0  22 46 4f 55 52 2e 4c 49  4e 4b 22 3a 6e 61 6d 65  |"FOUR.LINK":name|
00003ef0  24 3d 22 4b 45 59 22 3a  70 61 74 68 24 3d 22 24  |$="KEY":path$="$|
00003f00  2e 21 43 52 59 53 54 41  4c 2e 22 2b 66 69 6c 65  |.!CRYSTAL."+file|
00003f10  24 0d 02 19 43 e7 59 25  3d 30 20 74 65 73 74 25  |$...C.Y%=0 test%|
00003f20  3d 30 3a f5 3a f2 66 6c  6f 70 70 79 5f 64 69 73  |=0:.:.floppy_dis|
00003f30  6b 28 6e 61 6d 65 24 2c  70 61 74 68 24 2c 22 24  |k(name$,path$,"$|
00003f40  2e 21 62 61 64 67 65 72  22 29 3a fd 65 72 72 6f  |.!badger"):.erro|
00003f50  72 25 3d 30 0d 02 1a 26  66 69 6c 65 24 3d 22 3c  |r%=0...&file$="<|
00003f60  41 4d 41 5a 4f 4e 24 44  49 52 3e 2e 22 2b 66 69  |AMAZON$DIR>."+fi|
00003f70  6c 65 24 3a 2a 46 58 32  32 39 0d 02 1b 0d 2a 46  |le$:*FX229....*F|
00003f80  58 32 32 30 2c 31 37 0d  02 1c 19 e7 20 63 61 63  |X220,17..... cac|
00003f90  68 65 25 20 8c 20 2a 43  41 43 48 45 20 4f 46 46  |he% . *CACHE OFF|
00003fa0  0d 02 1d 1a 41 25 3d 6d  65 6d 74 6f 70 25 3a d0  |....A%=memtop%:.|
00003fb0  3d 41 25 3a d7 66 69 6c  65 24 0d 02 1e 05 fa 0d  |=A%:.file$......|
00003fc0  02 1f 04 0d 02 20 23 dd  f2 66 6c 6f 70 70 79 5f  |..... #..floppy_|
00003fd0  64 69 73 6b 28 6e 61 6d  65 24 2c 70 61 74 68 24  |disk(name$,path$|
00003fe0  2c 73 65 74 24 29 0d 02  21 42 c8 99 20 22 4f 53  |,set$)..!B.. "OS|
00003ff0  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 31 30 2c  |_SpriteOp",&110,|
00004000  73 70 72 69 74 65 5f 61  72 65 61 31 25 2c 22 6c  |sprite_area1%,"l|
00004010  6f 61 64 73 63 22 2c 30  2c 34 30 30 2c 35 30 30  |oadsc",0,400,500|
00004020  2c 38 38 30 2c 37 30 30  0d 02 22 0c 65 72 72 6f  |,880,700..".erro|
00004030  72 25 3d 30 0d 02 23 06  ea 85 0d 02 24 7a ee 85  |r%=0..#.....$z..|
00004040  ea 3a f7 20 85 3a c8 99  20 22 4f 53 5f 53 70 72  |.:. .:.. "OS_Spr|
00004050  69 74 65 4f 70 22 2c 26  31 33 34 2c 73 70 72 69  |iteOp",&134,spri|
00004060  74 65 5f 61 72 65 61 31  25 2c 22 6c 6f 61 64 73  |te_area1%,"loads|
00004070  63 22 2c 34 30 30 2c 35  30 30 2c 30 3a c8 99 20  |c",400,500,0:.. |
00004080  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00004090  31 39 2c 73 70 72 69 74  65 5f 61 72 65 61 31 25  |19,sprite_area1%|
000040a0  2c 22 6c 6f 61 64 73 63  22 3a 65 72 72 6f 72 25  |,"loadsc":error%|
000040b0  3d 31 3a e1 0d 02 25 05  f5 0d 02 26 10 20 20 e7  |=1:...%....&.  .|
000040c0  74 65 73 74 25 3d 31 20  8c 0d 02 27 13 20 20 20  |test%=1 ...'.   |
000040d0  20 f2 63 6c 65 61 72 5f  74 65 78 74 0d 02 28 32  | .clear_text..(2|
000040e0  20 20 20 20 f2 70 72 69  28 34 33 30 2c 36 34 34  |    .pri(430,644|
000040f0  2c 30 2c 31 2c 31 32 38  2c 31 2c 22 50 6c 65 61  |,0,1,128,1,"Plea|
00004100  73 65 20 70 6c 61 63 65  20 74 68 65 22 29 0d 02  |se place the")..|
00004110  29 25 20 20 20 20 f2 70  72 69 28 34 33 30 2c 35  |)%    .pri(430,5|
00004120  38 32 2c 30 2c 31 2c 31  32 38 2c 31 2c 6e 61 6d  |82,0,1,128,1,nam|
00004130  65 24 29 0d 02 2a 37 20  20 20 20 f2 70 72 69 28  |e$)..*7    .pri(|
00004140  34 33 30 2c 35 32 30 2c  30 2c 31 2c 31 32 38 2c  |430,520,0,1,128,|
00004150  31 2c 22 64 69 73 6b 20  69 6e 20 64 72 69 76 65  |1,"disk in drive|
00004160  20 30 20 20 20 20 4f 4b  22 29 0d 02 2b 19 20 20  | 0    OK")..+.  |
00004170  20 20 6f 6b 78 25 3d 37  36 30 3a 6f 6b 79 25 3d  |  okx%=760:oky%=|
00004180  35 31 32 0d 02 2c 3b 20  20 20 20 e6 30 2c 33 3a  |512..,;    .0,3:|
00004190  ec 6f 6b 78 25 2c 6f 6b  79 25 3a f0 31 2c 31 30  |.okx%,oky%:.1,10|
000041a0  30 2c 30 3a f0 31 2c 30  2c 35 36 3a f0 31 2c 2d  |0,0:.1,0,56:.1,-|
000041b0  31 30 30 2c 30 3a f0 31  2c 30 2c 2d 35 36 0d 02  |100,0:.1,0,-56..|
000041c0  2d 0b 20 20 20 20 c8 97  ee 0d 02 2e 51 20 20 20  |-.    ......Q   |
000041d0  20 f5 3a c8 97 6d 78 25  2c 6d 79 25 2c 6d 63 25  | .:..mx%,my%,mc%|
000041e0  3a fd 6d 63 25 3d 34 20  80 20 6d 78 25 3e 6f 6b  |:.mc%=4 . mx%>ok|
000041f0  78 25 20 80 20 6d 78 25  3c 6f 6b 78 25 2b 31 30  |x% . mx%<okx%+10|
00004200  30 20 80 20 6d 79 25 3e  6f 6b 79 25 20 80 20 6d  |0 . my%>oky% . m|
00004210  79 25 3c 6f 6b 79 25 2b  35 38 0d 02 2f 07 20 20  |y%<oky%+58../.  |
00004220  cd 0d 02 30 0d 20 20 74  65 73 74 25 3d 31 0d 02  |...0.  test%=1..|
00004230  31 0e 20 20 2a 4d 4f 55  4e 54 20 30 0d 02 32 1d  |1.  *MOUNT 0..2.|
00004240  20 20 ff 22 53 45 54 20  41 4d 41 5a 4f 4e 24 44  |  ."SET AMAZON$D|
00004250  49 52 20 22 2b 73 65 74  24 0d 02 33 22 20 20 c8  |IR "+set$..3"  .|
00004260  99 20 22 58 4f 53 5f 46  69 6e 64 22 2c 26 34 30  |. "XOS_Find",&40|
00004270  2c 70 61 74 68 24 20 b8  20 68 25 0d 02 34 0c fd  |,path$ . h%..4..|
00004280  68 25 3a d9 23 68 25 0d  02 35 3a c8 99 20 22 4f  |h%:.#h%..5:.. "O|
00004290  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 33 34  |S_SpriteOp",&134|
000042a0  2c 73 70 72 69 74 65 5f  61 72 65 61 31 25 2c 22  |,sprite_area1%,"|
000042b0  6c 6f 61 64 73 63 22 2c  34 30 30 2c 35 30 30 2c  |loadsc",400,500,|
000042c0  30 0d 02 36 30 c8 99 20  22 4f 53 5f 53 70 72 69  |0..60.. "OS_Spri|
000042d0  74 65 4f 70 22 2c 26 31  31 39 2c 73 70 72 69 74  |teOp",&119,sprit|
000042e0  65 5f 61 72 65 61 31 25  2c 22 6c 6f 61 64 73 63  |e_area1%,"loadsc|
000042f0  22 0d 02 37 07 f7 20 85  0d 02 38 05 e1 0d 02 39  |"..7.. ...8....9|
00004300  04 0d 02 3a 0e dd f2 70  72 65 5f 6c 69 6e 6b 0d  |...:...pre_link.|
00004310  02 3b 4e 4a 25 3d 30 3a  4b 25 3d 30 3a 4c 25 3d  |.;NJ%=0:K%=0:L%=|
00004320  30 3a 4d 25 3d 30 3a 4e  25 3d 30 3a 4f 25 3d 30  |0:M%=0:N%=0:O%=0|
00004330  3a 50 25 3d 30 3a 51 25  3d 30 3a 52 25 3d 30 3a  |:P%=0:Q%=0:R%=0:|
00004340  54 25 3d 30 3a 55 25 3d  30 3a 56 25 3d 30 3a 57  |T%=0:U%=0:V%=0:W|
00004350  25 3d 30 3a 58 25 3d 30  3a 5a 25 3d 30 0d 02 3c  |%=0:X%=0:Z%=0..<|
00004360  09 e7 53 25 3d 31 0d 02  3d 09 e7 53 25 3d 32 0d  |..S%=1..=..S%=2.|
00004370  02 3e 09 e7 53 25 3d 33  0d 02 3f 13 e7 53 25 3e  |.>..S%=3..?..S%>|
00004380  33 20 80 20 53 25 3c 31  36 20 8c 0d 02 40 0f 20  |3 . S%<16 ...@. |
00004390  20 58 25 3d b3 28 33 29  2b 34 0d 02 41 0f 20 20  | X%=.(3)+4..A.  |
000043a0  57 25 3d b3 28 34 29 2b  33 0d 02 42 0f 20 20 56  |W%=.(4)+3..B.  V|
000043b0  25 3d b3 28 34 29 2b 33  0d 02 43 22 20 20 e7 58  |%=.(4)+3..C"  .X|
000043c0  25 3d 57 25 20 84 20 57  25 3d 56 25 20 84 20 56  |%=W% . W%=V% . V|
000043d0  25 3d 58 25 20 e5 8d 44  40 42 0d 02 44 05 cd 0d  |%=X% ..D@B..D...|
000043e0  02 45 0e e7 58 25 3d 35  78 25 3d 33 38 0d 02 46  |.E..X%=5x%=38..F|
000043f0  0f e7 58 25 3d 36 78 25  3d 33 36 34 0d 02 47 0f  |..X%=6x%=364..G.|
00004400  e7 58 25 3d 37 78 25 3d  35 39 38 0d 02 48 10 e7  |.X%=7x%=598..H..|
00004410  53 25 3d 34 20 52 25 3d  31 31 33 0d 02 49 0f e7  |S%=4 R%=113..I..|
00004420  53 25 3d 35 20 52 25 3d  78 25 0d 02 4a 14 e7 53  |S%=5 R%=x%..J..S|
00004430  25 3d 36 20 52 25 3d 78  25 3a 4b 25 3d 32 0d 02  |%=6 R%=x%:K%=2..|
00004440  4b 23 e7 53 25 3d 37 20  52 25 3d 78 25 3a 4b 25  |K#.S%=7 R%=x%:K%|
00004450  3d 32 3a 5a 25 3d 31 3a  54 25 3d 31 3a 4c 25 3d  |=2:Z%=1:T%=1:L%=|
00004460  31 0d 02 4c 24 e7 53 25  3d 38 20 52 25 3d 37 37  |1..L$.S%=8 R%=77|
00004470  30 3a 54 25 3d 31 3a 4b  25 3d 38 3a 4e 25 3d 31  |0:T%=1:K%=8:N%=1|
00004480  3a 4c 25 3d 31 0d 02 4d  29 e7 53 25 3d 39 20 52  |:L%=1..M).S%=9 R|
00004490  25 3d 37 37 30 3a 54 25  3d 31 3a 4b 25 3d 38 3a  |%=770:T%=1:K%=8:|
000044a0  4e 25 3d 31 3a 5a 25 3d  31 3a 4c 25 3d 31 0d 02  |N%=1:Z%=1:L%=1..|
000044b0  4e 2b e7 53 25 3d 31 30  20 52 25 3d 37 37 30 3a  |N+.S%=10 R%=770:|
000044c0  54 25 3d 31 3a 4b 25 3d  32 3a 4e 25 3d 32 3a 4d  |T%=1:K%=2:N%=2:M|
000044d0  25 3d 32 30 3a 4c 25 3d  31 0d 02 4f 30 e7 53 25  |%=20:L%=1..O0.S%|
000044e0  3d 31 31 20 52 25 3d 37  37 30 3a 54 25 3d 31 3a  |=11 R%=770:T%=1:|
000044f0  4b 25 3d 32 3a 5a 25 3d  31 3a 4e 25 3d 32 3a 4d  |K%=2:Z%=1:N%=2:M|
00004500  25 3d 32 30 3a 4c 25 3d  31 0d 02 50 30 e7 53 25  |%=20:L%=1..P0.S%|
00004510  3d 31 32 20 52 25 3d 34  36 32 3a 54 25 3d 31 3a  |=12 R%=462:T%=1:|
00004520  4b 25 3d 30 3a 4e 25 3d  32 3a 4d 25 3d 32 30 3a  |K%=0:N%=2:M%=20:|
00004530  5a 25 3d 31 3a 4c 25 3d  31 0d 02 51 3a e7 53 25  |Z%=1:L%=1..Q:.S%|
00004540  3d 31 33 20 52 25 3d 34  36 32 3a 54 25 3d 31 3a  |=13 R%=462:T%=1:|
00004550  4b 25 3d 35 3a 4e 25 3d  32 3a 4d 25 3d 31 38 3a  |K%=5:N%=2:M%=18:|
00004560  5a 25 3d 31 3a 4f 25 3d  31 3a 51 25 3d 31 3a 4c  |Z%=1:O%=1:Q%=1:L|
00004570  25 3d 31 0d 02 52 3a e7  53 25 3d 31 34 20 52 25  |%=1..R:.S%=14 R%|
00004580  3d 34 36 32 3a 54 25 3d  31 3a 4b 25 3d 36 3a 4e  |=462:T%=1:K%=6:N|
00004590  25 3d 32 3a 4d 25 3d 31  32 3a 5a 25 3d 31 3a 4f  |%=2:M%=12:Z%=1:O|
000045a0  25 3d 33 3a 51 25 3d 31  3a 4c 25 3d 31 0d 02 53  |%=3:Q%=1:L%=1..S|
000045b0  3a e7 53 25 3d 31 35 20  52 25 3d 34 36 32 3a 54  |:.S%=15 R%=462:T|
000045c0  25 3d 31 3a 4b 25 3d 37  3a 4e 25 3d 32 3a 4d 25  |%=1:K%=7:N%=2:M%|
000045d0  3d 31 32 3a 5a 25 3d 31  3a 4f 25 3d 33 3a 51 25  |=12:Z%=1:O%=3:Q%|
000045e0  3d 31 3a 4c 25 3d 31 0d  02 54 38 e7 53 25 3d 31  |=1:L%=1..T8.S%=1|
000045f0  36 20 52 25 3d 31 3a 4a  25 3d 37 32 30 3a 4b 25  |6 R%=1:J%=720:K%|
00004600  3d 35 30 30 3a 4c 25 3d  34 30 30 3a 5a 25 3d 31  |=500:L%=400:Z%=1|
00004610  3a 54 25 3d 31 3a 58 25  3d 30 3a 4f 25 3d 30 0d  |:T%=1:X%=0:O%=0.|
00004620  02 55 38 e7 53 25 3d 31  37 20 52 25 3d 35 3a 4a  |.U8.S%=17 R%=5:J|
00004630  25 3d 37 36 30 3a 4b 25  3d 36 30 30 3a 4c 25 3d  |%=760:K%=600:L%=|
00004640  35 35 30 3a 5a 25 3d 31  3a 54 25 3d 31 3a 58 25  |550:Z%=1:T%=1:X%|
00004650  3d 30 3a 4f 25 3d 31 0d  02 56 32 e7 53 25 3d 31  |=0:O%=1..V2.S%=1|
00004660  38 20 52 25 3d 36 3a 4a  25 3d 30 3a 4b 25 3d 30  |8 R%=6:J%=0:K%=0|
00004670  3a 4c 25 3d 30 3a 5a 25  3d 31 3a 54 25 3d 31 3a  |:L%=0:Z%=1:T%=1:|
00004680  58 25 3d 31 3a 4f 25 3d  31 0d 02 57 37 e7 53 25  |X%=1:O%=1..W7.S%|
00004690  3d 31 39 20 52 25 3d 36  3a 4a 25 3d 30 3a 4b 25  |=19 R%=6:J%=0:K%|
000046a0  3d 30 3a 4c 25 3d 30 3a  5a 25 3d 31 3a 54 25 3d  |=0:L%=0:Z%=1:T%=|
000046b0  31 3a 58 25 3d 31 3a 4f  25 3d 31 3a 55 25 3d 31  |1:X%=1:O%=1:U%=1|
000046c0  0d 02 58 37 e7 53 25 3d  32 30 20 52 25 3d 37 3a  |..X7.S%=20 R%=7:|
000046d0  4a 25 3d 30 3a 4b 25 3d  30 3a 4c 25 3d 30 3a 5a  |J%=0:K%=0:L%=0:Z|
000046e0  25 3d 31 3a 54 25 3d 31  3a 58 25 3d 31 3a 4f 25  |%=1:T%=1:X%=1:O%|
000046f0  3d 31 3a 55 25 3d 31 0d  02 59 3c e7 53 25 3d 32  |=1:U%=1..Y<.S%=2|
00004700  31 20 52 25 3d 38 3a 4a  25 3d 30 3a 4b 25 3d 30  |1 R%=8:J%=0:K%=0|
00004710  3a 4c 25 3d 30 3a 5a 25  3d 31 3a 54 25 3d 31 3a  |:L%=0:Z%=1:T%=1:|
00004720  58 25 3d 32 3a 4f 25 3d  31 3a 55 25 3d 31 3a 4e  |X%=2:O%=1:U%=1:N|
00004730  25 3d 31 0d 02 5a 3c e7  53 25 3d 32 32 20 52 25  |%=1..Z<.S%=22 R%|
00004740  3d 34 3a 4a 25 3d 30 3a  4b 25 3d 30 3a 4c 25 3d  |=4:J%=0:K%=0:L%=|
00004750  30 3a 5a 25 3d 31 3a 54  25 3d 31 3a 58 25 3d 33  |0:Z%=1:T%=1:X%=3|
00004760  3a 4f 25 3d 31 3a 55 25  3d 31 3a 4e 25 3d 31 0d  |:O%=1:U%=1:N%=1.|
00004770  02 5b 3d e7 53 25 3d 32  33 20 52 25 3d 31 30 3a  |.[=.S%=23 R%=10:|
00004780  4a 25 3d 30 3a 4b 25 3d  30 3a 4c 25 3d 30 3a 5a  |J%=0:K%=0:L%=0:Z|
00004790  25 3d 31 3a 54 25 3d 31  3a 58 25 3d 33 3a 4f 25  |%=1:T%=1:X%=3:O%|
000047a0  3d 31 3a 55 25 3d 31 3a  4e 25 3d 31 0d 02 5c 0a  |=1:U%=1:N%=1..\.|
000047b0  e7 53 25 3d 32 34 0d 02  5d 0a e7 53 25 3d 32 35  |.S%=24..]..S%=25|
000047c0  0d 02 5e 0a e7 53 25 3d  32 36 0d 02 5f 05 e1 0d  |..^..S%=26.._...|
000047d0  02 60 04 0d 02 61 10 dd  f2 63 6c 65 61 72 5f 74  |.`...a...clear_t|
000047e0  65 78 74 0d 02 62 45 ef  32 34 2c 34 30 30 3b 35  |ext..bE.24,400;5|
000047f0  30 30 3b 38 38 30 3b 37  30 30 3b 31 38 2c 30 2c  |00;880;700;18,0,|
00004800  31 33 31 2c 31 36 2c 32  34 2c 34 30 38 3b 35 30  |131,16,24,408;50|
00004810  38 3b 38 37 32 3b 36 39  32 3b 31 38 2c 30 2c 31  |8;872;692;18,0,1|
00004820  32 38 2c 31 36 2c 32 36  0d 02 63 05 e1 0d 02 64  |28,16,26..c....d|
00004830  04 0d 02 65 26 dd f2 70  72 69 28 78 25 2c 79 25  |...e&..pri(x%,y%|
00004840  2c 6c 6c 25 2c 63 6f 6c  25 2c 62 63 6f 6c 25 2c  |,ll%,col%,bcol%,|
00004850  73 69 25 2c 61 24 29 0d  02 66 1d ef 32 33 2c 32  |si%,a$)..f..23,2|
00004860  35 2c 32 2c 34 2c 38 2c  31 32 2c 30 2c 30 2c 30  |5,2,4,8,12,0,0,0|
00004870  2c 30 2c 30 0d 02 67 2f  ec 78 25 2d 32 30 2c 79  |,0,0..g/.x%-20,y|
00004880  25 2d 33 30 3a ec 78 25  2b 6c 6c 25 2b 32 30 2c  |%-30:.x%+ll%+20,|
00004890  79 25 2b 36 30 3a ec 78  25 2b 6c 6c 25 2b 32 30  |y%+60:.x%+ll%+20|
000048a0  2c 79 25 0d 02 68 bd e7  6c 6c 25 3e 30 3a ef 32  |,y%..h..ll%>0:.2|
000048b0  34 2c 78 25 2d 32 34 3b  79 25 2d 28 34 2b 31 36  |4,x%-24;y%-(4+16|
000048c0  2f 73 69 25 29 3b 78 25  2b 6c 6c 25 3b 79 25 2b  |/si%);x%+ll%;y%+|
000048d0  33 30 2b 28 32 38 2f 73  69 25 29 3b 31 38 2c 30  |30+(28/si%);18,0|
000048e0  2c 62 63 6f 6c 25 2c 31  36 2c 32 36 2c 31 38 2c  |,bcol%,16,26,18,|
000048f0  30 2c 32 3a ec 78 25 2d  32 34 2c 79 25 2d 28 34  |0,2:.x%-24,y%-(4|
00004900  2b 31 36 2f 73 69 25 29  3a df 78 25 2b 6c 6c 25  |+16/si%):.x%+ll%|
00004910  2c 79 25 2d 28 34 2b 31  36 2f 73 69 25 29 3a df  |,y%-(4+16/si%):.|
00004920  78 25 2b 6c 6c 25 2c 79  25 2b 33 30 2b 28 32 38  |x%+ll%,y%+30+(28|
00004930  2f 73 69 25 29 3a df 78  25 2d 32 34 2c 79 25 2b  |/si%):.x%-24,y%+|
00004940  33 30 2b 28 32 38 2f 73  69 25 29 3a df 78 25 2d  |30+(28/si%):.x%-|
00004950  32 34 2c 79 25 2d 28 34  2b 31 36 2f 73 69 25 29  |24,y%-(4+16/si%)|
00004960  0d 02 69 11 43 25 3d 33  32 30 3a 44 25 3d 33 36  |..i.C%=320:D%=36|
00004970  30 0d 02 6a 18 e7 73 69  25 3d 32 20 43 25 3d 34  |0..j..si%=2 C%=4|
00004980  30 30 3a 44 25 3d 34 36  30 0d 02 6b 20 41 25 3d  |00:D%=460..k A%=|
00004990  78 25 3a 42 25 3d 79 25  3a 45 25 3d 63 6f 6c 25  |x%:B%=y%:E%=col%|
000049a0  3a 46 25 3d 62 63 6f 6c  25 0d 02 6c 54 e3 73 65  |:F%=bcol%..lT.se|
000049b0  6e 74 25 3d 31 b8 20 a9  28 61 24 29 3a 3f 28 6c  |nt%=1. .(a$):?(l|
000049c0  65 74 74 65 72 73 25 2b  28 73 65 6e 74 25 2d 31  |etters%+(sent%-1|
000049d0  29 29 3d 97 28 c1 61 24  2c 73 65 6e 74 25 2c 31  |))=.(.a$,sent%,1|
000049e0  29 29 3a ed 3a 3f 28 6c  65 74 74 65 72 73 25 2b  |)):.:?(letters%+|
000049f0  28 73 65 6e 74 25 2d 31  29 29 3d 31 33 0d 02 6d  |(sent%-1))=13..m|
00004a00  6d c8 99 20 22 46 6f 6e  74 5f 46 69 6e 64 46 6f  |m.. "Font_FindFo|
00004a10  6e 74 22 2c 2c 22 74 61  62 6c 6f 69 64 2e 6d 65  |nt",,"tabloid.me|
00004a20  64 69 75 6d 22 2c 43 25  2c 44 25 2c 30 2c 30 b8  |dium",C%,D%,0,0.|
00004a30  68 25 3a c8 99 20 22 46  6f 6e 74 5f 53 65 74 46  |h%:.. "Font_SetF|
00004a40  6f 6e 74 43 6f 6c 6f 75  72 73 22 2c 68 25 2c 30  |ontColours",h%,0|
00004a50  2c 30 2c 32 3a c8 99 20  22 46 6f 6e 74 5f 4c 6f  |,0,2:.. "Font_Lo|
00004a60  73 65 46 6f 6e 74 22 2c  68 25 0d 02 6e 0c d6 20  |seFont",h%..n.. |
00004a70  66 6f 6e 74 73 25 0d 02  6f 05 e1 0d 02 70 04 0d  |fonts%..o....p..|
00004a80  02 71 14 dd f2 70 75 6c  6c 5f 76 61 72 69 61 62  |.q...pull_variab|
00004a90  6c 65 73 0d 02 72 19 63  6c 65 61 72 5f 73 70 72  |les..r.clear_spr|
00004aa0  69 74 65 25 3d 21 28 48  25 2b 30 29 0d 02 73 19  |ite%=!(H%+0)..s.|
00004ab0  64 72 61 77 5f 70 69 63  74 75 72 65 25 3d 21 28  |draw_picture%=!(|
00004ac0  48 25 2b 34 29 0d 02 74  19 73 63 72 65 65 6e 5f  |H%+4)..t.screen_|
00004ad0  73 74 61 72 74 25 3d 21  28 48 25 2b 38 29 0d 02  |start%=!(H%+8)..|
00004ae0  75 1b 73 69 6d 6f 6e 73  5f 73 70 72 69 74 65 25  |u.simons_sprite%|
00004af0  3d 21 28 48 25 2b 31 32  29 0d 02 76 1b 65 78 70  |=!(H%+12)..v.exp|
00004b00  6c 6f 64 65 5f 6d 65 72  67 65 25 3d 21 28 48 25  |lode_merge%=!(H%|
00004b10  2b 31 36 29 0d 02 77 19  62 6c 6f 63 6b 5f 6d 65  |+16)..w.block_me|
00004b20  72 67 65 25 3d 21 28 48  25 2b 32 30 29 0d 02 78  |rge%=!(H%+20)..x|
00004b30  18 73 6c 6f 77 5f 6d 65  72 67 65 25 3d 21 28 48  |.slow_merge%=!(H|
00004b40  25 2b 32 34 29 0d 02 79  13 64 65 6c 61 79 25 3d  |%+24)..y.delay%=|
00004b50  21 28 48 25 2b 32 38 29  0d 02 7a 19 73 61 76 65  |!(H%+28)..z.save|
00004b60  5f 73 63 72 65 65 6e 25  3d 21 28 48 25 2b 33 32  |_screen%=!(H%+32|
00004b70  29 0d 02 7b 13 66 6f 6e  74 73 25 3d 21 28 48 25  |)..{.fonts%=!(H%|
00004b80  2b 33 36 29 0d 02 7c 15  6c 65 74 74 65 72 73 25  |+36)..|.letters%|
00004b90  3d 21 28 48 25 2b 34 30  29 0d 02 7d 1d 73 70 72  |=!(H%+40)..}.spr|
00004ba0  69 74 65 5f 61 72 65 61  31 25 3d 48 25 2b 28 35  |ite_area1%=H%+(5|
00004bb0  2a 31 30 32 34 29 0d 02  7e 26 70 69 63 74 75 72  |*1024)..~&pictur|
00004bc0  65 31 25 3d 73 70 72 69  74 65 5f 61 72 65 61 31  |e1%=sprite_area1|
00004bd0  25 2b 28 32 30 30 2a 31  30 32 34 29 0d 02 7f 21  |%+(200*1024)...!|
00004be0  70 69 63 74 75 72 65 32  25 3d 70 69 63 74 75 72  |picture2%=pictur|
00004bf0  65 31 25 2b 28 31 30 2a  31 30 32 34 29 0d 02 80  |e1%+(10*1024)...|
00004c00  05 e1 0d 02 81 04 0d 02  82 0d dd f2 70 61 6c 65  |............pale|
00004c10  74 74 65 0d 02 83 17 ea  70 25 2c 72 25 2c 67 25  |tte.....p%,r%,g%|
00004c20  2c 62 25 3a f7 20 8d 74  47 42 0d 02 84 0c e3 70  |,b%:. .tGB.....p|
00004c30  25 3d 30 b8 31 35 0d 02  85 1c 20 20 f3 72 25 2c  |%=0.15....  .r%,|
00004c40  67 25 2c 62 25 3a fb 70  25 2c 72 25 2c 67 25 2c  |g%,b%:.p%,r%,g%,|
00004c50  62 25 0d 02 86 07 ed 3a  e1 0d 02 87 2c dc 20 32  |b%.....:....,. 2|
00004c60  35 35 2c 32 35 35 2c 32  35 35 2c 31 37 30 2c 31  |55,255,255,170,1|
00004c70  37 30 2c 31 37 30 2c 38  35 2c 38 35 2c 38 35 2c  |70,170,85,85,85,|
00004c80  30 2c 30 2c 30 0d 02 88  29 dc 20 30 2c 30 2c 31  |0,0,0...). 0,0,1|
00004c90  35 33 2c 30 2c 30 2c 32  35 35 2c 30 2c 32 30 34  |53,0,0,255,0,204|
00004ca0  2c 32 35 35 2c 32 35 35  2c 32 35 35 2c 30 0d 02  |,255,255,255,0..|
00004cb0  89 28 dc 20 32 35 35 2c  31 33 36 2c 30 2c 32 32  |.(. 255,136,0,22|
00004cc0  31 2c 30 2c 30 2c 31 33  36 2c 31 37 2c 30 2c 30  |1,0,0,136,17,0,0|
00004cd0  2c 31 30 32 2c 30 0d 02  8a 28 dc 20 30 2c 31 35  |,102,0...(. 0,15|
00004ce0  33 2c 33 34 2c 30 2c 32  30 34 2c 30 2c 30 2c 32  |3,34,0,204,0,0,2|
00004cf0  35 35 2c 33 34 2c 31 35  33 2c 36 38 2c 30 0d 02  |55,34,153,68,0..|
00004d00  8b 04 0d 02 8c 1c dd f2  69 6e 69 74 69 61 6c 69  |........initiali|
00004d10  73 65 5f 73 70 72 69 74  65 5f 61 72 65 61 0d 02  |se_sprite_area..|
00004d20  8d 50 21 73 70 72 69 74  65 5f 61 72 65 61 31 25  |.P!sprite_area1%|
00004d30  3d 26 33 43 30 30 30 3a  73 70 72 69 74 65 5f 61  |=&3C000:sprite_a|
00004d40  72 65 61 31 25 21 38 3d  31 36 3a c8 99 20 22 4f  |rea1%!8=16:.. "O|
00004d50  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 30 39  |S_SpriteOp",&109|
00004d60  2c 73 70 72 69 74 65 5f  61 72 65 61 31 25 0d 02  |,sprite_area1%..|
00004d70  8e 05 e1 0d 02 8f 04 0d  02 90 0b dd f2 74 69 74  |.............tit|
00004d80  6c 65 0d 02 91 1e 2a 53  45 54 20 42 61 64 67 65  |le....*SET Badge|
00004d90  72 24 53 74 61 74 75 73  20 52 65 73 74 61 72 74  |r$Status Restart|
00004da0  0d 02 92 19 ef 32 34 2c  31 32 3b 33 33 36 3b 31  |.....24,12;336;1|
00004db0  32 36 36 3b 31 30 31 30  3b 0d 02 93 29 f2 6c 6f  |266;1010;...).lo|
00004dc0  61 64 5f 73 70 72 69 74  65 28 73 70 72 69 74 65  |ad_sprite(sprite|
00004dd0  5f 61 72 65 61 31 25 2c  22 46 52 4f 4e 54 53 43  |_area1%,"FRONTSC|
00004de0  22 29 0d 02 94 3c c8 99  20 22 4f 53 5f 53 70 72  |")...<.. "OS_Spr|
00004df0  69 74 65 4f 70 22 2c 26  31 32 32 2c 73 70 72 69  |iteOp",&122,spri|
00004e00  74 65 5f 61 72 65 61 31  25 2c 22 61 64 73 5f 74  |te_area1%,"ads_t|
00004e10  69 74 6c 65 22 2c 31 32  2c 33 33 36 2c 30 0d 02  |itle",12,336,0..|
00004e20  95 07 ef 32 36 0d 02 96  3f f2 70 72 69 28 34 38  |...26...?.pri(48|
00004e30  2c 32 36 30 2c 30 2c 31  2c 31 32 38 2c 31 2c 22  |,260,0,1,128,1,"|
00004e40  42 41 44 47 45 52 20 74  69 74 6c 65 20 73 63 72  |BADGER title scr|
00004e50  65 65 6e 20 62 79 20 41  64 61 6d 20 48 6f 73 6c  |een by Adam Hosl|
00004e60  65 72 22 29 0d 02 97 05  e1 0d 02 98 04 0d 02 99  |er")............|
00004e70  1c dd f2 6c 6f 61 64 5f  73 70 72 69 74 65 28 61  |...load_sprite(a|
00004e80  74 25 2c 6e 61 6d 65 24  29 0d 02 9a 33 c8 99 20  |t%,name$)...3.. |
00004e90  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00004ea0  30 41 2c 61 74 25 2c 22  3c 41 4d 41 5a 4f 4e 24  |0A,at%,"<AMAZON$|
00004eb0  44 49 52 3e 2e 22 2b 6e  61 6d 65 24 0d 02 9b 05  |DIR>."+name$....|
00004ec0  e1 0d 02 9c 04 0d 02 9d  35 dd f2 70 6c 6f 74 5f  |........5..plot_|
00004ed0  73 70 72 69 74 65 5f 73  63 61 6c 65 64 28 78 25  |sprite_scaled(x%|
00004ee0  2c 79 25 2c 78 6d 25 2c  79 6d 25 2c 78 64 25 2c  |,y%,xm%,ym%,xd%,|
00004ef0  79 64 25 2c 6e 61 6d 65  24 29 0d 02 9e 13 21 28  |yd%,name$)....!(|
00004f00  73 63 61 6c 65 25 2b 30  29 3d 78 6d 25 0d 02 9f  |scale%+0)=xm%...|
00004f10  13 21 28 73 63 61 6c 65  25 2b 34 29 3d 79 6d 25  |.!(scale%+4)=ym%|
00004f20  0d 02 a0 13 21 28 73 63  61 6c 65 25 2b 38 29 3d  |....!(scale%+8)=|
00004f30  78 64 25 0d 02 a1 14 21  28 73 63 61 6c 65 25 2b  |xd%....!(scale%+|
00004f40  31 32 29 3d 79 64 25 0d  02 a2 3e c8 99 20 22 4f  |12)=yd%...>.. "O|
00004f50  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 33 34  |S_SpriteOp",&134|
00004f60  2c 73 70 72 69 74 65 5f  61 72 65 61 31 25 2c 6e  |,sprite_area1%,n|
00004f70  61 6d 65 24 2c 78 25 2c  79 25 2c 30 2c 73 63 61  |ame$,x%,y%,0,sca|
00004f80  6c 65 25 2c 30 0d 02 a3  05 e1 0d 02 a4 04 0d 02  |le%,0...........|
00004f90  a5 11 dd f2 63 6c 65 61  72 5f 74 65 78 74 32 0d  |....clear_text2.|
00004fa0  02 a6 65 fb 31 35 2c 30  2c 30 2c 30 3a ef 32 34  |..e.15,0,0,0:.24|
00004fb0  2c 30 3b 30 3b 31 32 37  38 3b 33 32 30 3b 31 38  |,0;0;1278;320;18|
00004fc0  2c 30 2c 31 32 38 2c 31  36 2c 32 34 2c 34 3b 34  |,0,128,16,24,4;4|
00004fd0  3b 31 32 37 34 3b 33 31  36 3b 31 38 2c 30 2c 31  |;1274;316;18,0,1|
00004fe0  33 31 2c 31 36 2c 32 34  2c 38 3b 38 3b 31 32 37  |31,16,24,8;8;127|
00004ff0  30 3b 33 31 32 3b 31 38  2c 30 2c 31 32 38 2c 31  |0;312;18,0,128,1|
00005000  36 2c 32 36 0d 02 a7 05  e1 0d 02 a8 04 0d 02 a9  |6,26............|
00005010  21 dd f2 63 6c 65 61 72  5f 70 69 63 74 75 72 65  |!..clear_picture|
00005020  28 63 6f 6c 25 2c 73 63  72 65 65 6e 25 29 0d 02  |(col%,screen%)..|
00005030  aa 18 ff 22 46 58 31 31  32 2c 22 2b c3 28 73 63  |..."FX112,"+.(sc|
00005040  72 65 65 6e 25 29 0d 02  ab 51 fb 31 35 2c 30 2c  |reen%)...Q.15,0,|
00005050  30 2c 30 3a ef 32 34 2c  30 3b 33 32 34 3b 31 32  |0,0:.24,0;324;12|
00005060  37 38 3b 31 30 32 32 3b  31 38 2c 30 2c 31 33 31  |78;1022;18,0,131|
00005070  2c 31 36 2c 32 34 2c 31  36 3b 33 34 30 3b 31 32  |,16,24,16;340;12|
00005080  36 32 3b 31 30 30 36 3b  31 38 2c 30 2c 63 6f 6c  |62;1006;18,0,col|
00005090  25 2c 31 36 2c 32 36 0d  02 ac 05 e1 0d 02 ad 04  |%,16,26.........|
000050a0  0d 02 ae 11 dd f2 63 6c  65 61 72 5f 74 69 74 6c  |......clear_titl|
000050b0  65 0d 02 af 1b f2 63 6c  65 61 72 5f 70 69 63 74  |e.....clear_pict|
000050c0  75 72 65 28 31 32 38 2c  30 29 3a e1 0d 02 b0 26  |ure(128,0):....&|
000050d0  ef 32 34 2c 34 34 3b 34  30 30 3b 31 32 33 34 3b  |.24,44;400;1234;|
000050e0  39 34 36 3b 31 38 2c 30  2c 31 33 32 2c 31 36 2c  |946;18,0,132,16,|
000050f0  32 36 0d 02 b1 26 ef 32  34 2c 37 36 3b 34 33 32  |26...&.24,76;432|
00005100  3b 31 32 30 32 3b 39 31  34 3b 31 38 2c 30 2c 31  |;1202;914;18,0,1|
00005110  33 33 2c 31 36 2c 32 36  0d 02 b2 05 e1 0d 02 b3  |33,16,26........|
00005120  04 0d 02 b4 11 dd f2 66  69 6e 64 5f 73 74 61 72  |.......find_star|
00005130  74 73 0d 02 b5 0c 2a 46  58 31 31 32 2c 31 0d 02  |ts....*FX112,1..|
00005140  b6 1f 73 63 72 65 65 6e  5f 6f 6e 65 25 3d ba 20  |..screen_one%=. |
00005150  73 63 72 65 65 6e 5f 73  74 61 72 74 25 0d 02 b7  |screen_start%...|
00005160  0c 2a 46 58 31 31 32 2c  32 0d 02 b8 1f 73 63 72  |.*FX112,2....scr|
00005170  65 65 6e 5f 74 77 6f 25  3d ba 20 73 63 72 65 65  |een_two%=. scree|
00005180  6e 5f 73 74 61 72 74 25  0d 02 b9 0c 2a 46 58 31  |n_start%....*FX1|
00005190  31 32 2c 31 0d 02 ba 05  e1 0d 02 bb 04 0d 02 bc  |12,1............|
000051a0  36 dd f2 73 70 72 69 74  65 5f 70 6c 6f 74 28 61  |6..sprite_plot(a|
000051b0  72 65 61 25 2c 6e 61 6d  65 24 2c 73 78 25 2c 73  |rea%,name$,sx%,s|
000051c0  79 25 2c 6d 61 73 6b 25  2c 62 6b 31 25 2c 62 6b  |y%,mask%,bk1%,bk|
000051d0  32 25 29 0d 02 bd 18 41  25 3d a4 66 69 6e 64 5f  |2%)....A%=.find_|
000051e0  73 63 72 65 65 6e 28 31  34 38 29 0d 02 be 30 c8  |screen(148)...0.|
000051f0  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
00005200  26 31 31 38 2c 61 72 65  61 25 2c 6e 61 6d 65 24  |&118,area%,name$|
00005210  20 b8 20 72 30 2c 72 31  2c 42 25 0d 02 bf 0d 43  | . r0,r1,B%....C|
00005220  25 3d 73 78 25 20 2f 34  0d 02 c0 15 44 25 3d 28  |%=sx% /4....D%=(|
00005230  31 30 32 38 2d 28 73 79  25 29 29 2f 34 0d 02 c1  |1028-(sy%))/4...|
00005240  1c 45 25 3d 6d 61 73 6b  25 3a 46 25 3d 62 6b 31  |.E%=mask%:F%=bk1|
00005250  25 3a 47 25 3d 62 6b 32  25 0d 02 c2 15 d6 73 69  |%:G%=bk2%.....si|
00005260  6d 6f 6e 73 5f 73 70 72  69 74 65 25 3a e1 0d 02  |mons_sprite%:...|
00005270  c3 04 0d 02 c4 56 dd a4  66 69 6e 64 5f 73 63 72  |.....V..find_scr|
00005280  65 65 6e 28 73 63 72 25  29 3a 21 62 6c 6b 25 3d  |een(scr%):!blk%=|
00005290  73 63 72 25 3a 62 6c 6b  25 21 34 3d 2d 31 3a c8  |scr%:blk%!4=-1:.|
000052a0  99 20 22 4f 53 5f 52 65  61 64 56 64 75 56 61 72  |. "OS_ReadVduVar|
000052b0  69 61 62 6c 65 73 22 2c  62 6c 6b 25 2c 62 6c 6b  |iables",blk%,blk|
000052c0  25 3a 3d 21 62 6c 6b 25  0d ff                    |%:=!blk%..|
000052ca