Home » Archimedes archive » Acorn Computing » 1994 05 subscription disc.adf » 9405s » Miscellany/!KingOut/!RunImage

Miscellany/!KingOut/!RunImage

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Acorn Computing » 1994 05 subscription disc.adf » 9405s
Filename: Miscellany/!KingOut/!RunImage
Read OK: ✔
File size: 2620 bytes
Load address: 0000
Exec address: 0000
File contents
   10REM > !RunImage
   20REM > !KingOut Written by GJL 1/12/93
   30
   40ONERROR PROC_Error(REPORT$+" (Internal error "+STR$ERL+")"):PROC_CloseDown
   50
   60PROC_Init
   70
   80REPEAT
   90   SYS "Wimp_Poll",%11100000110011,B% TO Reason%
  100   CASE Reason% OF
  110      WHEN 0:PROC_Null
  120      WHEN 2:PROC_OpenWindow
  130      WHEN 3:PROC_CloseWindow
  140      WHEN 6:PROC_MouseClick
  150      WHEN 9:PROC_MenuSelection
  160      WHEN 17,18:PROC_UserMessage
  170   ENDCASE
  180UNTIL Finished%
  190
  200PROC_CloseDown
  210
  220END
  230
  240DEFPROC_Null
  250ENDPROC
  260
  270DEFPROC_OpenWindow
  280   SYS "Wimp_OpenWindow",,B%
  290ENDPROC
  300
  310DEFPROC_CloseWindow
  320   SYS "Wimp_CloseWindow",,B%
  330ENDPROC
  340
  350DEFPROC_MouseClick
  360   But%=B%!8
  370   CASE B%!12 OF
  380      WHEN MainHandle%:
  390         IF But%<>2 AND B%!16>0 THEN PROC_MoveBlock(B%!16)
  400         IF But%=2 THEN PROC_CreateMenu(MainMenu%,B%!0-64,B%!4+32)
  410      WHEN -2:
  420         IF But%=1 OR But%=4 THEN PROC_OpenWindowH(MainHandle%)
  430         IF But%=2 THEN PROC_CreateMenu(BarMenu%,B%!0-64,184)
  440   ENDCASE
  450ENDPROC
  460
  470DEFPROC_MenuSelection
  480   SYS "Wimp_GetPointerInfo",,Tmp%
  490   But%=Tmp%!8
  500   SYS "Wimp_DecodeMenu",,OpenMenu%,B%,Tmp%
  510   MenuSel$=$Tmp%
  520   CASE MenuSel$ OF
  530      WHEN "Restart"
  540         SYS "OS_Confirm" TO c%
  550         IF c%=121 THEN PROC_NewGame
  560      WHEN "Quit"
  570         Finished%=TRUE
  580   ENDCASE
  590   IF But%=1 THEN PROC_CreateMenu(OpenMenu%,0,0)
  600ENDPROC
  610
  620DEFPROC_UserMessage
  630   CASE B%!16 OF
  640      WHEN 0:Finished%=TRUE
  650      WHEN &502:PROC_HelpRequest
  651      WHEN &400C1:PROC_RescanFonts(InfoHandle%,InfoBlk%)
  660   ENDCASE
  670ENDPROC
  680
  690DEFPROC_HelpRequest
  700   B%!0=252
  710   B%!12=B%!8
  720   B%!16=&503
  730   B%!20=0
  740   IF B%!32=MainHandle% THEN $(B%+20)="This is King Out.  Get the King to the bottom centre as indicated.|MClick SELECT to slide a block until it hits something.|MClick ADJUST to slide a block by one space.|MClick MENU to restart."+CHR$0
  750   IF B%!32=-2 AND B%!36=BIconHandle% THEN $(B%+20)="This is the King Out application.|MClick SELECT or ADJUST to bring up the main window.|MClick MENU for the bar menu."+CHR$0
  760   SYS "Wimp_SendMessage",17,B%,B%!4
  770ENDPROC
  780
  790DEFPROC_Init
  800   TaskName$="KingOut"
  810   DIM ms% 4:!ms%=0
  820   SYS "Wimp_Initialise",310,&4B534154,TaskName$,ms% TO ,TaskHandle%
  830   DIM B% &100
  840   DIM Tmp% &100
  850   DIM BarIcon% 40
  860   DIM BarMenu% &100
  870   DIM MainMenu% &100
  880   DIM InfoBlk% &400
  890   DIM MainBlk% &400
  900   DIM Ind% &200,IndEnd% -1:NxtInd%=Ind%
  910   DIM ErrBlk% &100
  920   DIM Board% 20,Block% 12
  930   DIM UserSprites% 8000,EndUserSpr% -1
  940   DIM FontRef% 255
  950   PROC_LoadSprites
  960   PROC_InitFontRef
  970   PROC_LoadTemplates
  980   PROC_SetUpUserSpriteIcons
  990   PROC_CreateWindows
 1000   PROC_PutIconOnBar
 1010   PROC_SetupMenus
 1020   Finished%=FALSE
 1030   PROC_NewGame
 1050ENDPROC
 1060
 1070DEFPROC_PutIconOnBar
 1080   !BarIcon%=-1
 1090   BarIcon%!4=0
 1100   BarIcon%!8=0
 1110   BarIcon%!12=68
 1120   BarIcon%!16=68
 1130   BarIcon%!20=&301A
 1140   $(BarIcon%+24)="!kingout"
 1150   SYS "Wimp_CreateIcon",,BarIcon% TO BIconHandle%
 1160ENDPROC
 1170
 1180DEFPROC_SetIconState(Tmp%!0,Tmp%!4,Tmp%!8,Tmp%!12)
 1230   SYS "Wimp_SetIconState",,Tmp%
 1240ENDPROC
 1250
 1260DEFPROC_SetUpUserSpriteIcons
 1270LOCAL I%
 1280   FOR I%=0 TO 11
 1290      PROC_IconUserSpr(MainBlk%,I%)
 1300   NEXT
 1310ENDPROC
 1320
 1330DEFPROC_IconUserSpr(WBlk%,IHandle%)
 1340LOCAL Id%
 1350   Id%=WBlk%+88+IHandle%*32
 1360   Id%!16=(Id%!16 OR %100000000)
 1370   Id%!24=UserSprites%
 1380   Id%!28=12
 1390ENDPROC
 1400
 1410DEFPROC_SetupMenus
 1420   PROC_NewMenu(BarMenu%,"King")
 1430   PROC_AddMenuItem(BarMenu%,"Info",0,InfoHandle%)
 1440   PROC_AddMenuItem(BarMenu%,"Quit",0,-1)
 1450   PROC_NewMenu(MainMenu%,"Main")
 1460   PROC_AddMenuItem(MainMenu%,"Restart",0,-1)
 1470ENDPROC
 1480
 1490DEFPROC_NewMenu(MenuBlk%,Title$)
 1500   $MenuBlk%=Title$
 1510   MenuBlk%!12=&00070207
 1520   MenuBlk%!16=0
 1530   MenuBlk%!20=44
 1540   MenuBlk%!24=0
 1550   MenuBlk%!28=-1
 1560ENDPROC
 1570
 1580DEFPROC_AddMenuItem(MenuBlk%,Item$,Flags%,Ptr%)
 1590   IF MenuBlk%!16<LEN(Item$)*16+12 THEN MenuBlk%!16=LEN(Item$)*16+12
 1600   MenuBlk%+=28
 1610   IF !MenuBlk%<>-1 THEN
 1620      REPEAT
 1630         MenuBlk%+=24
 1640      UNTIL (MenuBlk%!-24 AND 128)=128
 1650      MenuBlk%!-24=MenuBlk%!-24 AND NOT128
 1660   ENDIF
 1670   !MenuBlk%=(Flags% OR 128)
 1680   MenuBlk%!4=Ptr%
 1690   MenuBlk%!8=&7009031
 1700   $(MenuBlk%+12)=Item$
 1710ENDPROC
 1720
 1730DEFPROC_OpenWindowH(Handle%)
 1740   !Tmp%=Handle%
 1750   SYS "Wimp_GetWindowState",,Tmp%
 1760   Tmp%!28=-1
 1770   SYS "Wimp_OpenWindow",,Tmp%
 1780ENDPROC
 1790
 1800DEFPROC_LoadTemplates
 1810   SYS "Wimp_OpenTemplate",,"<Obey$Dir>.Templates"
 1820   SYS "Wimp_LoadTemplate",,InfoBlk%,NxtInd%,IndEnd%,FontRef%,"ProgInfo",0 TO ,,NxtInd%
 1830   SYS "Wimp_LoadTemplate",,MainBlk%,NxtInd%,IndEnd%,FontRef%,"main",0 TO ,,NxtInd%
 1840   SYS "Wimp_CloseTemplate"
 1850ENDPROC
 1860
 1870DEFPROC_CreateWindows
 1880   SYS "Wimp_CreateWindow",,InfoBlk% TO InfoHandle%
 1890   SYS "Wimp_CreateWindow",,MainBlk% TO MainHandle%
 1900ENDPROC
 1910
 1920DEFPROC_Error(Error$)
 1930   !ErrBlk%=0
 1940   $(ErrBlk%+4)=Error$
 1950   SYS "Wimp_ReportError",ErrBlk%,0,TaskName$
 1960ENDPROC
 1970
 1980DEFPROC_CreateMenu(MenuBlk%,Xpos%,Ypos%)
 1990   OpenMenu%=MenuBlk%
 2000   SYS "Wimp_CreateMenu",,MenuBlk%,Xpos%,Ypos%
 2010ENDPROC
 2020
 2030DEFPROC_LoadSprites
 2040   !UserSprites%=EndUserSpr%-UserSprites%-4
 2050   SYS "OS_SpriteOp",256+10,UserSprites%,"<Obey$Dir>.Sprites"
 2060ENDPROC
 2070
 2080DEFFN_Str(A%)
 2090LOCAL A$
 2100   A$=""
 2110   WHILE ?A%>=32 AND LENA$<255
 2120      A$+=CHR$?A%
 2130      A%+=1
 2140   ENDWHILE
 2150=A$
 2160
 2170DEFPROC_RescanFonts(Wh%,Wblk%)
 2180LOCAL I%,F%,FontH%,Xsize%,Ysize%
 2190   IF Wblk%!84>0 THEN
 2200      FOR I%=0 TO Wblk%!84-1
 2210         Tmp%!0=Wh%
 2220         Tmp%!4=I%
 2230         SYS "Wimp_GetIconState",,Tmp%
 2240         F%=Tmp%!24:REM Icon flags
 2250         IF (F% AND %1000000)<>0 THEN
 2260            FontH%=F%>>>24
 2270            SYS "Font_ReadDefn",FontH%,Tmp% TO ,,Xsize%,Ysize%
 2280            SYS "Font_FindFont",,Tmp%,Xsize%,Ysize%,0,0 TO FontH%
 2290            IF FontRef%?FontH%>0 THEN SYS "Font_LoseFont",FontH% ELSE FontRef%?FontH%+=1
 2291            PROC_SetIconState(Wh%,I%,FontH%<<24,&FF<<24)
 2350         ENDIF
 2360      NEXT
 2370   ENDIF
 2380ENDPROC
 2390
 2400DEFPROC_InitFontRef
 2410LOCAL I%
 2420   FOR I%=0 TO 252 STEP 4:FontRef%!I%=0:NEXT
 2430ENDPROC
 2440
 2450DEFPROC_LoseFonts
 2460LOCAL I%
 2470   FOR I%=0 TO 255
 2480      WHILE FontRef%?I%>0
 2490         SYS "Font_LoseFont",I%
 2500         FontRef%?I%-=1
 2510      ENDWHILE
 2520   NEXT
 2530ENDPROC
 2540
 2550DEFPROC_CloseDown
 2560   PROC_LoseFonts
 2570   SYS "Wimp_CloseDown",TaskHandle%,&4B534154
 2580END
 2590
 2600DEFPROC_NewGame
 2610LOCAL I%,x%,y%
 2620   PROC_PutBlock(1,1)
 2630   PROC_PutBlock(2,0)
 2640   PROC_PutBlock(3,3)
 2650   PROC_PutBlock(4,8)
 2660   PROC_PutBlock(5,9)
 2670   PROC_PutBlock(6,10)
 2680   PROC_PutBlock(7,11)
 2690   PROC_PutBlock(8,12)
 2700   PROC_PutBlock(9,14)
 2710   PROC_PutBlock(10,16)
 2720   PROC_PutBlock(11,19)
 2730   Board%?17=0:Board%?18=0
 2740   FOR I%=1 TO 11
 2750      Tmp%!0=MainHandle%
 2760      Tmp%!4=I%
 2770      SYS "Wimp_GetIconState",,Tmp%
 2780      SYS "Wimp_DeleteIcon",,Tmp%
 2790      x%=Block%?I% MOD 4*128
 2800      y%=-(Block%?I% DIV 4*128)
 2810      Tmp%!8=x%
 2820      Tmp%!20=y%
 2830      CASE I% OF
 2840         WHEN 1:Tmp%!12=y%-256:Tmp%!16=x%+256
 2850         WHEN 2,3:Tmp%!12=y%-256:Tmp%!16=x%+128
 2860         WHEN 8,9:Tmp%!12=y%-128:Tmp%!16=x%+256
 2870         WHEN 4,5,6,7,10,11:Tmp%!12=y%-128:Tmp%!16=x%+128
 2880      ENDCASE
 2890      Tmp%!4=MainHandle%
 2900      SYS "Wimp_CreateIcon",,Tmp%+4
 2910   NEXT
 2920   SYS "Wimp_ForceRedraw",MainHandle%,0,-2000,2000,0
 2930ENDPROC
 2940
 2950DEFPROC_PutBlock(a%,b%)
 2960   Block%?a%=b%
 2970   Board%?b%=1
 2980   CASE a% OF
 2990      WHEN 1:Board%?(b%+1)=1:Board%?(b%+4)=1:Board%?(b%+5)=1
 3000      WHEN 2,3:Board%?(b%+4)=1
 3010      WHEN 8,9:Board%?(b%+1)=1
 3020   ENDCASE
 3030ENDPROC
 3040
 3050DEFPROC_RemoveBlock(a%)
 3060LOCAL b%
 3070   b%=Block%?a%
 3080   Board%?b%=0
 3090   CASE a% OF
 3100      WHEN 1:Board%?(b%+1)=0:Board%?(b%+4)=0:Board%?(b%+5)=0
 3110      WHEN 2,3:Board%?(b%+4)=0
 3120      WHEN 8,9:Board%?(b%+1)=0
 3130   ENDCASE
 3140ENDPROC
 3150
 3160DEFFN_CheckSpace(a%,b%)
 3170   IF Board%?b%=1 THEN =FALSE
 3180   CASE a% OF
 3190      WHEN 1:IF Board%?(b%+1)=1 OR Board%?(b%+4)=1 OR Board%?(b%+5)=1 THEN =FALSE
 3200      WHEN 2,3:IF Board%?(b%+4)=1 THEN =FALSE
 3210      WHEN 8,9:IF Board%?(b%+1)=1 THEN =FALSE
 3220   ENDCASE
 3230=TRUE
 3240
 3250DEFFN_OffBoard(a%,d%)
 3260LOCAL x%,y%,dx%,dy%
 3270   dx%=d% MOD 4:dy%=d% DIV 4
 3280   x%=Block%?a% MOD 4:y%=Block%?a% DIV 4
 3290   IF x%+dx%<0 OR y%+dy%<0 THEN =TRUE
 3300   CASE a% OF
 3310      WHEN 1:IF x%+dx%>2 OR y%+dy%>3 THEN =TRUE
 3320      WHEN 2,3:IF x%+dx%>3 OR y%+dy%>3 THEN =TRUE
 3330      WHEN 8,9:IF x%+dx%>2 OR y%+dy%>4 THEN =TRUE
 3340      WHEN 4,5,6,7,10,11:IF x%+dx%>3 OR y%+dy%>4 THEN =TRUE
 3350   ENDCASE
 3360=FALSE
 3370
 3380DEFPROC_MoveBlock(a%)
 3390LOCAL x%,y%,mx%,my%,ok%,t1%,t2%
 3400   Tmp%!0=MainHandle%
 3410   SYS "Wimp_GetWindowState",,Tmp%
 3420   x%=B%!0-Tmp%!4+Tmp%!20:y%=B%!4-Tmp%!16+Tmp%!24
 3430   Tmp%!0=MainHandle%
 3440   Tmp%!4=a%
 3450   SYS "Wimp_GetIconState",,Tmp%
 3460   mx%=(Tmp%!8+Tmp%!16) DIV 2:my%=(Tmp%!12+Tmp%!20) DIV 2
 3470   t1%=1:t2%=-4
 3480   IF x%<mx% THEN t1%=-t1%
 3490   IF y%<my% THEN t2%=-t2%
 3500   IF ABS(y%-my%)>ABS(x%-mx%) THEN SWAP t1%,t2%
 3510   PROC_TryMove(a%,t1%,ok%)
 3520   IF NOT ok% THEN PROC_TryMove(a%,-t1%,ok%)
 3530   IF NOT ok% THEN PROC_TryMove(a%,t2%,ok%)
 3540   IF NOT ok% THEN PROC_TryMove(a%,-t2%,ok%)
 3550   IF a%=1 AND Block%?1=13 AND ok% THEN PROC_Coronate
 3560ENDPROC
 3570
 3580DEFPROC_TryMove(a%,d%,RETURN ok%)
 3590REM Try to move block a% by d%
 3600LOCAL b%,x%,y%
 3610   ok%=FALSE
 3620   b%=Block%?a%+d%
 3630   IF FN_OffBoard(a%,d%) THEN ENDPROC
 3640   PROC_RemoveBlock(a%)
 3650   IF NOT FN_CheckSpace(a%,b%) THEN PROC_PutBlock(a%,Block%?a%):ENDPROC
 3660   ok%=TRUE
 3670   PROC_PutBlock(a%,b%)
 3680
 3690   IF But%=4 AND NOT FN_OffBoard(a%,d%) THEN
 3700      PROC_RemoveBlock(a%)
 3710      IF FN_CheckSpace(a%,b%+d%) THEN b%+=d%
 3720      PROC_PutBlock(a%,b%)
 3730   ENDIF
 3740
 3750   SYS "Wimp_ForceRedraw",MainHandle%,Tmp%!8,Tmp%!12,Tmp%!16,Tmp%!20
 3760   SYS "Wimp_DeleteIcon",,Tmp%
 3770   x%=b% MOD 4*128
 3780   y%=-(b% DIV 4*128)
 3790   Tmp%!8=x%
 3800   Tmp%!20=y%
 3810   CASE a% OF
 3820      WHEN 1:Tmp%!12=y%-256:Tmp%!16=x%+256
 3830      WHEN 2,3:Tmp%!12=y%-256:Tmp%!16=x%+128
 3840      WHEN 8,9:Tmp%!12=y%-128:Tmp%!16=x%+256
 3850      WHEN 4,5,6,7,10,11:Tmp%!12=y%-128:Tmp%!16=x%+128
 3860   ENDCASE
 3870   Tmp%!4=MainHandle%
 3880   SYS "Wimp_CreateIcon",,Tmp%+4
 3890   PROC_SetIconState(MainHandle%,a%,0,0)
 3900ENDPROC
 3910
 3920DEFPROC_Coronate
 3930   SYS "XSound_QInit"
 3940   SYS "XSound_QSchedule",-2,0,&FFF10001,&00200094
 3950   SYS "XSound_QSchedule",48,0,&FFF10001,&00200094
 3960   SYS "XSound_QSchedule",96,0,&FFF10001,&0020009C
 3970   SYS "XSound_QSchedule",144,0,&FFF10001,&00200090
 3980   SYS "XSound_QSchedule",216,0,&FFF10001,&00200094
 3990   SYS "XSound_QSchedule",240,0,&FFF10001,&0050009C
 4000ENDPROC


� > !RunImage
'� > !KingOut Written by GJL 1/12/93

(9� �_Error(�$+" (Internal error "+Þ+")"):�_CloseDown
2
<
�_Init
F
P�
Z2   ș "Wimp_Poll",%11100000110011,B% � Reason%
d   Ȏ Reason% �
n      � 0:�_Null
x      � 2:�_OpenWindow
�      � 3:�_CloseWindow
�      � 6:�_MouseClick
�      � 9:�_MenuSelection
�      � 17,18:�_UserMessage
�   �
�� Finished%
�
��_CloseDown
�
��
�
���_Null
��

��_OpenWindow
   ș "Wimp_OpenWindow",,B%
"�
,
6��_CloseWindow
@    ș "Wimp_CloseWindow",,B%
J�
T
^��_MouseClick
h   But%=B%!8
r   Ȏ B%!12 �
|      � MainHandle%:
�5         � But%<>2 � B%!16>0 � �_MoveBlock(B%!16)
�?         � But%=2 � �_CreateMenu(MainMenu%,B%!0-64,B%!4+32)
�      � -2:
�;         � But%=1 � But%=4 � �_OpenWindowH(MainHandle%)
�:         � But%=2 � �_CreateMenu(BarMenu%,B%!0-64,184)
�   �
��
�
���_MenuSelection
�%   ș "Wimp_GetPointerInfo",,Tmp%
�   But%=Tmp%!8
�.   ș "Wimp_DecodeMenu",,OpenMenu%,B%,Tmp%
�   MenuSel$=$Tmp%
   Ȏ MenuSel$ �
      � "Restart"
!         ș "OS_Confirm" � c%
&!         � c%=121 � �_NewGame
0      � "Quit"
:         Finished%=�
D   �
N-   � But%=1 � �_CreateMenu(OpenMenu%,0,0)
X�
b
l��_UserMessage
v   Ȏ B%!16 �
�      � 0:Finished%=�
�      � &502:�_HelpRequest
�6      � &400C1:�_RescanFonts(InfoHandle%,InfoBlk%)
�   �
��
�
���_HelpRequest
�   B%!0=252
�   B%!12=B%!8
�   B%!16=&503
�   B%!20=0
��   � B%!32=MainHandle% � $(B%+20)="This is King Out.  Get the King to the bottom centre as indicated.|MClick SELECT to slide a block until it hits something.|MClick ADJUST to slide a block by one space.|MClick MENU to restart."+�0
�   � B%!32=-2 � B%!36=BIconHandle% � $(B%+20)="This is the King Out application.|MClick SELECT or ADJUST to bring up the main window.|MClick MENU for the bar menu."+�0
�'   ș "Wimp_SendMessage",17,B%,B%!4
�

��_Init
    TaskName$="KingOut"
*   � ms% 4:!ms%=0
4F   ș "Wimp_Initialise",310,&4B534154,TaskName$,ms% � ,TaskHandle%
>   � B% &100
H   � Tmp% &100
R   � BarIcon% 40
\   � BarMenu% &100
f   � MainMenu% &100
p   � InfoBlk% &400
z   � MainBlk% &400
�*   � Ind% &200,IndEnd% -1:NxtInd%=Ind%
�   � ErrBlk% &100
�   � Board% 20,Block% 12
�)   � UserSprites% 8000,EndUserSpr% -1
�   � FontRef% 255
�   �_LoadSprites
�   �_InitFontRef
�   �_LoadTemplates
�   �_SetUpUserSpriteIcons
�   �_CreateWindows
�   �_PutIconOnBar
�   �_SetupMenus
�   Finished%=�
   �_NewGame
�
$
.��_PutIconOnBar
8   !BarIcon%=-1
B   BarIcon%!4=0
L   BarIcon%!8=0
V   BarIcon%!12=68
`   BarIcon%!16=68
j   BarIcon%!20=&301A
t    $(BarIcon%+24)="!kingout"
~4   ș "Wimp_CreateIcon",,BarIcon% � BIconHandle%
��
�
�1��_SetIconState(Tmp%!0,Tmp%!4,Tmp%!8,Tmp%!12)
�#   ș "Wimp_SetIconState",,Tmp%
��
�
���_SetUpUserSpriteIcons
�� I%
   � I%=0 � 11

$      �_IconUserSpr(MainBlk%,I%)
   �
�
(
2"��_IconUserSpr(WBlk%,IHandle%)
<	� Id%
F   Id%=WBlk%+88+IHandle%*32
P#   Id%!16=(Id%!16 � %100000000)
Z   Id%!24=UserSprites%
d   Id%!28=12
n�
x
���_SetupMenus
�!   �_NewMenu(BarMenu%,"King")
�3   �_AddMenuItem(BarMenu%,"Info",0,InfoHandle%)
�*   �_AddMenuItem(BarMenu%,"Quit",0,-1)
�"   �_NewMenu(MainMenu%,"Main")
�.   �_AddMenuItem(MainMenu%,"Restart",0,-1)
��
�
���_NewMenu(MenuBlk%,Title$)
�   $MenuBlk%=Title$
�   MenuBlk%!12=&00070207
�   MenuBlk%!16=0
�   MenuBlk%!20=44
   MenuBlk%!24=0
   MenuBlk%!28=-1
�
"
,.��_AddMenuItem(MenuBlk%,Item$,Flags%,Ptr%)
6@   � MenuBlk%!16<�(Item$)*16+12 � MenuBlk%!16=�(Item$)*16+12
@   MenuBlk%+=28
J   � !MenuBlk%<>-1 �
T      �
^         MenuBlk%+=24
h$      � (MenuBlk%!-24 � 128)=128
r*      MenuBlk%!-24=MenuBlk%!-24 � �128
|   �
�   !MenuBlk%=(Flags% � 128)
�   MenuBlk%!4=Ptr%
�   MenuBlk%!8=&7009031
�   $(MenuBlk%+12)=Item$
��
�
���_OpenWindowH(Handle%)
�   !Tmp%=Handle%
�%   ș "Wimp_GetWindowState",,Tmp%
�   Tmp%!28=-1
�!   ș "Wimp_OpenWindow",,Tmp%
��
�
��_LoadTemplates
5   ș "Wimp_OpenTemplate",,"<Obey$Dir>.Templates"
Y   ș "Wimp_LoadTemplate",,InfoBlk%,NxtInd%,IndEnd%,FontRef%,"ProgInfo",0 � ,,NxtInd%
&U   ș "Wimp_LoadTemplate",,MainBlk%,NxtInd%,IndEnd%,FontRef%,"main",0 � ,,NxtInd%
0   ș "Wimp_CloseTemplate"
:�
D
N��_CreateWindows
X5   ș "Wimp_CreateWindow",,InfoBlk% � InfoHandle%
b5   ș "Wimp_CreateWindow",,MainBlk% � MainHandle%
l�
v
���_Error(Error$)
�   !ErrBlk%=0
�   $(ErrBlk%+4)=Error$
�0   ș "Wimp_ReportError",ErrBlk%,0,TaskName$
��
�
�'��_CreateMenu(MenuBlk%,Xpos%,Ypos%)
�   OpenMenu%=MenuBlk%
�1   ș "Wimp_CreateMenu",,MenuBlk%,Xpos%,Ypos%
��
�
���_LoadSprites
�/   !UserSprites%=EndUserSpr%-UserSprites%-4
@   ș "OS_SpriteOp",256+10,UserSprites%,"<Obey$Dir>.Sprites"
�

 ݤ_Str(A%)
*� A$
4   A$=""
>   ȕ ?A%>=32 � �A$<255
H      A$+=�?A%
R      A%+=1
\   �
f=A$
p
z��_RescanFonts(Wh%,Wblk%)
� � I%,F%,FontH%,Xsize%,Ysize%
�   � Wblk%!84>0 �
�      � I%=0 � Wblk%!84-1
�         Tmp%!0=Wh%
�         Tmp%!4=I%
�)         ș "Wimp_GetIconState",,Tmp%
�$         F%=Tmp%!24:� Icon flags
�#         � (F% � %1000000)<>0 �
�            FontH%=F%>>>24
�@            ș "Font_ReadDefn",FontH%,Tmp% � ,,Xsize%,Ysize%
�C            ș "Font_FindFont",,Tmp%,Xsize%,Ysize%,0,0 � FontH%
�T            � FontRef%?FontH%>0 � ș "Font_LoseFont",FontH% � FontRef%?FontH%+=1
�9            �_SetIconState(Wh%,I%,FontH%<<24,&FF<<24)
	.         �
	8      �
	B   �
	L�
	V
	`��_InitFontRef
	j� I%
	t'   � I%=0 � 252 � 4:FontRef%!I%=0:�
	~�
	�
	���_LoseFonts
	�� I%
	�   � I%=0 � 255
	�      ȕ FontRef%?I%>0
	�"         ș "Font_LoseFont",I%
	�         FontRef%?I%-=1
	�      �
	�   �
	��
	�
	���_CloseDown
   �_LoseFonts

0   ș "Wimp_CloseDown",TaskHandle%,&4B534154
�

(��_NewGame
2� I%,x%,y%
<   �_PutBlock(1,1)
F   �_PutBlock(2,0)
P   �_PutBlock(3,3)
Z   �_PutBlock(4,8)
d   �_PutBlock(5,9)
n   �_PutBlock(6,10)
x   �_PutBlock(7,11)
�   �_PutBlock(8,12)
�   �_PutBlock(9,14)
�   �_PutBlock(10,16)
�   �_PutBlock(11,19)
�   Board%?17=0:Board%?18=0
�   � I%=1 � 11
�      Tmp%!0=MainHandle%
�      Tmp%!4=I%
�&      ș "Wimp_GetIconState",,Tmp%
�$      ș "Wimp_DeleteIcon",,Tmp%
�      x%=Block%?I% � 4*128
�!      y%=-(Block%?I% � 4*128)
�      Tmp%!8=x%
      Tmp%!20=y%
      Ȏ I% �
.         � 1:Tmp%!12=y%-256:Tmp%!16=x%+256
"0         � 2,3:Tmp%!12=y%-256:Tmp%!16=x%+128
,0         � 8,9:Tmp%!12=y%-128:Tmp%!16=x%+256
6:         � 4,5,6,7,10,11:Tmp%!12=y%-128:Tmp%!16=x%+128
@      �
J      Tmp%!4=MainHandle%
T&      ș "Wimp_CreateIcon",,Tmp%+4
^   �
h7   ș "Wimp_ForceRedraw",MainHandle%,0,-2000,2000,0
r�
|
���_PutBlock(a%,b%)
�   Block%?a%=b%
�   Board%?b%=1
�   Ȏ a% �
�=      � 1:Board%?(b%+1)=1:Board%?(b%+4)=1:Board%?(b%+5)=1
�      � 2,3:Board%?(b%+4)=1
�      � 8,9:Board%?(b%+1)=1
�   �
��
�
���_RemoveBlock(a%)
�� b%
�   b%=Block%?a%
   Board%?b%=0
   Ȏ a% �
=      � 1:Board%?(b%+1)=0:Board%?(b%+4)=0:Board%?(b%+5)=0
&      � 2,3:Board%?(b%+4)=0
0      � 8,9:Board%?(b%+1)=0
:   �
D�
N
Xݤ_CheckSpace(a%,b%)
b   � Board%?b%=1 � =�
l   Ȏ a% �
vH      � 1:� Board%?(b%+1)=1 � Board%?(b%+4)=1 � Board%?(b%+5)=1 � =�
�&      � 2,3:� Board%?(b%+4)=1 � =�
�&      � 8,9:� Board%?(b%+1)=1 � =�
�   �
�=�
�
�ݤ_OffBoard(a%,d%)
�� x%,y%,dx%,dy%
�   dx%=d% � 4:dy%=d% � 4
�(   x%=Block%?a% � 4:y%=Block%?a% � 4
�!   � x%+dx%<0 � y%+dy%<0 � =�
�   Ȏ a% �
�(      � 1:� x%+dx%>2 � y%+dy%>3 � =�
�*      � 2,3:� x%+dx%>3 � y%+dy%>3 � =�

*      � 8,9:� x%+dx%>2 � y%+dy%>4 � =�

4      � 4,5,6,7,10,11:� x%+dx%>3 � y%+dy%>4 � =�

   �

 =�

*

4��_MoveBlock(a%)

>� x%,y%,mx%,my%,ok%,t1%,t2%

H   Tmp%!0=MainHandle%

R%   ș "Wimp_GetWindowState",,Tmp%

\5   x%=B%!0-Tmp%!4+Tmp%!20:y%=B%!4-Tmp%!16+Tmp%!24

f   Tmp%!0=MainHandle%

p   Tmp%!4=a%

z#   ș "Wimp_GetIconState",,Tmp%

�9   mx%=(Tmp%!8+Tmp%!16) � 2:my%=(Tmp%!12+Tmp%!20) � 2

�   t1%=1:t2%=-4

�   � x%<mx% � t1%=-t1%

�   � y%<my% � t2%=-t2%

�)   � �(y%-my%)>�(x%-mx%) � Ȕ t1%,t2%

�   �_TryMove(a%,t1%,ok%)

�'   � � ok% � �_TryMove(a%,-t1%,ok%)

�&   � � ok% � �_TryMove(a%,t2%,ok%)

�'   � � ok% � �_TryMove(a%,-t2%,ok%)

�.   � a%=1 � Block%?1=13 � ok% � �_Coronate

��

�

���_TryMove(a%,d%,� ok%)
 � Try to move block a% by d%
� b%,x%,y%
   ok%=�
$   b%=Block%?a%+d%
.   � �_OffBoard(a%,d%) � �
8   �_RemoveBlock(a%)
B;   � � �_CheckSpace(a%,b%) � �_PutBlock(a%,Block%?a%):�
L   ok%=�
V   �_PutBlock(a%,b%)
`
j'   � But%=4 � � �_OffBoard(a%,d%) �
t      �_RemoveBlock(a%)
~+      � �_CheckSpace(a%,b%+d%) � b%+=d%
�      �_PutBlock(a%,b%)
�   �
�
�G   ș "Wimp_ForceRedraw",MainHandle%,Tmp%!8,Tmp%!12,Tmp%!16,Tmp%!20
�!   ș "Wimp_DeleteIcon",,Tmp%
�   x%=b% � 4*128
�   y%=-(b% � 4*128)
�   Tmp%!8=x%
�   Tmp%!20=y%
�   Ȏ a% �
�+      � 1:Tmp%!12=y%-256:Tmp%!16=x%+256
�-      � 2,3:Tmp%!12=y%-256:Tmp%!16=x%+128
-      � 8,9:Tmp%!12=y%-128:Tmp%!16=x%+256

7      � 4,5,6,7,10,11:Tmp%!12=y%-128:Tmp%!16=x%+128
   �
   Tmp%!4=MainHandle%
(#   ș "Wimp_CreateIcon",,Tmp%+4
2)   �_SetIconState(MainHandle%,a%,0,0)
<�
F
P��_Coronate
Z   ș "XSound_QInit"
d5   ș "XSound_QSchedule",-2,0,&FFF10001,&00200094
n5   ș "XSound_QSchedule",48,0,&FFF10001,&00200094
x5   ș "XSound_QSchedule",96,0,&FFF10001,&0020009C
�6   ș "XSound_QSchedule",144,0,&FFF10001,&00200090
�6   ș "XSound_QSchedule",216,0,&FFF10001,&00200094
�6   ș "XSound_QSchedule",240,0,&FFF10001,&0050009C
��
�
00000000  0d 00 0a 11 f4 20 3e 20  21 52 75 6e 49 6d 61 67  |..... > !RunImag|
00000010  65 0d 00 14 27 f4 20 3e  20 21 4b 69 6e 67 4f 75  |e...'. > !KingOu|
00000020  74 20 57 72 69 74 74 65  6e 20 62 79 20 47 4a 4c  |t Written by GJL|
00000030  20 31 2f 31 32 2f 39 33  0d 00 1e 04 0d 00 28 39  | 1/12/93......(9|
00000040  ee 85 20 f2 5f 45 72 72  6f 72 28 f6 24 2b 22 20  |.. ._Error(.$+" |
00000050  28 49 6e 74 65 72 6e 61  6c 20 65 72 72 6f 72 20  |(Internal error |
00000060  22 2b c3 9e 2b 22 29 22  29 3a f2 5f 43 6c 6f 73  |"+..+")"):._Clos|
00000070  65 44 6f 77 6e 0d 00 32  04 0d 00 3c 0a f2 5f 49  |eDown..2...<.._I|
00000080  6e 69 74 0d 00 46 04 0d  00 50 05 f5 0d 00 5a 32  |nit..F...P....Z2|
00000090  20 20 20 c8 99 20 22 57  69 6d 70 5f 50 6f 6c 6c  |   .. "Wimp_Poll|
000000a0  22 2c 25 31 31 31 30 30  30 30 30 31 31 30 30 31  |",%1110000011001|
000000b0  31 2c 42 25 20 b8 20 52  65 61 73 6f 6e 25 0d 00  |1,B% . Reason%..|
000000c0  64 13 20 20 20 c8 8e 20  52 65 61 73 6f 6e 25 20  |d.   .. Reason% |
000000d0  ca 0d 00 6e 14 20 20 20  20 20 20 c9 20 30 3a f2  |...n.      . 0:.|
000000e0  5f 4e 75 6c 6c 0d 00 78  1a 20 20 20 20 20 20 c9  |_Null..x.      .|
000000f0  20 32 3a f2 5f 4f 70 65  6e 57 69 6e 64 6f 77 0d  | 2:._OpenWindow.|
00000100  00 82 1b 20 20 20 20 20  20 c9 20 33 3a f2 5f 43  |...      . 3:._C|
00000110  6c 6f 73 65 57 69 6e 64  6f 77 0d 00 8c 1a 20 20  |loseWindow....  |
00000120  20 20 20 20 c9 20 36 3a  f2 5f 4d 6f 75 73 65 43  |    . 6:._MouseC|
00000130  6c 69 63 6b 0d 00 96 1d  20 20 20 20 20 20 c9 20  |lick....      . |
00000140  39 3a f2 5f 4d 65 6e 75  53 65 6c 65 63 74 69 6f  |9:._MenuSelectio|
00000150  6e 0d 00 a0 1f 20 20 20  20 20 20 c9 20 31 37 2c  |n....      . 17,|
00000160  31 38 3a f2 5f 55 73 65  72 4d 65 73 73 61 67 65  |18:._UserMessage|
00000170  0d 00 aa 08 20 20 20 cb  0d 00 b4 0f fd 20 46 69  |....   ...... Fi|
00000180  6e 69 73 68 65 64 25 0d  00 be 04 0d 00 c8 0f f2  |nished%.........|
00000190  5f 43 6c 6f 73 65 44 6f  77 6e 0d 00 d2 04 0d 00  |_CloseDown......|
000001a0  dc 05 e0 0d 00 e6 04 0d  00 f0 0b dd f2 5f 4e 75  |............._Nu|
000001b0  6c 6c 0d 00 fa 05 e1 0d  01 04 04 0d 01 0e 11 dd  |ll..............|
000001c0  f2 5f 4f 70 65 6e 57 69  6e 64 6f 77 0d 01 18 1f  |._OpenWindow....|
000001d0  20 20 20 c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |   .. "Wimp_Open|
000001e0  57 69 6e 64 6f 77 22 2c  2c 42 25 0d 01 22 05 e1  |Window",,B%.."..|
000001f0  0d 01 2c 04 0d 01 36 12  dd f2 5f 43 6c 6f 73 65  |..,...6..._Close|
00000200  57 69 6e 64 6f 77 0d 01  40 20 20 20 20 c8 99 20  |Window..@    .. |
00000210  22 57 69 6d 70 5f 43 6c  6f 73 65 57 69 6e 64 6f  |"Wimp_CloseWindo|
00000220  77 22 2c 2c 42 25 0d 01  4a 05 e1 0d 01 54 04 0d  |w",,B%..J....T..|
00000230  01 5e 11 dd f2 5f 4d 6f  75 73 65 43 6c 69 63 6b  |.^..._MouseClick|
00000240  0d 01 68 10 20 20 20 42  75 74 25 3d 42 25 21 38  |..h.   But%=B%!8|
00000250  0d 01 72 11 20 20 20 c8  8e 20 42 25 21 31 32 20  |..r.   .. B%!12 |
00000260  ca 0d 01 7c 18 20 20 20  20 20 20 c9 20 4d 61 69  |...|.      . Mai|
00000270  6e 48 61 6e 64 6c 65 25  3a 0d 01 86 35 20 20 20  |nHandle%:...5   |
00000280  20 20 20 20 20 20 e7 20  42 75 74 25 3c 3e 32 20  |      . But%<>2 |
00000290  80 20 42 25 21 31 36 3e  30 20 8c 20 f2 5f 4d 6f  |. B%!16>0 . ._Mo|
000002a0  76 65 42 6c 6f 63 6b 28  42 25 21 31 36 29 0d 01  |veBlock(B%!16)..|
000002b0  90 3f 20 20 20 20 20 20  20 20 20 e7 20 42 75 74  |.?         . But|
000002c0  25 3d 32 20 8c 20 f2 5f  43 72 65 61 74 65 4d 65  |%=2 . ._CreateMe|
000002d0  6e 75 28 4d 61 69 6e 4d  65 6e 75 25 2c 42 25 21  |nu(MainMenu%,B%!|
000002e0  30 2d 36 34 2c 42 25 21  34 2b 33 32 29 0d 01 9a  |0-64,B%!4+32)...|
000002f0  0f 20 20 20 20 20 20 c9  20 2d 32 3a 0d 01 a4 3b  |.      . -2:...;|
00000300  20 20 20 20 20 20 20 20  20 e7 20 42 75 74 25 3d  |         . But%=|
00000310  31 20 84 20 42 75 74 25  3d 34 20 8c 20 f2 5f 4f  |1 . But%=4 . ._O|
00000320  70 65 6e 57 69 6e 64 6f  77 48 28 4d 61 69 6e 48  |penWindowH(MainH|
00000330  61 6e 64 6c 65 25 29 0d  01 ae 3a 20 20 20 20 20  |andle%)...:     |
00000340  20 20 20 20 e7 20 42 75  74 25 3d 32 20 8c 20 f2  |    . But%=2 . .|
00000350  5f 43 72 65 61 74 65 4d  65 6e 75 28 42 61 72 4d  |_CreateMenu(BarM|
00000360  65 6e 75 25 2c 42 25 21  30 2d 36 34 2c 31 38 34  |enu%,B%!0-64,184|
00000370  29 0d 01 b8 08 20 20 20  cb 0d 01 c2 05 e1 0d 01  |)....   ........|
00000380  cc 04 0d 01 d6 14 dd f2  5f 4d 65 6e 75 53 65 6c  |........_MenuSel|
00000390  65 63 74 69 6f 6e 0d 01  e0 25 20 20 20 c8 99 20  |ection...%   .. |
000003a0  22 57 69 6d 70 5f 47 65  74 50 6f 69 6e 74 65 72  |"Wimp_GetPointer|
000003b0  49 6e 66 6f 22 2c 2c 54  6d 70 25 0d 01 ea 12 20  |Info",,Tmp%.... |
000003c0  20 20 42 75 74 25 3d 54  6d 70 25 21 38 0d 01 f4  |  But%=Tmp%!8...|
000003d0  2e 20 20 20 c8 99 20 22  57 69 6d 70 5f 44 65 63  |.   .. "Wimp_Dec|
000003e0  6f 64 65 4d 65 6e 75 22  2c 2c 4f 70 65 6e 4d 65  |odeMenu",,OpenMe|
000003f0  6e 75 25 2c 42 25 2c 54  6d 70 25 0d 01 fe 15 20  |nu%,B%,Tmp%.... |
00000400  20 20 4d 65 6e 75 53 65  6c 24 3d 24 54 6d 70 25  |  MenuSel$=$Tmp%|
00000410  0d 02 08 14 20 20 20 c8  8e 20 4d 65 6e 75 53 65  |....   .. MenuSe|
00000420  6c 24 20 ca 0d 02 12 15  20 20 20 20 20 20 c9 20  |l$ .....      . |
00000430  22 52 65 73 74 61 72 74  22 0d 02 1c 21 20 20 20  |"Restart"...!   |
00000440  20 20 20 20 20 20 c8 99  20 22 4f 53 5f 43 6f 6e  |      .. "OS_Con|
00000450  66 69 72 6d 22 20 b8 20  63 25 0d 02 26 21 20 20  |firm" . c%..&!  |
00000460  20 20 20 20 20 20 20 e7  20 63 25 3d 31 32 31 20  |       . c%=121 |
00000470  8c 20 f2 5f 4e 65 77 47  61 6d 65 0d 02 30 12 20  |. ._NewGame..0. |
00000480  20 20 20 20 20 c9 20 22  51 75 69 74 22 0d 02 3a  |     . "Quit"..:|
00000490  18 20 20 20 20 20 20 20  20 20 46 69 6e 69 73 68  |.         Finish|
000004a0  65 64 25 3d b9 0d 02 44  08 20 20 20 cb 0d 02 4e  |ed%=...D.   ...N|
000004b0  2d 20 20 20 e7 20 42 75  74 25 3d 31 20 8c 20 f2  |-   . But%=1 . .|
000004c0  5f 43 72 65 61 74 65 4d  65 6e 75 28 4f 70 65 6e  |_CreateMenu(Open|
000004d0  4d 65 6e 75 25 2c 30 2c  30 29 0d 02 58 05 e1 0d  |Menu%,0,0)..X...|
000004e0  02 62 04 0d 02 6c 12 dd  f2 5f 55 73 65 72 4d 65  |.b...l..._UserMe|
000004f0  73 73 61 67 65 0d 02 76  11 20 20 20 c8 8e 20 42  |ssage..v.   .. B|
00000500  25 21 31 36 20 ca 0d 02  80 19 20 20 20 20 20 20  |%!16 .....      |
00000510  c9 20 30 3a 46 69 6e 69  73 68 65 64 25 3d b9 0d  |. 0:Finished%=..|
00000520  02 8a 1e 20 20 20 20 20  20 c9 20 26 35 30 32 3a  |...      . &502:|
00000530  f2 5f 48 65 6c 70 52 65  71 75 65 73 74 0d 02 8b  |._HelpRequest...|
00000540  36 20 20 20 20 20 20 c9  20 26 34 30 30 43 31 3a  |6      . &400C1:|
00000550  f2 5f 52 65 73 63 61 6e  46 6f 6e 74 73 28 49 6e  |._RescanFonts(In|
00000560  66 6f 48 61 6e 64 6c 65  25 2c 49 6e 66 6f 42 6c  |foHandle%,InfoBl|
00000570  6b 25 29 0d 02 94 08 20  20 20 cb 0d 02 9e 05 e1  |k%)....   ......|
00000580  0d 02 a8 04 0d 02 b2 12  dd f2 5f 48 65 6c 70 52  |.........._HelpR|
00000590  65 71 75 65 73 74 0d 02  bc 0f 20 20 20 42 25 21  |equest....   B%!|
000005a0  30 3d 32 35 32 0d 02 c6  11 20 20 20 42 25 21 31  |0=252....   B%!1|
000005b0  32 3d 42 25 21 38 0d 02  d0 11 20 20 20 42 25 21  |2=B%!8....   B%!|
000005c0  31 36 3d 26 35 30 33 0d  02 da 0e 20 20 20 42 25  |16=&503....   B%|
000005d0  21 32 30 3d 30 0d 02 e4  ea 20 20 20 e7 20 42 25  |!20=0....   . B%|
000005e0  21 33 32 3d 4d 61 69 6e  48 61 6e 64 6c 65 25 20  |!32=MainHandle% |
000005f0  8c 20 24 28 42 25 2b 32  30 29 3d 22 54 68 69 73  |. $(B%+20)="This|
00000600  20 69 73 20 4b 69 6e 67  20 4f 75 74 2e 20 20 47  | is King Out.  G|
00000610  65 74 20 74 68 65 20 4b  69 6e 67 20 74 6f 20 74  |et the King to t|
00000620  68 65 20 62 6f 74 74 6f  6d 20 63 65 6e 74 72 65  |he bottom centre|
00000630  20 61 73 20 69 6e 64 69  63 61 74 65 64 2e 7c 4d  | as indicated.|M|
00000640  43 6c 69 63 6b 20 53 45  4c 45 43 54 20 74 6f 20  |Click SELECT to |
00000650  73 6c 69 64 65 20 61 20  62 6c 6f 63 6b 20 75 6e  |slide a block un|
00000660  74 69 6c 20 69 74 20 68  69 74 73 20 73 6f 6d 65  |til it hits some|
00000670  74 68 69 6e 67 2e 7c 4d  43 6c 69 63 6b 20 41 44  |thing.|MClick AD|
00000680  4a 55 53 54 20 74 6f 20  73 6c 69 64 65 20 61 20  |JUST to slide a |
00000690  62 6c 6f 63 6b 20 62 79  20 6f 6e 65 20 73 70 61  |block by one spa|
000006a0  63 65 2e 7c 4d 43 6c 69  63 6b 20 4d 45 4e 55 20  |ce.|MClick MENU |
000006b0  74 6f 20 72 65 73 74 61  72 74 2e 22 2b bd 30 0d  |to restart."+.0.|
000006c0  02 ee ab 20 20 20 e7 20  42 25 21 33 32 3d 2d 32  |...   . B%!32=-2|
000006d0  20 80 20 42 25 21 33 36  3d 42 49 63 6f 6e 48 61  | . B%!36=BIconHa|
000006e0  6e 64 6c 65 25 20 8c 20  24 28 42 25 2b 32 30 29  |ndle% . $(B%+20)|
000006f0  3d 22 54 68 69 73 20 69  73 20 74 68 65 20 4b 69  |="This is the Ki|
00000700  6e 67 20 4f 75 74 20 61  70 70 6c 69 63 61 74 69  |ng Out applicati|
00000710  6f 6e 2e 7c 4d 43 6c 69  63 6b 20 53 45 4c 45 43  |on.|MClick SELEC|
00000720  54 20 6f 72 20 41 44 4a  55 53 54 20 74 6f 20 62  |T or ADJUST to b|
00000730  72 69 6e 67 20 75 70 20  74 68 65 20 6d 61 69 6e  |ring up the main|
00000740  20 77 69 6e 64 6f 77 2e  7c 4d 43 6c 69 63 6b 20  | window.|MClick |
00000750  4d 45 4e 55 20 66 6f 72  20 74 68 65 20 62 61 72  |MENU for the bar|
00000760  20 6d 65 6e 75 2e 22 2b  bd 30 0d 02 f8 27 20 20  | menu."+.0...'  |
00000770  20 c8 99 20 22 57 69 6d  70 5f 53 65 6e 64 4d 65  | .. "Wimp_SendMe|
00000780  73 73 61 67 65 22 2c 31  37 2c 42 25 2c 42 25 21  |ssage",17,B%,B%!|
00000790  34 0d 03 02 05 e1 0d 03  0c 04 0d 03 16 0b dd f2  |4...............|
000007a0  5f 49 6e 69 74 0d 03 20  1a 20 20 20 54 61 73 6b  |_Init.. .   Task|
000007b0  4e 61 6d 65 24 3d 22 4b  69 6e 67 4f 75 74 22 0d  |Name$="KingOut".|
000007c0  03 2a 15 20 20 20 de 20  6d 73 25 20 34 3a 21 6d  |.*.   . ms% 4:!m|
000007d0  73 25 3d 30 0d 03 34 46  20 20 20 c8 99 20 22 57  |s%=0..4F   .. "W|
000007e0  69 6d 70 5f 49 6e 69 74  69 61 6c 69 73 65 22 2c  |imp_Initialise",|
000007f0  33 31 30 2c 26 34 42 35  33 34 31 35 34 2c 54 61  |310,&4B534154,Ta|
00000800  73 6b 4e 61 6d 65 24 2c  6d 73 25 20 b8 20 2c 54  |skName$,ms% . ,T|
00000810  61 73 6b 48 61 6e 64 6c  65 25 0d 03 3e 10 20 20  |askHandle%..>.  |
00000820  20 de 20 42 25 20 26 31  30 30 0d 03 48 12 20 20  | . B% &100..H.  |
00000830  20 de 20 54 6d 70 25 20  26 31 30 30 0d 03 52 14  | . Tmp% &100..R.|
00000840  20 20 20 de 20 42 61 72  49 63 6f 6e 25 20 34 30  |   . BarIcon% 40|
00000850  0d 03 5c 16 20 20 20 de  20 42 61 72 4d 65 6e 75  |..\.   . BarMenu|
00000860  25 20 26 31 30 30 0d 03  66 17 20 20 20 de 20 4d  |% &100..f.   . M|
00000870  61 69 6e 4d 65 6e 75 25  20 26 31 30 30 0d 03 70  |ainMenu% &100..p|
00000880  16 20 20 20 de 20 49 6e  66 6f 42 6c 6b 25 20 26  |.   . InfoBlk% &|
00000890  34 30 30 0d 03 7a 16 20  20 20 de 20 4d 61 69 6e  |400..z.   . Main|
000008a0  42 6c 6b 25 20 26 34 30  30 0d 03 84 2a 20 20 20  |Blk% &400...*   |
000008b0  de 20 49 6e 64 25 20 26  32 30 30 2c 49 6e 64 45  |. Ind% &200,IndE|
000008c0  6e 64 25 20 2d 31 3a 4e  78 74 49 6e 64 25 3d 49  |nd% -1:NxtInd%=I|
000008d0  6e 64 25 0d 03 8e 15 20  20 20 de 20 45 72 72 42  |nd%....   . ErrB|
000008e0  6c 6b 25 20 26 31 30 30  0d 03 98 1c 20 20 20 de  |lk% &100....   .|
000008f0  20 42 6f 61 72 64 25 20  32 30 2c 42 6c 6f 63 6b  | Board% 20,Block|
00000900  25 20 31 32 0d 03 a2 29  20 20 20 de 20 55 73 65  |% 12...)   . Use|
00000910  72 53 70 72 69 74 65 73  25 20 38 30 30 30 2c 45  |rSprites% 8000,E|
00000920  6e 64 55 73 65 72 53 70  72 25 20 2d 31 0d 03 ac  |ndUserSpr% -1...|
00000930  15 20 20 20 de 20 46 6f  6e 74 52 65 66 25 20 32  |.   . FontRef% 2|
00000940  35 35 0d 03 b6 14 20 20  20 f2 5f 4c 6f 61 64 53  |55....   ._LoadS|
00000950  70 72 69 74 65 73 0d 03  c0 14 20 20 20 f2 5f 49  |prites....   ._I|
00000960  6e 69 74 46 6f 6e 74 52  65 66 0d 03 ca 16 20 20  |nitFontRef....  |
00000970  20 f2 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 73  | ._LoadTemplates|
00000980  0d 03 d4 1d 20 20 20 f2  5f 53 65 74 55 70 55 73  |....   ._SetUpUs|
00000990  65 72 53 70 72 69 74 65  49 63 6f 6e 73 0d 03 de  |erSpriteIcons...|
000009a0  16 20 20 20 f2 5f 43 72  65 61 74 65 57 69 6e 64  |.   ._CreateWind|
000009b0  6f 77 73 0d 03 e8 15 20  20 20 f2 5f 50 75 74 49  |ows....   ._PutI|
000009c0  63 6f 6e 4f 6e 42 61 72  0d 03 f2 13 20 20 20 f2  |conOnBar....   .|
000009d0  5f 53 65 74 75 70 4d 65  6e 75 73 0d 03 fc 12 20  |_SetupMenus.... |
000009e0  20 20 46 69 6e 69 73 68  65 64 25 3d a3 0d 04 06  |  Finished%=....|
000009f0  10 20 20 20 f2 5f 4e 65  77 47 61 6d 65 0d 04 1a  |.   ._NewGame...|
00000a00  05 e1 0d 04 24 04 0d 04  2e 13 dd f2 5f 50 75 74  |....$......._Put|
00000a10  49 63 6f 6e 4f 6e 42 61  72 0d 04 38 13 20 20 20  |IconOnBar..8.   |
00000a20  21 42 61 72 49 63 6f 6e  25 3d 2d 31 0d 04 42 13  |!BarIcon%=-1..B.|
00000a30  20 20 20 42 61 72 49 63  6f 6e 25 21 34 3d 30 0d  |   BarIcon%!4=0.|
00000a40  04 4c 13 20 20 20 42 61  72 49 63 6f 6e 25 21 38  |.L.   BarIcon%!8|
00000a50  3d 30 0d 04 56 15 20 20  20 42 61 72 49 63 6f 6e  |=0..V.   BarIcon|
00000a60  25 21 31 32 3d 36 38 0d  04 60 15 20 20 20 42 61  |%!12=68..`.   Ba|
00000a70  72 49 63 6f 6e 25 21 31  36 3d 36 38 0d 04 6a 18  |rIcon%!16=68..j.|
00000a80  20 20 20 42 61 72 49 63  6f 6e 25 21 32 30 3d 26  |   BarIcon%!20=&|
00000a90  33 30 31 41 0d 04 74 20  20 20 20 24 28 42 61 72  |301A..t    $(Bar|
00000aa0  49 63 6f 6e 25 2b 32 34  29 3d 22 21 6b 69 6e 67  |Icon%+24)="!king|
00000ab0  6f 75 74 22 0d 04 7e 34  20 20 20 c8 99 20 22 57  |out"..~4   .. "W|
00000ac0  69 6d 70 5f 43 72 65 61  74 65 49 63 6f 6e 22 2c  |imp_CreateIcon",|
00000ad0  2c 42 61 72 49 63 6f 6e  25 20 b8 20 42 49 63 6f  |,BarIcon% . BIco|
00000ae0  6e 48 61 6e 64 6c 65 25  0d 04 88 05 e1 0d 04 92  |nHandle%........|
00000af0  04 0d 04 9c 31 dd f2 5f  53 65 74 49 63 6f 6e 53  |....1.._SetIconS|
00000b00  74 61 74 65 28 54 6d 70  25 21 30 2c 54 6d 70 25  |tate(Tmp%!0,Tmp%|
00000b10  21 34 2c 54 6d 70 25 21  38 2c 54 6d 70 25 21 31  |!4,Tmp%!8,Tmp%!1|
00000b20  32 29 0d 04 ce 23 20 20  20 c8 99 20 22 57 69 6d  |2)...#   .. "Wim|
00000b30  70 5f 53 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_SetIconState",|
00000b40  2c 54 6d 70 25 0d 04 d8  05 e1 0d 04 e2 04 0d 04  |,Tmp%...........|
00000b50  ec 1b dd f2 5f 53 65 74  55 70 55 73 65 72 53 70  |...._SetUpUserSp|
00000b60  72 69 74 65 49 63 6f 6e  73 0d 04 f6 08 ea 20 49  |riteIcons..... I|
00000b70  25 0d 05 00 12 20 20 20  e3 20 49 25 3d 30 20 b8  |%....   . I%=0 .|
00000b80  20 31 31 0d 05 0a 24 20  20 20 20 20 20 f2 5f 49  | 11...$      ._I|
00000b90  63 6f 6e 55 73 65 72 53  70 72 28 4d 61 69 6e 42  |conUserSpr(MainB|
00000ba0  6c 6b 25 2c 49 25 29 0d  05 14 08 20 20 20 ed 0d  |lk%,I%)....   ..|
00000bb0  05 1e 05 e1 0d 05 28 04  0d 05 32 22 dd f2 5f 49  |......(...2".._I|
00000bc0  63 6f 6e 55 73 65 72 53  70 72 28 57 42 6c 6b 25  |conUserSpr(WBlk%|
00000bd0  2c 49 48 61 6e 64 6c 65  25 29 0d 05 3c 09 ea 20  |,IHandle%)..<.. |
00000be0  49 64 25 0d 05 46 1f 20  20 20 49 64 25 3d 57 42  |Id%..F.   Id%=WB|
00000bf0  6c 6b 25 2b 38 38 2b 49  48 61 6e 64 6c 65 25 2a  |lk%+88+IHandle%*|
00000c00  33 32 0d 05 50 23 20 20  20 49 64 25 21 31 36 3d  |32..P#   Id%!16=|
00000c10  28 49 64 25 21 31 36 20  84 20 25 31 30 30 30 30  |(Id%!16 . %10000|
00000c20  30 30 30 30 29 0d 05 5a  1a 20 20 20 49 64 25 21  |0000)..Z.   Id%!|
00000c30  32 34 3d 55 73 65 72 53  70 72 69 74 65 73 25 0d  |24=UserSprites%.|
00000c40  05 64 10 20 20 20 49 64  25 21 32 38 3d 31 32 0d  |.d.   Id%!28=12.|
00000c50  05 6e 05 e1 0d 05 78 04  0d 05 82 11 dd f2 5f 53  |.n....x......._S|
00000c60  65 74 75 70 4d 65 6e 75  73 0d 05 8c 21 20 20 20  |etupMenus...!   |
00000c70  f2 5f 4e 65 77 4d 65 6e  75 28 42 61 72 4d 65 6e  |._NewMenu(BarMen|
00000c80  75 25 2c 22 4b 69 6e 67  22 29 0d 05 96 33 20 20  |u%,"King")...3  |
00000c90  20 f2 5f 41 64 64 4d 65  6e 75 49 74 65 6d 28 42  | ._AddMenuItem(B|
00000ca0  61 72 4d 65 6e 75 25 2c  22 49 6e 66 6f 22 2c 30  |arMenu%,"Info",0|
00000cb0  2c 49 6e 66 6f 48 61 6e  64 6c 65 25 29 0d 05 a0  |,InfoHandle%)...|
00000cc0  2a 20 20 20 f2 5f 41 64  64 4d 65 6e 75 49 74 65  |*   ._AddMenuIte|
00000cd0  6d 28 42 61 72 4d 65 6e  75 25 2c 22 51 75 69 74  |m(BarMenu%,"Quit|
00000ce0  22 2c 30 2c 2d 31 29 0d  05 aa 22 20 20 20 f2 5f  |",0,-1)..."   ._|
00000cf0  4e 65 77 4d 65 6e 75 28  4d 61 69 6e 4d 65 6e 75  |NewMenu(MainMenu|
00000d00  25 2c 22 4d 61 69 6e 22  29 0d 05 b4 2e 20 20 20  |%,"Main")....   |
00000d10  f2 5f 41 64 64 4d 65 6e  75 49 74 65 6d 28 4d 61  |._AddMenuItem(Ma|
00000d20  69 6e 4d 65 6e 75 25 2c  22 52 65 73 74 61 72 74  |inMenu%,"Restart|
00000d30  22 2c 30 2c 2d 31 29 0d  05 be 05 e1 0d 05 c8 04  |",0,-1).........|
00000d40  0d 05 d2 1f dd f2 5f 4e  65 77 4d 65 6e 75 28 4d  |......_NewMenu(M|
00000d50  65 6e 75 42 6c 6b 25 2c  54 69 74 6c 65 24 29 0d  |enuBlk%,Title$).|
00000d60  05 dc 17 20 20 20 24 4d  65 6e 75 42 6c 6b 25 3d  |...   $MenuBlk%=|
00000d70  54 69 74 6c 65 24 0d 05  e6 1c 20 20 20 4d 65 6e  |Title$....   Men|
00000d80  75 42 6c 6b 25 21 31 32  3d 26 30 30 30 37 30 32  |uBlk%!12=&000702|
00000d90  30 37 0d 05 f0 14 20 20  20 4d 65 6e 75 42 6c 6b  |07....   MenuBlk|
00000da0  25 21 31 36 3d 30 0d 05  fa 15 20 20 20 4d 65 6e  |%!16=0....   Men|
00000db0  75 42 6c 6b 25 21 32 30  3d 34 34 0d 06 04 14 20  |uBlk%!20=44.... |
00000dc0  20 20 4d 65 6e 75 42 6c  6b 25 21 32 34 3d 30 0d  |  MenuBlk%!24=0.|
00000dd0  06 0e 15 20 20 20 4d 65  6e 75 42 6c 6b 25 21 32  |...   MenuBlk%!2|
00000de0  38 3d 2d 31 0d 06 18 05  e1 0d 06 22 04 0d 06 2c  |8=-1......."...,|
00000df0  2e dd f2 5f 41 64 64 4d  65 6e 75 49 74 65 6d 28  |..._AddMenuItem(|
00000e00  4d 65 6e 75 42 6c 6b 25  2c 49 74 65 6d 24 2c 46  |MenuBlk%,Item$,F|
00000e10  6c 61 67 73 25 2c 50 74  72 25 29 0d 06 36 40 20  |lags%,Ptr%)..6@ |
00000e20  20 20 e7 20 4d 65 6e 75  42 6c 6b 25 21 31 36 3c  |  . MenuBlk%!16<|
00000e30  a9 28 49 74 65 6d 24 29  2a 31 36 2b 31 32 20 8c  |.(Item$)*16+12 .|
00000e40  20 4d 65 6e 75 42 6c 6b  25 21 31 36 3d a9 28 49  | MenuBlk%!16=.(I|
00000e50  74 65 6d 24 29 2a 31 36  2b 31 32 0d 06 40 13 20  |tem$)*16+12..@. |
00000e60  20 20 4d 65 6e 75 42 6c  6b 25 2b 3d 32 38 0d 06  |  MenuBlk%+=28..|
00000e70  4a 18 20 20 20 e7 20 21  4d 65 6e 75 42 6c 6b 25  |J.   . !MenuBlk%|
00000e80  3c 3e 2d 31 20 8c 0d 06  54 0b 20 20 20 20 20 20  |<>-1 ...T.      |
00000e90  f5 0d 06 5e 19 20 20 20  20 20 20 20 20 20 4d 65  |...^.         Me|
00000ea0  6e 75 42 6c 6b 25 2b 3d  32 34 0d 06 68 24 20 20  |nuBlk%+=24..h$  |
00000eb0  20 20 20 20 fd 20 28 4d  65 6e 75 42 6c 6b 25 21  |    . (MenuBlk%!|
00000ec0  2d 32 34 20 80 20 31 32  38 29 3d 31 32 38 0d 06  |-24 . 128)=128..|
00000ed0  72 2a 20 20 20 20 20 20  4d 65 6e 75 42 6c 6b 25  |r*      MenuBlk%|
00000ee0  21 2d 32 34 3d 4d 65 6e  75 42 6c 6b 25 21 2d 32  |!-24=MenuBlk%!-2|
00000ef0  34 20 80 20 ac 31 32 38  0d 06 7c 08 20 20 20 cd  |4 . .128..|.   .|
00000f00  0d 06 86 1f 20 20 20 21  4d 65 6e 75 42 6c 6b 25  |....   !MenuBlk%|
00000f10  3d 28 46 6c 61 67 73 25  20 84 20 31 32 38 29 0d  |=(Flags% . 128).|
00000f20  06 90 16 20 20 20 4d 65  6e 75 42 6c 6b 25 21 34  |...   MenuBlk%!4|
00000f30  3d 50 74 72 25 0d 06 9a  1a 20 20 20 4d 65 6e 75  |=Ptr%....   Menu|
00000f40  42 6c 6b 25 21 38 3d 26  37 30 30 39 30 33 31 0d  |Blk%!8=&7009031.|
00000f50  06 a4 1b 20 20 20 24 28  4d 65 6e 75 42 6c 6b 25  |...   $(MenuBlk%|
00000f60  2b 31 32 29 3d 49 74 65  6d 24 0d 06 ae 05 e1 0d  |+12)=Item$......|
00000f70  06 b8 04 0d 06 c2 1b dd  f2 5f 4f 70 65 6e 57 69  |........._OpenWi|
00000f80  6e 64 6f 77 48 28 48 61  6e 64 6c 65 25 29 0d 06  |ndowH(Handle%)..|
00000f90  cc 14 20 20 20 21 54 6d  70 25 3d 48 61 6e 64 6c  |..   !Tmp%=Handl|
00000fa0  65 25 0d 06 d6 25 20 20  20 c8 99 20 22 57 69 6d  |e%...%   .. "Wim|
00000fb0  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00000fc0  22 2c 2c 54 6d 70 25 0d  06 e0 11 20 20 20 54 6d  |",,Tmp%....   Tm|
00000fd0  70 25 21 32 38 3d 2d 31  0d 06 ea 21 20 20 20 c8  |p%!28=-1...!   .|
00000fe0  99 20 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |. "Wimp_OpenWind|
00000ff0  6f 77 22 2c 2c 54 6d 70  25 0d 06 f4 05 e1 0d 06  |ow",,Tmp%.......|
00001000  fe 04 0d 07 08 14 dd f2  5f 4c 6f 61 64 54 65 6d  |........_LoadTem|
00001010  70 6c 61 74 65 73 0d 07  12 35 20 20 20 c8 99 20  |plates...5   .. |
00001020  22 57 69 6d 70 5f 4f 70  65 6e 54 65 6d 70 6c 61  |"Wimp_OpenTempla|
00001030  74 65 22 2c 2c 22 3c 4f  62 65 79 24 44 69 72 3e  |te",,"<Obey$Dir>|
00001040  2e 54 65 6d 70 6c 61 74  65 73 22 0d 07 1c 59 20  |.Templates"...Y |
00001050  20 20 c8 99 20 22 57 69  6d 70 5f 4c 6f 61 64 54  |  .. "Wimp_LoadT|
00001060  65 6d 70 6c 61 74 65 22  2c 2c 49 6e 66 6f 42 6c  |emplate",,InfoBl|
00001070  6b 25 2c 4e 78 74 49 6e  64 25 2c 49 6e 64 45 6e  |k%,NxtInd%,IndEn|
00001080  64 25 2c 46 6f 6e 74 52  65 66 25 2c 22 50 72 6f  |d%,FontRef%,"Pro|
00001090  67 49 6e 66 6f 22 2c 30  20 b8 20 2c 2c 4e 78 74  |gInfo",0 . ,,Nxt|
000010a0  49 6e 64 25 0d 07 26 55  20 20 20 c8 99 20 22 57  |Ind%..&U   .. "W|
000010b0  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
000010c0  22 2c 2c 4d 61 69 6e 42  6c 6b 25 2c 4e 78 74 49  |",,MainBlk%,NxtI|
000010d0  6e 64 25 2c 49 6e 64 45  6e 64 25 2c 46 6f 6e 74  |nd%,IndEnd%,Font|
000010e0  52 65 66 25 2c 22 6d 61  69 6e 22 2c 30 20 b8 20  |Ref%,"main",0 . |
000010f0  2c 2c 4e 78 74 49 6e 64  25 0d 07 30 1e 20 20 20  |,,NxtInd%..0.   |
00001100  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 54 65  |.. "Wimp_CloseTe|
00001110  6d 70 6c 61 74 65 22 0d  07 3a 05 e1 0d 07 44 04  |mplate"..:....D.|
00001120  0d 07 4e 14 dd f2 5f 43  72 65 61 74 65 57 69 6e  |..N..._CreateWin|
00001130  64 6f 77 73 0d 07 58 35  20 20 20 c8 99 20 22 57  |dows..X5   .. "W|
00001140  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
00001150  22 2c 2c 49 6e 66 6f 42  6c 6b 25 20 b8 20 49 6e  |",,InfoBlk% . In|
00001160  66 6f 48 61 6e 64 6c 65  25 0d 07 62 35 20 20 20  |foHandle%..b5   |
00001170  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |.. "Wimp_CreateW|
00001180  69 6e 64 6f 77 22 2c 2c  4d 61 69 6e 42 6c 6b 25  |indow",,MainBlk%|
00001190  20 b8 20 4d 61 69 6e 48  61 6e 64 6c 65 25 0d 07  | . MainHandle%..|
000011a0  6c 05 e1 0d 07 76 04 0d  07 80 14 dd f2 5f 45 72  |l....v......._Er|
000011b0  72 6f 72 28 45 72 72 6f  72 24 29 0d 07 8a 11 20  |ror(Error$).... |
000011c0  20 20 21 45 72 72 42 6c  6b 25 3d 30 0d 07 94 1a  |  !ErrBlk%=0....|
000011d0  20 20 20 24 28 45 72 72  42 6c 6b 25 2b 34 29 3d  |   $(ErrBlk%+4)=|
000011e0  45 72 72 6f 72 24 0d 07  9e 30 20 20 20 c8 99 20  |Error$...0   .. |
000011f0  22 57 69 6d 70 5f 52 65  70 6f 72 74 45 72 72 6f  |"Wimp_ReportErro|
00001200  72 22 2c 45 72 72 42 6c  6b 25 2c 30 2c 54 61 73  |r",ErrBlk%,0,Tas|
00001210  6b 4e 61 6d 65 24 0d 07  a8 05 e1 0d 07 b2 04 0d  |kName$..........|
00001220  07 bc 27 dd f2 5f 43 72  65 61 74 65 4d 65 6e 75  |..'.._CreateMenu|
00001230  28 4d 65 6e 75 42 6c 6b  25 2c 58 70 6f 73 25 2c  |(MenuBlk%,Xpos%,|
00001240  59 70 6f 73 25 29 0d 07  c6 19 20 20 20 4f 70 65  |Ypos%)....   Ope|
00001250  6e 4d 65 6e 75 25 3d 4d  65 6e 75 42 6c 6b 25 0d  |nMenu%=MenuBlk%.|
00001260  07 d0 31 20 20 20 c8 99  20 22 57 69 6d 70 5f 43  |..1   .. "Wimp_C|
00001270  72 65 61 74 65 4d 65 6e  75 22 2c 2c 4d 65 6e 75  |reateMenu",,Menu|
00001280  42 6c 6b 25 2c 58 70 6f  73 25 2c 59 70 6f 73 25  |Blk%,Xpos%,Ypos%|
00001290  0d 07 da 05 e1 0d 07 e4  04 0d 07 ee 12 dd f2 5f  |..............._|
000012a0  4c 6f 61 64 53 70 72 69  74 65 73 0d 07 f8 2f 20  |LoadSprites.../ |
000012b0  20 20 21 55 73 65 72 53  70 72 69 74 65 73 25 3d  |  !UserSprites%=|
000012c0  45 6e 64 55 73 65 72 53  70 72 25 2d 55 73 65 72  |EndUserSpr%-User|
000012d0  53 70 72 69 74 65 73 25  2d 34 0d 08 02 40 20 20  |Sprites%-4...@  |
000012e0  20 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  | .. "OS_SpriteOp|
000012f0  22 2c 32 35 36 2b 31 30  2c 55 73 65 72 53 70 72  |",256+10,UserSpr|
00001300  69 74 65 73 25 2c 22 3c  4f 62 65 79 24 44 69 72  |ites%,"<Obey$Dir|
00001310  3e 2e 53 70 72 69 74 65  73 22 0d 08 0c 05 e1 0d  |>.Sprites"......|
00001320  08 16 04 0d 08 20 0e dd  a4 5f 53 74 72 28 41 25  |..... ..._Str(A%|
00001330  29 0d 08 2a 08 ea 20 41  24 0d 08 34 0c 20 20 20  |)..*.. A$..4.   |
00001340  41 24 3d 22 22 0d 08 3e  1b 20 20 20 c8 95 20 3f  |A$=""..>.   .. ?|
00001350  41 25 3e 3d 33 32 20 80  20 a9 41 24 3c 32 35 35  |A%>=32 . .A$<255|
00001360  0d 08 48 12 20 20 20 20  20 20 41 24 2b 3d bd 3f  |..H.      A$+=.?|
00001370  41 25 0d 08 52 0f 20 20  20 20 20 20 41 25 2b 3d  |A%..R.      A%+=|
00001380  31 0d 08 5c 08 20 20 20  ce 0d 08 66 07 3d 41 24  |1..\.   ...f.=A$|
00001390  0d 08 70 04 0d 08 7a 1d  dd f2 5f 52 65 73 63 61  |..p...z..._Resca|
000013a0  6e 46 6f 6e 74 73 28 57  68 25 2c 57 62 6c 6b 25  |nFonts(Wh%,Wblk%|
000013b0  29 0d 08 84 20 ea 20 49  25 2c 46 25 2c 46 6f 6e  |)... . I%,F%,Fon|
000013c0  74 48 25 2c 58 73 69 7a  65 25 2c 59 73 69 7a 65  |tH%,Xsize%,Ysize|
000013d0  25 0d 08 8e 15 20 20 20  e7 20 57 62 6c 6b 25 21  |%....   . Wblk%!|
000013e0  38 34 3e 30 20 8c 0d 08  98 1d 20 20 20 20 20 20  |84>0 .....      |
000013f0  e3 20 49 25 3d 30 20 b8  20 57 62 6c 6b 25 21 38  |. I%=0 . Wblk%!8|
00001400  34 2d 31 0d 08 a2 17 20  20 20 20 20 20 20 20 20  |4-1....         |
00001410  54 6d 70 25 21 30 3d 57  68 25 0d 08 ac 16 20 20  |Tmp%!0=Wh%....  |
00001420  20 20 20 20 20 20 20 54  6d 70 25 21 34 3d 49 25  |       Tmp%!4=I%|
00001430  0d 08 b6 29 20 20 20 20  20 20 20 20 20 c8 99 20  |...)         .. |
00001440  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00001450  74 65 22 2c 2c 54 6d 70  25 0d 08 c0 24 20 20 20  |te",,Tmp%...$   |
00001460  20 20 20 20 20 20 46 25  3d 54 6d 70 25 21 32 34  |      F%=Tmp%!24|
00001470  3a f4 20 49 63 6f 6e 20  66 6c 61 67 73 0d 08 ca  |:. Icon flags...|
00001480  23 20 20 20 20 20 20 20  20 20 e7 20 28 46 25 20  |#         . (F% |
00001490  80 20 25 31 30 30 30 30  30 30 29 3c 3e 30 20 8c  |. %1000000)<>0 .|
000014a0  0d 08 d4 1e 20 20 20 20  20 20 20 20 20 20 20 20  |....            |
000014b0  46 6f 6e 74 48 25 3d 46  25 3e 3e 3e 32 34 0d 08  |FontH%=F%>>>24..|
000014c0  de 40 20 20 20 20 20 20  20 20 20 20 20 20 c8 99  |.@            ..|
000014d0  20 22 46 6f 6e 74 5f 52  65 61 64 44 65 66 6e 22  | "Font_ReadDefn"|
000014e0  2c 46 6f 6e 74 48 25 2c  54 6d 70 25 20 b8 20 2c  |,FontH%,Tmp% . ,|
000014f0  2c 58 73 69 7a 65 25 2c  59 73 69 7a 65 25 0d 08  |,Xsize%,Ysize%..|
00001500  e8 43 20 20 20 20 20 20  20 20 20 20 20 20 c8 99  |.C            ..|
00001510  20 22 46 6f 6e 74 5f 46  69 6e 64 46 6f 6e 74 22  | "Font_FindFont"|
00001520  2c 2c 54 6d 70 25 2c 58  73 69 7a 65 25 2c 59 73  |,,Tmp%,Xsize%,Ys|
00001530  69 7a 65 25 2c 30 2c 30  20 b8 20 46 6f 6e 74 48  |ize%,0,0 . FontH|
00001540  25 0d 08 f2 54 20 20 20  20 20 20 20 20 20 20 20  |%...T           |
00001550  20 e7 20 46 6f 6e 74 52  65 66 25 3f 46 6f 6e 74  | . FontRef%?Font|
00001560  48 25 3e 30 20 8c 20 c8  99 20 22 46 6f 6e 74 5f  |H%>0 . .. "Font_|
00001570  4c 6f 73 65 46 6f 6e 74  22 2c 46 6f 6e 74 48 25  |LoseFont",FontH%|
00001580  20 8b 20 46 6f 6e 74 52  65 66 25 3f 46 6f 6e 74  | . FontRef%?Font|
00001590  48 25 2b 3d 31 0d 08 f3  39 20 20 20 20 20 20 20  |H%+=1...9       |
000015a0  20 20 20 20 20 f2 5f 53  65 74 49 63 6f 6e 53 74  |     ._SetIconSt|
000015b0  61 74 65 28 57 68 25 2c  49 25 2c 46 6f 6e 74 48  |ate(Wh%,I%,FontH|
000015c0  25 3c 3c 32 34 2c 26 46  46 3c 3c 32 34 29 0d 09  |%<<24,&FF<<24)..|
000015d0  2e 0e 20 20 20 20 20 20  20 20 20 cd 0d 09 38 0b  |..         ...8.|
000015e0  20 20 20 20 20 20 ed 0d  09 42 08 20 20 20 cd 0d  |      ...B.   ..|
000015f0  09 4c 05 e1 0d 09 56 04  0d 09 60 12 dd f2 5f 49  |.L....V...`..._I|
00001600  6e 69 74 46 6f 6e 74 52  65 66 0d 09 6a 08 ea 20  |nitFontRef..j.. |
00001610  49 25 0d 09 74 27 20 20  20 e3 20 49 25 3d 30 20  |I%..t'   . I%=0 |
00001620  b8 20 32 35 32 20 88 20  34 3a 46 6f 6e 74 52 65  |. 252 . 4:FontRe|
00001630  66 25 21 49 25 3d 30 3a  ed 0d 09 7e 05 e1 0d 09  |f%!I%=0:...~....|
00001640  88 04 0d 09 92 10 dd f2  5f 4c 6f 73 65 46 6f 6e  |........_LoseFon|
00001650  74 73 0d 09 9c 08 ea 20  49 25 0d 09 a6 13 20 20  |ts..... I%....  |
00001660  20 e3 20 49 25 3d 30 20  b8 20 32 35 35 0d 09 b0  | . I%=0 . 255...|
00001670  1a 20 20 20 20 20 20 c8  95 20 46 6f 6e 74 52 65  |.      .. FontRe|
00001680  66 25 3f 49 25 3e 30 0d  09 ba 22 20 20 20 20 20  |f%?I%>0..."     |
00001690  20 20 20 20 c8 99 20 22  46 6f 6e 74 5f 4c 6f 73  |    .. "Font_Los|
000016a0  65 46 6f 6e 74 22 2c 49  25 0d 09 c4 1b 20 20 20  |eFont",I%....   |
000016b0  20 20 20 20 20 20 46 6f  6e 74 52 65 66 25 3f 49  |      FontRef%?I|
000016c0  25 2d 3d 31 0d 09 ce 0b  20 20 20 20 20 20 ce 0d  |%-=1....      ..|
000016d0  09 d8 08 20 20 20 ed 0d  09 e2 05 e1 0d 09 ec 04  |...   ..........|
000016e0  0d 09 f6 10 dd f2 5f 43  6c 6f 73 65 44 6f 77 6e  |......_CloseDown|
000016f0  0d 0a 00 12 20 20 20 f2  5f 4c 6f 73 65 46 6f 6e  |....   ._LoseFon|
00001700  74 73 0d 0a 0a 30 20 20  20 c8 99 20 22 57 69 6d  |ts...0   .. "Wim|
00001710  70 5f 43 6c 6f 73 65 44  6f 77 6e 22 2c 54 61 73  |p_CloseDown",Tas|
00001720  6b 48 61 6e 64 6c 65 25  2c 26 34 42 35 33 34 31  |kHandle%,&4B5341|
00001730  35 34 0d 0a 14 05 e0 0d  0a 1e 04 0d 0a 28 0e dd  |54...........(..|
00001740  f2 5f 4e 65 77 47 61 6d  65 0d 0a 32 0e ea 20 49  |._NewGame..2.. I|
00001750  25 2c 78 25 2c 79 25 0d  0a 3c 16 20 20 20 f2 5f  |%,x%,y%..<.   ._|
00001760  50 75 74 42 6c 6f 63 6b  28 31 2c 31 29 0d 0a 46  |PutBlock(1,1)..F|
00001770  16 20 20 20 f2 5f 50 75  74 42 6c 6f 63 6b 28 32  |.   ._PutBlock(2|
00001780  2c 30 29 0d 0a 50 16 20  20 20 f2 5f 50 75 74 42  |,0)..P.   ._PutB|
00001790  6c 6f 63 6b 28 33 2c 33  29 0d 0a 5a 16 20 20 20  |lock(3,3)..Z.   |
000017a0  f2 5f 50 75 74 42 6c 6f  63 6b 28 34 2c 38 29 0d  |._PutBlock(4,8).|
000017b0  0a 64 16 20 20 20 f2 5f  50 75 74 42 6c 6f 63 6b  |.d.   ._PutBlock|
000017c0  28 35 2c 39 29 0d 0a 6e  17 20 20 20 f2 5f 50 75  |(5,9)..n.   ._Pu|
000017d0  74 42 6c 6f 63 6b 28 36  2c 31 30 29 0d 0a 78 17  |tBlock(6,10)..x.|
000017e0  20 20 20 f2 5f 50 75 74  42 6c 6f 63 6b 28 37 2c  |   ._PutBlock(7,|
000017f0  31 31 29 0d 0a 82 17 20  20 20 f2 5f 50 75 74 42  |11)....   ._PutB|
00001800  6c 6f 63 6b 28 38 2c 31  32 29 0d 0a 8c 17 20 20  |lock(8,12)....  |
00001810  20 f2 5f 50 75 74 42 6c  6f 63 6b 28 39 2c 31 34  | ._PutBlock(9,14|
00001820  29 0d 0a 96 18 20 20 20  f2 5f 50 75 74 42 6c 6f  |)....   ._PutBlo|
00001830  63 6b 28 31 30 2c 31 36  29 0d 0a a0 18 20 20 20  |ck(10,16)....   |
00001840  f2 5f 50 75 74 42 6c 6f  63 6b 28 31 31 2c 31 39  |._PutBlock(11,19|
00001850  29 0d 0a aa 1e 20 20 20  42 6f 61 72 64 25 3f 31  |)....   Board%?1|
00001860  37 3d 30 3a 42 6f 61 72  64 25 3f 31 38 3d 30 0d  |7=0:Board%?18=0.|
00001870  0a b4 12 20 20 20 e3 20  49 25 3d 31 20 b8 20 31  |...   . I%=1 . 1|
00001880  31 0d 0a be 1c 20 20 20  20 20 20 54 6d 70 25 21  |1....      Tmp%!|
00001890  30 3d 4d 61 69 6e 48 61  6e 64 6c 65 25 0d 0a c8  |0=MainHandle%...|
000018a0  13 20 20 20 20 20 20 54  6d 70 25 21 34 3d 49 25  |.      Tmp%!4=I%|
000018b0  0d 0a d2 26 20 20 20 20  20 20 c8 99 20 22 57 69  |...&      .. "Wi|
000018c0  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
000018d0  2c 2c 54 6d 70 25 0d 0a  dc 24 20 20 20 20 20 20  |,,Tmp%...$      |
000018e0  c8 99 20 22 57 69 6d 70  5f 44 65 6c 65 74 65 49  |.. "Wimp_DeleteI|
000018f0  63 6f 6e 22 2c 2c 54 6d  70 25 0d 0a e6 1e 20 20  |con",,Tmp%....  |
00001900  20 20 20 20 78 25 3d 42  6c 6f 63 6b 25 3f 49 25  |    x%=Block%?I%|
00001910  20 83 20 34 2a 31 32 38  0d 0a f0 21 20 20 20 20  | . 4*128...!    |
00001920  20 20 79 25 3d 2d 28 42  6c 6f 63 6b 25 3f 49 25  |  y%=-(Block%?I%|
00001930  20 81 20 34 2a 31 32 38  29 0d 0a fa 13 20 20 20  | . 4*128)....   |
00001940  20 20 20 54 6d 70 25 21  38 3d 78 25 0d 0b 04 14  |   Tmp%!8=x%....|
00001950  20 20 20 20 20 20 54 6d  70 25 21 32 30 3d 79 25  |      Tmp%!20=y%|
00001960  0d 0b 0e 11 20 20 20 20  20 20 c8 8e 20 49 25 20  |....      .. I% |
00001970  ca 0d 0b 18 2e 20 20 20  20 20 20 20 20 20 c9 20  |.....         . |
00001980  31 3a 54 6d 70 25 21 31  32 3d 79 25 2d 32 35 36  |1:Tmp%!12=y%-256|
00001990  3a 54 6d 70 25 21 31 36  3d 78 25 2b 32 35 36 0d  |:Tmp%!16=x%+256.|
000019a0  0b 22 30 20 20 20 20 20  20 20 20 20 c9 20 32 2c  |."0         . 2,|
000019b0  33 3a 54 6d 70 25 21 31  32 3d 79 25 2d 32 35 36  |3:Tmp%!12=y%-256|
000019c0  3a 54 6d 70 25 21 31 36  3d 78 25 2b 31 32 38 0d  |:Tmp%!16=x%+128.|
000019d0  0b 2c 30 20 20 20 20 20  20 20 20 20 c9 20 38 2c  |.,0         . 8,|
000019e0  39 3a 54 6d 70 25 21 31  32 3d 79 25 2d 31 32 38  |9:Tmp%!12=y%-128|
000019f0  3a 54 6d 70 25 21 31 36  3d 78 25 2b 32 35 36 0d  |:Tmp%!16=x%+256.|
00001a00  0b 36 3a 20 20 20 20 20  20 20 20 20 c9 20 34 2c  |.6:         . 4,|
00001a10  35 2c 36 2c 37 2c 31 30  2c 31 31 3a 54 6d 70 25  |5,6,7,10,11:Tmp%|
00001a20  21 31 32 3d 79 25 2d 31  32 38 3a 54 6d 70 25 21  |!12=y%-128:Tmp%!|
00001a30  31 36 3d 78 25 2b 31 32  38 0d 0b 40 0b 20 20 20  |16=x%+128..@.   |
00001a40  20 20 20 cb 0d 0b 4a 1c  20 20 20 20 20 20 54 6d  |   ...J.      Tm|
00001a50  70 25 21 34 3d 4d 61 69  6e 48 61 6e 64 6c 65 25  |p%!4=MainHandle%|
00001a60  0d 0b 54 26 20 20 20 20  20 20 c8 99 20 22 57 69  |..T&      .. "Wi|
00001a70  6d 70 5f 43 72 65 61 74  65 49 63 6f 6e 22 2c 2c  |mp_CreateIcon",,|
00001a80  54 6d 70 25 2b 34 0d 0b  5e 08 20 20 20 ed 0d 0b  |Tmp%+4..^.   ...|
00001a90  68 37 20 20 20 c8 99 20  22 57 69 6d 70 5f 46 6f  |h7   .. "Wimp_Fo|
00001aa0  72 63 65 52 65 64 72 61  77 22 2c 4d 61 69 6e 48  |rceRedraw",MainH|
00001ab0  61 6e 64 6c 65 25 2c 30  2c 2d 32 30 30 30 2c 32  |andle%,0,-2000,2|
00001ac0  30 30 30 2c 30 0d 0b 72  05 e1 0d 0b 7c 04 0d 0b  |000,0..r....|...|
00001ad0  86 16 dd f2 5f 50 75 74  42 6c 6f 63 6b 28 61 25  |...._PutBlock(a%|
00001ae0  2c 62 25 29 0d 0b 90 13  20 20 20 42 6c 6f 63 6b  |,b%)....   Block|
00001af0  25 3f 61 25 3d 62 25 0d  0b 9a 12 20 20 20 42 6f  |%?a%=b%....   Bo|
00001b00  61 72 64 25 3f 62 25 3d  31 0d 0b a4 0e 20 20 20  |ard%?b%=1....   |
00001b10  c8 8e 20 61 25 20 ca 0d  0b ae 3d 20 20 20 20 20  |.. a% ....=     |
00001b20  20 c9 20 31 3a 42 6f 61  72 64 25 3f 28 62 25 2b  | . 1:Board%?(b%+|
00001b30  31 29 3d 31 3a 42 6f 61  72 64 25 3f 28 62 25 2b  |1)=1:Board%?(b%+|
00001b40  34 29 3d 31 3a 42 6f 61  72 64 25 3f 28 62 25 2b  |4)=1:Board%?(b%+|
00001b50  35 29 3d 31 0d 0b b8 1f  20 20 20 20 20 20 c9 20  |5)=1....      . |
00001b60  32 2c 33 3a 42 6f 61 72  64 25 3f 28 62 25 2b 34  |2,3:Board%?(b%+4|
00001b70  29 3d 31 0d 0b c2 1f 20  20 20 20 20 20 c9 20 38  |)=1....      . 8|
00001b80  2c 39 3a 42 6f 61 72 64  25 3f 28 62 25 2b 31 29  |,9:Board%?(b%+1)|
00001b90  3d 31 0d 0b cc 08 20 20  20 cb 0d 0b d6 05 e1 0d  |=1....   .......|
00001ba0  0b e0 04 0d 0b ea 16 dd  f2 5f 52 65 6d 6f 76 65  |........._Remove|
00001bb0  42 6c 6f 63 6b 28 61 25  29 0d 0b f4 08 ea 20 62  |Block(a%)..... b|
00001bc0  25 0d 0b fe 13 20 20 20  62 25 3d 42 6c 6f 63 6b  |%....   b%=Block|
00001bd0  25 3f 61 25 0d 0c 08 12  20 20 20 42 6f 61 72 64  |%?a%....   Board|
00001be0  25 3f 62 25 3d 30 0d 0c  12 0e 20 20 20 c8 8e 20  |%?b%=0....   .. |
00001bf0  61 25 20 ca 0d 0c 1c 3d  20 20 20 20 20 20 c9 20  |a% ....=      . |
00001c00  31 3a 42 6f 61 72 64 25  3f 28 62 25 2b 31 29 3d  |1:Board%?(b%+1)=|
00001c10  30 3a 42 6f 61 72 64 25  3f 28 62 25 2b 34 29 3d  |0:Board%?(b%+4)=|
00001c20  30 3a 42 6f 61 72 64 25  3f 28 62 25 2b 35 29 3d  |0:Board%?(b%+5)=|
00001c30  30 0d 0c 26 1f 20 20 20  20 20 20 c9 20 32 2c 33  |0..&.      . 2,3|
00001c40  3a 42 6f 61 72 64 25 3f  28 62 25 2b 34 29 3d 30  |:Board%?(b%+4)=0|
00001c50  0d 0c 30 1f 20 20 20 20  20 20 c9 20 38 2c 39 3a  |..0.      . 8,9:|
00001c60  42 6f 61 72 64 25 3f 28  62 25 2b 31 29 3d 30 0d  |Board%?(b%+1)=0.|
00001c70  0c 3a 08 20 20 20 cb 0d  0c 44 05 e1 0d 0c 4e 04  |.:.   ...D....N.|
00001c80  0d 0c 58 18 dd a4 5f 43  68 65 63 6b 53 70 61 63  |..X..._CheckSpac|
00001c90  65 28 61 25 2c 62 25 29  0d 0c 62 19 20 20 20 e7  |e(a%,b%)..b.   .|
00001ca0  20 42 6f 61 72 64 25 3f  62 25 3d 31 20 8c 20 3d  | Board%?b%=1 . =|
00001cb0  a3 0d 0c 6c 0e 20 20 20  c8 8e 20 61 25 20 ca 0d  |...l.   .. a% ..|
00001cc0  0c 76 48 20 20 20 20 20  20 c9 20 31 3a e7 20 42  |.vH      . 1:. B|
00001cd0  6f 61 72 64 25 3f 28 62  25 2b 31 29 3d 31 20 84  |oard%?(b%+1)=1 .|
00001ce0  20 42 6f 61 72 64 25 3f  28 62 25 2b 34 29 3d 31  | Board%?(b%+4)=1|
00001cf0  20 84 20 42 6f 61 72 64  25 3f 28 62 25 2b 35 29  | . Board%?(b%+5)|
00001d00  3d 31 20 8c 20 3d a3 0d  0c 80 26 20 20 20 20 20  |=1 . =....&     |
00001d10  20 c9 20 32 2c 33 3a e7  20 42 6f 61 72 64 25 3f  | . 2,3:. Board%?|
00001d20  28 62 25 2b 34 29 3d 31  20 8c 20 3d a3 0d 0c 8a  |(b%+4)=1 . =....|
00001d30  26 20 20 20 20 20 20 c9  20 38 2c 39 3a e7 20 42  |&      . 8,9:. B|
00001d40  6f 61 72 64 25 3f 28 62  25 2b 31 29 3d 31 20 8c  |oard%?(b%+1)=1 .|
00001d50  20 3d a3 0d 0c 94 08 20  20 20 cb 0d 0c 9e 06 3d  | =.....   .....=|
00001d60  b9 0d 0c a8 04 0d 0c b2  16 dd a4 5f 4f 66 66 42  |..........._OffB|
00001d70  6f 61 72 64 28 61 25 2c  64 25 29 0d 0c bc 13 ea  |oard(a%,d%).....|
00001d80  20 78 25 2c 79 25 2c 64  78 25 2c 64 79 25 0d 0c  | x%,y%,dx%,dy%..|
00001d90  c6 1c 20 20 20 64 78 25  3d 64 25 20 83 20 34 3a  |..   dx%=d% . 4:|
00001da0  64 79 25 3d 64 25 20 81  20 34 0d 0c d0 28 20 20  |dy%=d% . 4...(  |
00001db0  20 78 25 3d 42 6c 6f 63  6b 25 3f 61 25 20 83 20  | x%=Block%?a% . |
00001dc0  34 3a 79 25 3d 42 6c 6f  63 6b 25 3f 61 25 20 81  |4:y%=Block%?a% .|
00001dd0  20 34 0d 0c da 21 20 20  20 e7 20 78 25 2b 64 78  | 4...!   . x%+dx|
00001de0  25 3c 30 20 84 20 79 25  2b 64 79 25 3c 30 20 8c  |%<0 . y%+dy%<0 .|
00001df0  20 3d b9 0d 0c e4 0e 20  20 20 c8 8e 20 61 25 20  | =.....   .. a% |
00001e00  ca 0d 0c ee 28 20 20 20  20 20 20 c9 20 31 3a e7  |....(      . 1:.|
00001e10  20 78 25 2b 64 78 25 3e  32 20 84 20 79 25 2b 64  | x%+dx%>2 . y%+d|
00001e20  79 25 3e 33 20 8c 20 3d  b9 0d 0c f8 2a 20 20 20  |y%>3 . =....*   |
00001e30  20 20 20 c9 20 32 2c 33  3a e7 20 78 25 2b 64 78  |   . 2,3:. x%+dx|
00001e40  25 3e 33 20 84 20 79 25  2b 64 79 25 3e 33 20 8c  |%>3 . y%+dy%>3 .|
00001e50  20 3d b9 0d 0d 02 2a 20  20 20 20 20 20 c9 20 38  | =....*      . 8|
00001e60  2c 39 3a e7 20 78 25 2b  64 78 25 3e 32 20 84 20  |,9:. x%+dx%>2 . |
00001e70  79 25 2b 64 79 25 3e 34  20 8c 20 3d b9 0d 0d 0c  |y%+dy%>4 . =....|
00001e80  34 20 20 20 20 20 20 c9  20 34 2c 35 2c 36 2c 37  |4      . 4,5,6,7|
00001e90  2c 31 30 2c 31 31 3a e7  20 78 25 2b 64 78 25 3e  |,10,11:. x%+dx%>|
00001ea0  33 20 84 20 79 25 2b 64  79 25 3e 34 20 8c 20 3d  |3 . y%+dy%>4 . =|
00001eb0  b9 0d 0d 16 08 20 20 20  cb 0d 0d 20 06 3d a3 0d  |.....   ... .=..|
00001ec0  0d 2a 04 0d 0d 34 14 dd  f2 5f 4d 6f 76 65 42 6c  |.*...4..._MoveBl|
00001ed0  6f 63 6b 28 61 25 29 0d  0d 3e 1f ea 20 78 25 2c  |ock(a%)..>.. x%,|
00001ee0  79 25 2c 6d 78 25 2c 6d  79 25 2c 6f 6b 25 2c 74  |y%,mx%,my%,ok%,t|
00001ef0  31 25 2c 74 32 25 0d 0d  48 19 20 20 20 54 6d 70  |1%,t2%..H.   Tmp|
00001f00  25 21 30 3d 4d 61 69 6e  48 61 6e 64 6c 65 25 0d  |%!0=MainHandle%.|
00001f10  0d 52 25 20 20 20 c8 99  20 22 57 69 6d 70 5f 47  |.R%   .. "Wimp_G|
00001f20  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00001f30  54 6d 70 25 0d 0d 5c 35  20 20 20 78 25 3d 42 25  |Tmp%..\5   x%=B%|
00001f40  21 30 2d 54 6d 70 25 21  34 2b 54 6d 70 25 21 32  |!0-Tmp%!4+Tmp%!2|
00001f50  30 3a 79 25 3d 42 25 21  34 2d 54 6d 70 25 21 31  |0:y%=B%!4-Tmp%!1|
00001f60  36 2b 54 6d 70 25 21 32  34 0d 0d 66 19 20 20 20  |6+Tmp%!24..f.   |
00001f70  54 6d 70 25 21 30 3d 4d  61 69 6e 48 61 6e 64 6c  |Tmp%!0=MainHandl|
00001f80  65 25 0d 0d 70 10 20 20  20 54 6d 70 25 21 34 3d  |e%..p.   Tmp%!4=|
00001f90  61 25 0d 0d 7a 23 20 20  20 c8 99 20 22 57 69 6d  |a%..z#   .. "Wim|
00001fa0  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00001fb0  2c 54 6d 70 25 0d 0d 84  39 20 20 20 6d 78 25 3d  |,Tmp%...9   mx%=|
00001fc0  28 54 6d 70 25 21 38 2b  54 6d 70 25 21 31 36 29  |(Tmp%!8+Tmp%!16)|
00001fd0  20 81 20 32 3a 6d 79 25  3d 28 54 6d 70 25 21 31  | . 2:my%=(Tmp%!1|
00001fe0  32 2b 54 6d 70 25 21 32  30 29 20 81 20 32 0d 0d  |2+Tmp%!20) . 2..|
00001ff0  8e 13 20 20 20 74 31 25  3d 31 3a 74 32 25 3d 2d  |..   t1%=1:t2%=-|
00002000  34 0d 0d 98 1a 20 20 20  e7 20 78 25 3c 6d 78 25  |4....   . x%<mx%|
00002010  20 8c 20 74 31 25 3d 2d  74 31 25 0d 0d a2 1a 20  | . t1%=-t1%.... |
00002020  20 20 e7 20 79 25 3c 6d  79 25 20 8c 20 74 32 25  |  . y%<my% . t2%|
00002030  3d 2d 74 32 25 0d 0d ac  29 20 20 20 e7 20 94 28  |=-t2%...)   . .(|
00002040  79 25 2d 6d 79 25 29 3e  94 28 78 25 2d 6d 78 25  |y%-my%)>.(x%-mx%|
00002050  29 20 8c 20 c8 94 20 74  31 25 2c 74 32 25 0d 0d  |) . .. t1%,t2%..|
00002060  b6 1c 20 20 20 f2 5f 54  72 79 4d 6f 76 65 28 61  |..   ._TryMove(a|
00002070  25 2c 74 31 25 2c 6f 6b  25 29 0d 0d c0 27 20 20  |%,t1%,ok%)...'  |
00002080  20 e7 20 ac 20 6f 6b 25  20 8c 20 f2 5f 54 72 79  | . . ok% . ._Try|
00002090  4d 6f 76 65 28 61 25 2c  2d 74 31 25 2c 6f 6b 25  |Move(a%,-t1%,ok%|
000020a0  29 0d 0d ca 26 20 20 20  e7 20 ac 20 6f 6b 25 20  |)...&   . . ok% |
000020b0  8c 20 f2 5f 54 72 79 4d  6f 76 65 28 61 25 2c 74  |. ._TryMove(a%,t|
000020c0  32 25 2c 6f 6b 25 29 0d  0d d4 27 20 20 20 e7 20  |2%,ok%)...'   . |
000020d0  ac 20 6f 6b 25 20 8c 20  f2 5f 54 72 79 4d 6f 76  |. ok% . ._TryMov|
000020e0  65 28 61 25 2c 2d 74 32  25 2c 6f 6b 25 29 0d 0d  |e(a%,-t2%,ok%)..|
000020f0  de 2e 20 20 20 e7 20 61  25 3d 31 20 80 20 42 6c  |..   . a%=1 . Bl|
00002100  6f 63 6b 25 3f 31 3d 31  33 20 80 20 6f 6b 25 20  |ock%?1=13 . ok% |
00002110  8c 20 f2 5f 43 6f 72 6f  6e 61 74 65 0d 0d e8 05  |. ._Coronate....|
00002120  e1 0d 0d f2 04 0d 0d fc  1b dd f2 5f 54 72 79 4d  |..........._TryM|
00002130  6f 76 65 28 61 25 2c 64  25 2c f8 20 6f 6b 25 29  |ove(a%,d%,. ok%)|
00002140  0d 0e 06 20 f4 20 54 72  79 20 74 6f 20 6d 6f 76  |... . Try to mov|
00002150  65 20 62 6c 6f 63 6b 20  61 25 20 62 79 20 64 25  |e block a% by d%|
00002160  0d 0e 10 0e ea 20 62 25  2c 78 25 2c 79 25 0d 0e  |..... b%,x%,y%..|
00002170  1a 0c 20 20 20 6f 6b 25  3d a3 0d 0e 24 16 20 20  |..   ok%=...$.  |
00002180  20 62 25 3d 42 6c 6f 63  6b 25 3f 61 25 2b 64 25  | b%=Block%?a%+d%|
00002190  0d 0e 2e 1e 20 20 20 e7  20 a4 5f 4f 66 66 42 6f  |....   . ._OffBo|
000021a0  61 72 64 28 61 25 2c 64  25 29 20 8c 20 e1 0d 0e  |ard(a%,d%) . ...|
000021b0  38 18 20 20 20 f2 5f 52  65 6d 6f 76 65 42 6c 6f  |8.   ._RemoveBlo|
000021c0  63 6b 28 61 25 29 0d 0e  42 3b 20 20 20 e7 20 ac  |ck(a%)..B;   . .|
000021d0  20 a4 5f 43 68 65 63 6b  53 70 61 63 65 28 61 25  | ._CheckSpace(a%|
000021e0  2c 62 25 29 20 8c 20 f2  5f 50 75 74 42 6c 6f 63  |,b%) . ._PutBloc|
000021f0  6b 28 61 25 2c 42 6c 6f  63 6b 25 3f 61 25 29 3a  |k(a%,Block%?a%):|
00002200  e1 0d 0e 4c 0c 20 20 20  6f 6b 25 3d b9 0d 0e 56  |...L.   ok%=...V|
00002210  18 20 20 20 f2 5f 50 75  74 42 6c 6f 63 6b 28 61  |.   ._PutBlock(a|
00002220  25 2c 62 25 29 0d 0e 60  04 0d 0e 6a 27 20 20 20  |%,b%)..`...j'   |
00002230  e7 20 42 75 74 25 3d 34  20 80 20 ac 20 a4 5f 4f  |. But%=4 . . ._O|
00002240  66 66 42 6f 61 72 64 28  61 25 2c 64 25 29 20 8c  |ffBoard(a%,d%) .|
00002250  0d 0e 74 1b 20 20 20 20  20 20 f2 5f 52 65 6d 6f  |..t.      ._Remo|
00002260  76 65 42 6c 6f 63 6b 28  61 25 29 0d 0e 7e 2b 20  |veBlock(a%)..~+ |
00002270  20 20 20 20 20 e7 20 a4  5f 43 68 65 63 6b 53 70  |     . ._CheckSp|
00002280  61 63 65 28 61 25 2c 62  25 2b 64 25 29 20 8c 20  |ace(a%,b%+d%) . |
00002290  62 25 2b 3d 64 25 0d 0e  88 1b 20 20 20 20 20 20  |b%+=d%....      |
000022a0  f2 5f 50 75 74 42 6c 6f  63 6b 28 61 25 2c 62 25  |._PutBlock(a%,b%|
000022b0  29 0d 0e 92 08 20 20 20  cd 0d 0e 9c 04 0d 0e a6  |)....   ........|
000022c0  47 20 20 20 c8 99 20 22  57 69 6d 70 5f 46 6f 72  |G   .. "Wimp_For|
000022d0  63 65 52 65 64 72 61 77  22 2c 4d 61 69 6e 48 61  |ceRedraw",MainHa|
000022e0  6e 64 6c 65 25 2c 54 6d  70 25 21 38 2c 54 6d 70  |ndle%,Tmp%!8,Tmp|
000022f0  25 21 31 32 2c 54 6d 70  25 21 31 36 2c 54 6d 70  |%!12,Tmp%!16,Tmp|
00002300  25 21 32 30 0d 0e b0 21  20 20 20 c8 99 20 22 57  |%!20...!   .. "W|
00002310  69 6d 70 5f 44 65 6c 65  74 65 49 63 6f 6e 22 2c  |imp_DeleteIcon",|
00002320  2c 54 6d 70 25 0d 0e ba  14 20 20 20 78 25 3d 62  |,Tmp%....   x%=b|
00002330  25 20 83 20 34 2a 31 32  38 0d 0e c4 17 20 20 20  |% . 4*128....   |
00002340  79 25 3d 2d 28 62 25 20  81 20 34 2a 31 32 38 29  |y%=-(b% . 4*128)|
00002350  0d 0e ce 10 20 20 20 54  6d 70 25 21 38 3d 78 25  |....   Tmp%!8=x%|
00002360  0d 0e d8 11 20 20 20 54  6d 70 25 21 32 30 3d 79  |....   Tmp%!20=y|
00002370  25 0d 0e e2 0e 20 20 20  c8 8e 20 61 25 20 ca 0d  |%....   .. a% ..|
00002380  0e ec 2b 20 20 20 20 20  20 c9 20 31 3a 54 6d 70  |..+      . 1:Tmp|
00002390  25 21 31 32 3d 79 25 2d  32 35 36 3a 54 6d 70 25  |%!12=y%-256:Tmp%|
000023a0  21 31 36 3d 78 25 2b 32  35 36 0d 0e f6 2d 20 20  |!16=x%+256...-  |
000023b0  20 20 20 20 c9 20 32 2c  33 3a 54 6d 70 25 21 31  |    . 2,3:Tmp%!1|
000023c0  32 3d 79 25 2d 32 35 36  3a 54 6d 70 25 21 31 36  |2=y%-256:Tmp%!16|
000023d0  3d 78 25 2b 31 32 38 0d  0f 00 2d 20 20 20 20 20  |=x%+128...-     |
000023e0  20 c9 20 38 2c 39 3a 54  6d 70 25 21 31 32 3d 79  | . 8,9:Tmp%!12=y|
000023f0  25 2d 31 32 38 3a 54 6d  70 25 21 31 36 3d 78 25  |%-128:Tmp%!16=x%|
00002400  2b 32 35 36 0d 0f 0a 37  20 20 20 20 20 20 c9 20  |+256...7      . |
00002410  34 2c 35 2c 36 2c 37 2c  31 30 2c 31 31 3a 54 6d  |4,5,6,7,10,11:Tm|
00002420  70 25 21 31 32 3d 79 25  2d 31 32 38 3a 54 6d 70  |p%!12=y%-128:Tmp|
00002430  25 21 31 36 3d 78 25 2b  31 32 38 0d 0f 14 08 20  |%!16=x%+128.... |
00002440  20 20 cb 0d 0f 1e 19 20  20 20 54 6d 70 25 21 34  |  .....   Tmp%!4|
00002450  3d 4d 61 69 6e 48 61 6e  64 6c 65 25 0d 0f 28 23  |=MainHandle%..(#|
00002460  20 20 20 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |   .. "Wimp_Crea|
00002470  74 65 49 63 6f 6e 22 2c  2c 54 6d 70 25 2b 34 0d  |teIcon",,Tmp%+4.|
00002480  0f 32 29 20 20 20 f2 5f  53 65 74 49 63 6f 6e 53  |.2)   ._SetIconS|
00002490  74 61 74 65 28 4d 61 69  6e 48 61 6e 64 6c 65 25  |tate(MainHandle%|
000024a0  2c 61 25 2c 30 2c 30 29  0d 0f 3c 05 e1 0d 0f 46  |,a%,0,0)..<....F|
000024b0  04 0d 0f 50 0f dd f2 5f  43 6f 72 6f 6e 61 74 65  |...P..._Coronate|
000024c0  0d 0f 5a 18 20 20 20 c8  99 20 22 58 53 6f 75 6e  |..Z.   .. "XSoun|
000024d0  64 5f 51 49 6e 69 74 22  0d 0f 64 35 20 20 20 c8  |d_QInit"..d5   .|
000024e0  99 20 22 58 53 6f 75 6e  64 5f 51 53 63 68 65 64  |. "XSound_QSched|
000024f0  75 6c 65 22 2c 2d 32 2c  30 2c 26 46 46 46 31 30  |ule",-2,0,&FFF10|
00002500  30 30 31 2c 26 30 30 32  30 30 30 39 34 0d 0f 6e  |001,&00200094..n|
00002510  35 20 20 20 c8 99 20 22  58 53 6f 75 6e 64 5f 51  |5   .. "XSound_Q|
00002520  53 63 68 65 64 75 6c 65  22 2c 34 38 2c 30 2c 26  |Schedule",48,0,&|
00002530  46 46 46 31 30 30 30 31  2c 26 30 30 32 30 30 30  |FFF10001,&002000|
00002540  39 34 0d 0f 78 35 20 20  20 c8 99 20 22 58 53 6f  |94..x5   .. "XSo|
00002550  75 6e 64 5f 51 53 63 68  65 64 75 6c 65 22 2c 39  |und_QSchedule",9|
00002560  36 2c 30 2c 26 46 46 46  31 30 30 30 31 2c 26 30  |6,0,&FFF10001,&0|
00002570  30 32 30 30 30 39 43 0d  0f 82 36 20 20 20 c8 99  |020009C...6   ..|
00002580  20 22 58 53 6f 75 6e 64  5f 51 53 63 68 65 64 75  | "XSound_QSchedu|
00002590  6c 65 22 2c 31 34 34 2c  30 2c 26 46 46 46 31 30  |le",144,0,&FFF10|
000025a0  30 30 31 2c 26 30 30 32  30 30 30 39 30 0d 0f 8c  |001,&00200090...|
000025b0  36 20 20 20 c8 99 20 22  58 53 6f 75 6e 64 5f 51  |6   .. "XSound_Q|
000025c0  53 63 68 65 64 75 6c 65  22 2c 32 31 36 2c 30 2c  |Schedule",216,0,|
000025d0  26 46 46 46 31 30 30 30  31 2c 26 30 30 32 30 30  |&FFF10001,&00200|
000025e0  30 39 34 0d 0f 96 36 20  20 20 c8 99 20 22 58 53  |094...6   .. "XS|
000025f0  6f 75 6e 64 5f 51 53 63  68 65 64 75 6c 65 22 2c  |ound_QSchedule",|
00002600  32 34 30 2c 30 2c 26 46  46 46 31 30 30 30 31 2c  |240,0,&FFF10001,|
00002610  26 30 30 35 30 30 30 39  43 0d 0f a0 05 e1 0d ff  |&0050009C.......|
00002620

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .