Home » Archimedes archive » Archimedes World » AW-1991-10.adf » Zelanites » !Zelanites/!RunImage

!Zelanites/!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 » Archimedes World » AW-1991-10.adf » Zelanites
Filename: !Zelanites/!RunImage
Read OK:
File size: 0D2D bytes
Load address: 0000
Exec address: 0000
File contents
   10REM >  !RunImage - AW demo
   20REM ><
   30REM >< Zelanites the Onslaught
   40REM >< S. Kerbeck 12 June 1991
   50REM >< LEN Micro Power Ltd. 1991, all rights reserved.
   60REM ><
   70:
   80SYS "Wimp_ReadSysInfo",0 TO tasks
   90:
  100IF tasks = 0 THEN
  110 PROCLoad
  120ENDIF
  130:
  140:
  150DIM taskid% 5, q% 4*1024, temp% 2*1024, name% 12, err% 300, quit% 20
  160:
  170$taskid%="TASK"
  180$name%="Zel"
  190SYS"Wimp_Initialise",200,!taskid%,"Zelanites" TO ver%
  200:
  210ON ERROR PROCError
  220:
  230S%=OPENIN"<Zelanites$Dir>.!ZAliens" : len%=EXT#S%+16 : CLOSE#S%
  240DIM sprites% len%
  250sprites%!0  = len%
  260sprites%!8  = 16
  270SYS "OS_SpriteOp",&109,sprites%
  280SYS "OS_SpriteOp",&10A,sprites%,"<Zelanites$Dir>.!ZAliens"
  290:
  300:
  310SYS "Wimp_OpenTemplate",,"<Zelanites$Dir>.!Template"
  320SYS "Wimp_LoadTemplate",,q%,temp%,temp%+1*1024,-1,name%,0
  330q%!64 = sprites%
  340SYS "Wimp_CreateWindow",,q% TO zel%
  350!q%   = zel%
  360SYS "Wimp_GetWindowInfo",,q%
  370SYS "Wimp_OpenWindow",,q%
  380SYS "Wimp_CloseTemplate"
  390:
  430:
  440OK  = FALSE
  450:
  460REPEAT
  470 :
  480 SYS "Wimp_Poll",1,q% TO A%
  490 :
  500 CASE A% OF
  510  :
  520  WHEN 2     : PROCOpenWindow(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
  530  WHEN 6     : PROCMouseSelect(q%)
  540  :
  550 ENDCASE
  560 :
  570UNTIL OK
  580:
  590end%     = FALSE
  600quitRef% = FNQuit
  610:
  620REPEAT
  630 :
  640 SYS "Wimp_Poll",1,q% TO A%
  650 :
  660 CASE A% OF
  670  :
  680  WHEN 17,18 : PROCRece
  690  WHEN 19    : PROCACK
  700  :
  710 ENDCASE
  720 :
  730UNTIL end%
  740SYS "Wimp_CloseDown"
  750PROCLoad
  760END
  770:
  780:
  790:
  800DEF PROCRece
  810CASE q%!&10 OF
  820  WHEN 0 : IF q%!8 <> quitRef% THEN end%=TRUE
  830ENDCASE
  840ENDPROC
  850:
  860:
  870:
  880DEF PROCACK
  890CASE q%!&10 OF
  900  WHEN 0 : IF q%!8 = quitRef% THEN end%=TRUE
  910ENDCASE
  920ENDPROC
  930:
  940:
  950:
  960DEF PROCOpenWindow(handle%,x0%,y0%,x1%,y1%,scx%,scy%,h%)
  970:
  980IF handle% =-1 THEN ENDPROC
  990:
 1000q%!0  = handle% : q%!28 = h%
 1010q%!4  = x0%     : q%!8  = y0%
 1020q%!12 = x1%     : q%!16 = y1%
 1030q%!20 = scx%    : q%!24 = scy%
 1040:
 1050SYS "Wimp_OpenWindow",,q%
 1060ENDPROC
 1070:
 1080:
 1090:
 1100DEF PROCMouseSelect(q%)
 1110REM q%!8=mouse button
 1120REM q%!16=icon number
 1130:
 1140CASE q%!16 OF
 1150 WHEN 10:OK=TRUE                                              : REM OK
 1160 WHEN 11:SYS"XOS_CLI","RMKILL Zelanites":SYS "Wimp_CloseDown" : REM CANCEL
 1170ENDCASE
 1180ENDPROC
 1190:
 1200:
 1210:
 1220DEF FNQuit
 1230quit%!&00=20
 1240quit%!&0C=0
 1250quit%!&10=0
 1260SYS "Wimp_SendMessage",18,quit%,0
 1270=quit%!&08
 1280:
 1290:
 1300:
 1310DEF PROCError
 1320SYS "XOS_CLI","RMKILL Zelanites"
 1330!err%=ERR
 1340$(err%+4)=REPORT$
 1350SYS"Wimp_ReportError",err%,%1,"Zelanites"
 1360SYS"Wimp_CloseDown"
 1370END
 1380ENDPROC
 1390:
 1400:**********************************************************************
 1410:
 1420DEF PROCLoad
 1430VDU 21
 1440PROCKillModules
 1450PROCKBuffer("*GOS")
 1460PROCKBuffer("RMCLEAR")
 1470PROCKBuffer("RMTIDY")
 1480PROCKBuffer("RUN ADFS::0.$.!Zelanites.!MEM! Z")
 1490END
 1500ENDPROC
 1510:
 1520:
 1530:
 1540DEF PROCKillModules
 1550LOCAL A$
 1560:
 1570READ A$
 1580WHILE A$<>""
 1590   SYS"XOS_Module",4,A$
 1600   READ A$
 1610ENDWHILE
 1620ENDPROC
 1630:
 1640:
 1650:
 1660DEF PROCKBuffer(M$)
 1670LOCAL N%,A
 1680:
 1690FOR N%=1 TO LEN(M$)
 1700   A=ASC(MID$(M$,N%,1))
 1710   SYS "OS_Byte",138,0,A
 1720NEXT N%
 1730   SYS"OS_Byte",138,0,&0D
 1740ENDPROC
 1750:
 1760:
 1770:
 1780REM Modules to kill
 1790:
 1800DATA "Zelanites"
 1810DATA "Desktop"
 1820DATA "BBCEconet"
 1830DATA "International"
 1840DATA "InternationalKeyboard"
 1850DATA "Debugger"
 1860DATA "IIC"
 1870DATA "SoundChannels"
 1880DATA "SoundScheduler"
 1890DATA "WaveSynth"
 1900DATA "StringLib"
 1910DATA "Percussion"
 1920DATA "SpriteExtend"
 1930DATA "Draw"
 1940DATA "FontManager"
 1950DATA "WindowManager"
 1960DATA "TaskManager"
 1970DATA "PaletteUtil"
 1980DATA "RAMFSFiler"
 1990DATA "NetFiler"
 2000DATA "ShellCLI"
 2010DATA "Hourglass"
 2020DATA "NetStatus"
 2030DATA "SpriteUtils"
 2040DATA "Digitiser"
 2050DATA ""

� >  !RunImage - AW demo
� ><
 � >< Zelanites the Onslaught
( � >< S. Kerbeck 12 June 1991
26� >< � Micro Power Ltd. 1991, all rights reserved.
<� ><
F:
P#ș "Wimp_ReadSysInfo",0 � tasks
Z:
d� tasks = 0 �
n
 �Load
x�
�:
�:
�F� taskid% 5, q% 4*1024, temp% 2*1024, name% 12, err% 300, quit% 20
�:
�$taskid%="TASK"
�$name%="Zel"
�7ș"Wimp_Initialise",200,!taskid%,"Zelanites" � ver%
�:
�� � �Error
�:
�8S%=�"<Zelanites$Dir>.!ZAliens" : len%=�#S%+16 : �#S%
�� sprites% len%
�sprites%!0  = len%
sprites%!8  = 16
"ș "OS_SpriteOp",&109,sprites%
=ș "OS_SpriteOp",&10A,sprites%,"<Zelanites$Dir>.!ZAliens"
":
,:
67ș "Wimp_OpenTemplate",,"<Zelanites$Dir>.!Template"
@<ș "Wimp_LoadTemplate",,q%,temp%,temp%+1*1024,-1,name%,0
Jq%!64 = sprites%
T%ș "Wimp_CreateWindow",,q% � zel%
^!q%   = zel%
hș "Wimp_GetWindowInfo",,q%
rș "Wimp_OpenWindow",,q%
|ș "Wimp_CloseTemplate"
�:
�:
�OK  = �
�:
��
� :
� ș "Wimp_Poll",1,q% � A%
� :
� Ȏ A% �
�  :
H  � 2     : �OpenWindow(!q%,q%!4,q%!8,q%!12,q%!16,q%!20,q%!24,q%!28)
   � 6     : �MouseSelect(q%)
  :
& �
0 :
:� OK
D:
Nend%     = �
XquitRef% = �Quit
b:
l�
v :
� ș "Wimp_Poll",1,q% � A%
� :
� Ȏ A% �
�  :
�  � 17,18 : �Rece
�  � 19    : �ACK
�  :
� �
� :
�
� end%
�ș "Wimp_CloseDown"
�	�Load
��
:
:
:
 � �Rece
*Ȏ q%!&10 �
4'  � 0 : � q%!8 <> quitRef% � end%=�
>�
H�
R:
\:
f:
p
� �ACK
zȎ q%!&10 �
�&  � 0 : � q%!8 = quitRef% � end%=�
��
��
�:
�:
�:
�7� �OpenWindow(handle%,x0%,y0%,x1%,y1%,scx%,scy%,h%)
�:
�� handle% =-1 � �
�:
� q%!0  = handle% : q%!28 = h%
�!q%!4  = x0%     : q%!8  = y0%
�!q%!12 = x1%     : q%!16 = y1%
"q%!20 = scx%    : q%!24 = scy%
:
ș "Wimp_OpenWindow",,q%
$�
.:
8:
B:
L� �MouseSelect(q%)
V� q%!8=mouse button
`� q%!16=icon number
j:
tȎ q%!16 �
~B � 10:OK=�                                              : � OK
�G � 11:ș"XOS_CLI","RMKILL Zelanites":ș "Wimp_CloseDown" : � CANCEL
��
��
�:
�:
�:
�� �Quit
�quit%!&00=20
�quit%!&0C=0
�quit%!&10=0
�$ș "Wimp_SendMessage",18,quit%,0
�=quit%!&08
:

:
:
� �Error
(#ș "XOS_CLI","RMKILL Zelanites"
2!err%=�
<$(err%+4)=�$
F,ș"Wimp_ReportError",err%,%1,"Zelanites"
Pș"Wimp_CloseDown"
Z�
d�
n:
xK:**********************************************************************
�:
�� �Load
�� 21
��KillModules
��KBuffer("*GOS")
��KBuffer("RMCLEAR")
��KBuffer("RMTIDY")
�0�KBuffer("RUN ADFS::0.$.!Zelanites.!MEM! Z")
��
��
�:
�:
�:
� �KillModules
� A$
:
"� A$
,
ȕ A$<>""
6   ș"XOS_Module",4,A$
@   � A$
J�
T�
^:
h:
r:
|� �KBuffer(M$)
�
� N%,A
�:
�� N%=1 � �(M$)
�   A=�(�M$,N%,1))
�   ș "OS_Byte",138,0,A
�� N%
�   ș"OS_Byte",138,0,&0D
��
�:
�:
�:
�� Modules to kill
�:
� "Zelanites"
� "Desktop"
� "BBCEconet"
&� "International"
0� "InternationalKeyboard"
:� "Debugger"
D� "IIC"
N� "SoundChannels"
X� "SoundScheduler"
b� "WaveSynth"
l� "StringLib"
v� "Percussion"
�� "SpriteExtend"
�� "Draw"
�� "FontManager"
�� "WindowManager"
�� "TaskManager"
�� "PaletteUtil"
�� "RAMFSFiler"
�� "NetFiler"
�� "ShellCLI"
�� "Hourglass"
�� "NetStatus"
�� "SpriteUtils"
�� "Digitiser"
� ""
�
00000000  0d 00 0a 1c f4 20 3e 20  20 21 52 75 6e 49 6d 61  |..... >  !RunIma|
00000010  67 65 20 2d 20 41 57 20  64 65 6d 6f 0d 00 14 08  |ge - AW demo....|
00000020  f4 20 3e 3c 0d 00 1e 20  f4 20 3e 3c 20 5a 65 6c  |. ><... . >< Zel|
00000030  61 6e 69 74 65 73 20 74  68 65 20 4f 6e 73 6c 61  |anites the Onsla|
00000040  75 67 68 74 0d 00 28 20  f4 20 3e 3c 20 53 2e 20  |ught..( . >< S. |
00000050  4b 65 72 62 65 63 6b 20  31 32 20 4a 75 6e 65 20  |Kerbeck 12 June |
00000060  31 39 39 31 0d 00 32 36  f4 20 3e 3c 20 a9 20 4d  |1991..26. >< . M|
00000070  69 63 72 6f 20 50 6f 77  65 72 20 4c 74 64 2e 20  |icro Power Ltd. |
00000080  31 39 39 31 2c 20 61 6c  6c 20 72 69 67 68 74 73  |1991, all rights|
00000090  20 72 65 73 65 72 76 65  64 2e 0d 00 3c 08 f4 20  | reserved...<.. |
000000a0  3e 3c 0d 00 46 05 3a 0d  00 50 23 c8 99 20 22 57  |><..F.:..P#.. "W|
000000b0  69 6d 70 5f 52 65 61 64  53 79 73 49 6e 66 6f 22  |imp_ReadSysInfo"|
000000c0  2c 30 20 b8 20 74 61 73  6b 73 0d 00 5a 05 3a 0d  |,0 . tasks..Z.:.|
000000d0  00 64 11 e7 20 74 61 73  6b 73 20 3d 20 30 20 8c  |.d.. tasks = 0 .|
000000e0  0d 00 6e 0a 20 f2 4c 6f  61 64 0d 00 78 05 cd 0d  |..n. .Load..x...|
000000f0  00 82 05 3a 0d 00 8c 05  3a 0d 00 96 46 de 20 74  |...:....:...F. t|
00000100  61 73 6b 69 64 25 20 35  2c 20 71 25 20 34 2a 31  |askid% 5, q% 4*1|
00000110  30 32 34 2c 20 74 65 6d  70 25 20 32 2a 31 30 32  |024, temp% 2*102|
00000120  34 2c 20 6e 61 6d 65 25  20 31 32 2c 20 65 72 72  |4, name% 12, err|
00000130  25 20 33 30 30 2c 20 71  75 69 74 25 20 32 30 0d  |% 300, quit% 20.|
00000140  00 a0 05 3a 0d 00 aa 13  24 74 61 73 6b 69 64 25  |...:....$taskid%|
00000150  3d 22 54 41 53 4b 22 0d  00 b4 10 24 6e 61 6d 65  |="TASK"....$name|
00000160  25 3d 22 5a 65 6c 22 0d  00 be 37 c8 99 22 57 69  |%="Zel"...7.."Wi|
00000170  6d 70 5f 49 6e 69 74 69  61 6c 69 73 65 22 2c 32  |mp_Initialise",2|
00000180  30 30 2c 21 74 61 73 6b  69 64 25 2c 22 5a 65 6c  |00,!taskid%,"Zel|
00000190  61 6e 69 74 65 73 22 20  b8 20 76 65 72 25 0d 00  |anites" . ver%..|
000001a0  c8 05 3a 0d 00 d2 0e ee  20 85 20 f2 45 72 72 6f  |..:..... . .Erro|
000001b0  72 0d 00 dc 05 3a 0d 00  e6 38 53 25 3d 8e 22 3c  |r....:...8S%=."<|
000001c0  5a 65 6c 61 6e 69 74 65  73 24 44 69 72 3e 2e 21  |Zelanites$Dir>.!|
000001d0  5a 41 6c 69 65 6e 73 22  20 3a 20 6c 65 6e 25 3d  |ZAliens" : len%=|
000001e0  a2 23 53 25 2b 31 36 20  3a 20 d9 23 53 25 0d 00  |.#S%+16 : .#S%..|
000001f0  f0 13 de 20 73 70 72 69  74 65 73 25 20 6c 65 6e  |... sprites% len|
00000200  25 0d 00 fa 16 73 70 72  69 74 65 73 25 21 30 20  |%....sprites%!0 |
00000210  20 3d 20 6c 65 6e 25 0d  01 04 14 73 70 72 69 74  | = len%....sprit|
00000220  65 73 25 21 38 20 20 3d  20 31 36 0d 01 0e 22 c8  |es%!8  = 16...".|
00000230  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
00000240  26 31 30 39 2c 73 70 72  69 74 65 73 25 0d 01 18  |&109,sprites%...|
00000250  3d c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  |=.. "OS_SpriteOp|
00000260  22 2c 26 31 30 41 2c 73  70 72 69 74 65 73 25 2c  |",&10A,sprites%,|
00000270  22 3c 5a 65 6c 61 6e 69  74 65 73 24 44 69 72 3e  |"<Zelanites$Dir>|
00000280  2e 21 5a 41 6c 69 65 6e  73 22 0d 01 22 05 3a 0d  |.!ZAliens"..".:.|
00000290  01 2c 05 3a 0d 01 36 37  c8 99 20 22 57 69 6d 70  |.,.:..67.. "Wimp|
000002a0  5f 4f 70 65 6e 54 65 6d  70 6c 61 74 65 22 2c 2c  |_OpenTemplate",,|
000002b0  22 3c 5a 65 6c 61 6e 69  74 65 73 24 44 69 72 3e  |"<Zelanites$Dir>|
000002c0  2e 21 54 65 6d 70 6c 61  74 65 22 0d 01 40 3c c8  |.!Template"..@<.|
000002d0  99 20 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |. "Wimp_LoadTemp|
000002e0  6c 61 74 65 22 2c 2c 71  25 2c 74 65 6d 70 25 2c  |late",,q%,temp%,|
000002f0  74 65 6d 70 25 2b 31 2a  31 30 32 34 2c 2d 31 2c  |temp%+1*1024,-1,|
00000300  6e 61 6d 65 25 2c 30 0d  01 4a 14 71 25 21 36 34  |name%,0..J.q%!64|
00000310  20 3d 20 73 70 72 69 74  65 73 25 0d 01 54 25 c8  | = sprites%..T%.|
00000320  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
00000330  6e 64 6f 77 22 2c 2c 71  25 20 b8 20 7a 65 6c 25  |ndow",,q% . zel%|
00000340  0d 01 5e 10 21 71 25 20  20 20 3d 20 7a 65 6c 25  |..^.!q%   = zel%|
00000350  0d 01 68 1f c8 99 20 22  57 69 6d 70 5f 47 65 74  |..h... "Wimp_Get|
00000360  57 69 6e 64 6f 77 49 6e  66 6f 22 2c 2c 71 25 0d  |WindowInfo",,q%.|
00000370  01 72 1c c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |.r... "Wimp_Open|
00000380  57 69 6e 64 6f 77 22 2c  2c 71 25 0d 01 7c 1b c8  |Window",,q%..|..|
00000390  99 20 22 57 69 6d 70 5f  43 6c 6f 73 65 54 65 6d  |. "Wimp_CloseTem|
000003a0  70 6c 61 74 65 22 0d 01  86 05 3a 0d 01 ae 05 3a  |plate"....:....:|
000003b0  0d 01 b8 0b 4f 4b 20 20  3d 20 a3 0d 01 c2 05 3a  |....OK  = .....:|
000003c0  0d 01 cc 05 f5 0d 01 d6  06 20 3a 0d 01 e0 1d 20  |......... :.... |
000003d0  c8 99 20 22 57 69 6d 70  5f 50 6f 6c 6c 22 2c 31  |.. "Wimp_Poll",1|
000003e0  2c 71 25 20 b8 20 41 25  0d 01 ea 06 20 3a 0d 01  |,q% . A%.... :..|
000003f0  f4 0c 20 c8 8e 20 41 25  20 ca 0d 01 fe 07 20 20  |.. .. A% .....  |
00000400  3a 0d 02 08 48 20 20 c9  20 32 20 20 20 20 20 3a  |:...H  . 2     :|
00000410  20 f2 4f 70 65 6e 57 69  6e 64 6f 77 28 21 71 25  | .OpenWindow(!q%|
00000420  2c 71 25 21 34 2c 71 25  21 38 2c 71 25 21 31 32  |,q%!4,q%!8,q%!12|
00000430  2c 71 25 21 31 36 2c 71  25 21 32 30 2c 71 25 21  |,q%!16,q%!20,q%!|
00000440  32 34 2c 71 25 21 32 38  29 0d 02 12 20 20 20 c9  |24,q%!28)...   .|
00000450  20 36 20 20 20 20 20 3a  20 f2 4d 6f 75 73 65 53  | 6     : .MouseS|
00000460  65 6c 65 63 74 28 71 25  29 0d 02 1c 07 20 20 3a  |elect(q%)....  :|
00000470  0d 02 26 06 20 cb 0d 02  30 06 20 3a 0d 02 3a 08  |..&. ...0. :..:.|
00000480  fd 20 4f 4b 0d 02 44 05  3a 0d 02 4e 10 65 6e 64  |. OK..D.:..N.end|
00000490  25 20 20 20 20 20 3d 20  a3 0d 02 58 14 71 75 69  |%     = ...X.qui|
000004a0  74 52 65 66 25 20 3d 20  a4 51 75 69 74 0d 02 62  |tRef% = .Quit..b|
000004b0  05 3a 0d 02 6c 05 f5 0d  02 76 06 20 3a 0d 02 80  |.:..l....v. :...|
000004c0  1d 20 c8 99 20 22 57 69  6d 70 5f 50 6f 6c 6c 22  |. .. "Wimp_Poll"|
000004d0  2c 31 2c 71 25 20 b8 20  41 25 0d 02 8a 06 20 3a  |,1,q% . A%.... :|
000004e0  0d 02 94 0c 20 c8 8e 20  41 25 20 ca 0d 02 9e 07  |.... .. A% .....|
000004f0  20 20 3a 0d 02 a8 15 20  20 c9 20 31 37 2c 31 38  |  :....  . 17,18|
00000500  20 3a 20 f2 52 65 63 65  0d 02 b2 14 20 20 c9 20  | : .Rece....  . |
00000510  31 39 20 20 20 20 3a 20  f2 41 43 4b 0d 02 bc 07  |19    : .ACK....|
00000520  20 20 3a 0d 02 c6 06 20  cb 0d 02 d0 06 20 3a 0d  |  :.... ..... :.|
00000530  02 da 0a fd 20 65 6e 64  25 0d 02 e4 17 c8 99 20  |.... end%...... |
00000540  22 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |"Wimp_CloseDown"|
00000550  0d 02 ee 09 f2 4c 6f 61  64 0d 02 f8 05 e0 0d 03  |.....Load.......|
00000560  02 05 3a 0d 03 0c 05 3a  0d 03 16 05 3a 0d 03 20  |..:....:....:.. |
00000570  0b dd 20 f2 52 65 63 65  0d 03 2a 0f c8 8e 20 71  |.. .Rece..*... q|
00000580  25 21 26 31 30 20 ca 0d  03 34 27 20 20 c9 20 30  |%!&10 ...4'  . 0|
00000590  20 3a 20 e7 20 71 25 21  38 20 3c 3e 20 71 75 69  | : . q%!8 <> qui|
000005a0  74 52 65 66 25 20 8c 20  65 6e 64 25 3d b9 0d 03  |tRef% . end%=...|
000005b0  3e 05 cb 0d 03 48 05 e1  0d 03 52 05 3a 0d 03 5c  |>....H....R.:..\|
000005c0  05 3a 0d 03 66 05 3a 0d  03 70 0a dd 20 f2 41 43  |.:..f.:..p.. .AC|
000005d0  4b 0d 03 7a 0f c8 8e 20  71 25 21 26 31 30 20 ca  |K..z... q%!&10 .|
000005e0  0d 03 84 26 20 20 c9 20  30 20 3a 20 e7 20 71 25  |...&  . 0 : . q%|
000005f0  21 38 20 3d 20 71 75 69  74 52 65 66 25 20 8c 20  |!8 = quitRef% . |
00000600  65 6e 64 25 3d b9 0d 03  8e 05 cb 0d 03 98 05 e1  |end%=...........|
00000610  0d 03 a2 05 3a 0d 03 ac  05 3a 0d 03 b6 05 3a 0d  |....:....:....:.|
00000620  03 c0 37 dd 20 f2 4f 70  65 6e 57 69 6e 64 6f 77  |..7. .OpenWindow|
00000630  28 68 61 6e 64 6c 65 25  2c 78 30 25 2c 79 30 25  |(handle%,x0%,y0%|
00000640  2c 78 31 25 2c 79 31 25  2c 73 63 78 25 2c 73 63  |,x1%,y1%,scx%,sc|
00000650  79 25 2c 68 25 29 0d 03  ca 05 3a 0d 03 d4 15 e7  |y%,h%)....:.....|
00000660  20 68 61 6e 64 6c 65 25  20 3d 2d 31 20 8c 20 e1  | handle% =-1 . .|
00000670  0d 03 de 05 3a 0d 03 e8  20 71 25 21 30 20 20 3d  |....:... q%!0  =|
00000680  20 68 61 6e 64 6c 65 25  20 3a 20 71 25 21 32 38  | handle% : q%!28|
00000690  20 3d 20 68 25 0d 03 f2  21 71 25 21 34 20 20 3d  | = h%...!q%!4  =|
000006a0  20 78 30 25 20 20 20 20  20 3a 20 71 25 21 38 20  | x0%     : q%!8 |
000006b0  20 3d 20 79 30 25 0d 03  fc 21 71 25 21 31 32 20  | = y0%...!q%!12 |
000006c0  3d 20 78 31 25 20 20 20  20 20 3a 20 71 25 21 31  |= x1%     : q%!1|
000006d0  36 20 3d 20 79 31 25 0d  04 06 22 71 25 21 32 30  |6 = y1%..."q%!20|
000006e0  20 3d 20 73 63 78 25 20  20 20 20 3a 20 71 25 21  | = scx%    : q%!|
000006f0  32 34 20 3d 20 73 63 79  25 0d 04 10 05 3a 0d 04  |24 = scy%....:..|
00000700  1a 1c c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 57  |.... "Wimp_OpenW|
00000710  69 6e 64 6f 77 22 2c 2c  71 25 0d 04 24 05 e1 0d  |indow",,q%..$...|
00000720  04 2e 05 3a 0d 04 38 05  3a 0d 04 42 05 3a 0d 04  |...:..8.:..B.:..|
00000730  4c 16 dd 20 f2 4d 6f 75  73 65 53 65 6c 65 63 74  |L.. .MouseSelect|
00000740  28 71 25 29 0d 04 56 17  f4 20 71 25 21 38 3d 6d  |(q%)..V.. q%!8=m|
00000750  6f 75 73 65 20 62 75 74  74 6f 6e 0d 04 60 17 f4  |ouse button..`..|
00000760  20 71 25 21 31 36 3d 69  63 6f 6e 20 6e 75 6d 62  | q%!16=icon numb|
00000770  65 72 0d 04 6a 05 3a 0d  04 74 0e c8 8e 20 71 25  |er..j.:..t... q%|
00000780  21 31 36 20 ca 0d 04 7e  42 20 c9 20 31 30 3a 4f  |!16 ...~B . 10:O|
00000790  4b 3d b9 20 20 20 20 20  20 20 20 20 20 20 20 20  |K=.             |
000007a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000007c0  20 3a 20 f4 20 4f 4b 0d  04 88 47 20 c9 20 31 31  | : . OK...G . 11|
000007d0  3a c8 99 22 58 4f 53 5f  43 4c 49 22 2c 22 52 4d  |:.."XOS_CLI","RM|
000007e0  4b 49 4c 4c 20 5a 65 6c  61 6e 69 74 65 73 22 3a  |KILL Zelanites":|
000007f0  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |.. "Wimp_CloseDo|
00000800  77 6e 22 20 3a 20 f4 20  43 41 4e 43 45 4c 0d 04  |wn" : . CANCEL..|
00000810  92 05 cb 0d 04 9c 05 e1  0d 04 a6 05 3a 0d 04 b0  |............:...|
00000820  05 3a 0d 04 ba 05 3a 0d  04 c4 0b dd 20 a4 51 75  |.:....:..... .Qu|
00000830  69 74 0d 04 ce 10 71 75  69 74 25 21 26 30 30 3d  |it....quit%!&00=|
00000840  32 30 0d 04 d8 0f 71 75  69 74 25 21 26 30 43 3d  |20....quit%!&0C=|
00000850  30 0d 04 e2 0f 71 75 69  74 25 21 26 31 30 3d 30  |0....quit%!&10=0|
00000860  0d 04 ec 24 c8 99 20 22  57 69 6d 70 5f 53 65 6e  |...$.. "Wimp_Sen|
00000870  64 4d 65 73 73 61 67 65  22 2c 31 38 2c 71 75 69  |dMessage",18,qui|
00000880  74 25 2c 30 0d 04 f6 0e  3d 71 75 69 74 25 21 26  |t%,0....=quit%!&|
00000890  30 38 0d 05 00 05 3a 0d  05 0a 05 3a 0d 05 14 05  |08....:....:....|
000008a0  3a 0d 05 1e 0c dd 20 f2  45 72 72 6f 72 0d 05 28  |:..... .Error..(|
000008b0  23 c8 99 20 22 58 4f 53  5f 43 4c 49 22 2c 22 52  |#.. "XOS_CLI","R|
000008c0  4d 4b 49 4c 4c 20 5a 65  6c 61 6e 69 74 65 73 22  |MKILL Zelanites"|
000008d0  0d 05 32 0b 21 65 72 72  25 3d 9f 0d 05 3c 10 24  |..2.!err%=...<.$|
000008e0  28 65 72 72 25 2b 34 29  3d f6 24 0d 05 46 2c c8  |(err%+4)=.$..F,.|
000008f0  99 22 57 69 6d 70 5f 52  65 70 6f 72 74 45 72 72  |."Wimp_ReportErr|
00000900  6f 72 22 2c 65 72 72 25  2c 25 31 2c 22 5a 65 6c  |or",err%,%1,"Zel|
00000910  61 6e 69 74 65 73 22 0d  05 50 16 c8 99 22 57 69  |anites"..P..."Wi|
00000920  6d 70 5f 43 6c 6f 73 65  44 6f 77 6e 22 0d 05 5a  |mp_CloseDown"..Z|
00000930  05 e0 0d 05 64 05 e1 0d  05 6e 05 3a 0d 05 78 4b  |....d....n.:..xK|
00000940  3a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |:***************|
00000950  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000980  2a 2a 2a 2a 2a 2a 2a 0d  05 82 05 3a 0d 05 8c 0b  |*******....:....|
00000990  dd 20 f2 4c 6f 61 64 0d  05 96 08 ef 20 32 31 0d  |. .Load..... 21.|
000009a0  05 a0 10 f2 4b 69 6c 6c  4d 6f 64 75 6c 65 73 0d  |....KillModules.|
000009b0  05 aa 14 f2 4b 42 75 66  66 65 72 28 22 2a 47 4f  |....KBuffer("*GO|
000009c0  53 22 29 0d 05 b4 17 f2  4b 42 75 66 66 65 72 28  |S").....KBuffer(|
000009d0  22 52 4d 43 4c 45 41 52  22 29 0d 05 be 16 f2 4b  |"RMCLEAR").....K|
000009e0  42 75 66 66 65 72 28 22  52 4d 54 49 44 59 22 29  |Buffer("RMTIDY")|
000009f0  0d 05 c8 30 f2 4b 42 75  66 66 65 72 28 22 52 55  |...0.KBuffer("RU|
00000a00  4e 20 41 44 46 53 3a 3a  30 2e 24 2e 21 5a 65 6c  |N ADFS::0.$.!Zel|
00000a10  61 6e 69 74 65 73 2e 21  4d 45 4d 21 20 5a 22 29  |anites.!MEM! Z")|
00000a20  0d 05 d2 05 e0 0d 05 dc  05 e1 0d 05 e6 05 3a 0d  |..............:.|
00000a30  05 f0 05 3a 0d 05 fa 05  3a 0d 06 04 12 dd 20 f2  |...:....:..... .|
00000a40  4b 69 6c 6c 4d 6f 64 75  6c 65 73 0d 06 0e 08 ea  |KillModules.....|
00000a50  20 41 24 0d 06 18 05 3a  0d 06 22 08 f3 20 41 24  | A$....:..".. A$|
00000a60  0d 06 2c 0d c8 95 20 41  24 3c 3e 22 22 0d 06 36  |..,... A$<>""..6|
00000a70  1a 20 20 20 c8 99 22 58  4f 53 5f 4d 6f 64 75 6c  |.   .."XOS_Modul|
00000a80  65 22 2c 34 2c 41 24 0d  06 40 0b 20 20 20 f3 20  |e",4,A$..@.   . |
00000a90  41 24 0d 06 4a 05 ce 0d  06 54 05 e1 0d 06 5e 05  |A$..J....T....^.|
00000aa0  3a 0d 06 68 05 3a 0d 06  72 05 3a 0d 06 7c 12 dd  |:..h.:..r.:..|..|
00000ab0  20 f2 4b 42 75 66 66 65  72 28 4d 24 29 0d 06 86  | .KBuffer(M$)...|
00000ac0  0a ea 20 4e 25 2c 41 0d  06 90 05 3a 0d 06 9a 12  |.. N%,A....:....|
00000ad0  e3 20 4e 25 3d 31 20 b8  20 a9 28 4d 24 29 0d 06  |. N%=1 . .(M$)..|
00000ae0  a4 15 20 20 20 41 3d 97  28 c1 4d 24 2c 4e 25 2c  |..   A=.(.M$,N%,|
00000af0  31 29 29 0d 06 ae 1b 20  20 20 c8 99 20 22 4f 53  |1))....   .. "OS|
00000b00  5f 42 79 74 65 22 2c 31  33 38 2c 30 2c 41 0d 06  |_Byte",138,0,A..|
00000b10  b8 08 ed 20 4e 25 0d 06  c2 1c 20 20 20 c8 99 22  |... N%....   .."|
00000b20  4f 53 5f 42 79 74 65 22  2c 31 33 38 2c 30 2c 26  |OS_Byte",138,0,&|
00000b30  30 44 0d 06 cc 05 e1 0d  06 d6 05 3a 0d 06 e0 05  |0D.........:....|
00000b40  3a 0d 06 ea 05 3a 0d 06  f4 15 f4 20 4d 6f 64 75  |:....:..... Modu|
00000b50  6c 65 73 20 74 6f 20 6b  69 6c 6c 0d 06 fe 05 3a  |les to kill....:|
00000b60  0d 07 08 11 dc 20 22 5a  65 6c 61 6e 69 74 65 73  |..... "Zelanites|
00000b70  22 0d 07 12 0f dc 20 22  44 65 73 6b 74 6f 70 22  |"..... "Desktop"|
00000b80  0d 07 1c 11 dc 20 22 42  42 43 45 63 6f 6e 65 74  |..... "BBCEconet|
00000b90  22 0d 07 26 15 dc 20 22  49 6e 74 65 72 6e 61 74  |"..&.. "Internat|
00000ba0  69 6f 6e 61 6c 22 0d 07  30 1d dc 20 22 49 6e 74  |ional"..0.. "Int|
00000bb0  65 72 6e 61 74 69 6f 6e  61 6c 4b 65 79 62 6f 61  |ernationalKeyboa|
00000bc0  72 64 22 0d 07 3a 10 dc  20 22 44 65 62 75 67 67  |rd"..:.. "Debugg|
00000bd0  65 72 22 0d 07 44 0b dc  20 22 49 49 43 22 0d 07  |er"..D.. "IIC"..|
00000be0  4e 15 dc 20 22 53 6f 75  6e 64 43 68 61 6e 6e 65  |N.. "SoundChanne|
00000bf0  6c 73 22 0d 07 58 16 dc  20 22 53 6f 75 6e 64 53  |ls"..X.. "SoundS|
00000c00  63 68 65 64 75 6c 65 72  22 0d 07 62 11 dc 20 22  |cheduler"..b.. "|
00000c10  57 61 76 65 53 79 6e 74  68 22 0d 07 6c 11 dc 20  |WaveSynth"..l.. |
00000c20  22 53 74 72 69 6e 67 4c  69 62 22 0d 07 76 12 dc  |"StringLib"..v..|
00000c30  20 22 50 65 72 63 75 73  73 69 6f 6e 22 0d 07 80  | "Percussion"...|
00000c40  14 dc 20 22 53 70 72 69  74 65 45 78 74 65 6e 64  |.. "SpriteExtend|
00000c50  22 0d 07 8a 0c dc 20 22  44 72 61 77 22 0d 07 94  |"..... "Draw"...|
00000c60  13 dc 20 22 46 6f 6e 74  4d 61 6e 61 67 65 72 22  |.. "FontManager"|
00000c70  0d 07 9e 15 dc 20 22 57  69 6e 64 6f 77 4d 61 6e  |..... "WindowMan|
00000c80  61 67 65 72 22 0d 07 a8  13 dc 20 22 54 61 73 6b  |ager"..... "Task|
00000c90  4d 61 6e 61 67 65 72 22  0d 07 b2 13 dc 20 22 50  |Manager"..... "P|
00000ca0  61 6c 65 74 74 65 55 74  69 6c 22 0d 07 bc 12 dc  |aletteUtil".....|
00000cb0  20 22 52 41 4d 46 53 46  69 6c 65 72 22 0d 07 c6  | "RAMFSFiler"...|
00000cc0  10 dc 20 22 4e 65 74 46  69 6c 65 72 22 0d 07 d0  |.. "NetFiler"...|
00000cd0  10 dc 20 22 53 68 65 6c  6c 43 4c 49 22 0d 07 da  |.. "ShellCLI"...|
00000ce0  11 dc 20 22 48 6f 75 72  67 6c 61 73 73 22 0d 07  |.. "Hourglass"..|
00000cf0  e4 11 dc 20 22 4e 65 74  53 74 61 74 75 73 22 0d  |... "NetStatus".|
00000d00  07 ee 13 dc 20 22 53 70  72 69 74 65 55 74 69 6c  |.... "SpriteUtil|
00000d10  73 22 0d 07 f8 11 dc 20  22 44 69 67 69 74 69 73  |s"..... "Digitis|
00000d20  65 72 22 0d 08 02 08 dc  20 22 22 0d ff           |er"..... ""..|
00000d2d