�
� Program  -  Mill
#� Author   -  Stuart Whitehouse
(�
2�
<�startup
F�poll_loop
P�closedown
Z�
d:
n-:                *** startup sequence ***
x:
�
��startup
�ț "<Obey$Dir>.Mill"
�%appname$="Mill":indir_size%=60000
�
�B� b% 2400, tb% 2048, indirect% indir_size%, temp% 44:pb%=temp%
�� font_array% 256
�#� w%=0 � 255:font_array%?w%=0:�
�
�T� � � � �:�error("Can't start "+appname$+" - "+�$+" at line "+�(�)):�closedown:�
�
�� w% 4:w%!0=0
�Aș "Wimp_Initialise",310,&4B534154,appname$,w% � ,taskhandle%
�

5ș "Tempest_Hello",,4+16+32+256,tb%,2048,appname$

(ș "Tempest_MiscOp",11,"",tb%,"IBAR"

B: � installs i-bar icon "!<appname$>", with i.active help IBAR

"

,@� load templates - sprite link first; windows; menus; I-help

6<� all this is loaded into indirect% (inc. WinSprs, Text)

@G� windows - module calls Wimp_CreateWindow, & sets the sprite areas

J'� and the icon sprite areas as well

T

^Nș "Tempest_RegisterIndirectArea",indirect%,indirect%+indir_size%,tb%,2400

h6ș "Tempest_OpenFile","<Obey$Dir>.Templates",0,tb%

r=ș "Tempest_LoadObject","SpriteLink",b%,tb%,-1 � sprites%

|

�Fș "Tempest_LoadObject","IconBar",b%,tb%,font_array%,0 � ibarmenu%

�Gș "Tempest_LoadObject","MainMenu",b%,tb%,font_array%,0 � mainmenu%

�Iș "Tempest_LoadObject","LevelMenu",b%,tb%,font_array%,0 � levelmenu%

�

�Iș "Tempest_LoadObject","ProgInfo",b%,tb%,font_array%,0 � infohandle%

�Kș "Tempest_LoadObject","MainWindow",b%,tb%,font_array%,0 � mainhandle%

�Kș "Tempest_LoadObject","GenAlert",b%,tb%,font_array%,0 � alert_handle%

�Jș "Tempest_LoadObject","Options",b%,tb%,font_array%,0 � optionhandle%

�Hș "Tempest_LoadObject","SaveBox",b%,tb%,font_array%,0 � savehandle%

�

�:ș "Tempest_LoadObject","HelpText",b%,tb%,-1,0 � help%

�7� load text file, and install for interactive help.

�
 ș "Tempest_CloseFile",,,tb%
!ș "Tempest_LinkMenus",,0,tb%

&�millstart
0�io_init
:
�codevars
D
�assem
N�updatelevel
X�newgame
b�
l:
v:
�&:                *** wimp poll ***
�:
�:
���poll_loop
�t� � � �error("Error in "+appname$+" - "+�$+" ["+Þ+"]  OK=Continue/Cancel=Quit"):� err_result%<>1 � �closedown:�
�quit%=�
��
�2  ș "Wimp_Poll",&3830 � tb%!1000,b% � reason%
�6  ș "Tempest_PreProcess",reason%,b%,tb% � reason%
�  Ȏ reason% �
�5    � 0 : � player%(to_play%)=_comp% � �comp_move
�-    � 2 : ș "Tempest_OpenWindow",,b%,tb%
�.    � 3 : ș "Tempest_CloseWindow",,b%,tb%
    � 6 : �mouse_click
    � 7 : �drag_box
    � 9 : �menuselect
     � 17,18 : �message
*  �
4
� quit%=�
>�
H:
R:
\':               *** mouse click ***
f:
p��mouse_click
zH� b%!12 = window, b%!8 = button state (tb%!0 is uniform button type)
�
�Ȏ b%!12 �
� 
�%  � -2 : � click on icon bar icon
�  Ȏ b%!8 �
�$    � 1 : � PROCgenalert("TEST")
�4    � 2 : ș "Tempest_ShowMenu",0,,tb%,ibarmenu%
�     � 4 : !temp%=mainhandle%
�=    ș "Tempest_ShowWindow",1,temp%,tb% : � open to front
�  �
� 
�,  � mainhandle% : � click on main window
�  Ȏ tb%!0 �
%    : � using tempest button type
D    � 2 : ș "Tempest_ShowMenu",1,,tb%,mainmenu% : � pop-up menu
C    � 1,4,16,64 : �millclick(b%!16-first_square%,tb%!0) :� mill
$  �
. 
8!  � savehandle% : �save_click
B 
L+  � optionhandle% : �optionclick(b%!16)
V�
`�
j:
t*:                  *** menu select ***
~:
�/��menuselect : � tb%!8 is last menu created
�Ȏ tb%!8 �
� 
�  � ibarmenu% :
�  Ȏ b%!0 �
�6    � 0 : ș "Tempest_ShowMenu",1,,tb%,infohandle%
�    � 1 : �openoptions
�4    � 2 : *SET Browzer$HelpFile <Mill$Dir>.Instr
�%    *Filer_Run <Browzer$Dir>.!Run
�    � 3 : quit%=�
�  �
� 
  � mainmenu% :

  Ȏ b%!0 �
E    � 0 : � game_on% � turn%>1 � � �genalert("NGMQ")=2 � �newgame
    � 1 : �openoptions
(  �
2 
<  � levelmenu% :
F*  � b%!0=9 � � �genalert("DIAQ")=2 � �
P  �setlevel(b%!0)
Z 
d�
nEș "Tempest_ShowMenu",7,,tb%,0 : � redisplays last menu on ADJUST
x�
�:
�&:                 *** drag-box ***
�:
���drag_box
�Ȏ drag_type% �
�  � _d_move% :
�  � sq%
�#  ș "Wimp_GetPointerInfo",,pb%
�  � pb%!12<>mainhandle% � �
�  sq%=pb%!16-first_square%
�E  � sq%>=1 � sq%<=24 � player%(to_play%)=_human% � �move_end(sq%)
�  � _d_save% :
�  �save_drag
�
�
:
"&:                 *** messages ***
,:
6
��message
@
� loadok%
Jref%=b%!8:from%=b%!4
TȎ b%!16 �
^  � 0 : quit%=�
h  � 3,5 : �loadmessage
r&  � 2,4,10,&502 : � done by module
|  � &4B480 : �save_ack
�  � &4B481 : �preparedata
��
��
�:
�3:                 <<< end of poll responses >>>
�4:                 *** miscellaneous routines ***
�:
�:ݤzero(A%):� w$:w$="":ȕ ?A%>13:w$=w$+�?A%:A%+=1:�:=w$
�:
���error(err$)
�b%+=256
�!b%=255
�$(b%+4)=err$+�0
6ș "Wimp_ReportError",b%,3,appname$ � ,err_result%
b%-=256
�
&:
0��closedown
:	� � �
D%ș "MessageTrans_CloseFile",help%
N2ș "Tempest_ReduceFontArray",0,font_array%,tb%
X+: � loses all fonts in window and menus
bș "Tempest_MiscOp",10,,tb%
lș "Wimp_CloseDown"
v�
�:
�:
�:******************* I/O
�:
�:
�
��io_init
�� alert_block% 200
� alert_block%!0=alert_handle%
�alert_block%!4=0
�alert_block%!8=0
�alert_block%!12=0
�alert_block%!16=0
�
+save_string%=�gettextmem(savehandle%,1)

_d_move%=1 : _d_save%=2
 drag_type%=-1
*�
4:
>:
H��setpiece(square%,type%)
Rboard%?square%=type%
\!� type%<0 � type%>3 � type%=3
fSș "Tempest_SetIconText",mainhandle%,first_square%+square%,tb%,"piece"+�(type%)
p�
z:
�:
���redrawall
�� index%=1 � 24
�%  �setpiece(index%,board%?index%)
��
��
�:
�:
�:
���show_move
�� w$, x$
�Ȏ move_type% �
�*  � _pound% : w$="Pound" : x$="piece3"
	1  � _move% : w$="Move" : x$="piece"+�to_play%
	3  � _place% : w$="Place" : x$="piece"+�to_play%
	)  � _nomove% : w$="Game Over" : x$=""
	$#   : � 255,"Unknown move type"
	.�
	82ș "Tempest_SetIconText",mainhandle%,33,tb%,w$
	B2ș "Tempest_SetIconText",mainhandle%,41,tb%,x$
	L�
	V:
	`:
	jݤgenalert(str$)
	t� w%,B%,C%
	~
$pb%=str$
	�Gș "Tempest_GeneralAlert",&10021,alert_block%,tb%,!pb%,0 � w%,B%,C%
	�� w%
	�=tb%!48
	�:
	���genalert(str$)
	�� �genalert(str$)
	��
	�:
	�:
	�ݤgettextmem(pb%!0,pb%!4)
	�'ș "Tempest_GetEntityInfo",,pb%,tb%
	�=tb%!44
:

ݤreadonoff(pb%!0,pb%!4)
ș "Wimp_GetIconState",,pb%
=((pb%!24 � (1<<21))>0)
(:
2:
<��setonoff(A%,B%,state%)
F&� state% � state%=1<<21 � state%=0
P4ș "Tempest_SetIconState",A%,B%,tb%,state%,1<<21
Z�
d:
n:
x:
�:
�:
���openoptions
�0�setonoff(optionhandle%,6,player%(1)=_comp%)
�0�setonoff(optionhandle%,7,player%(2)=_comp%)
�
�level%=real_level%
��show_level
�
�?!pb%=optionhandle%:ș "Tempest_ShowWindow",&33511,pb%,tb%,0
��
�:
���optionclick(icon%)
Ȏ icon% �
)  � 11 : �tickonly(levelmenu%,level%)
]  ș "Tempest_ShowMenu",6,0,tb%,levelmenu%,optionhandle%,11 : � generate icon pop-up menu
"  � 13 : �options_ok
,�
6�
@:
J:
T��options_ok
^player%()=_human%
h5� �readonoff(optionhandle%,6) � player%(1)=_comp%
r5� �readonoff(optionhandle%,7) � player%(2)=_comp%
|real_level%=level%
��updatelevel
�
�4� player%(to_play%)=_comp% � need_think%=� : � M
�8!pb%=optionhandle%:ș "Tempest_CloseWindow",,pb%,tb%
��
�:
�:
�:
���show_level
�Pș "Tempest_SetIconText",optionhandle%,10,tb%,�gettextmem(levelmenu%,level%)
��
�:
���setlevel(new%)
level%=new%
�tickonly(levelmenu%,new%)
�show_level
&�
0:
::
D��tickonly(m%,i%)
NRș "Tempest_MenuOp",0,,tb%,m%,i%,0,255 : � both ticks and unticks as necessary
X�
b:
l��save_ack
v*� b%!20=1 � $save_string%=�zero(b%+28)
��
�:
�:
���save_click
�Ȏ b%!16 �
�/  � 0 : ș "Tempest_DragAnIcon",0,b%+12,tb%
�  drag_type%=_d_save%
�K  � 2 : ș "XTempest_SaveButton",save_string%,0,tb%,100,&4E � w%;flags%
�*  � flags% � 1 � �error(�zero(w%+4)):�
��
��
�:
�:

��save_drag

Pș "XTempest_StartSaveSequence",save_string%,b%+32,tb%,100,&4E � w% ; flags%

(� flags% � 1 � �error(�zero(w%+4)):�

 �

*:

4:

>��preparedata

Hboard%!32=to_play%

Rboard%!36=player%(1)

\board%!40=player%(2)

fboard%!44=real_level%

p

zboard%!52=move_result%

�board%!56=move_type%

�board%!60=turn%

�board%!64=game_on%

�=ș "XTempest_DataIsReady",0,b%,tb%,board%,120 � w%;flags%

�(� flags% � 1 � �error(�zero(w%+4)):�

��

�

�:

���loadfile(name$)

�!�("Load "+name$+" "+�~board%)

�to_play%=board%!32

�player%(1)=board%!36

�player%(2)=board%!40
*real_level%=board%!44:level%=board%!44

move_result%=board%!52
$move_type%=board%!56
.turn%=board%!60
8game_on%=board%!64
B
L8!pb%=optionhandle%:ș "Tempest_CloseWindow",,pb%,tb%
V6!pb%=mainhandle%:ș "Tempest_ShowWindow",1,pb%,tb%
`�updatelevel
j�redrawall
t�show_move
~�
�:
���loadmessage
�� message% : message%=b%!16
�'� b%!4=taskhandle% � b%!40<>&4E � �
�0� message%=5 � ș "Tempest_MiscOp",20,b%,tb%
�� game_on% � turn%>1 �
�3  � �genalert("LODQ")=2 � loadok%=� � loadok%=�
��
�  loadok%=�
��
�� loadok% �
�  �loadfile(�zero(b%+44))
  � message%=3 �

!    !b%=20:b%!12=ref%:b%!16=4
)    ș "Wimp_SendMessage",17,b%,from%
  �
(�
2�
<:
F
P
Z
�

00000000  0d 00 0a 05 f4 0d 00 14  16 f4 20 50 72 6f 67 72  |.......... Progr|
00000010  61 6d 20 20 2d 20 20 4d  69 6c 6c 0d 00 1e 23 f4  |am  -  Mill...#.|
00000020  20 41 75 74 68 6f 72 20  20 20 2d 20 20 53 74 75  | Author   -  Stu|
00000030  61 72 74 20 57 68 69 74  65 68 6f 75 73 65 0d 00  |art Whitehouse..|
00000040  28 05 f4 0d 00 32 05 f4  0d 00 3c 0c f2 73 74 61  |(....2....<..sta|
00000050  72 74 75 70 0d 00 46 0e  f2 70 6f 6c 6c 5f 6c 6f  |rtup..F..poll_lo|
00000060  6f 70 0d 00 50 0e f2 63  6c 6f 73 65 64 6f 77 6e  |op..P..closedown|
00000070  0d 00 5a 05 e0 0d 00 64  05 3a 0d 00 6e 2d 3a 20  |..Z....d.:..n-: |
00000080  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 2a  |               *|
00000090  2a 2a 20 73 74 61 72 74  75 70 20 73 65 71 75 65  |** startup seque|
000000a0  6e 63 65 20 2a 2a 2a 0d  00 78 05 3a 0d 00 82 0d  |nce ***..x.:....|
000000b0  dd f2 73 74 61 72 74 75  70 0d 00 8c 18 c8 9b 20  |..startup...... |
000000c0  22 3c 4f 62 65 79 24 44  69 72 3e 2e 4d 69 6c 6c  |"<Obey$Dir>.Mill|
000000d0  22 0d 00 96 25 61 70 70  6e 61 6d 65 24 3d 22 4d  |"...%appname$="M|
000000e0  69 6c 6c 22 3a 69 6e 64  69 72 5f 73 69 7a 65 25  |ill":indir_size%|
000000f0  3d 36 30 30 30 30 0d 00  a0 04 0d 00 aa 42 de 20  |=60000.......B. |
00000100  62 25 20 32 34 30 30 2c  20 74 62 25 20 32 30 34  |b% 2400, tb% 204|
00000110  38 2c 20 69 6e 64 69 72  65 63 74 25 20 69 6e 64  |8, indirect% ind|
00000120  69 72 5f 73 69 7a 65 25  2c 20 74 65 6d 70 25 20  |ir_size%, temp% |
00000130  34 34 3a 70 62 25 3d 74  65 6d 70 25 0d 00 b4 15  |44:pb%=temp%....|
00000140  de 20 66 6f 6e 74 5f 61  72 72 61 79 25 20 32 35  |. font_array% 25|
00000150  36 0d 00 be 23 e3 20 77  25 3d 30 20 b8 20 32 35  |6...#. w%=0 . 25|
00000160  35 3a 66 6f 6e 74 5f 61  72 72 61 79 25 3f 77 25  |5:font_array%?w%|
00000170  3d 30 3a ed 0d 00 c8 04  0d 00 d2 54 ee 20 85 20  |=0:........T. . |
00000180  ee 20 85 20 87 3a f2 65  72 72 6f 72 28 22 43 61  |. . .:.error("Ca|
00000190  6e 27 74 20 73 74 61 72  74 20 22 2b 61 70 70 6e  |n't start "+appn|
000001a0  61 6d 65 24 2b 22 20 2d  20 22 2b f6 24 2b 22 20  |ame$+" - "+.$+" |
000001b0  61 74 20 6c 69 6e 65 20  22 2b c3 28 9e 29 29 3a  |at line "+.(.)):|
000001c0  f2 63 6c 6f 73 65 64 6f  77 6e 3a e0 0d 00 dc 04  |.closedown:.....|
000001d0  0d 00 e6 11 de 20 77 25  20 34 3a 77 25 21 30 3d  |..... w% 4:w%!0=|
000001e0  30 0d 00 f0 41 c8 99 20  22 57 69 6d 70 5f 49 6e  |0...A.. "Wimp_In|
000001f0  69 74 69 61 6c 69 73 65  22 2c 33 31 30 2c 26 34  |itialise",310,&4|
00000200  42 35 33 34 31 35 34 2c  61 70 70 6e 61 6d 65 24  |B534154,appname$|
00000210  2c 77 25 20 b8 20 2c 74  61 73 6b 68 61 6e 64 6c  |,w% . ,taskhandl|
00000220  65 25 0d 00 fa 04 0d 01  04 35 c8 99 20 22 54 65  |e%.......5.. "Te|
00000230  6d 70 65 73 74 5f 48 65  6c 6c 6f 22 2c 2c 34 2b  |mpest_Hello",,4+|
00000240  31 36 2b 33 32 2b 32 35  36 2c 74 62 25 2c 32 30  |16+32+256,tb%,20|
00000250  34 38 2c 61 70 70 6e 61  6d 65 24 0d 01 0e 28 c8  |48,appname$...(.|
00000260  99 20 22 54 65 6d 70 65  73 74 5f 4d 69 73 63 4f  |. "Tempest_MiscO|
00000270  70 22 2c 31 31 2c 22 22  2c 74 62 25 2c 22 49 42  |p",11,"",tb%,"IB|
00000280  41 52 22 0d 01 18 42 3a  20 f4 20 69 6e 73 74 61  |AR"...B: . insta|
00000290  6c 6c 73 20 69 2d 62 61  72 20 69 63 6f 6e 20 22  |lls i-bar icon "|
000002a0  21 3c 61 70 70 6e 61 6d  65 24 3e 22 2c 20 77 69  |!<appname$>", wi|
000002b0  74 68 20 69 2e 61 63 74  69 76 65 20 68 65 6c 70  |th i.active help|
000002c0  20 49 42 41 52 0d 01 22  04 0d 01 2c 40 f4 20 6c  | IBAR.."...,@. l|
000002d0  6f 61 64 20 74 65 6d 70  6c 61 74 65 73 20 2d 20  |oad templates - |
000002e0  73 70 72 69 74 65 20 6c  69 6e 6b 20 66 69 72 73  |sprite link firs|
000002f0  74 3b 20 77 69 6e 64 6f  77 73 3b 20 6d 65 6e 75  |t; windows; menu|
00000300  73 3b 20 49 2d 68 65 6c  70 0d 01 36 3c f4 20 61  |s; I-help..6<. a|
00000310  6c 6c 20 74 68 69 73 20  69 73 20 6c 6f 61 64 65  |ll this is loade|
00000320  64 20 69 6e 74 6f 20 69  6e 64 69 72 65 63 74 25  |d into indirect%|
00000330  20 28 69 6e 63 2e 20 57  69 6e 53 70 72 73 2c 20  | (inc. WinSprs, |
00000340  54 65 78 74 29 0d 01 40  47 f4 20 77 69 6e 64 6f  |Text)..@G. windo|
00000350  77 73 20 2d 20 6d 6f 64  75 6c 65 20 63 61 6c 6c  |ws - module call|
00000360  73 20 57 69 6d 70 5f 43  72 65 61 74 65 57 69 6e  |s Wimp_CreateWin|
00000370  64 6f 77 2c 20 26 20 73  65 74 73 20 74 68 65 20  |dow, & sets the |
00000380  73 70 72 69 74 65 20 61  72 65 61 73 0d 01 4a 27  |sprite areas..J'|
00000390  f4 20 61 6e 64 20 74 68  65 20 69 63 6f 6e 20 73  |. and the icon s|
000003a0  70 72 69 74 65 20 61 72  65 61 73 20 61 73 20 77  |prite areas as w|
000003b0  65 6c 6c 0d 01 54 04 0d  01 5e 4e c8 99 20 22 54  |ell..T...^N.. "T|
000003c0  65 6d 70 65 73 74 5f 52  65 67 69 73 74 65 72 49  |empest_RegisterI|
000003d0  6e 64 69 72 65 63 74 41  72 65 61 22 2c 69 6e 64  |ndirectArea",ind|
000003e0  69 72 65 63 74 25 2c 69  6e 64 69 72 65 63 74 25  |irect%,indirect%|
000003f0  2b 69 6e 64 69 72 5f 73  69 7a 65 25 2c 74 62 25  |+indir_size%,tb%|
00000400  2c 32 34 30 30 0d 01 68  36 c8 99 20 22 54 65 6d  |,2400..h6.. "Tem|
00000410  70 65 73 74 5f 4f 70 65  6e 46 69 6c 65 22 2c 22  |pest_OpenFile","|
00000420  3c 4f 62 65 79 24 44 69  72 3e 2e 54 65 6d 70 6c  |<Obey$Dir>.Templ|
00000430  61 74 65 73 22 2c 30 2c  74 62 25 0d 01 72 3d c8  |ates",0,tb%..r=.|
00000440  99 20 22 54 65 6d 70 65  73 74 5f 4c 6f 61 64 4f  |. "Tempest_LoadO|
00000450  62 6a 65 63 74 22 2c 22  53 70 72 69 74 65 4c 69  |bject","SpriteLi|
00000460  6e 6b 22 2c 62 25 2c 74  62 25 2c 2d 31 20 b8 20  |nk",b%,tb%,-1 . |
00000470  73 70 72 69 74 65 73 25  0d 01 7c 04 0d 01 86 46  |sprites%..|....F|
00000480  c8 99 20 22 54 65 6d 70  65 73 74 5f 4c 6f 61 64  |.. "Tempest_Load|
00000490  4f 62 6a 65 63 74 22 2c  22 49 63 6f 6e 42 61 72  |Object","IconBar|
000004a0  22 2c 62 25 2c 74 62 25  2c 66 6f 6e 74 5f 61 72  |",b%,tb%,font_ar|
000004b0  72 61 79 25 2c 30 20 b8  20 69 62 61 72 6d 65 6e  |ray%,0 . ibarmen|
000004c0  75 25 0d 01 90 47 c8 99  20 22 54 65 6d 70 65 73  |u%...G.. "Tempes|
000004d0  74 5f 4c 6f 61 64 4f 62  6a 65 63 74 22 2c 22 4d  |t_LoadObject","M|
000004e0  61 69 6e 4d 65 6e 75 22  2c 62 25 2c 74 62 25 2c  |ainMenu",b%,tb%,|
000004f0  66 6f 6e 74 5f 61 72 72  61 79 25 2c 30 20 b8 20  |font_array%,0 . |
00000500  6d 61 69 6e 6d 65 6e 75  25 0d 01 9a 49 c8 99 20  |mainmenu%...I.. |
00000510  22 54 65 6d 70 65 73 74  5f 4c 6f 61 64 4f 62 6a  |"Tempest_LoadObj|
00000520  65 63 74 22 2c 22 4c 65  76 65 6c 4d 65 6e 75 22  |ect","LevelMenu"|
00000530  2c 62 25 2c 74 62 25 2c  66 6f 6e 74 5f 61 72 72  |,b%,tb%,font_arr|
00000540  61 79 25 2c 30 20 b8 20  6c 65 76 65 6c 6d 65 6e  |ay%,0 . levelmen|
00000550  75 25 0d 01 a4 04 0d 01  ae 49 c8 99 20 22 54 65  |u%.......I.. "Te|
00000560  6d 70 65 73 74 5f 4c 6f  61 64 4f 62 6a 65 63 74  |mpest_LoadObject|
00000570  22 2c 22 50 72 6f 67 49  6e 66 6f 22 2c 62 25 2c  |","ProgInfo",b%,|
00000580  74 62 25 2c 66 6f 6e 74  5f 61 72 72 61 79 25 2c  |tb%,font_array%,|
00000590  30 20 b8 20 69 6e 66 6f  68 61 6e 64 6c 65 25 0d  |0 . infohandle%.|
000005a0  01 b8 4b c8 99 20 22 54  65 6d 70 65 73 74 5f 4c  |..K.. "Tempest_L|
000005b0  6f 61 64 4f 62 6a 65 63  74 22 2c 22 4d 61 69 6e  |oadObject","Main|
000005c0  57 69 6e 64 6f 77 22 2c  62 25 2c 74 62 25 2c 66  |Window",b%,tb%,f|
000005d0  6f 6e 74 5f 61 72 72 61  79 25 2c 30 20 b8 20 6d  |ont_array%,0 . m|
000005e0  61 69 6e 68 61 6e 64 6c  65 25 0d 01 c2 4b c8 99  |ainhandle%...K..|
000005f0  20 22 54 65 6d 70 65 73  74 5f 4c 6f 61 64 4f 62  | "Tempest_LoadOb|
00000600  6a 65 63 74 22 2c 22 47  65 6e 41 6c 65 72 74 22  |ject","GenAlert"|
00000610  2c 62 25 2c 74 62 25 2c  66 6f 6e 74 5f 61 72 72  |,b%,tb%,font_arr|
00000620  61 79 25 2c 30 20 b8 20  61 6c 65 72 74 5f 68 61  |ay%,0 . alert_ha|
00000630  6e 64 6c 65 25 0d 01 cc  4a c8 99 20 22 54 65 6d  |ndle%...J.. "Tem|
00000640  70 65 73 74 5f 4c 6f 61  64 4f 62 6a 65 63 74 22  |pest_LoadObject"|
00000650  2c 22 4f 70 74 69 6f 6e  73 22 2c 62 25 2c 74 62  |,"Options",b%,tb|
00000660  25 2c 66 6f 6e 74 5f 61  72 72 61 79 25 2c 30 20  |%,font_array%,0 |
00000670  b8 20 6f 70 74 69 6f 6e  68 61 6e 64 6c 65 25 0d  |. optionhandle%.|
00000680  01 d6 48 c8 99 20 22 54  65 6d 70 65 73 74 5f 4c  |..H.. "Tempest_L|
00000690  6f 61 64 4f 62 6a 65 63  74 22 2c 22 53 61 76 65  |oadObject","Save|
000006a0  42 6f 78 22 2c 62 25 2c  74 62 25 2c 66 6f 6e 74  |Box",b%,tb%,font|
000006b0  5f 61 72 72 61 79 25 2c  30 20 b8 20 73 61 76 65  |_array%,0 . save|
000006c0  68 61 6e 64 6c 65 25 0d  01 e0 04 0d 01 ea 3a c8  |handle%.......:.|
000006d0  99 20 22 54 65 6d 70 65  73 74 5f 4c 6f 61 64 4f  |. "Tempest_LoadO|
000006e0  62 6a 65 63 74 22 2c 22  48 65 6c 70 54 65 78 74  |bject","HelpText|
000006f0  22 2c 62 25 2c 74 62 25  2c 2d 31 2c 30 20 b8 20  |",b%,tb%,-1,0 . |
00000700  68 65 6c 70 25 0d 01 f4  37 f4 20 6c 6f 61 64 20  |help%...7. load |
00000710  74 65 78 74 20 66 69 6c  65 2c 20 61 6e 64 20 69  |text file, and i|
00000720  6e 73 74 61 6c 6c 20 66  6f 72 20 69 6e 74 65 72  |nstall for inter|
00000730  61 63 74 69 76 65 20 68  65 6c 70 2e 0d 01 fe 04  |active help.....|
00000740  0d 02 08 20 c8 99 20 22  54 65 6d 70 65 73 74 5f  |... .. "Tempest_|
00000750  43 6c 6f 73 65 46 69 6c  65 22 2c 2c 2c 74 62 25  |CloseFile",,,tb%|
00000760  0d 02 12 21 c8 99 20 22  54 65 6d 70 65 73 74 5f  |...!.. "Tempest_|
00000770  4c 69 6e 6b 4d 65 6e 75  73 22 2c 2c 30 2c 74 62  |LinkMenus",,0,tb|
00000780  25 0d 02 1c 04 0d 02 26  0e f2 6d 69 6c 6c 73 74  |%......&..millst|
00000790  61 72 74 0d 02 30 0c f2  69 6f 5f 69 6e 69 74 0d  |art..0..io_init.|
000007a0  02 3a 0d f2 63 6f 64 65  76 61 72 73 0d 02 44 0a  |.:..codevars..D.|
000007b0  f2 61 73 73 65 6d 0d 02  4e 10 f2 75 70 64 61 74  |.assem..N..updat|
000007c0  65 6c 65 76 65 6c 0d 02  58 0c f2 6e 65 77 67 61  |elevel..X..newga|
000007d0  6d 65 0d 02 62 05 e1 0d  02 6c 05 3a 0d 02 76 05  |me..b....l.:..v.|
000007e0  3a 0d 02 80 26 3a 20 20  20 20 20 20 20 20 20 20  |:...&:          |
000007f0  20 20 20 20 20 20 2a 2a  2a 20 77 69 6d 70 20 70  |      *** wimp p|
00000800  6f 6c 6c 20 2a 2a 2a 0d  02 8a 05 3a 0d 02 94 05  |oll ***....:....|
00000810  3a 0d 02 9e 0f dd f2 70  6f 6c 6c 5f 6c 6f 6f 70  |:......poll_loop|
00000820  0d 02 a8 74 ee 20 85 20  ea 20 f2 65 72 72 6f 72  |...t. . . .error|
00000830  28 22 45 72 72 6f 72 20  69 6e 20 22 2b 61 70 70  |("Error in "+app|
00000840  6e 61 6d 65 24 2b 22 20  2d 20 22 2b f6 24 2b 22  |name$+" - "+.$+"|
00000850  20 5b 22 2b c3 9e 2b 22  5d 20 20 4f 4b 3d 43 6f  | ["+..+"]  OK=Co|
00000860  6e 74 69 6e 75 65 2f 43  61 6e 63 65 6c 3d 51 75  |ntinue/Cancel=Qu|
00000870  69 74 22 29 3a e7 20 65  72 72 5f 72 65 73 75 6c  |it"):. err_resul|
00000880  74 25 3c 3e 31 20 8c 20  f2 63 6c 6f 73 65 64 6f  |t%<>1 . .closedo|
00000890  77 6e 3a e0 0d 02 b2 0b  71 75 69 74 25 3d a3 0d  |wn:.....quit%=..|
000008a0  02 bc 05 f5 0d 02 c6 32  20 20 c8 99 20 22 57 69  |.......2  .. "Wi|
000008b0  6d 70 5f 50 6f 6c 6c 22  2c 26 33 38 33 30 20 80  |mp_Poll",&3830 .|
000008c0  20 74 62 25 21 31 30 30  30 2c 62 25 20 b8 20 72  | tb%!1000,b% . r|
000008d0  65 61 73 6f 6e 25 0d 02  d0 36 20 20 c8 99 20 22  |eason%...6  .. "|
000008e0  54 65 6d 70 65 73 74 5f  50 72 65 50 72 6f 63 65  |Tempest_PreProce|
000008f0  73 73 22 2c 72 65 61 73  6f 6e 25 2c 62 25 2c 74  |ss",reason%,b%,t|
00000900  62 25 20 b8 20 72 65 61  73 6f 6e 25 0d 02 da 12  |b% . reason%....|
00000910  20 20 c8 8e 20 72 65 61  73 6f 6e 25 20 ca 0d 02  |  .. reason% ...|
00000920  e4 35 20 20 20 20 c9 20  30 20 3a 20 e7 20 70 6c  |.5    . 0 : . pl|
00000930  61 79 65 72 25 28 74 6f  5f 70 6c 61 79 25 29 3d  |ayer%(to_play%)=|
00000940  5f 63 6f 6d 70 25 20 8c  20 f2 63 6f 6d 70 5f 6d  |_comp% . .comp_m|
00000950  6f 76 65 0d 02 ee 2d 20  20 20 20 c9 20 32 20 3a  |ove...-    . 2 :|
00000960  20 c8 99 20 22 54 65 6d  70 65 73 74 5f 4f 70 65  | .. "Tempest_Ope|
00000970  6e 57 69 6e 64 6f 77 22  2c 2c 62 25 2c 74 62 25  |nWindow",,b%,tb%|
00000980  0d 02 f8 2e 20 20 20 20  c9 20 33 20 3a 20 c8 99  |....    . 3 : ..|
00000990  20 22 54 65 6d 70 65 73  74 5f 43 6c 6f 73 65 57  | "Tempest_CloseW|
000009a0  69 6e 64 6f 77 22 2c 2c  62 25 2c 74 62 25 0d 03  |indow",,b%,tb%..|
000009b0  02 1a 20 20 20 20 c9 20  36 20 3a 20 f2 6d 6f 75  |..    . 6 : .mou|
000009c0  73 65 5f 63 6c 69 63 6b  0d 03 0c 17 20 20 20 20  |se_click....    |
000009d0  c9 20 37 20 3a 20 f2 64  72 61 67 5f 62 6f 78 0d  |. 7 : .drag_box.|
000009e0  03 16 19 20 20 20 20 c9  20 39 20 3a 20 f2 6d 65  |...    . 9 : .me|
000009f0  6e 75 73 65 6c 65 63 74  0d 03 20 1a 20 20 20 20  |nuselect.. .    |
00000a00  c9 20 31 37 2c 31 38 20  3a 20 f2 6d 65 73 73 61  |. 17,18 : .messa|
00000a10  67 65 0d 03 2a 07 20 20  cb 0d 03 34 0d fd 20 71  |ge..*.  ...4.. q|
00000a20  75 69 74 25 3d b9 0d 03  3e 05 e1 0d 03 48 05 3a  |uit%=...>....H.:|
00000a30  0d 03 52 05 3a 0d 03 5c  27 3a 20 20 20 20 20 20  |..R.:..\':      |
00000a40  20 20 20 20 20 20 20 20  20 2a 2a 2a 20 6d 6f 75  |         *** mou|
00000a50  73 65 20 63 6c 69 63 6b  20 2a 2a 2a 0d 03 66 05  |se click ***..f.|
00000a60  3a 0d 03 70 11 dd f2 6d  6f 75 73 65 5f 63 6c 69  |:..p...mouse_cli|
00000a70  63 6b 0d 03 7a 48 f4 20  62 25 21 31 32 20 3d 20  |ck..zH. b%!12 = |
00000a80  77 69 6e 64 6f 77 2c 20  62 25 21 38 20 3d 20 62  |window, b%!8 = b|
00000a90  75 74 74 6f 6e 20 73 74  61 74 65 20 28 74 62 25  |utton state (tb%|
00000aa0  21 30 20 69 73 20 75 6e  69 66 6f 72 6d 20 62 75  |!0 is uniform bu|
00000ab0  74 74 6f 6e 20 74 79 70  65 29 0d 03 84 04 0d 03  |tton type)......|
00000ac0  8e 0e c8 8e 20 62 25 21  31 32 20 ca 0d 03 98 05  |.... b%!12 .....|
00000ad0  20 0d 03 a2 25 20 20 c9  20 2d 32 20 3a 20 f4 20  | ...%  . -2 : . |
00000ae0  63 6c 69 63 6b 20 6f 6e  20 69 63 6f 6e 20 62 61  |click on icon ba|
00000af0  72 20 69 63 6f 6e 0d 03  ac 0f 20 20 c8 8e 20 62  |r icon....  .. b|
00000b00  25 21 38 20 ca 0d 03 b6  24 20 20 20 20 c9 20 31  |%!8 ....$    . 1|
00000b10  20 3a 20 f4 20 50 52 4f  43 67 65 6e 61 6c 65 72  | : . PROCgenaler|
00000b20  74 28 22 54 45 53 54 22  29 0d 03 c0 34 20 20 20  |t("TEST")...4   |
00000b30  20 c9 20 32 20 3a 20 c8  99 20 22 54 65 6d 70 65  | . 2 : .. "Tempe|
00000b40  73 74 5f 53 68 6f 77 4d  65 6e 75 22 2c 30 2c 2c  |st_ShowMenu",0,,|
00000b50  74 62 25 2c 69 62 61 72  6d 65 6e 75 25 0d 03 ca  |tb%,ibarmenu%...|
00000b60  20 20 20 20 20 c9 20 34  20 3a 20 21 74 65 6d 70  |     . 4 : !temp|
00000b70  25 3d 6d 61 69 6e 68 61  6e 64 6c 65 25 0d 03 d4  |%=mainhandle%...|
00000b80  3d 20 20 20 20 c8 99 20  22 54 65 6d 70 65 73 74  |=    .. "Tempest|
00000b90  5f 53 68 6f 77 57 69 6e  64 6f 77 22 2c 31 2c 74  |_ShowWindow",1,t|
00000ba0  65 6d 70 25 2c 74 62 25  20 3a 20 f4 20 6f 70 65  |emp%,tb% : . ope|
00000bb0  6e 20 74 6f 20 66 72 6f  6e 74 0d 03 de 07 20 20  |n to front....  |
00000bc0  cb 0d 03 e8 05 20 0d 03  f2 2c 20 20 c9 20 6d 61  |..... ...,  . ma|
00000bd0  69 6e 68 61 6e 64 6c 65  25 20 3a 20 f4 20 63 6c  |inhandle% : . cl|
00000be0  69 63 6b 20 6f 6e 20 6d  61 69 6e 20 77 69 6e 64  |ick on main wind|
00000bf0  6f 77 0d 03 fc 10 20 20  c8 8e 20 74 62 25 21 30  |ow....  .. tb%!0|
00000c00  20 ca 0d 04 06 25 20 20  20 20 3a 20 f4 20 75 73  | ....%    : . us|
00000c10  69 6e 67 20 74 65 6d 70  65 73 74 20 62 75 74 74  |ing tempest butt|
00000c20  6f 6e 20 74 79 70 65 0d  04 10 44 20 20 20 20 c9  |on type...D    .|
00000c30  20 32 20 3a 20 c8 99 20  22 54 65 6d 70 65 73 74  | 2 : .. "Tempest|
00000c40  5f 53 68 6f 77 4d 65 6e  75 22 2c 31 2c 2c 74 62  |_ShowMenu",1,,tb|
00000c50  25 2c 6d 61 69 6e 6d 65  6e 75 25 20 3a 20 f4 20  |%,mainmenu% : . |
00000c60  70 6f 70 2d 75 70 20 6d  65 6e 75 0d 04 1a 43 20  |pop-up menu...C |
00000c70  20 20 20 c9 20 31 2c 34  2c 31 36 2c 36 34 20 3a  |   . 1,4,16,64 :|
00000c80  20 f2 6d 69 6c 6c 63 6c  69 63 6b 28 62 25 21 31  | .millclick(b%!1|
00000c90  36 2d 66 69 72 73 74 5f  73 71 75 61 72 65 25 2c  |6-first_square%,|
00000ca0  74 62 25 21 30 29 20 3a  f4 20 6d 69 6c 6c 0d 04  |tb%!0) :. mill..|
00000cb0  24 07 20 20 cb 0d 04 2e  05 20 0d 04 38 21 20 20  |$.  ..... ..8!  |
00000cc0  c9 20 73 61 76 65 68 61  6e 64 6c 65 25 20 3a 20  |. savehandle% : |
00000cd0  f2 73 61 76 65 5f 63 6c  69 63 6b 0d 04 42 05 20  |.save_click..B. |
00000ce0  0d 04 4c 2b 20 20 c9 20  6f 70 74 69 6f 6e 68 61  |..L+  . optionha|
00000cf0  6e 64 6c 65 25 20 3a 20  f2 6f 70 74 69 6f 6e 63  |ndle% : .optionc|
00000d00  6c 69 63 6b 28 62 25 21  31 36 29 0d 04 56 05 cb  |lick(b%!16)..V..|
00000d10  0d 04 60 05 e1 0d 04 6a  05 3a 0d 04 74 2a 3a 20  |..`....j.:..t*: |
00000d20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000d30  20 2a 2a 2a 20 6d 65 6e  75 20 73 65 6c 65 63 74  | *** menu select|
00000d40  20 2a 2a 2a 0d 04 7e 05  3a 0d 04 88 2f dd f2 6d  | ***..~.:.../..m|
00000d50  65 6e 75 73 65 6c 65 63  74 20 3a 20 f4 20 74 62  |enuselect : . tb|
00000d60  25 21 38 20 69 73 20 6c  61 73 74 20 6d 65 6e 75  |%!8 is last menu|
00000d70  20 63 72 65 61 74 65 64  0d 04 92 0e c8 8e 20 74  | created...... t|
00000d80  62 25 21 38 20 ca 0d 04  9c 05 20 0d 04 a6 13 20  |b%!8 ..... .... |
00000d90  20 c9 20 69 62 61 72 6d  65 6e 75 25 20 3a 0d 04  | . ibarmenu% :..|
00000da0  b0 0f 20 20 c8 8e 20 62  25 21 30 20 ca 0d 04 ba  |..  .. b%!0 ....|
00000db0  36 20 20 20 20 c9 20 30  20 3a 20 c8 99 20 22 54  |6    . 0 : .. "T|
00000dc0  65 6d 70 65 73 74 5f 53  68 6f 77 4d 65 6e 75 22  |empest_ShowMenu"|
00000dd0  2c 31 2c 2c 74 62 25 2c  69 6e 66 6f 68 61 6e 64  |,1,,tb%,infohand|
00000de0  6c 65 25 0d 04 c4 1a 20  20 20 20 c9 20 31 20 3a  |le%....    . 1 :|
00000df0  20 f2 6f 70 65 6e 6f 70  74 69 6f 6e 73 0d 04 ce  | .openoptions...|
00000e00  34 20 20 20 20 c9 20 32  20 3a 20 2a 53 45 54 20  |4    . 2 : *SET |
00000e10  42 72 6f 77 7a 65 72 24  48 65 6c 70 46 69 6c 65  |Browzer$HelpFile|
00000e20  20 3c 4d 69 6c 6c 24 44  69 72 3e 2e 49 6e 73 74  | <Mill$Dir>.Inst|
00000e30  72 0d 04 d8 25 20 20 20  20 2a 46 69 6c 65 72 5f  |r...%    *Filer_|
00000e40  52 75 6e 20 3c 42 72 6f  77 7a 65 72 24 44 69 72  |Run <Browzer$Dir|
00000e50  3e 2e 21 52 75 6e 0d 04  e2 15 20 20 20 20 c9 20  |>.!Run....    . |
00000e60  33 20 3a 20 71 75 69 74  25 3d b9 0d 04 ec 07 20  |3 : quit%=..... |
00000e70  20 cb 0d 04 f6 05 20 0d  05 00 13 20 20 c9 20 6d  | ..... ....  . m|
00000e80  61 69 6e 6d 65 6e 75 25  20 3a 0d 05 0a 0f 20 20  |ainmenu% :....  |
00000e90  c8 8e 20 62 25 21 30 20  ca 0d 05 14 45 20 20 20  |.. b%!0 ....E   |
00000ea0  20 c9 20 30 20 3a 20 e7  20 67 61 6d 65 5f 6f 6e  | . 0 : . game_on|
00000eb0  25 20 80 20 74 75 72 6e  25 3e 31 20 8c 20 e7 20  |% . turn%>1 . . |
00000ec0  a4 67 65 6e 61 6c 65 72  74 28 22 4e 47 4d 51 22  |.genalert("NGMQ"|
00000ed0  29 3d 32 20 8b 20 f2 6e  65 77 67 61 6d 65 0d 05  |)=2 . .newgame..|
00000ee0  1e 1a 20 20 20 20 c9 20  31 20 3a 20 f2 6f 70 65  |..    . 1 : .ope|
00000ef0  6e 6f 70 74 69 6f 6e 73  0d 05 28 07 20 20 cb 0d  |noptions..(.  ..|
00000f00  05 32 05 20 0d 05 3c 14  20 20 c9 20 6c 65 76 65  |.2. ..<.  . leve|
00000f10  6c 6d 65 6e 75 25 20 3a  0d 05 46 2a 20 20 e7 20  |lmenu% :..F*  . |
00000f20  62 25 21 30 3d 39 20 8c  20 e7 20 a4 67 65 6e 61  |b%!0=9 . . .gena|
00000f30  6c 65 72 74 28 22 44 49  41 51 22 29 3d 32 20 8c  |lert("DIAQ")=2 .|
00000f40  20 e1 0d 05 50 15 20 20  f2 73 65 74 6c 65 76 65  | ...P.  .setleve|
00000f50  6c 28 62 25 21 30 29 0d  05 5a 05 20 0d 05 64 05  |l(b%!0)..Z. ..d.|
00000f60  cb 0d 05 6e 45 c8 99 20  22 54 65 6d 70 65 73 74  |...nE.. "Tempest|
00000f70  5f 53 68 6f 77 4d 65 6e  75 22 2c 37 2c 2c 74 62  |_ShowMenu",7,,tb|
00000f80  25 2c 30 20 3a 20 f4 20  72 65 64 69 73 70 6c 61  |%,0 : . redispla|
00000f90  79 73 20 6c 61 73 74 20  6d 65 6e 75 20 6f 6e 20  |ys last menu on |
00000fa0  41 44 4a 55 53 54 0d 05  78 05 e1 0d 05 82 05 3a  |ADJUST..x......:|
00000fb0  0d 05 8c 26 3a 20 20 20  20 20 20 20 20 20 20 20  |...&:           |
00000fc0  20 20 20 20 20 20 2a 2a  2a 20 64 72 61 67 2d 62  |      *** drag-b|
00000fd0  6f 78 20 2a 2a 2a 0d 05  96 05 3a 0d 05 a0 0e dd  |ox ***....:.....|
00000fe0  f2 64 72 61 67 5f 62 6f  78 0d 05 aa 13 c8 8e 20  |.drag_box...... |
00000ff0  64 72 61 67 5f 74 79 70  65 25 20 ca 0d 05 b4 12  |drag_type% .....|
00001000  20 20 c9 20 5f 64 5f 6d  6f 76 65 25 20 3a 0d 05  |  . _d_move% :..|
00001010  be 0b 20 20 ea 20 73 71  25 0d 05 c8 23 20 20 c8  |..  . sq%...#  .|
00001020  99 20 22 57 69 6d 70 5f  47 65 74 50 6f 69 6e 74  |. "Wimp_GetPoint|
00001030  65 72 49 6e 66 6f 22 2c  2c 70 62 25 0d 05 d2 1f  |erInfo",,pb%....|
00001040  20 20 e7 20 70 62 25 21  31 32 3c 3e 6d 61 69 6e  |  . pb%!12<>main|
00001050  68 61 6e 64 6c 65 25 20  8c 20 e1 0d 05 dc 1e 20  |handle% . ..... |
00001060  20 73 71 25 3d 70 62 25  21 31 36 2d 66 69 72 73  | sq%=pb%!16-firs|
00001070  74 5f 73 71 75 61 72 65  25 0d 05 e6 45 20 20 e7  |t_square%...E  .|
00001080  20 73 71 25 3e 3d 31 20  80 20 73 71 25 3c 3d 32  | sq%>=1 . sq%<=2|
00001090  34 20 80 20 70 6c 61 79  65 72 25 28 74 6f 5f 70  |4 . player%(to_p|
000010a0  6c 61 79 25 29 3d 5f 68  75 6d 61 6e 25 20 8c 20  |lay%)=_human% . |
000010b0  f2 6d 6f 76 65 5f 65 6e  64 28 73 71 25 29 0d 05  |.move_end(sq%)..|
000010c0  f0 12 20 20 c9 20 5f 64  5f 73 61 76 65 25 20 3a  |..  . _d_save% :|
000010d0  0d 05 fa 10 20 20 f2 73  61 76 65 5f 64 72 61 67  |....  .save_drag|
000010e0  0d 06 04 05 cb 0d 06 0e  05 e1 0d 06 18 05 3a 0d  |..............:.|
000010f0  06 22 26 3a 20 20 20 20  20 20 20 20 20 20 20 20  |."&:            |
00001100  20 20 20 20 20 2a 2a 2a  20 6d 65 73 73 61 67 65  |     *** message|
00001110  73 20 2a 2a 2a 0d 06 2c  05 3a 0d 06 36 0d dd f2  |s ***..,.:..6...|
00001120  6d 65 73 73 61 67 65 0d  06 40 0d ea 20 6c 6f 61  |message..@.. loa|
00001130  64 6f 6b 25 0d 06 4a 18  72 65 66 25 3d 62 25 21  |dok%..J.ref%=b%!|
00001140  38 3a 66 72 6f 6d 25 3d  62 25 21 34 0d 06 54 0e  |8:from%=b%!4..T.|
00001150  c8 8e 20 62 25 21 31 36  20 ca 0d 06 5e 13 20 20  |.. b%!16 ...^.  |
00001160  c9 20 30 20 3a 20 71 75  69 74 25 3d b9 0d 06 68  |. 0 : quit%=...h|
00001170  1a 20 20 c9 20 33 2c 35  20 3a 20 f2 6c 6f 61 64  |.  . 3,5 : .load|
00001180  6d 65 73 73 61 67 65 0d  06 72 26 20 20 c9 20 32  |message..r&  . 2|
00001190  2c 34 2c 31 30 2c 26 35  30 32 20 3a 20 f4 20 64  |,4,10,&502 : . d|
000011a0  6f 6e 65 20 62 79 20 6d  6f 64 75 6c 65 0d 06 7c  |one by module..||
000011b0  1a 20 20 c9 20 26 34 42  34 38 30 20 3a 20 f2 73  |.  . &4B480 : .s|
000011c0  61 76 65 5f 61 63 6b 0d  06 86 1d 20 20 c9 20 26  |ave_ack....  . &|
000011d0  34 42 34 38 31 20 3a 20  f2 70 72 65 70 61 72 65  |4B481 : .prepare|
000011e0  64 61 74 61 0d 06 90 05  cb 0d 06 9a 05 e1 0d 06  |data............|
000011f0  a4 05 3a 0d 06 ae 33 3a  20 20 20 20 20 20 20 20  |..:...3:        |
00001200  20 20 20 20 20 20 20 20  20 3c 3c 3c 20 65 6e 64  |         <<< end|
00001210  20 6f 66 20 70 6f 6c 6c  20 72 65 73 70 6f 6e 73  | of poll respons|
00001220  65 73 20 3e 3e 3e 0d 06  b8 34 3a 20 20 20 20 20  |es >>>...4:     |
00001230  20 20 20 20 20 20 20 20  20 20 20 20 2a 2a 2a 20  |            *** |
00001240  6d 69 73 63 65 6c 6c 61  6e 65 6f 75 73 20 72 6f  |miscellaneous ro|
00001250  75 74 69 6e 65 73 20 2a  2a 2a 0d 06 c2 05 3a 0d  |utines ***....:.|
00001260  06 cc 3a dd a4 7a 65 72  6f 28 41 25 29 3a ea 20  |..:..zero(A%):. |
00001270  77 24 3a 77 24 3d 22 22  3a c8 95 20 3f 41 25 3e  |w$:w$="":.. ?A%>|
00001280  31 33 3a 77 24 3d 77 24  2b bd 3f 41 25 3a 41 25  |13:w$=w$+.?A%:A%|
00001290  2b 3d 31 3a ce 3a 3d 77  24 0d 06 d6 05 3a 0d 06  |+=1:.:=w$....:..|
000012a0  e0 11 dd f2 65 72 72 6f  72 28 65 72 72 24 29 0d  |....error(err$).|
000012b0  06 ea 0b 62 25 2b 3d 32  35 36 0d 06 f4 0b 21 62  |...b%+=256....!b|
000012c0  25 3d 32 35 35 0d 06 fe  13 24 28 62 25 2b 34 29  |%=255....$(b%+4)|
000012d0  3d 65 72 72 24 2b bd 30  0d 07 08 36 c8 99 20 22  |=err$+.0...6.. "|
000012e0  57 69 6d 70 5f 52 65 70  6f 72 74 45 72 72 6f 72  |Wimp_ReportError|
000012f0  22 2c 62 25 2c 33 2c 61  70 70 6e 61 6d 65 24 20  |",b%,3,appname$ |
00001300  b8 20 2c 65 72 72 5f 72  65 73 75 6c 74 25 0d 07  |. ,err_result%..|
00001310  12 0b 62 25 2d 3d 32 35  36 0d 07 1c 05 e1 0d 07  |..b%-=256.......|
00001320  26 05 3a 0d 07 30 0f dd  f2 63 6c 6f 73 65 64 6f  |&.:..0...closedo|
00001330  77 6e 0d 07 3a 09 ee 20  85 20 87 0d 07 44 25 c8  |wn..:.. . ...D%.|
00001340  99 20 22 4d 65 73 73 61  67 65 54 72 61 6e 73 5f  |. "MessageTrans_|
00001350  43 6c 6f 73 65 46 69 6c  65 22 2c 68 65 6c 70 25  |CloseFile",help%|
00001360  0d 07 4e 32 c8 99 20 22  54 65 6d 70 65 73 74 5f  |..N2.. "Tempest_|
00001370  52 65 64 75 63 65 46 6f  6e 74 41 72 72 61 79 22  |ReduceFontArray"|
00001380  2c 30 2c 66 6f 6e 74 5f  61 72 72 61 79 25 2c 74  |,0,font_array%,t|
00001390  62 25 0d 07 58 2b 3a 20  f4 20 6c 6f 73 65 73 20  |b%..X+: . loses |
000013a0  61 6c 6c 20 66 6f 6e 74  73 20 69 6e 20 77 69 6e  |all fonts in win|
000013b0  64 6f 77 20 61 6e 64 20  6d 65 6e 75 73 0d 07 62  |dow and menus..b|
000013c0  1f c8 99 20 22 54 65 6d  70 65 73 74 5f 4d 69 73  |... "Tempest_Mis|
000013d0  63 4f 70 22 2c 31 30 2c  2c 74 62 25 0d 07 6c 17  |cOp",10,,tb%..l.|
000013e0  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |.. "Wimp_CloseDo|
000013f0  77 6e 22 0d 07 76 05 e1  0d 07 80 05 3a 0d 07 8a  |wn"..v......:...|
00001400  05 3a 0d 07 94 1c 3a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.:....:*********|
00001410  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 20 49 2f 4f 0d 07  |********** I/O..|
00001420  9e 05 3a 0d 07 a8 05 3a  0d 07 b2 0d dd f2 69 6f  |..:....:......io|
00001430  5f 69 6e 69 74 0d 07 bc  16 de 20 61 6c 65 72 74  |_init..... alert|
00001440  5f 62 6c 6f 63 6b 25 20  32 30 30 0d 07 c6 20 61  |_block% 200... a|
00001450  6c 65 72 74 5f 62 6c 6f  63 6b 25 21 30 3d 61 6c  |lert_block%!0=al|
00001460  65 72 74 5f 68 61 6e 64  6c 65 25 0d 07 d0 14 61  |ert_handle%....a|
00001470  6c 65 72 74 5f 62 6c 6f  63 6b 25 21 34 3d 30 0d  |lert_block%!4=0.|
00001480  07 da 14 61 6c 65 72 74  5f 62 6c 6f 63 6b 25 21  |...alert_block%!|
00001490  38 3d 30 0d 07 e4 15 61  6c 65 72 74 5f 62 6c 6f  |8=0....alert_blo|
000014a0  63 6b 25 21 31 32 3d 30  0d 07 ee 15 61 6c 65 72  |ck%!12=0....aler|
000014b0  74 5f 62 6c 6f 63 6b 25  21 31 36 3d 30 0d 07 f8  |t_block%!16=0...|
000014c0  04 0d 08 02 2b 73 61 76  65 5f 73 74 72 69 6e 67  |....+save_string|
000014d0  25 3d a4 67 65 74 74 65  78 74 6d 65 6d 28 73 61  |%=.gettextmem(sa|
000014e0  76 65 68 61 6e 64 6c 65  25 2c 31 29 0d 08 0c 04  |vehandle%,1)....|
000014f0  0d 08 16 1b 5f 64 5f 6d  6f 76 65 25 3d 31 20 3a  |...._d_move%=1 :|
00001500  20 5f 64 5f 73 61 76 65  25 3d 32 0d 08 20 11 64  | _d_save%=2.. .d|
00001510  72 61 67 5f 74 79 70 65  25 3d 2d 31 0d 08 2a 05  |rag_type%=-1..*.|
00001520  e1 0d 08 34 05 3a 0d 08  3e 05 3a 0d 08 48 1d dd  |...4.:..>.:..H..|
00001530  f2 73 65 74 70 69 65 63  65 28 73 71 75 61 72 65  |.setpiece(square|
00001540  25 2c 74 79 70 65 25 29  0d 08 52 18 62 6f 61 72  |%,type%)..R.boar|
00001550  64 25 3f 73 71 75 61 72  65 25 3d 74 79 70 65 25  |d%?square%=type%|
00001560  0d 08 5c 21 e7 20 74 79  70 65 25 3c 30 20 84 20  |..\!. type%<0 . |
00001570  74 79 70 65 25 3e 33 20  8c 20 74 79 70 65 25 3d  |type%>3 . type%=|
00001580  33 0d 08 66 53 c8 99 20  22 54 65 6d 70 65 73 74  |3..fS.. "Tempest|
00001590  5f 53 65 74 49 63 6f 6e  54 65 78 74 22 2c 6d 61  |_SetIconText",ma|
000015a0  69 6e 68 61 6e 64 6c 65  25 2c 66 69 72 73 74 5f  |inhandle%,first_|
000015b0  73 71 75 61 72 65 25 2b  73 71 75 61 72 65 25 2c  |square%+square%,|
000015c0  74 62 25 2c 22 70 69 65  63 65 22 2b c3 28 74 79  |tb%,"piece"+.(ty|
000015d0  70 65 25 29 0d 08 70 05  e1 0d 08 7a 05 3a 0d 08  |pe%)..p....z.:..|
000015e0  84 05 3a 0d 08 8e 0f dd  f2 72 65 64 72 61 77 61  |..:......redrawa|
000015f0  6c 6c 0d 08 98 13 e3 20  69 6e 64 65 78 25 3d 31  |ll..... index%=1|
00001600  20 b8 20 32 34 0d 08 a2  25 20 20 f2 73 65 74 70  | . 24...%  .setp|
00001610  69 65 63 65 28 69 6e 64  65 78 25 2c 62 6f 61 72  |iece(index%,boar|
00001620  64 25 3f 69 6e 64 65 78  25 29 0d 08 ac 05 ed 0d  |d%?index%)......|
00001630  08 b6 05 e1 0d 08 c0 05  3a 0d 08 ca 05 3a 0d 08  |........:....:..|
00001640  d4 05 3a 0d 08 de 0f dd  f2 73 68 6f 77 5f 6d 6f  |..:......show_mo|
00001650  76 65 0d 08 e8 0c ea 20  77 24 2c 20 78 24 0d 08  |ve..... w$, x$..|
00001660  f2 13 c8 8e 20 6d 6f 76  65 5f 74 79 70 65 25 20  |.... move_type% |
00001670  ca 0d 08 fc 2a 20 20 c9  20 5f 70 6f 75 6e 64 25  |....*  . _pound%|
00001680  20 3a 20 77 24 3d 22 50  6f 75 6e 64 22 20 3a 20  | : w$="Pound" : |
00001690  78 24 3d 22 70 69 65 63  65 33 22 0d 09 06 31 20  |x$="piece3"...1 |
000016a0  20 c9 20 5f 6d 6f 76 65  25 20 3a 20 77 24 3d 22  | . _move% : w$="|
000016b0  4d 6f 76 65 22 20 3a 20  78 24 3d 22 70 69 65 63  |Move" : x$="piec|
000016c0  65 22 2b c3 74 6f 5f 70  6c 61 79 25 0d 09 10 33  |e"+.to_play%...3|
000016d0  20 20 c9 20 5f 70 6c 61  63 65 25 20 3a 20 77 24  |  . _place% : w$|
000016e0  3d 22 50 6c 61 63 65 22  20 3a 20 78 24 3d 22 70  |="Place" : x$="p|
000016f0  69 65 63 65 22 2b c3 74  6f 5f 70 6c 61 79 25 0d  |iece"+.to_play%.|
00001700  09 1a 29 20 20 c9 20 5f  6e 6f 6d 6f 76 65 25 20  |..)  . _nomove% |
00001710  3a 20 77 24 3d 22 47 61  6d 65 20 4f 76 65 72 22  |: w$="Game Over"|
00001720  20 3a 20 78 24 3d 22 22  0d 09 24 23 20 20 7f 20  | : x$=""..$#  . |
00001730  3a 20 85 20 32 35 35 2c  22 55 6e 6b 6e 6f 77 6e  |: . 255,"Unknown|
00001740  20 6d 6f 76 65 20 74 79  70 65 22 0d 09 2e 05 cb  | move type".....|
00001750  0d 09 38 32 c8 99 20 22  54 65 6d 70 65 73 74 5f  |..82.. "Tempest_|
00001760  53 65 74 49 63 6f 6e 54  65 78 74 22 2c 6d 61 69  |SetIconText",mai|
00001770  6e 68 61 6e 64 6c 65 25  2c 33 33 2c 74 62 25 2c  |nhandle%,33,tb%,|
00001780  77 24 0d 09 42 32 c8 99  20 22 54 65 6d 70 65 73  |w$..B2.. "Tempes|
00001790  74 5f 53 65 74 49 63 6f  6e 54 65 78 74 22 2c 6d  |t_SetIconText",m|
000017a0  61 69 6e 68 61 6e 64 6c  65 25 2c 34 31 2c 74 62  |ainhandle%,41,tb|
000017b0  25 2c 78 24 0d 09 4c 05  e1 0d 09 56 05 3a 0d 09  |%,x$..L....V.:..|
000017c0  60 05 3a 0d 09 6a 14 dd  a4 67 65 6e 61 6c 65 72  |`.:..j...genaler|
000017d0  74 28 73 74 72 24 29 0d  09 74 0e ea 20 77 25 2c  |t(str$)..t.. w%,|
000017e0  42 25 2c 43 25 0d 09 7e  0d 24 70 62 25 3d 73 74  |B%,C%..~.$pb%=st|
000017f0  72 24 0d 09 88 47 c8 99  20 22 54 65 6d 70 65 73  |r$...G.. "Tempes|
00001800  74 5f 47 65 6e 65 72 61  6c 41 6c 65 72 74 22 2c  |t_GeneralAlert",|
00001810  26 31 30 30 32 31 2c 61  6c 65 72 74 5f 62 6c 6f  |&10021,alert_blo|
00001820  63 6b 25 2c 74 62 25 2c  21 70 62 25 2c 30 20 b8  |ck%,tb%,!pb%,0 .|
00001830  20 77 25 2c 42 25 2c 43  25 0d 09 92 08 d6 20 77  | w%,B%,C%..... w|
00001840  25 0d 09 9c 0b 3d 74 62  25 21 34 38 0d 09 a6 05  |%....=tb%!48....|
00001850  3a 0d 09 b0 14 dd f2 67  65 6e 61 6c 65 72 74 28  |:......genalert(|
00001860  73 74 72 24 29 0d 09 ba  15 e7 20 a4 67 65 6e 61  |str$)..... .gena|
00001870  6c 65 72 74 28 73 74 72  24 29 0d 09 c4 05 e1 0d  |lert(str$)......|
00001880  09 ce 05 3a 0d 09 d8 05  3a 0d 09 e2 1d dd a4 67  |...:....:......g|
00001890  65 74 74 65 78 74 6d 65  6d 28 70 62 25 21 30 2c  |ettextmem(pb%!0,|
000018a0  70 62 25 21 34 29 0d 09  ec 27 c8 99 20 22 54 65  |pb%!4)...'.. "Te|
000018b0  6d 70 65 73 74 5f 47 65  74 45 6e 74 69 74 79 49  |mpest_GetEntityI|
000018c0  6e 66 6f 22 2c 2c 70 62  25 2c 74 62 25 0d 09 f6  |nfo",,pb%,tb%...|
000018d0  0b 3d 74 62 25 21 34 34  0d 0a 00 05 3a 0d 0a 0a  |.=tb%!44....:...|
000018e0  1c dd a4 72 65 61 64 6f  6e 6f 66 66 28 70 62 25  |...readonoff(pb%|
000018f0  21 30 2c 70 62 25 21 34  29 0d 0a 14 1f c8 99 20  |!0,pb%!4)...... |
00001900  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00001910  74 65 22 2c 2c 70 62 25  0d 0a 1e 1b 3d 28 28 70  |te",,pb%....=((p|
00001920  62 25 21 32 34 20 80 20  28 31 3c 3c 32 31 29 29  |b%!24 . (1<<21))|
00001930  3e 30 29 0d 0a 28 05 3a  0d 0a 32 05 3a 0d 0a 3c  |>0)..(.:..2.:..<|
00001940  1c dd f2 73 65 74 6f 6e  6f 66 66 28 41 25 2c 42  |...setonoff(A%,B|
00001950  25 2c 73 74 61 74 65 25  29 0d 0a 46 26 e7 20 73  |%,state%)..F&. s|
00001960  74 61 74 65 25 20 8c 20  73 74 61 74 65 25 3d 31  |tate% . state%=1|
00001970  3c 3c 32 31 20 8b 20 73  74 61 74 65 25 3d 30 0d  |<<21 . state%=0.|
00001980  0a 50 34 c8 99 20 22 54  65 6d 70 65 73 74 5f 53  |.P4.. "Tempest_S|
00001990  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 41 25 2c  |etIconState",A%,|
000019a0  42 25 2c 74 62 25 2c 73  74 61 74 65 25 2c 31 3c  |B%,tb%,state%,1<|
000019b0  3c 32 31 0d 0a 5a 05 e1  0d 0a 64 05 3a 0d 0a 6e  |<21..Z....d.:..n|
000019c0  05 3a 0d 0a 78 05 3a 0d  0a 82 05 3a 0d 0a 8c 05  |.:..x.:....:....|
000019d0  3a 0d 0a 96 11 dd f2 6f  70 65 6e 6f 70 74 69 6f  |:......openoptio|
000019e0  6e 73 0d 0a a0 30 f2 73  65 74 6f 6e 6f 66 66 28  |ns...0.setonoff(|
000019f0  6f 70 74 69 6f 6e 68 61  6e 64 6c 65 25 2c 36 2c  |optionhandle%,6,|
00001a00  70 6c 61 79 65 72 25 28  31 29 3d 5f 63 6f 6d 70  |player%(1)=_comp|
00001a10  25 29 0d 0a aa 30 f2 73  65 74 6f 6e 6f 66 66 28  |%)...0.setonoff(|
00001a20  6f 70 74 69 6f 6e 68 61  6e 64 6c 65 25 2c 37 2c  |optionhandle%,7,|
00001a30  70 6c 61 79 65 72 25 28  32 29 3d 5f 63 6f 6d 70  |player%(2)=_comp|
00001a40  25 29 0d 0a b4 04 0d 0a  be 16 6c 65 76 65 6c 25  |%)........level%|
00001a50  3d 72 65 61 6c 5f 6c 65  76 65 6c 25 0d 0a c8 0f  |=real_level%....|
00001a60  f2 73 68 6f 77 5f 6c 65  76 65 6c 0d 0a d2 04 0d  |.show_level.....|
00001a70  0a dc 3f 21 70 62 25 3d  6f 70 74 69 6f 6e 68 61  |..?!pb%=optionha|
00001a80  6e 64 6c 65 25 3a c8 99  20 22 54 65 6d 70 65 73  |ndle%:.. "Tempes|
00001a90  74 5f 53 68 6f 77 57 69  6e 64 6f 77 22 2c 26 33  |t_ShowWindow",&3|
00001aa0  33 35 31 31 2c 70 62 25  2c 74 62 25 2c 30 0d 0a  |3511,pb%,tb%,0..|
00001ab0  e6 05 e1 0d 0a f0 05 3a  0d 0a fa 18 dd f2 6f 70  |.......:......op|
00001ac0  74 69 6f 6e 63 6c 69 63  6b 28 69 63 6f 6e 25 29  |tionclick(icon%)|
00001ad0  0d 0b 04 0e c8 8e 20 69  63 6f 6e 25 20 ca 0d 0b  |...... icon% ...|
00001ae0  0e 29 20 20 c9 20 31 31  20 3a 20 f2 74 69 63 6b  |.)  . 11 : .tick|
00001af0  6f 6e 6c 79 28 6c 65 76  65 6c 6d 65 6e 75 25 2c  |only(levelmenu%,|
00001b00  6c 65 76 65 6c 25 29 0d  0b 18 5d 20 20 c8 99 20  |level%)...]  .. |
00001b10  22 54 65 6d 70 65 73 74  5f 53 68 6f 77 4d 65 6e  |"Tempest_ShowMen|
00001b20  75 22 2c 36 2c 30 2c 74  62 25 2c 6c 65 76 65 6c  |u",6,0,tb%,level|
00001b30  6d 65 6e 75 25 2c 6f 70  74 69 6f 6e 68 61 6e 64  |menu%,optionhand|
00001b40  6c 65 25 2c 31 31 20 3a  20 f4 20 67 65 6e 65 72  |le%,11 : . gener|
00001b50  61 74 65 20 69 63 6f 6e  20 70 6f 70 2d 75 70 20  |ate icon pop-up |
00001b60  6d 65 6e 75 0d 0b 22 18  20 20 c9 20 31 33 20 3a  |menu..".  . 13 :|
00001b70  20 f2 6f 70 74 69 6f 6e  73 5f 6f 6b 0d 0b 2c 05  | .options_ok..,.|
00001b80  cb 0d 0b 36 05 e1 0d 0b  40 05 3a 0d 0b 4a 05 3a  |...6....@.:..J.:|
00001b90  0d 0b 54 10 dd f2 6f 70  74 69 6f 6e 73 5f 6f 6b  |..T...options_ok|
00001ba0  0d 0b 5e 15 70 6c 61 79  65 72 25 28 29 3d 5f 68  |..^.player%()=_h|
00001bb0  75 6d 61 6e 25 0d 0b 68  35 e7 20 a4 72 65 61 64  |uman%..h5. .read|
00001bc0  6f 6e 6f 66 66 28 6f 70  74 69 6f 6e 68 61 6e 64  |onoff(optionhand|
00001bd0  6c 65 25 2c 36 29 20 8c  20 70 6c 61 79 65 72 25  |le%,6) . player%|
00001be0  28 31 29 3d 5f 63 6f 6d  70 25 0d 0b 72 35 e7 20  |(1)=_comp%..r5. |
00001bf0  a4 72 65 61 64 6f 6e 6f  66 66 28 6f 70 74 69 6f  |.readonoff(optio|
00001c00  6e 68 61 6e 64 6c 65 25  2c 37 29 20 8c 20 70 6c  |nhandle%,7) . pl|
00001c10  61 79 65 72 25 28 32 29  3d 5f 63 6f 6d 70 25 0d  |ayer%(2)=_comp%.|
00001c20  0b 7c 16 72 65 61 6c 5f  6c 65 76 65 6c 25 3d 6c  |.|.real_level%=l|
00001c30  65 76 65 6c 25 0d 0b 86  10 f2 75 70 64 61 74 65  |evel%.....update|
00001c40  6c 65 76 65 6c 0d 0b 90  04 0d 0b 9a 34 e7 20 70  |level.......4. p|
00001c50  6c 61 79 65 72 25 28 74  6f 5f 70 6c 61 79 25 29  |layer%(to_play%)|
00001c60  3d 5f 63 6f 6d 70 25 20  8c 20 6e 65 65 64 5f 74  |=_comp% . need_t|
00001c70  68 69 6e 6b 25 3d b9 20  3a 20 f4 20 4d 0d 0b a4  |hink%=. : . M...|
00001c80  38 21 70 62 25 3d 6f 70  74 69 6f 6e 68 61 6e 64  |8!pb%=optionhand|
00001c90  6c 65 25 3a c8 99 20 22  54 65 6d 70 65 73 74 5f  |le%:.. "Tempest_|
00001ca0  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 70 62  |CloseWindow",,pb|
00001cb0  25 2c 74 62 25 0d 0b ae  05 e1 0d 0b b8 05 3a 0d  |%,tb%.........:.|
00001cc0  0b c2 05 3a 0d 0b cc 05  3a 0d 0b d6 10 dd f2 73  |...:....:......s|
00001cd0  68 6f 77 5f 6c 65 76 65  6c 0d 0b e0 50 c8 99 20  |how_level...P.. |
00001ce0  22 54 65 6d 70 65 73 74  5f 53 65 74 49 63 6f 6e  |"Tempest_SetIcon|
00001cf0  54 65 78 74 22 2c 6f 70  74 69 6f 6e 68 61 6e 64  |Text",optionhand|
00001d00  6c 65 25 2c 31 30 2c 74  62 25 2c a4 67 65 74 74  |le%,10,tb%,.gett|
00001d10  65 78 74 6d 65 6d 28 6c  65 76 65 6c 6d 65 6e 75  |extmem(levelmenu|
00001d20  25 2c 6c 65 76 65 6c 25  29 0d 0b ea 05 e1 0d 0b  |%,level%).......|
00001d30  f4 05 3a 0d 0b fe 14 dd  f2 73 65 74 6c 65 76 65  |..:......setleve|
00001d40  6c 28 6e 65 77 25 29 0d  0c 08 0f 6c 65 76 65 6c  |l(new%)....level|
00001d50  25 3d 6e 65 77 25 0d 0c  12 1e f2 74 69 63 6b 6f  |%=new%.....ticko|
00001d60  6e 6c 79 28 6c 65 76 65  6c 6d 65 6e 75 25 2c 6e  |nly(levelmenu%,n|
00001d70  65 77 25 29 0d 0c 1c 0f  f2 73 68 6f 77 5f 6c 65  |ew%).....show_le|
00001d80  76 65 6c 0d 0c 26 05 e1  0d 0c 30 05 3a 0d 0c 3a  |vel..&....0.:..:|
00001d90  05 3a 0d 0c 44 15 dd f2  74 69 63 6b 6f 6e 6c 79  |.:..D...tickonly|
00001da0  28 6d 25 2c 69 25 29 0d  0c 4e 52 c8 99 20 22 54  |(m%,i%)..NR.. "T|
00001db0  65 6d 70 65 73 74 5f 4d  65 6e 75 4f 70 22 2c 30  |empest_MenuOp",0|
00001dc0  2c 2c 74 62 25 2c 6d 25  2c 69 25 2c 30 2c 32 35  |,,tb%,m%,i%,0,25|
00001dd0  35 20 3a 20 f4 20 62 6f  74 68 20 74 69 63 6b 73  |5 : . both ticks|
00001de0  20 61 6e 64 20 75 6e 74  69 63 6b 73 20 61 73 20  | and unticks as |
00001df0  6e 65 63 65 73 73 61 72  79 0d 0c 58 05 e1 0d 0c  |necessary..X....|
00001e00  62 05 3a 0d 0c 6c 0e dd  f2 73 61 76 65 5f 61 63  |b.:..l...save_ac|
00001e10  6b 0d 0c 76 2a e7 20 62  25 21 32 30 3d 31 20 8c  |k..v*. b%!20=1 .|
00001e20  20 24 73 61 76 65 5f 73  74 72 69 6e 67 25 3d a4  | $save_string%=.|
00001e30  7a 65 72 6f 28 62 25 2b  32 38 29 0d 0c 80 05 e1  |zero(b%+28).....|
00001e40  0d 0c 8a 05 3a 0d 0c 94  05 3a 0d 0c 9e 10 dd f2  |....:....:......|
00001e50  73 61 76 65 5f 63 6c 69  63 6b 0d 0c a8 0e c8 8e  |save_click......|
00001e60  20 62 25 21 31 36 20 ca  0d 0c b2 2f 20 20 c9 20  | b%!16 ..../  . |
00001e70  30 20 3a 20 c8 99 20 22  54 65 6d 70 65 73 74 5f  |0 : .. "Tempest_|
00001e80  44 72 61 67 41 6e 49 63  6f 6e 22 2c 30 2c 62 25  |DragAnIcon",0,b%|
00001e90  2b 31 32 2c 74 62 25 0d  0c bc 19 20 20 64 72 61  |+12,tb%....  dra|
00001ea0  67 5f 74 79 70 65 25 3d  5f 64 5f 73 61 76 65 25  |g_type%=_d_save%|
00001eb0  0d 0c c6 4b 20 20 c9 20  32 20 3a 20 c8 99 20 22  |...K  . 2 : .. "|
00001ec0  58 54 65 6d 70 65 73 74  5f 53 61 76 65 42 75 74  |XTempest_SaveBut|
00001ed0  74 6f 6e 22 2c 73 61 76  65 5f 73 74 72 69 6e 67  |ton",save_string|
00001ee0  25 2c 30 2c 74 62 25 2c  31 30 30 2c 26 34 45 20  |%,0,tb%,100,&4E |
00001ef0  b8 20 77 25 3b 66 6c 61  67 73 25 0d 0c d0 2a 20  |. w%;flags%...* |
00001f00  20 e7 20 66 6c 61 67 73  25 20 80 20 31 20 8c 20  | . flags% . 1 . |
00001f10  f2 65 72 72 6f 72 28 a4  7a 65 72 6f 28 77 25 2b  |.error(.zero(w%+|
00001f20  34 29 29 3a e1 0d 0c da  05 cb 0d 0c e4 05 e1 0d  |4)):............|
00001f30  0c ee 05 3a 0d 0c f8 05  3a 0d 0d 02 0f dd f2 73  |...:....:......s|
00001f40  61 76 65 5f 64 72 61 67  0d 0d 0c 50 c8 99 20 22  |ave_drag...P.. "|
00001f50  58 54 65 6d 70 65 73 74  5f 53 74 61 72 74 53 61  |XTempest_StartSa|
00001f60  76 65 53 65 71 75 65 6e  63 65 22 2c 73 61 76 65  |veSequence",save|
00001f70  5f 73 74 72 69 6e 67 25  2c 62 25 2b 33 32 2c 74  |_string%,b%+32,t|
00001f80  62 25 2c 31 30 30 2c 26  34 45 20 b8 20 77 25 20  |b%,100,&4E . w% |
00001f90  3b 20 66 6c 61 67 73 25  0d 0d 16 28 e7 20 66 6c  |; flags%...(. fl|
00001fa0  61 67 73 25 20 80 20 31  20 8c 20 f2 65 72 72 6f  |ags% . 1 . .erro|
00001fb0  72 28 a4 7a 65 72 6f 28  77 25 2b 34 29 29 3a e1  |r(.zero(w%+4)):.|
00001fc0  0d 0d 20 05 e1 0d 0d 2a  05 3a 0d 0d 34 05 3a 0d  |.. ....*.:..4.:.|
00001fd0  0d 3e 11 dd f2 70 72 65  70 61 72 65 64 61 74 61  |.>...preparedata|
00001fe0  0d 0d 48 16 62 6f 61 72  64 25 21 33 32 3d 74 6f  |..H.board%!32=to|
00001ff0  5f 70 6c 61 79 25 0d 0d  52 18 62 6f 61 72 64 25  |_play%..R.board%|
00002000  21 33 36 3d 70 6c 61 79  65 72 25 28 31 29 0d 0d  |!36=player%(1)..|
00002010  5c 18 62 6f 61 72 64 25  21 34 30 3d 70 6c 61 79  |\.board%!40=play|
00002020  65 72 25 28 32 29 0d 0d  66 19 62 6f 61 72 64 25  |er%(2)..f.board%|
00002030  21 34 34 3d 72 65 61 6c  5f 6c 65 76 65 6c 25 0d  |!44=real_level%.|
00002040  0d 70 04 0d 0d 7a 1a 62  6f 61 72 64 25 21 35 32  |.p...z.board%!52|
00002050  3d 6d 6f 76 65 5f 72 65  73 75 6c 74 25 0d 0d 84  |=move_result%...|
00002060  18 62 6f 61 72 64 25 21  35 36 3d 6d 6f 76 65 5f  |.board%!56=move_|
00002070  74 79 70 65 25 0d 0d 8e  13 62 6f 61 72 64 25 21  |type%....board%!|
00002080  36 30 3d 74 75 72 6e 25  0d 0d 98 16 62 6f 61 72  |60=turn%....boar|
00002090  64 25 21 36 34 3d 67 61  6d 65 5f 6f 6e 25 0d 0d  |d%!64=game_on%..|
000020a0  a2 3d c8 99 20 22 58 54  65 6d 70 65 73 74 5f 44  |.=.. "XTempest_D|
000020b0  61 74 61 49 73 52 65 61  64 79 22 2c 30 2c 62 25  |ataIsReady",0,b%|
000020c0  2c 74 62 25 2c 62 6f 61  72 64 25 2c 31 32 30 20  |,tb%,board%,120 |
000020d0  b8 20 77 25 3b 66 6c 61  67 73 25 0d 0d ac 28 e7  |. w%;flags%...(.|
000020e0  20 66 6c 61 67 73 25 20  80 20 31 20 8c 20 f2 65  | flags% . 1 . .e|
000020f0  72 72 6f 72 28 a4 7a 65  72 6f 28 77 25 2b 34 29  |rror(.zero(w%+4)|
00002100  29 3a e1 0d 0d b6 05 e1  0d 0d c0 04 0d 0d ca 05  |):..............|
00002110  3a 0d 0d d4 15 dd f2 6c  6f 61 64 66 69 6c 65 28  |:......loadfile(|
00002120  6e 61 6d 65 24 29 0d 0d  de 21 ff 28 22 4c 6f 61  |name$)...!.("Loa|
00002130  64 20 22 2b 6e 61 6d 65  24 2b 22 20 22 2b c3 7e  |d "+name$+" "+.~|
00002140  62 6f 61 72 64 25 29 0d  0d e8 16 74 6f 5f 70 6c  |board%)....to_pl|
00002150  61 79 25 3d 62 6f 61 72  64 25 21 33 32 0d 0d f2  |ay%=board%!32...|
00002160  18 70 6c 61 79 65 72 25  28 31 29 3d 62 6f 61 72  |.player%(1)=boar|
00002170  64 25 21 33 36 0d 0d fc  18 70 6c 61 79 65 72 25  |d%!36....player%|
00002180  28 32 29 3d 62 6f 61 72  64 25 21 34 30 0d 0e 06  |(2)=board%!40...|
00002190  2a 72 65 61 6c 5f 6c 65  76 65 6c 25 3d 62 6f 61  |*real_level%=boa|
000021a0  72 64 25 21 34 34 3a 6c  65 76 65 6c 25 3d 62 6f  |rd%!44:level%=bo|
000021b0  61 72 64 25 21 34 34 0d  0e 10 04 0d 0e 1a 1a 6d  |ard%!44........m|
000021c0  6f 76 65 5f 72 65 73 75  6c 74 25 3d 62 6f 61 72  |ove_result%=boar|
000021d0  64 25 21 35 32 0d 0e 24  18 6d 6f 76 65 5f 74 79  |d%!52..$.move_ty|
000021e0  70 65 25 3d 62 6f 61 72  64 25 21 35 36 0d 0e 2e  |pe%=board%!56...|
000021f0  13 74 75 72 6e 25 3d 62  6f 61 72 64 25 21 36 30  |.turn%=board%!60|
00002200  0d 0e 38 16 67 61 6d 65  5f 6f 6e 25 3d 62 6f 61  |..8.game_on%=boa|
00002210  72 64 25 21 36 34 0d 0e  42 04 0d 0e 4c 38 21 70  |rd%!64..B...L8!p|
00002220  62 25 3d 6f 70 74 69 6f  6e 68 61 6e 64 6c 65 25  |b%=optionhandle%|
00002230  3a c8 99 20 22 54 65 6d  70 65 73 74 5f 43 6c 6f  |:.. "Tempest_Clo|
00002240  73 65 57 69 6e 64 6f 77  22 2c 2c 70 62 25 2c 74  |seWindow",,pb%,t|
00002250  62 25 0d 0e 56 36 21 70  62 25 3d 6d 61 69 6e 68  |b%..V6!pb%=mainh|
00002260  61 6e 64 6c 65 25 3a c8  99 20 22 54 65 6d 70 65  |andle%:.. "Tempe|
00002270  73 74 5f 53 68 6f 77 57  69 6e 64 6f 77 22 2c 31  |st_ShowWindow",1|
00002280  2c 70 62 25 2c 74 62 25  0d 0e 60 10 f2 75 70 64  |,pb%,tb%..`..upd|
00002290  61 74 65 6c 65 76 65 6c  0d 0e 6a 0e f2 72 65 64  |atelevel..j..red|
000022a0  72 61 77 61 6c 6c 0d 0e  74 0e f2 73 68 6f 77 5f  |rawall..t..show_|
000022b0  6d 6f 76 65 0d 0e 7e 05  e1 0d 0e 88 05 3a 0d 0e  |move..~......:..|
000022c0  92 11 dd f2 6c 6f 61 64  6d 65 73 73 61 67 65 0d  |....loadmessage.|
000022d0  0e 9c 1f ea 20 6d 65 73  73 61 67 65 25 20 3a 20  |.... message% : |
000022e0  6d 65 73 73 61 67 65 25  3d 62 25 21 31 36 0d 0e  |message%=b%!16..|
000022f0  a6 27 e7 20 62 25 21 34  3d 74 61 73 6b 68 61 6e  |.'. b%!4=taskhan|
00002300  64 6c 65 25 20 84 20 62  25 21 34 30 3c 3e 26 34  |dle% . b%!40<>&4|
00002310  45 20 8c 20 e1 0d 0e b0  30 e7 20 6d 65 73 73 61  |E . ....0. messa|
00002320  67 65 25 3d 35 20 8c 20  c8 99 20 22 54 65 6d 70  |ge%=5 . .. "Temp|
00002330  65 73 74 5f 4d 69 73 63  4f 70 22 2c 32 30 2c 62  |est_MiscOp",20,b|
00002340  25 2c 74 62 25 0d 0e ba  1a e7 20 67 61 6d 65 5f  |%,tb%..... game_|
00002350  6f 6e 25 20 80 20 74 75  72 6e 25 3e 31 20 8c 0d  |on% . turn%>1 ..|
00002360  0e c4 33 20 20 e7 20 a4  67 65 6e 61 6c 65 72 74  |..3  . .genalert|
00002370  28 22 4c 4f 44 51 22 29  3d 32 20 8c 20 6c 6f 61  |("LODQ")=2 . loa|
00002380  64 6f 6b 25 3d a3 20 8b  20 6c 6f 61 64 6f 6b 25  |dok%=. . loadok%|
00002390  3d b9 0d 0e ce 05 cc 0d  0e d8 0f 20 20 6c 6f 61  |=..........  loa|
000023a0  64 6f 6b 25 3d b9 0d 0e  e2 05 cd 0d 0e ec 0f e7  |dok%=...........|
000023b0  20 6c 6f 61 64 6f 6b 25  20 8c 0d 0e f6 1d 20 20  | loadok% .....  |
000023c0  f2 6c 6f 61 64 66 69 6c  65 28 a4 7a 65 72 6f 28  |.loadfile(.zero(|
000023d0  62 25 2b 34 34 29 29 0d  0f 00 14 20 20 e7 20 6d  |b%+44))....  . m|
000023e0  65 73 73 61 67 65 25 3d  33 20 8c 0d 0f 0a 21 20  |essage%=3 ....! |
000023f0  20 20 20 21 62 25 3d 32  30 3a 62 25 21 31 32 3d  |   !b%=20:b%!12=|
00002400  72 65 66 25 3a 62 25 21  31 36 3d 34 0d 0f 14 29  |ref%:b%!16=4...)|
00002410  20 20 20 20 c8 99 20 22  57 69 6d 70 5f 53 65 6e  |    .. "Wimp_Sen|
00002420  64 4d 65 73 73 61 67 65  22 2c 31 37 2c 62 25 2c  |dMessage",17,b%,|
00002430  66 72 6f 6d 25 0d 0f 1e  07 20 20 cd 0d 0f 28 05  |from%....  ...(.|
00002440  cd 0d 0f 32 05 e1 0d 0f  3c 05 3a 0d 0f 46 04 0d  |...2....<.:..F..|
00002450  0f 50 04 0d 0f 5a 04 0d  ff                       |.P...Z...|
00002459