� 

d�wimpinit:�loadfiles:mask%=%1100000110001:�:ș"Wimp_Poll",mask%,wimpbuff% � reason%:q%=wimpbuff%
Ȏ reason% �
!� 2 :ș "Wimp_OpenWindow",,q%
(/� 6 :�checkmouse(!q%,q%!4,q%!8,q%!12,q%!16)
2� 7 :�dragsave
<� 9 :�decodemenu(q%)
F� 17,18 :�receivemessage
P	�:� �
Z/��checkmouse(mx%,my%,button%,handle%,icon%)
d� button%=2 �
n@� handle%=-2 �createmenu(handle%,"Info,Save,Quit","Creator")
x�
�� button%=64 �
��� x%, y%:!wimpbuff%=saveas%:ș "Wimp_GetWindowState",,wimpbuff%:ysize%=wimpbuff%!16-wimpbuff%!8:x%=wimpbuff%!4:y%=wimpbuff%!8:wimpbuff%!4 = 0:ș "Wimp_GetIconState",,wimpbuff%:wimpbuff%!8  += x%:wimpbuff%!12 += y% + ysize%:wimpbuff%!16 += x%
��wimpbuff%!20 += y% + ysize%:wimpbuff%!24 = 0:wimpbuff%!28 = 0:wimpbuff%!32 = 1280:wimpbuff%!36 = 1024:!wimpbuff%=0:wimpbuff%!4=5:ș "Wimp_DragBox",,wimpbuff%
��
��
����dragsave:ș "Wimp_GetPointerInfo",,wimpbuff%:!menubuff%=saveas%:menubuff%!4=1:ș "Wimp_GetIconState",,menubuff%:name%=menubuff%!28:name$="!"+$name%:wimpbuff%!20=wimpbuff%!12:wimpbuff%!24=wimpbuff%!16:wimpbuff%!28=!wimpbuff%:wimpbuff%!32=wimpbuff%!4
��wimpbuff%!12=0:wimpbuff%!16=1:wimpbuff%!36=0:wimpbuff%!40=&2000:$(wimpbuff%+44)=name$:wimpbuff%?(44+�(name$))=0:!wimpbuff%=60:ș "Wimp_SendMessage",17,wimpbuff%,wimpbuff%!20:�
���receivemessage
�� wimpbuff%!4=task% �
�� wimpbuff%!16=2 �
�� wimpbuff%!36<>-1 �
�$pathname$="":start%=wimpbuff%+44
�ȕ ?start%

,pathname$=pathname$+�(?start%):start%+=1

�

<$menubuff%=pathname$:ș "OS_File",13,menubuff% � exists%

"� exists%<>0 �fileexists

,� exists%=0 �

6�� "CDIR "+pathname$:�savefiles:wimpbuff%!16=3:ș "Wimp_SendMessage",17,wimpbuff%,wimpbuff%!20:!wimpbuff%=saveas%:ș "Wimp_CloseWindow",,wimpbuff%:ș "Wimp_CreateMenu",,-1

@�

J	� � 7

T�

^�

h� wimpbuff%!16=4

r�

|���fileexists:!menubuff%=0:$(menubuff%+4)="File exists, overwrite ?"+�0:ș "Wimp_ReportError",menubuff%,%10011,"Creator" � ,click%:� click%=1 exists%=0

��

�Y��decodemenu(menu%):ș "Wimp_DecodeMenu",,menubuff%,menu%,�200," ")�,,,a$:� a$="" � �

�Ȏ menuhandle% �

�� -2 :� a$="Quit":�finish:�

��:�

����createmenu(handle%,menu$,menutitle$):menuhandle%=handle%:menuptr%=menubuff%:i%=0:$menuptr%=menutitle$:menuptr%?12=7:menuptr%?13=2:menuptr%?14=7:menuptr%?15=0:� handle%=-2 menuptr%!16=96 � menuptr%!16=144

«menuptr%!20=40:menuptr%!24=0:menuptr%+=28:� item$=�par(","):�menuitem(item$):� item$="":menuptr%!-24=(menuptr%!-24)�&80:ș "Wimp_CreateMenu",,menubuff%,mx%-64,96+120:�

�"��menuitem(text$):� text$="" �

�>menuptr%!0=0:menuptr%!4=-1:� text$="Info" menuptr%!4=info%

�%� text$="Save" menuptr%!4=saveas%

�<menuptr%!8=&07000021:$(menuptr%+12)=text$:menuptr%+=24:�

�1ݤpar(sep$):i1%=i%+1:i%=�menu$+sep$,sep$,i1%)

�=�menu$,i1%,i%-i1%)
w��error:!wimpbuff%=�:$(wimpbuff%+4)=�$+" : "+Þ+�0:ș "Wimp_ReportError",wimpbuff%,1,"Creator":� � <> 999 �finish:�
�
��finish:� � �
&ș "Wimp_CloseDown":�
0��wimpinit:� � �error
:�ș"Wimp_Initialise",200,&4B534154,"Creator version 1.0" � dummy%,task%:wsmax%=1024:� ws% wsmax%:wsend%=ws%+wsmax%:� menubuff% 1024:� wimpbuff% 1024
D�ș"Wimp_OpenTemplate",,"<Demo_creator$Dir>.Templates":ș"Wimp_LoadTemplate",,wimpbuff%,ws%,wsend%,-1,"info",0 � ,,ws%:ș"Wimp_CreateWindow",,wimpbuff% � info%:ș"Wimp_LoadTemplate",,wimpbuff%,ws%,wsend%,-1,"saveas",0 � ,,ws%
N�ș"Wimp_CreateWindow",,wimpbuff% � saveas%:ș"Wimp_CloseTemplate":!wimpbuff%=-1:wimpbuff%!4=0:wimpbuff%!8=0:wimpbuff%!12=94:wimpbuff%!16=72:wimpbuff%!20=&3002:$(wimpbuff%+24)="!Creator":ș"Wimp_CreateIcon",,wimpbuff% � iconbar%:�
X���loadfiles:�:� load%,length%,fn$:path$="<Demo_creator$Dir>.x_files.":� filearea% 1024*200:fa2%=filearea%:� nofiles%:� file$(nofiles%):� fileinfo%(nofiles%,2):� loop%= 1 � nofiles%:� file$(loop%)
b�ș "OS_File",12,"<Demo_creator$Dir>.x_files."+file$(loop%),fa2%,0,"" � ,,load%,,length%:fileinfo%(loop%,1)=load%>>>8:fileinfo%(loop%,2)=length%:fa2%+=length%:� loop%:spritelength=930:� userSprites spritelength
l�!userSprites   =spritelength:userSprites!4  =0:userSprites!8  =16:userSprites!12 =16:ș "OS_SpriteOp",10+256,userSprites,"<Demo_creator$Dir>.x_files.!sprites":oldname$="!Demo":�
v���savefiles:fa2%=filearea%:� loop%=1 � nofiles%:$menubuff%=pathname$+"."+file$(loop%):ș "OS_File",10,menubuff%,fileinfo%(loop%,1),0,fa2%,fa2%+fileinfo%(loop%,2):fa2%+=fileinfo%(loop%,2):� loop%:ș "OS_SpriteOp",26+256,userSprites,oldname$,name$
�foldname$=name$:$menubuff%=pathname$+"."+"!Sprites":ș "OS_SpriteOp",12+256,userSprites,menubuff%:�
�� 7
�;� !Boot,!Run,!Runimage,MemAlloc,Player_mod,Sprites,Text
�

00000000  0d 00 0a 0a f4 20 15 07  15 17 0d 00 0a 64 f2 77  |..... .......d.w|
00000010  69 6d 70 69 6e 69 74 3a  f2 6c 6f 61 64 66 69 6c  |impinit:.loadfil|
00000020  65 73 3a 6d 61 73 6b 25  3d 25 31 31 30 30 30 30  |es:mask%=%110000|
00000030  30 31 31 30 30 30 31 3a  f5 3a c8 99 22 57 69 6d  |0110001:.:.."Wim|
00000040  70 5f 50 6f 6c 6c 22 2c  6d 61 73 6b 25 2c 77 69  |p_Poll",mask%,wi|
00000050  6d 70 62 75 66 66 25 20  b8 20 72 65 61 73 6f 6e  |mpbuff% . reason|
00000060  25 3a 71 25 3d 77 69 6d  70 62 75 66 66 25 0d 00  |%:q%=wimpbuff%..|
00000070  14 10 c8 8e 20 72 65 61  73 6f 6e 25 20 ca 0d 00  |.... reason% ...|
00000080  1e 21 c9 20 32 20 3a c8  99 20 22 57 69 6d 70 5f  |.!. 2 :.. "Wimp_|
00000090  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 71 25 0d  |OpenWindow",,q%.|
000000a0  00 28 2f c9 20 36 20 3a  f2 63 68 65 63 6b 6d 6f  |.(/. 6 :.checkmo|
000000b0  75 73 65 28 21 71 25 2c  71 25 21 34 2c 71 25 21  |use(!q%,q%!4,q%!|
000000c0  38 2c 71 25 21 31 32 2c  71 25 21 31 36 29 0d 00  |8,q%!12,q%!16)..|
000000d0  32 12 c9 20 37 20 3a f2  64 72 61 67 73 61 76 65  |2.. 7 :.dragsave|
000000e0  0d 00 3c 18 c9 20 39 20  3a f2 64 65 63 6f 64 65  |..<.. 9 :.decode|
000000f0  6d 65 6e 75 28 71 25 29  0d 00 46 1c c9 20 31 37  |menu(q%)..F.. 17|
00000100  2c 31 38 20 3a f2 72 65  63 65 69 76 65 6d 65 73  |,18 :.receivemes|
00000110  73 61 67 65 0d 00 50 09  cb 3a fd 20 a3 0d 00 5a  |sage..P..:. ...Z|
00000120  2f dd f2 63 68 65 63 6b  6d 6f 75 73 65 28 6d 78  |/..checkmouse(mx|
00000130  25 2c 6d 79 25 2c 62 75  74 74 6f 6e 25 2c 68 61  |%,my%,button%,ha|
00000140  6e 64 6c 65 25 2c 69 63  6f 6e 25 29 0d 00 64 11  |ndle%,icon%)..d.|
00000150  e7 20 62 75 74 74 6f 6e  25 3d 32 20 8c 0d 00 6e  |. button%=2 ...n|
00000160  40 e7 20 68 61 6e 64 6c  65 25 3d 2d 32 20 f2 63  |@. handle%=-2 .c|
00000170  72 65 61 74 65 6d 65 6e  75 28 68 61 6e 64 6c 65  |reatemenu(handle|
00000180  25 2c 22 49 6e 66 6f 2c  53 61 76 65 2c 51 75 69  |%,"Info,Save,Qui|
00000190  74 22 2c 22 43 72 65 61  74 6f 72 22 29 0d 00 78  |t","Creator")..x|
000001a0  05 cd 0d 00 82 12 e7 20  62 75 74 74 6f 6e 25 3d  |....... button%=|
000001b0  36 34 20 8c 0d 00 8c f5  ea 20 78 25 2c 20 79 25  |64 ...... x%, y%|
000001c0  3a 21 77 69 6d 70 62 75  66 66 25 3d 73 61 76 65  |:!wimpbuff%=save|
000001d0  61 73 25 3a c8 99 20 22  57 69 6d 70 5f 47 65 74  |as%:.. "Wimp_Get|
000001e0  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 77 69  |WindowState",,wi|
000001f0  6d 70 62 75 66 66 25 3a  79 73 69 7a 65 25 3d 77  |mpbuff%:ysize%=w|
00000200  69 6d 70 62 75 66 66 25  21 31 36 2d 77 69 6d 70  |impbuff%!16-wimp|
00000210  62 75 66 66 25 21 38 3a  78 25 3d 77 69 6d 70 62  |buff%!8:x%=wimpb|
00000220  75 66 66 25 21 34 3a 79  25 3d 77 69 6d 70 62 75  |uff%!4:y%=wimpbu|
00000230  66 66 25 21 38 3a 77 69  6d 70 62 75 66 66 25 21  |ff%!8:wimpbuff%!|
00000240  34 20 3d 20 30 3a c8 99  20 22 57 69 6d 70 5f 47  |4 = 0:.. "Wimp_G|
00000250  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 77 69  |etIconState",,wi|
00000260  6d 70 62 75 66 66 25 3a  77 69 6d 70 62 75 66 66  |mpbuff%:wimpbuff|
00000270  25 21 38 20 20 2b 3d 20  78 25 3a 77 69 6d 70 62  |%!8  += x%:wimpb|
00000280  75 66 66 25 21 31 32 20  2b 3d 20 79 25 20 2b 20  |uff%!12 += y% + |
00000290  79 73 69 7a 65 25 3a 77  69 6d 70 62 75 66 66 25  |ysize%:wimpbuff%|
000002a0  21 31 36 20 2b 3d 20 78  25 0d 00 96 a1 77 69 6d  |!16 += x%....wim|
000002b0  70 62 75 66 66 25 21 32  30 20 2b 3d 20 79 25 20  |pbuff%!20 += y% |
000002c0  2b 20 79 73 69 7a 65 25  3a 77 69 6d 70 62 75 66  |+ ysize%:wimpbuf|
000002d0  66 25 21 32 34 20 3d 20  30 3a 77 69 6d 70 62 75  |f%!24 = 0:wimpbu|
000002e0  66 66 25 21 32 38 20 3d  20 30 3a 77 69 6d 70 62  |ff%!28 = 0:wimpb|
000002f0  75 66 66 25 21 33 32 20  3d 20 31 32 38 30 3a 77  |uff%!32 = 1280:w|
00000300  69 6d 70 62 75 66 66 25  21 33 36 20 3d 20 31 30  |impbuff%!36 = 10|
00000310  32 34 3a 21 77 69 6d 70  62 75 66 66 25 3d 30 3a  |24:!wimpbuff%=0:|
00000320  77 69 6d 70 62 75 66 66  25 21 34 3d 35 3a c8 99  |wimpbuff%!4=5:..|
00000330  20 22 57 69 6d 70 5f 44  72 61 67 42 6f 78 22 2c  | "Wimp_DragBox",|
00000340  2c 77 69 6d 70 62 75 66  66 25 0d 00 a0 05 cd 0d  |,wimpbuff%......|
00000350  00 aa 05 e1 0d 00 b4 fe  dd f2 64 72 61 67 73 61  |..........dragsa|
00000360  76 65 3a c8 99 20 22 57  69 6d 70 5f 47 65 74 50  |ve:.. "Wimp_GetP|
00000370  6f 69 6e 74 65 72 49 6e  66 6f 22 2c 2c 77 69 6d  |ointerInfo",,wim|
00000380  70 62 75 66 66 25 3a 21  6d 65 6e 75 62 75 66 66  |pbuff%:!menubuff|
00000390  25 3d 73 61 76 65 61 73  25 3a 6d 65 6e 75 62 75  |%=saveas%:menubu|
000003a0  66 66 25 21 34 3d 31 3a  c8 99 20 22 57 69 6d 70  |ff%!4=1:.. "Wimp|
000003b0  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
000003c0  6d 65 6e 75 62 75 66 66  25 3a 6e 61 6d 65 25 3d  |menubuff%:name%=|
000003d0  6d 65 6e 75 62 75 66 66  25 21 32 38 3a 6e 61 6d  |menubuff%!28:nam|
000003e0  65 24 3d 22 21 22 2b 24  6e 61 6d 65 25 3a 77 69  |e$="!"+$name%:wi|
000003f0  6d 70 62 75 66 66 25 21  32 30 3d 77 69 6d 70 62  |mpbuff%!20=wimpb|
00000400  75 66 66 25 21 31 32 3a  77 69 6d 70 62 75 66 66  |uff%!12:wimpbuff|
00000410  25 21 32 34 3d 77 69 6d  70 62 75 66 66 25 21 31  |%!24=wimpbuff%!1|
00000420  36 3a 77 69 6d 70 62 75  66 66 25 21 32 38 3d 21  |6:wimpbuff%!28=!|
00000430  77 69 6d 70 62 75 66 66  25 3a 77 69 6d 70 62 75  |wimpbuff%:wimpbu|
00000440  66 66 25 21 33 32 3d 77  69 6d 70 62 75 66 66 25  |ff%!32=wimpbuff%|
00000450  21 34 0d 00 be b3 77 69  6d 70 62 75 66 66 25 21  |!4....wimpbuff%!|
00000460  31 32 3d 30 3a 77 69 6d  70 62 75 66 66 25 21 31  |12=0:wimpbuff%!1|
00000470  36 3d 31 3a 77 69 6d 70  62 75 66 66 25 21 33 36  |6=1:wimpbuff%!36|
00000480  3d 30 3a 77 69 6d 70 62  75 66 66 25 21 34 30 3d  |=0:wimpbuff%!40=|
00000490  26 32 30 30 30 3a 24 28  77 69 6d 70 62 75 66 66  |&2000:$(wimpbuff|
000004a0  25 2b 34 34 29 3d 6e 61  6d 65 24 3a 77 69 6d 70  |%+44)=name$:wimp|
000004b0  62 75 66 66 25 3f 28 34  34 2b a9 28 6e 61 6d 65  |buff%?(44+.(name|
000004c0  24 29 29 3d 30 3a 21 77  69 6d 70 62 75 66 66 25  |$))=0:!wimpbuff%|
000004d0  3d 36 30 3a c8 99 20 22  57 69 6d 70 5f 53 65 6e  |=60:.. "Wimp_Sen|
000004e0  64 4d 65 73 73 61 67 65  22 2c 31 37 2c 77 69 6d  |dMessage",17,wim|
000004f0  70 62 75 66 66 25 2c 77  69 6d 70 62 75 66 66 25  |pbuff%,wimpbuff%|
00000500  21 32 30 3a e1 0d 00 c8  14 dd f2 72 65 63 65 69  |!20:.......recei|
00000510  76 65 6d 65 73 73 61 67  65 0d 00 d2 19 e7 20 77  |vemessage..... w|
00000520  69 6d 70 62 75 66 66 25  21 34 3d 74 61 73 6b 25  |impbuff%!4=task%|
00000530  20 e1 0d 00 dc 16 e7 20  77 69 6d 70 62 75 66 66  | ...... wimpbuff|
00000540  25 21 31 36 3d 32 20 8c  0d 00 e6 18 e7 20 77 69  |%!16=2 ...... wi|
00000550  6d 70 62 75 66 66 25 21  33 36 3c 3e 2d 31 20 8c  |mpbuff%!36<>-1 .|
00000560  0d 00 f0 24 70 61 74 68  6e 61 6d 65 24 3d 22 22  |...$pathname$=""|
00000570  3a 73 74 61 72 74 25 3d  77 69 6d 70 62 75 66 66  |:start%=wimpbuff|
00000580  25 2b 34 34 0d 00 fa 0e  c8 95 20 3f 73 74 61 72  |%+44...... ?star|
00000590  74 25 0d 01 04 2c 70 61  74 68 6e 61 6d 65 24 3d  |t%...,pathname$=|
000005a0  70 61 74 68 6e 61 6d 65  24 2b bd 28 3f 73 74 61  |pathname$+.(?sta|
000005b0  72 74 25 29 3a 73 74 61  72 74 25 2b 3d 31 0d 01  |rt%):start%+=1..|
000005c0  0e 05 ce 0d 01 18 3c 24  6d 65 6e 75 62 75 66 66  |......<$menubuff|
000005d0  25 3d 70 61 74 68 6e 61  6d 65 24 3a c8 99 20 22  |%=pathname$:.. "|
000005e0  4f 53 5f 46 69 6c 65 22  2c 31 33 2c 6d 65 6e 75  |OS_File",13,menu|
000005f0  62 75 66 66 25 20 b8 20  65 78 69 73 74 73 25 0d  |buff% . exists%.|
00000600  01 22 1c e7 20 65 78 69  73 74 73 25 3c 3e 30 20  |.".. exists%<>0 |
00000610  f2 66 69 6c 65 65 78 69  73 74 73 0d 01 2c 11 e7  |.fileexists..,..|
00000620  20 65 78 69 73 74 73 25  3d 30 20 8c 0d 01 36 ae  | exists%=0 ...6.|
00000630  ff 20 22 43 44 49 52 20  22 2b 70 61 74 68 6e 61  |. "CDIR "+pathna|
00000640  6d 65 24 3a f2 73 61 76  65 66 69 6c 65 73 3a 77  |me$:.savefiles:w|
00000650  69 6d 70 62 75 66 66 25  21 31 36 3d 33 3a c8 99  |impbuff%!16=3:..|
00000660  20 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  | "Wimp_SendMessa|
00000670  67 65 22 2c 31 37 2c 77  69 6d 70 62 75 66 66 25  |ge",17,wimpbuff%|
00000680  2c 77 69 6d 70 62 75 66  66 25 21 32 30 3a 21 77  |,wimpbuff%!20:!w|
00000690  69 6d 70 62 75 66 66 25  3d 73 61 76 65 61 73 25  |impbuff%=saveas%|
000006a0  3a c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 57  |:.. "Wimp_CloseW|
000006b0  69 6e 64 6f 77 22 2c 2c  77 69 6d 70 62 75 66 66  |indow",,wimpbuff|
000006c0  25 3a c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |%:.. "Wimp_Creat|
000006d0  65 4d 65 6e 75 22 2c 2c  2d 31 0d 01 40 05 cd 0d  |eMenu",,-1..@...|
000006e0  01 4a 09 cc 20 ef 20 37  0d 01 54 05 cd 0d 01 5e  |.J.. . 7..T....^|
000006f0  05 cd 0d 01 68 14 e7 20  77 69 6d 70 62 75 66 66  |....h.. wimpbuff|
00000700  25 21 31 36 3d 34 0d 01  72 05 e1 0d 01 7c 9a dd  |%!16=4..r....|..|
00000710  f2 66 69 6c 65 65 78 69  73 74 73 3a 21 6d 65 6e  |.fileexists:!men|
00000720  75 62 75 66 66 25 3d 30  3a 24 28 6d 65 6e 75 62  |ubuff%=0:$(menub|
00000730  75 66 66 25 2b 34 29 3d  22 46 69 6c 65 20 65 78  |uff%+4)="File ex|
00000740  69 73 74 73 2c 20 6f 76  65 72 77 72 69 74 65 20  |ists, overwrite |
00000750  3f 22 2b bd 30 3a c8 99  20 22 57 69 6d 70 5f 52  |?"+.0:.. "Wimp_R|
00000760  65 70 6f 72 74 45 72 72  6f 72 22 2c 6d 65 6e 75  |eportError",menu|
00000770  62 75 66 66 25 2c 25 31  30 30 31 31 2c 22 43 72  |buff%,%10011,"Cr|
00000780  65 61 74 6f 72 22 20 b8  20 2c 63 6c 69 63 6b 25  |eator" . ,click%|
00000790  3a e7 20 63 6c 69 63 6b  25 3d 31 20 65 78 69 73  |:. click%=1 exis|
000007a0  74 73 25 3d 30 0d 01 86  05 e1 0d 01 90 59 dd f2  |ts%=0........Y..|
000007b0  64 65 63 6f 64 65 6d 65  6e 75 28 6d 65 6e 75 25  |decodemenu(menu%|
000007c0  29 3a c8 99 20 22 57 69  6d 70 5f 44 65 63 6f 64  |):.. "Wimp_Decod|
000007d0  65 4d 65 6e 75 22 2c 2c  6d 65 6e 75 62 75 66 66  |eMenu",,menubuff|
000007e0  25 2c 6d 65 6e 75 25 2c  c4 32 30 30 2c 22 20 22  |%,menu%,.200," "|
000007f0  29 b8 2c 2c 2c 61 24 3a  e7 20 61 24 3d 22 22 20  |).,,,a$:. a$="" |
00000800  8c 20 e1 0d 01 9a 14 c8  8e 20 6d 65 6e 75 68 61  |. ....... menuha|
00000810  6e 64 6c 65 25 20 ca 0d  01 a4 1f c9 20 2d 32 20  |ndle% ...... -2 |
00000820  3a e7 20 61 24 3d 22 51  75 69 74 22 3a f2 66 69  |:. a$="Quit":.fi|
00000830  6e 69 73 68 3a e0 0d 01  ae 07 cb 3a e1 0d 01 b8  |nish:......:....|
00000840  d1 dd f2 63 72 65 61 74  65 6d 65 6e 75 28 68 61  |...createmenu(ha|
00000850  6e 64 6c 65 25 2c 6d 65  6e 75 24 2c 6d 65 6e 75  |ndle%,menu$,menu|
00000860  74 69 74 6c 65 24 29 3a  6d 65 6e 75 68 61 6e 64  |title$):menuhand|
00000870  6c 65 25 3d 68 61 6e 64  6c 65 25 3a 6d 65 6e 75  |le%=handle%:menu|
00000880  70 74 72 25 3d 6d 65 6e  75 62 75 66 66 25 3a 69  |ptr%=menubuff%:i|
00000890  25 3d 30 3a 24 6d 65 6e  75 70 74 72 25 3d 6d 65  |%=0:$menuptr%=me|
000008a0  6e 75 74 69 74 6c 65 24  3a 6d 65 6e 75 70 74 72  |nutitle$:menuptr|
000008b0  25 3f 31 32 3d 37 3a 6d  65 6e 75 70 74 72 25 3f  |%?12=7:menuptr%?|
000008c0  31 33 3d 32 3a 6d 65 6e  75 70 74 72 25 3f 31 34  |13=2:menuptr%?14|
000008d0  3d 37 3a 6d 65 6e 75 70  74 72 25 3f 31 35 3d 30  |=7:menuptr%?15=0|
000008e0  3a e7 20 68 61 6e 64 6c  65 25 3d 2d 32 20 6d 65  |:. handle%=-2 me|
000008f0  6e 75 70 74 72 25 21 31  36 3d 39 36 20 8b 20 6d  |nuptr%!16=96 . m|
00000900  65 6e 75 70 74 72 25 21  31 36 3d 31 34 34 0d 01  |enuptr%!16=144..|
00000910  c2 ab 6d 65 6e 75 70 74  72 25 21 32 30 3d 34 30  |..menuptr%!20=40|
00000920  3a 6d 65 6e 75 70 74 72  25 21 32 34 3d 30 3a 6d  |:menuptr%!24=0:m|
00000930  65 6e 75 70 74 72 25 2b  3d 32 38 3a f5 20 69 74  |enuptr%+=28:. it|
00000940  65 6d 24 3d a4 70 61 72  28 22 2c 22 29 3a f2 6d  |em$=.par(","):.m|
00000950  65 6e 75 69 74 65 6d 28  69 74 65 6d 24 29 3a fd  |enuitem(item$):.|
00000960  20 69 74 65 6d 24 3d 22  22 3a 6d 65 6e 75 70 74  | item$="":menupt|
00000970  72 25 21 2d 32 34 3d 28  6d 65 6e 75 70 74 72 25  |r%!-24=(menuptr%|
00000980  21 2d 32 34 29 84 26 38  30 3a c8 99 20 22 57 69  |!-24).&80:.. "Wi|
00000990  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
000009a0  6d 65 6e 75 62 75 66 66  25 2c 6d 78 25 2d 36 34  |menubuff%,mx%-64|
000009b0  2c 39 36 2b 31 32 30 3a  e1 0d 01 cc 22 dd f2 6d  |,96+120:...."..m|
000009c0  65 6e 75 69 74 65 6d 28  74 65 78 74 24 29 3a e7  |enuitem(text$):.|
000009d0  20 74 65 78 74 24 3d 22  22 20 e1 0d 01 d6 3e 6d  | text$="" ....>m|
000009e0  65 6e 75 70 74 72 25 21  30 3d 30 3a 6d 65 6e 75  |enuptr%!0=0:menu|
000009f0  70 74 72 25 21 34 3d 2d  31 3a e7 20 74 65 78 74  |ptr%!4=-1:. text|
00000a00  24 3d 22 49 6e 66 6f 22  20 6d 65 6e 75 70 74 72  |$="Info" menuptr|
00000a10  25 21 34 3d 69 6e 66 6f  25 0d 01 e0 25 e7 20 74  |%!4=info%...%. t|
00000a20  65 78 74 24 3d 22 53 61  76 65 22 20 6d 65 6e 75  |ext$="Save" menu|
00000a30  70 74 72 25 21 34 3d 73  61 76 65 61 73 25 0d 01  |ptr%!4=saveas%..|
00000a40  ea 3c 6d 65 6e 75 70 74  72 25 21 38 3d 26 30 37  |.<menuptr%!8=&07|
00000a50  30 30 30 30 32 31 3a 24  28 6d 65 6e 75 70 74 72  |000021:$(menuptr|
00000a60  25 2b 31 32 29 3d 74 65  78 74 24 3a 6d 65 6e 75  |%+12)=text$:menu|
00000a70  70 74 72 25 2b 3d 32 34  3a e1 0d 01 f4 31 dd a4  |ptr%+=24:....1..|
00000a80  70 61 72 28 73 65 70 24  29 3a 69 31 25 3d 69 25  |par(sep$):i1%=i%|
00000a90  2b 31 3a 69 25 3d a7 6d  65 6e 75 24 2b 73 65 70  |+1:i%=.menu$+sep|
00000aa0  24 2c 73 65 70 24 2c 69  31 25 29 0d 01 fe 17 3d  |$,sep$,i1%)....=|
00000ab0  c1 6d 65 6e 75 24 2c 69  31 25 2c 69 25 2d 69 31  |.menu$,i1%,i%-i1|
00000ac0  25 29 0d 02 08 77 dd f2  65 72 72 6f 72 3a 21 77  |%)...w..error:!w|
00000ad0  69 6d 70 62 75 66 66 25  3d 9f 3a 24 28 77 69 6d  |impbuff%=.:$(wim|
00000ae0  70 62 75 66 66 25 2b 34  29 3d f6 24 2b 22 20 3a  |pbuff%+4)=.$+" :|
00000af0  20 22 2b c3 9e 2b bd 30  3a c8 99 20 22 57 69 6d  | "+..+.0:.. "Wim|
00000b00  70 5f 52 65 70 6f 72 74  45 72 72 6f 72 22 2c 77  |p_ReportError",w|
00000b10  69 6d 70 62 75 66 66 25  2c 31 2c 22 43 72 65 61  |impbuff%,1,"Crea|
00000b20  74 6f 72 22 3a e7 20 9f  20 3c 3e 20 39 39 39 20  |tor":. . <> 999 |
00000b30  f2 66 69 6e 69 73 68 3a  e0 0d 02 12 05 e1 0d 02  |.finish:........|
00000b40  1c 12 dd f2 66 69 6e 69  73 68 3a ee 20 85 20 87  |....finish:. . .|
00000b50  0d 02 26 19 c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |..&... "Wimp_Clo|
00000b60  73 65 44 6f 77 6e 22 3a  e1 0d 02 30 19 dd f2 77  |seDown":...0...w|
00000b70  69 6d 70 69 6e 69 74 3a  ee 20 85 20 f2 65 72 72  |impinit:. . .err|
00000b80  6f 72 0d 02 3a 97 c8 99  22 57 69 6d 70 5f 49 6e  |or..:..."Wimp_In|
00000b90  69 74 69 61 6c 69 73 65  22 2c 32 30 30 2c 26 34  |itialise",200,&4|
00000ba0  42 35 33 34 31 35 34 2c  22 43 72 65 61 74 6f 72  |B534154,"Creator|
00000bb0  20 76 65 72 73 69 6f 6e  20 31 2e 30 22 20 b8 20  | version 1.0" . |
00000bc0  64 75 6d 6d 79 25 2c 74  61 73 6b 25 3a 77 73 6d  |dummy%,task%:wsm|
00000bd0  61 78 25 3d 31 30 32 34  3a de 20 77 73 25 20 77  |ax%=1024:. ws% w|
00000be0  73 6d 61 78 25 3a 77 73  65 6e 64 25 3d 77 73 25  |smax%:wsend%=ws%|
00000bf0  2b 77 73 6d 61 78 25 3a  de 20 6d 65 6e 75 62 75  |+wsmax%:. menubu|
00000c00  66 66 25 20 31 30 32 34  3a de 20 77 69 6d 70 62  |ff% 1024:. wimpb|
00000c10  75 66 66 25 20 31 30 32  34 0d 02 44 e4 c8 99 22  |uff% 1024..D..."|
00000c20  57 69 6d 70 5f 4f 70 65  6e 54 65 6d 70 6c 61 74  |Wimp_OpenTemplat|
00000c30  65 22 2c 2c 22 3c 44 65  6d 6f 5f 63 72 65 61 74  |e",,"<Demo_creat|
00000c40  6f 72 24 44 69 72 3e 2e  54 65 6d 70 6c 61 74 65  |or$Dir>.Template|
00000c50  73 22 3a c8 99 22 57 69  6d 70 5f 4c 6f 61 64 54  |s":.."Wimp_LoadT|
00000c60  65 6d 70 6c 61 74 65 22  2c 2c 77 69 6d 70 62 75  |emplate",,wimpbu|
00000c70  66 66 25 2c 77 73 25 2c  77 73 65 6e 64 25 2c 2d  |ff%,ws%,wsend%,-|
00000c80  31 2c 22 69 6e 66 6f 22  2c 30 20 b8 20 2c 2c 77  |1,"info",0 . ,,w|
00000c90  73 25 3a c8 99 22 57 69  6d 70 5f 43 72 65 61 74  |s%:.."Wimp_Creat|
00000ca0  65 57 69 6e 64 6f 77 22  2c 2c 77 69 6d 70 62 75  |eWindow",,wimpbu|
00000cb0  66 66 25 20 b8 20 69 6e  66 6f 25 3a c8 99 22 57  |ff% . info%:.."W|
00000cc0  69 6d 70 5f 4c 6f 61 64  54 65 6d 70 6c 61 74 65  |imp_LoadTemplate|
00000cd0  22 2c 2c 77 69 6d 70 62  75 66 66 25 2c 77 73 25  |",,wimpbuff%,ws%|
00000ce0  2c 77 73 65 6e 64 25 2c  2d 31 2c 22 73 61 76 65  |,wsend%,-1,"save|
00000cf0  61 73 22 2c 30 20 b8 20  2c 2c 77 73 25 0d 02 4e  |as",0 . ,,ws%..N|
00000d00  e9 c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 57  |..."Wimp_CreateW|
00000d10  69 6e 64 6f 77 22 2c 2c  77 69 6d 70 62 75 66 66  |indow",,wimpbuff|
00000d20  25 20 b8 20 73 61 76 65  61 73 25 3a c8 99 22 57  |% . saveas%:.."W|
00000d30  69 6d 70 5f 43 6c 6f 73  65 54 65 6d 70 6c 61 74  |imp_CloseTemplat|
00000d40  65 22 3a 21 77 69 6d 70  62 75 66 66 25 3d 2d 31  |e":!wimpbuff%=-1|
00000d50  3a 77 69 6d 70 62 75 66  66 25 21 34 3d 30 3a 77  |:wimpbuff%!4=0:w|
00000d60  69 6d 70 62 75 66 66 25  21 38 3d 30 3a 77 69 6d  |impbuff%!8=0:wim|
00000d70  70 62 75 66 66 25 21 31  32 3d 39 34 3a 77 69 6d  |pbuff%!12=94:wim|
00000d80  70 62 75 66 66 25 21 31  36 3d 37 32 3a 77 69 6d  |pbuff%!16=72:wim|
00000d90  70 62 75 66 66 25 21 32  30 3d 26 33 30 30 32 3a  |pbuff%!20=&3002:|
00000da0  24 28 77 69 6d 70 62 75  66 66 25 2b 32 34 29 3d  |$(wimpbuff%+24)=|
00000db0  22 21 43 72 65 61 74 6f  72 22 3a c8 99 22 57 69  |"!Creator":.."Wi|
00000dc0  6d 70 5f 43 72 65 61 74  65 49 63 6f 6e 22 2c 2c  |mp_CreateIcon",,|
00000dd0  77 69 6d 70 62 75 66 66  25 20 b8 20 69 63 6f 6e  |wimpbuff% . icon|
00000de0  62 61 72 25 3a e1 0d 02  58 c7 dd f2 6c 6f 61 64  |bar%:...X...load|
00000df0  66 69 6c 65 73 3a f7 3a  ea 20 6c 6f 61 64 25 2c  |files:.:. load%,|
00000e00  6c 65 6e 67 74 68 25 2c  66 6e 24 3a 70 61 74 68  |length%,fn$:path|
00000e10  24 3d 22 3c 44 65 6d 6f  5f 63 72 65 61 74 6f 72  |$="<Demo_creator|
00000e20  24 44 69 72 3e 2e 78 5f  66 69 6c 65 73 2e 22 3a  |$Dir>.x_files.":|
00000e30  de 20 66 69 6c 65 61 72  65 61 25 20 31 30 32 34  |. filearea% 1024|
00000e40  2a 32 30 30 3a 66 61 32  25 3d 66 69 6c 65 61 72  |*200:fa2%=filear|
00000e50  65 61 25 3a f3 20 6e 6f  66 69 6c 65 73 25 3a de  |ea%:. nofiles%:.|
00000e60  20 66 69 6c 65 24 28 6e  6f 66 69 6c 65 73 25 29  | file$(nofiles%)|
00000e70  3a de 20 66 69 6c 65 69  6e 66 6f 25 28 6e 6f 66  |:. fileinfo%(nof|
00000e80  69 6c 65 73 25 2c 32 29  3a e3 20 6c 6f 6f 70 25  |iles%,2):. loop%|
00000e90  3d 20 31 20 b8 20 6e 6f  66 69 6c 65 73 25 3a f3  |= 1 . nofiles%:.|
00000ea0  20 66 69 6c 65 24 28 6c  6f 6f 70 25 29 0d 02 62  | file$(loop%)..b|
00000eb0  d5 c8 99 20 22 4f 53 5f  46 69 6c 65 22 2c 31 32  |... "OS_File",12|
00000ec0  2c 22 3c 44 65 6d 6f 5f  63 72 65 61 74 6f 72 24  |,"<Demo_creator$|
00000ed0  44 69 72 3e 2e 78 5f 66  69 6c 65 73 2e 22 2b 66  |Dir>.x_files."+f|
00000ee0  69 6c 65 24 28 6c 6f 6f  70 25 29 2c 66 61 32 25  |ile$(loop%),fa2%|
00000ef0  2c 30 2c 22 22 20 b8 20  2c 2c 6c 6f 61 64 25 2c  |,0,"" . ,,load%,|
00000f00  2c 6c 65 6e 67 74 68 25  3a 66 69 6c 65 69 6e 66  |,length%:fileinf|
00000f10  6f 25 28 6c 6f 6f 70 25  2c 31 29 3d 6c 6f 61 64  |o%(loop%,1)=load|
00000f20  25 3e 3e 3e 38 3a 66 69  6c 65 69 6e 66 6f 25 28  |%>>>8:fileinfo%(|
00000f30  6c 6f 6f 70 25 2c 32 29  3d 6c 65 6e 67 74 68 25  |loop%,2)=length%|
00000f40  3a 66 61 32 25 2b 3d 6c  65 6e 67 74 68 25 3a ed  |:fa2%+=length%:.|
00000f50  20 6c 6f 6f 70 25 3a 73  70 72 69 74 65 6c 65 6e  | loop%:spritelen|
00000f60  67 74 68 3d 39 33 30 3a  de 20 75 73 65 72 53 70  |gth=930:. userSp|
00000f70  72 69 74 65 73 20 73 70  72 69 74 65 6c 65 6e 67  |rites spriteleng|
00000f80  74 68 0d 02 6c b5 21 75  73 65 72 53 70 72 69 74  |th..l.!userSprit|
00000f90  65 73 20 20 20 3d 73 70  72 69 74 65 6c 65 6e 67  |es   =spriteleng|
00000fa0  74 68 3a 75 73 65 72 53  70 72 69 74 65 73 21 34  |th:userSprites!4|
00000fb0  20 20 3d 30 3a 75 73 65  72 53 70 72 69 74 65 73  |  =0:userSprites|
00000fc0  21 38 20 20 3d 31 36 3a  75 73 65 72 53 70 72 69  |!8  =16:userSpri|
00000fd0  74 65 73 21 31 32 20 3d  31 36 3a c8 99 20 22 4f  |tes!12 =16:.. "O|
00000fe0  53 5f 53 70 72 69 74 65  4f 70 22 2c 31 30 2b 32  |S_SpriteOp",10+2|
00000ff0  35 36 2c 75 73 65 72 53  70 72 69 74 65 73 2c 22  |56,userSprites,"|
00001000  3c 44 65 6d 6f 5f 63 72  65 61 74 6f 72 24 44 69  |<Demo_creator$Di|
00001010  72 3e 2e 78 5f 66 69 6c  65 73 2e 21 73 70 72 69  |r>.x_files.!spri|
00001020  74 65 73 22 3a 6f 6c 64  6e 61 6d 65 24 3d 22 21  |tes":oldname$="!|
00001030  44 65 6d 6f 22 3a e1 0d  02 76 f9 dd f2 73 61 76  |Demo":...v...sav|
00001040  65 66 69 6c 65 73 3a 66  61 32 25 3d 66 69 6c 65  |efiles:fa2%=file|
00001050  61 72 65 61 25 3a e3 20  6c 6f 6f 70 25 3d 31 20  |area%:. loop%=1 |
00001060  b8 20 6e 6f 66 69 6c 65  73 25 3a 24 6d 65 6e 75  |. nofiles%:$menu|
00001070  62 75 66 66 25 3d 70 61  74 68 6e 61 6d 65 24 2b  |buff%=pathname$+|
00001080  22 2e 22 2b 66 69 6c 65  24 28 6c 6f 6f 70 25 29  |"."+file$(loop%)|
00001090  3a c8 99 20 22 4f 53 5f  46 69 6c 65 22 2c 31 30  |:.. "OS_File",10|
000010a0  2c 6d 65 6e 75 62 75 66  66 25 2c 66 69 6c 65 69  |,menubuff%,filei|
000010b0  6e 66 6f 25 28 6c 6f 6f  70 25 2c 31 29 2c 30 2c  |nfo%(loop%,1),0,|
000010c0  66 61 32 25 2c 66 61 32  25 2b 66 69 6c 65 69 6e  |fa2%,fa2%+filein|
000010d0  66 6f 25 28 6c 6f 6f 70  25 2c 32 29 3a 66 61 32  |fo%(loop%,2):fa2|
000010e0  25 2b 3d 66 69 6c 65 69  6e 66 6f 25 28 6c 6f 6f  |%+=fileinfo%(loo|
000010f0  70 25 2c 32 29 3a ed 20  6c 6f 6f 70 25 3a c8 99  |p%,2):. loop%:..|
00001100  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 32  | "OS_SpriteOp",2|
00001110  36 2b 32 35 36 2c 75 73  65 72 53 70 72 69 74 65  |6+256,userSprite|
00001120  73 2c 6f 6c 64 6e 61 6d  65 24 2c 6e 61 6d 65 24  |s,oldname$,name$|
00001130  0d 02 80 66 6f 6c 64 6e  61 6d 65 24 3d 6e 61 6d  |...foldname$=nam|
00001140  65 24 3a 24 6d 65 6e 75  62 75 66 66 25 3d 70 61  |e$:$menubuff%=pa|
00001150  74 68 6e 61 6d 65 24 2b  22 2e 22 2b 22 21 53 70  |thname$+"."+"!Sp|
00001160  72 69 74 65 73 22 3a c8  99 20 22 4f 53 5f 53 70  |rites":.. "OS_Sp|
00001170  72 69 74 65 4f 70 22 2c  31 32 2b 32 35 36 2c 75  |riteOp",12+256,u|
00001180  73 65 72 53 70 72 69 74  65 73 2c 6d 65 6e 75 62  |serSprites,menub|
00001190  75 66 66 25 3a e1 0d 02  8a 07 dc 20 37 0d 02 94  |uff%:...... 7...|
000011a0  3b dc 20 21 42 6f 6f 74  2c 21 52 75 6e 2c 21 52  |;. !Boot,!Run,!R|
000011b0  75 6e 69 6d 61 67 65 2c  4d 65 6d 41 6c 6c 6f 63  |unimage,MemAlloc|
000011c0  2c 50 6c 61 79 65 72 5f  6d 6f 64 2c 53 70 72 69  |,Player_mod,Spri|
000011d0  74 65 73 2c 54 65 78 74  0d ff                    |tes,Text..|
000011da