� >:0.$.!IceCream.!RunImage
5� RunImage for IceCream High Risc II Diamond Demo
#� All programming by K.A.McLean
(!� All Graphics    by A.N.Toon
27� All Contributions welcome Cash/Check/Postal Order
</� Sorry not Credit or Debit Cards (Yet!!!!)
F
P	�init
Z� � �error1
d�
n) ș "OS_ReadMonotonicTime" � newtime%
x ȕ (newtime%-oldtime%)>0
�  oldtime%+=10
� �
�3 ș "Wimp_PollIdle",0,block%,oldtime% � reason%
� Ȏ reason% �
�  � 0:�goldfishbowl
�(  � 1:ș "Wimp_RedrawWindow",,block%
�&  � 2:ș "Wimp_OpenWindow",,block%
�'  � 3:ș "Wimp_CloseWindow",,block%
�  � 4,5:� no text windows
�,  � 6:�mouse(block%!0,block%!4,block%!8)
�  � 7,8,10,11,12
�  � 9:�menuselect(block%!0)
�!  � 17,18:�message(block%!16)

 �

� quit%



"ș "Wimp_CloseDown"

,� That's all folks

6�

@"� define arrays and other info

J
��init

TF� block% 1024,menu% 1024*2,Sprites 1024*8,info% 1024,infobuf% 1024

^� fish% 10,icons% 39

h;Sprites!0=8*1024:Sprites!4=0:Sprites!8=16:Sprites!12=16

r=ș "OS_SpriteOp",256+10,Sprites,"<IceCream$Dir>.GoldFish"

|1ș "Wimp_Initialise",200,&4B534154,"IceCream"

�iconbar%=�icon

�6ș "Wimp_OpenTemplate",,"<IceCream$Dir>.Templates"

�Dș "Wimp_LoadTemplate",,info%,infobuf%,infobuf%+1024,-1,"Info",0

�ș "Wimp_CloseTemplate"

�/ș "Wimp_CreateWindow",,info% � infohandle%

�quit%=�

�(ș "OS_ReadMonotonicTime" � oldtime%

�:� set up variables to able to select diffrent settings

�� First part:1<<22

�FS%=0:FC%=1

�� Second part (TV)

�STS%=0:STC%=1

�� Second part (Frogger)
SFS%=0:SFC%=1
� Second part (End)
SES%=0:SEC%=1
&� Third part (Scrolly)
0TSS%=0:TSC%=1
:!goldfish%=1:forced%=�:gadd%=1
D�
N
X:
b� Mouse
l��mouse(mx%,my%,mb%)
vȎ mb% �
� � 2 :�setmenu
� � 1,4:�startdemo
��
��
�:
�� Item selected on menu
���menuselect(ms%)
�(ș "Wimp_GetPointerInfo",,block%+200
�mx%=block%!200
�my%=block%!204
�mb%=block%!208
�Ȏ ms% �
� � 1:� FS%=0:FC%=(FC% � 1)
 � 2:� STS%=0:STC%=STC% �1
 � 3:� SFS%=0:SFC%=SFC% �1
 � 4:� SES%=0:SEC%=SEC% �1
  � 5:� TSS%=0:TSC%=TSC% �1
* � 6:quit%=�
4�
>� mb%=1 �setmenu
H�
R:
\��message(mess%)
f� mess%=0 quit%=�
p�
z:
�
ݤicon
�?icons%!0=-1:icons%!4=0:icons%!8=0:icons%!12=79:icons%!16=79
� icons%!20=(3<<12)+%100011010
�icons%!24=fish%
�icons%!28=Sprites
�icons%!32=6
�$(fish%)="Gold1"+�(0)
�(ș "Wimp_CreateIcon",,icons% � icon%
�
=icon%
�:
���goldfishbowl
�goldfish%+=gadd%
�� goldfish%=4 gadd%=-1
� goldfish%=1 gadd%=01
�redraw
�
$
.��redraw
8"$fish%="Gold"+�~goldfish%+�(0)
B%block%!200=-1:block%!204=iconbar%
Lblock%!208=0:block%!212=0
V&ș "Wimp_SetIconState",,block%+200
`�
j
t
��setmenu
~I$menu%="IceCream":menu%!12=&70207:menu%!16=192:menu%!20=40:menu%!24=0
�Hmenu%!28=0:menu%!32=infohandle%:menu%!36=&7000021:$(menu%+40)="Info"
�Kmenu%!52=FC%:menu%!56=-1:menu%!60=&7000021 � FS%:$(menu%+64)="Intro on"
�Jmenu%!76=STC%:menu%!80=-1:menu%!84=&7000021 � STS%:$(menu%+88)="Tv on"
�Smenu%!100=SFC%:menu%!104=-1:menu%!108=&7000021 � SFS%:$(menu%+112)="Frogger on"
�Omenu%!124=SEC%:menu%!128=-1:menu%!132=&7000021 � SES%:$(menu%+136)="End on"
�Smenu%!148=TSC%:menu%!152=-1:menu%!156=&7000021 � TSS%:$(menu%+160)="Credits on"
�Emenu%!172=&80:menu%!176=-1:menu%!180=&7000021:$(menu%+184)="Quit"
�/ș "Wimp_CreateMenu",,menu%,mx%,my%+5*42+96
��
�:
���startdemo
�mode%=�
place%=�getmemory

� place%=0 �
block%!0=0
*$(block%+4)="Not Enough Memory to run"
(:ș "Wimp_ReportError",block%,(1<<4)+(1<<0),"!IceCream"
2�
<�
F
� 15:�
P�firstdemo
Z�seconddemo
d�thirddemo
nș "Wimp_SetMode",mode%
xplace%=�releasememory
��
�:
���firstdemo
�� �
�
� FC%=0 �
�� � � �error1:�
�5ș "LZWD_Decompress","<IceCream$Dir>.PROG",place%
�ș "OS_Byte",229,0,0
�� place%+&1A418
�ș "OS_Byte",229,1,0
��
�:
���seconddemo
� �
 � STC%=0 � SFC%=0 � SEC%=0 �
� � � �error1:�
"
val%=0
,� STC%=1 val%+=1
6� SFC%=1 val%+=2
@� SEC%=1 val%+=4
J6ș "LZWD_Decompress","<IceCream$Dir>.PROG2",place%
^!(place%+&3B148)=val%
h� place%+&35988
r� SEC%=0 �
|block%!0=0
�A$(block%+4)="Silly Billy. Fancy Turning off the only way out"
�:ș "Wimp_ReportError",block%,(1<<4)+(1<<0),"!IceCream"
��
��
�:
���thirddemo
�� �
�� TSC%=0 �
�� � � �error1:�
�6ș "LZWD_Decompress","<IceCream$Dir>.PROG3",place%
�ș "OS_Byte",229,0,0
�� place%
�ș "OS_Byte",229,1,0
�
:
ݤgetmemory
&� �
0� � � �error2:=0
:.ș "Wimp_SlotSize",-1,-1 � R0%,R1%,newmem%
N� newmem%<740 =0
X$ș "Wimp_SlotSize",newmem%-64,-1
b=�
v:
�ݤreleasememory
�ș "Wimp_SlotSize",R0%,-1
�=0
�:
���error2
�
� �=257 �
�block%!0=0
�K$(block%+4)="Not enough memory to load tune.  Please increase RMA Size"
�:ș "Wimp_ReportError",block%,(1<<4)+(1<<0),"!IceCream"
��
�block%!0=�
�$(block%+4)=�$
��
:ș "Wimp_ReportError",block%,(1<<4)+(1<<0),"!IceCream"
�
:
 ��error1
*block%!0=�:$(block%+4)=�$
4:ș "Wimp_ReportError",block%,(1<<4)+(1<<0),"!IceCream"
>�
H:
�

00000000  0d 00 0a 1f f4 20 3e 3a  30 2e 24 2e 21 49 63 65  |..... >:0.$.!Ice|
00000010  43 72 65 61 6d 2e 21 52  75 6e 49 6d 61 67 65 0d  |Cream.!RunImage.|
00000020  00 14 35 f4 20 52 75 6e  49 6d 61 67 65 20 66 6f  |..5. RunImage fo|
00000030  72 20 49 63 65 43 72 65  61 6d 20 48 69 67 68 20  |r IceCream High |
00000040  52 69 73 63 20 49 49 20  44 69 61 6d 6f 6e 64 20  |Risc II Diamond |
00000050  44 65 6d 6f 0d 00 1e 23  f4 20 41 6c 6c 20 70 72  |Demo...#. All pr|
00000060  6f 67 72 61 6d 6d 69 6e  67 20 62 79 20 4b 2e 41  |ogramming by K.A|
00000070  2e 4d 63 4c 65 61 6e 0d  00 28 21 f4 20 41 6c 6c  |.McLean..(!. All|
00000080  20 47 72 61 70 68 69 63  73 20 20 20 20 62 79 20  | Graphics    by |
00000090  41 2e 4e 2e 54 6f 6f 6e  0d 00 32 37 f4 20 41 6c  |A.N.Toon..27. Al|
000000a0  6c 20 43 6f 6e 74 72 69  62 75 74 69 6f 6e 73 20  |l Contributions |
000000b0  77 65 6c 63 6f 6d 65 20  43 61 73 68 2f 43 68 65  |welcome Cash/Che|
000000c0  63 6b 2f 50 6f 73 74 61  6c 20 4f 72 64 65 72 0d  |ck/Postal Order.|
000000d0  00 3c 2f f4 20 53 6f 72  72 79 20 6e 6f 74 20 43  |.</. Sorry not C|
000000e0  72 65 64 69 74 20 6f 72  20 44 65 62 69 74 20 43  |redit or Debit C|
000000f0  61 72 64 73 20 28 59 65  74 21 21 21 21 29 0d 00  |ards (Yet!!!!)..|
00000100  46 04 0d 00 50 09 f2 69  6e 69 74 0d 00 5a 0f ee  |F...P..init..Z..|
00000110  20 85 20 f2 65 72 72 6f  72 31 0d 00 64 05 f5 0d  | . .error1..d...|
00000120  00 6e 29 20 c8 99 20 22  4f 53 5f 52 65 61 64 4d  |.n) .. "OS_ReadM|
00000130  6f 6e 6f 74 6f 6e 69 63  54 69 6d 65 22 20 b8 20  |onotonicTime" . |
00000140  6e 65 77 74 69 6d 65 25  0d 00 78 1d 20 c8 95 20  |newtime%..x. .. |
00000150  28 6e 65 77 74 69 6d 65  25 2d 6f 6c 64 74 69 6d  |(newtime%-oldtim|
00000160  65 25 29 3e 30 0d 00 82  12 20 20 6f 6c 64 74 69  |e%)>0....  oldti|
00000170  6d 65 25 2b 3d 31 30 0d  00 8c 06 20 ce 0d 00 96  |me%+=10.... ....|
00000180  33 20 c8 99 20 22 57 69  6d 70 5f 50 6f 6c 6c 49  |3 .. "Wimp_PollI|
00000190  64 6c 65 22 2c 30 2c 62  6c 6f 63 6b 25 2c 6f 6c  |dle",0,block%,ol|
000001a0  64 74 69 6d 65 25 20 b8  20 72 65 61 73 6f 6e 25  |dtime% . reason%|
000001b0  0d 00 a0 11 20 c8 8e 20  72 65 61 73 6f 6e 25 20  |.... .. reason% |
000001c0  ca 0d 00 aa 17 20 20 c9  20 30 3a f2 67 6f 6c 64  |.....  . 0:.gold|
000001d0  66 69 73 68 62 6f 77 6c  0d 00 b4 28 20 20 c9 20  |fishbowl...(  . |
000001e0  31 3a c8 99 20 22 57 69  6d 70 5f 52 65 64 72 61  |1:.. "Wimp_Redra|
000001f0  77 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 25  |wWindow",,block%|
00000200  0d 00 be 26 20 20 c9 20  32 3a c8 99 20 22 57 69  |...&  . 2:.. "Wi|
00000210  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
00000220  62 6c 6f 63 6b 25 0d 00  c8 27 20 20 c9 20 33 3a  |block%...'  . 3:|
00000230  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 57 69  |.. "Wimp_CloseWi|
00000240  6e 64 6f 77 22 2c 2c 62  6c 6f 63 6b 25 0d 00 d2  |ndow",,block%...|
00000250  1d 20 20 c9 20 34 2c 35  3a f4 20 6e 6f 20 74 65  |.  . 4,5:. no te|
00000260  78 74 20 77 69 6e 64 6f  77 73 0d 00 dc 2c 20 20  |xt windows...,  |
00000270  c9 20 36 3a f2 6d 6f 75  73 65 28 62 6c 6f 63 6b  |. 6:.mouse(block|
00000280  25 21 30 2c 62 6c 6f 63  6b 25 21 34 2c 62 6c 6f  |%!0,block%!4,blo|
00000290  63 6b 25 21 38 29 0d 00  e6 14 20 20 c9 20 37 2c  |ck%!8)....  . 7,|
000002a0  38 2c 31 30 2c 31 31 2c  31 32 0d 00 f0 1f 20 20  |8,10,11,12....  |
000002b0  c9 20 39 3a f2 6d 65 6e  75 73 65 6c 65 63 74 28  |. 9:.menuselect(|
000002c0  62 6c 6f 63 6b 25 21 30  29 0d 00 fa 21 20 20 c9  |block%!0)...!  .|
000002d0  20 31 37 2c 31 38 3a f2  6d 65 73 73 61 67 65 28  | 17,18:.message(|
000002e0  62 6c 6f 63 6b 25 21 31  36 29 0d 01 04 06 20 cb  |block%!16).... .|
000002f0  0d 01 0e 0b fd 20 71 75  69 74 25 0d 01 18 04 0d  |..... quit%.....|
00000300  01 22 17 c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |."... "Wimp_Clos|
00000310  65 44 6f 77 6e 22 0d 01  2c 16 f4 20 54 68 61 74  |eDown"..,.. That|
00000320  27 73 20 61 6c 6c 20 66  6f 6c 6b 73 0d 01 36 05  |'s all folks..6.|
00000330  e0 0d 01 40 22 f4 20 64  65 66 69 6e 65 20 61 72  |...@". define ar|
00000340  72 61 79 73 20 61 6e 64  20 6f 74 68 65 72 20 69  |rays and other i|
00000350  6e 66 6f 0d 01 4a 0a dd  f2 69 6e 69 74 0d 01 54  |nfo..J...init..T|
00000360  46 de 20 62 6c 6f 63 6b  25 20 31 30 32 34 2c 6d  |F. block% 1024,m|
00000370  65 6e 75 25 20 31 30 32  34 2a 32 2c 53 70 72 69  |enu% 1024*2,Spri|
00000380  74 65 73 20 31 30 32 34  2a 38 2c 69 6e 66 6f 25  |tes 1024*8,info%|
00000390  20 31 30 32 34 2c 69 6e  66 6f 62 75 66 25 20 31  | 1024,infobuf% 1|
000003a0  30 32 34 0d 01 5e 18 de  20 66 69 73 68 25 20 31  |024..^.. fish% 1|
000003b0  30 2c 69 63 6f 6e 73 25  20 33 39 0d 01 68 3b 53  |0,icons% 39..h;S|
000003c0  70 72 69 74 65 73 21 30  3d 38 2a 31 30 32 34 3a  |prites!0=8*1024:|
000003d0  53 70 72 69 74 65 73 21  34 3d 30 3a 53 70 72 69  |Sprites!4=0:Spri|
000003e0  74 65 73 21 38 3d 31 36  3a 53 70 72 69 74 65 73  |tes!8=16:Sprites|
000003f0  21 31 32 3d 31 36 0d 01  72 3d c8 99 20 22 4f 53  |!12=16..r=.. "OS|
00000400  5f 53 70 72 69 74 65 4f  70 22 2c 32 35 36 2b 31  |_SpriteOp",256+1|
00000410  30 2c 53 70 72 69 74 65  73 2c 22 3c 49 63 65 43  |0,Sprites,"<IceC|
00000420  72 65 61 6d 24 44 69 72  3e 2e 47 6f 6c 64 46 69  |ream$Dir>.GoldFi|
00000430  73 68 22 0d 01 7c 31 c8  99 20 22 57 69 6d 70 5f  |sh"..|1.. "Wimp_|
00000440  49 6e 69 74 69 61 6c 69  73 65 22 2c 32 30 30 2c  |Initialise",200,|
00000450  26 34 42 35 33 34 31 35  34 2c 22 49 63 65 43 72  |&4B534154,"IceCr|
00000460  65 61 6d 22 0d 01 86 12  69 63 6f 6e 62 61 72 25  |eam"....iconbar%|
00000470  3d a4 69 63 6f 6e 0d 01  90 36 c8 99 20 22 57 69  |=.icon...6.. "Wi|
00000480  6d 70 5f 4f 70 65 6e 54  65 6d 70 6c 61 74 65 22  |mp_OpenTemplate"|
00000490  2c 2c 22 3c 49 63 65 43  72 65 61 6d 24 44 69 72  |,,"<IceCream$Dir|
000004a0  3e 2e 54 65 6d 70 6c 61  74 65 73 22 0d 01 9a 44  |>.Templates"...D|
000004b0  c8 99 20 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |.. "Wimp_LoadTem|
000004c0  70 6c 61 74 65 22 2c 2c  69 6e 66 6f 25 2c 69 6e  |plate",,info%,in|
000004d0  66 6f 62 75 66 25 2c 69  6e 66 6f 62 75 66 25 2b  |fobuf%,infobuf%+|
000004e0  31 30 32 34 2c 2d 31 2c  22 49 6e 66 6f 22 2c 30  |1024,-1,"Info",0|
000004f0  0d 01 a4 1b c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |...... "Wimp_Clo|
00000500  73 65 54 65 6d 70 6c 61  74 65 22 0d 01 ae 2f c8  |seTemplate".../.|
00000510  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
00000520  6e 64 6f 77 22 2c 2c 69  6e 66 6f 25 20 b8 20 69  |ndow",,info% . i|
00000530  6e 66 6f 68 61 6e 64 6c  65 25 0d 01 b8 0b 71 75  |nfohandle%....qu|
00000540  69 74 25 3d a3 0d 01 c2  28 c8 99 20 22 4f 53 5f  |it%=....(.. "OS_|
00000550  52 65 61 64 4d 6f 6e 6f  74 6f 6e 69 63 54 69 6d  |ReadMonotonicTim|
00000560  65 22 20 b8 20 6f 6c 64  74 69 6d 65 25 0d 01 cc  |e" . oldtime%...|
00000570  3a f4 20 73 65 74 20 75  70 20 76 61 72 69 61 62  |:. set up variab|
00000580  6c 65 73 20 74 6f 20 61  62 6c 65 20 74 6f 20 73  |les to able to s|
00000590  65 6c 65 63 74 20 64 69  66 66 72 65 6e 74 20 73  |elect diffrent s|
000005a0  65 74 74 69 6e 67 73 0d  01 d6 16 f4 20 46 69 72  |ettings..... Fir|
000005b0  73 74 20 70 61 72 74 3a  31 3c 3c 32 32 0d 01 e0  |st part:1<<22...|
000005c0  0f 46 53 25 3d 30 3a 46  43 25 3d 31 0d 01 ea 16  |.FS%=0:FC%=1....|
000005d0  f4 20 53 65 63 6f 6e 64  20 70 61 72 74 20 28 54  |. Second part (T|
000005e0  56 29 0d 01 f4 11 53 54  53 25 3d 30 3a 53 54 43  |V)....STS%=0:STC|
000005f0  25 3d 31 0d 01 fe 1b f4  20 53 65 63 6f 6e 64 20  |%=1..... Second |
00000600  70 61 72 74 20 28 46 72  6f 67 67 65 72 29 0d 02  |part (Frogger)..|
00000610  08 11 53 46 53 25 3d 30  3a 53 46 43 25 3d 31 0d  |..SFS%=0:SFC%=1.|
00000620  02 12 17 f4 20 53 65 63  6f 6e 64 20 70 61 72 74  |.... Second part|
00000630  20 28 45 6e 64 29 0d 02  1c 11 53 45 53 25 3d 30  | (End)....SES%=0|
00000640  3a 53 45 43 25 3d 31 0d  02 26 1a f4 20 54 68 69  |:SEC%=1..&.. Thi|
00000650  72 64 20 70 61 72 74 20  28 53 63 72 6f 6c 6c 79  |rd part (Scrolly|
00000660  29 0d 02 30 11 54 53 53  25 3d 30 3a 54 53 43 25  |)..0.TSS%=0:TSC%|
00000670  3d 31 0d 02 3a 21 67 6f  6c 64 66 69 73 68 25 3d  |=1..:!goldfish%=|
00000680  31 3a 66 6f 72 63 65 64  25 3d a3 3a 67 61 64 64  |1:forced%=.:gadd|
00000690  25 3d 31 0d 02 44 05 e1  0d 02 4e 04 0d 02 58 05  |%=1..D....N...X.|
000006a0  3a 0d 02 62 0b f4 20 4d  6f 75 73 65 0d 02 6c 18  |:..b.. Mouse..l.|
000006b0  dd f2 6d 6f 75 73 65 28  6d 78 25 2c 6d 79 25 2c  |..mouse(mx%,my%,|
000006c0  6d 62 25 29 0d 02 76 0c  c8 8e 20 6d 62 25 20 ca  |mb%)..v... mb% .|
000006d0  0d 02 80 12 20 c9 20 32  20 3a f2 73 65 74 6d 65  |.... . 2 :.setme|
000006e0  6e 75 0d 02 8a 15 20 c9  20 31 2c 34 3a f2 73 74  |nu.... . 1,4:.st|
000006f0  61 72 74 64 65 6d 6f 0d  02 94 05 cb 0d 02 9e 05  |artdemo.........|
00000700  e1 0d 02 a8 05 3a 0d 02  b2 1b f4 20 49 74 65 6d  |.....:..... Item|
00000710  20 73 65 6c 65 63 74 65  64 20 6f 6e 20 6d 65 6e  | selected on men|
00000720  75 0d 02 bc 15 dd f2 6d  65 6e 75 73 65 6c 65 63  |u......menuselec|
00000730  74 28 6d 73 25 29 0d 02  c6 28 c8 99 20 22 57 69  |t(ms%)...(.. "Wi|
00000740  6d 70 5f 47 65 74 50 6f  69 6e 74 65 72 49 6e 66  |mp_GetPointerInf|
00000750  6f 22 2c 2c 62 6c 6f 63  6b 25 2b 32 30 30 0d 02  |o",,block%+200..|
00000760  d0 12 6d 78 25 3d 62 6c  6f 63 6b 25 21 32 30 30  |..mx%=block%!200|
00000770  0d 02 da 12 6d 79 25 3d  62 6c 6f 63 6b 25 21 32  |....my%=block%!2|
00000780  30 34 0d 02 e4 12 6d 62  25 3d 62 6c 6f 63 6b 25  |04....mb%=block%|
00000790  21 32 30 38 0d 02 ee 0c  c8 8e 20 6d 73 25 20 ca  |!208...... ms% .|
000007a0  0d 02 f8 1e 20 c9 20 31  3a e7 20 46 53 25 3d 30  |.... . 1:. FS%=0|
000007b0  3a 46 43 25 3d 28 46 43  25 20 82 20 31 29 0d 03  |:FC%=(FC% . 1)..|
000007c0  02 1e 20 c9 20 32 3a e7  20 53 54 53 25 3d 30 3a  |.. . 2:. STS%=0:|
000007d0  53 54 43 25 3d 53 54 43  25 20 82 31 0d 03 0c 1e  |STC%=STC% .1....|
000007e0  20 c9 20 33 3a e7 20 53  46 53 25 3d 30 3a 53 46  | . 3:. SFS%=0:SF|
000007f0  43 25 3d 53 46 43 25 20  82 31 0d 03 16 1e 20 c9  |C%=SFC% .1.... .|
00000800  20 34 3a e7 20 53 45 53  25 3d 30 3a 53 45 43 25  | 4:. SES%=0:SEC%|
00000810  3d 53 45 43 25 20 82 31  0d 03 20 1e 20 c9 20 35  |=SEC% .1.. . . 5|
00000820  3a e7 20 54 53 53 25 3d  30 3a 54 53 43 25 3d 54  |:. TSS%=0:TSC%=T|
00000830  53 43 25 20 82 31 0d 03  2a 10 20 c9 20 36 3a 71  |SC% .1..*. . 6:q|
00000840  75 69 74 25 3d b9 0d 03  34 05 cb 0d 03 3e 14 e7  |uit%=...4....>..|
00000850  20 6d 62 25 3d 31 20 f2  73 65 74 6d 65 6e 75 0d  | mb%=1 .setmenu.|
00000860  03 48 05 e1 0d 03 52 05  3a 0d 03 5c 14 dd f2 6d  |.H....R.:..\...m|
00000870  65 73 73 61 67 65 28 6d  65 73 73 25 29 0d 03 66  |essage(mess%)..f|
00000880  15 e7 20 6d 65 73 73 25  3d 30 20 71 75 69 74 25  |.. mess%=0 quit%|
00000890  3d b9 0d 03 70 05 e1 0d  03 7a 05 3a 0d 03 84 0a  |=...p....z.:....|
000008a0  dd a4 69 63 6f 6e 0d 03  8e 3f 69 63 6f 6e 73 25  |..icon...?icons%|
000008b0  21 30 3d 2d 31 3a 69 63  6f 6e 73 25 21 34 3d 30  |!0=-1:icons%!4=0|
000008c0  3a 69 63 6f 6e 73 25 21  38 3d 30 3a 69 63 6f 6e  |:icons%!8=0:icon|
000008d0  73 25 21 31 32 3d 37 39  3a 69 63 6f 6e 73 25 21  |s%!12=79:icons%!|
000008e0  31 36 3d 37 39 0d 03 98  20 69 63 6f 6e 73 25 21  |16=79... icons%!|
000008f0  32 30 3d 28 33 3c 3c 31  32 29 2b 25 31 30 30 30  |20=(3<<12)+%1000|
00000900  31 31 30 31 30 0d 03 a2  13 69 63 6f 6e 73 25 21  |11010....icons%!|
00000910  32 34 3d 66 69 73 68 25  0d 03 ac 15 69 63 6f 6e  |24=fish%....icon|
00000920  73 25 21 32 38 3d 53 70  72 69 74 65 73 0d 03 b6  |s%!28=Sprites...|
00000930  0f 69 63 6f 6e 73 25 21  33 32 3d 36 0d 03 c0 19  |.icons%!32=6....|
00000940  24 28 66 69 73 68 25 29  3d 22 47 6f 6c 64 31 22  |$(fish%)="Gold1"|
00000950  2b bd 28 30 29 0d 03 ca  28 c8 99 20 22 57 69 6d  |+.(0)...(.. "Wim|
00000960  70 5f 43 72 65 61 74 65  49 63 6f 6e 22 2c 2c 69  |p_CreateIcon",,i|
00000970  63 6f 6e 73 25 20 b8 20  69 63 6f 6e 25 0d 03 d4  |cons% . icon%...|
00000980  0a 3d 69 63 6f 6e 25 0d  03 de 05 3a 0d 03 e8 12  |.=icon%....:....|
00000990  dd f2 67 6f 6c 64 66 69  73 68 62 6f 77 6c 0d 03  |..goldfishbowl..|
000009a0  f2 14 67 6f 6c 64 66 69  73 68 25 2b 3d 67 61 64  |..goldfish%+=gad|
000009b0  64 25 0d 03 fc 1a e7 20  67 6f 6c 64 66 69 73 68  |d%..... goldfish|
000009c0  25 3d 34 20 67 61 64 64  25 3d 2d 31 0d 04 06 1a  |%=4 gadd%=-1....|
000009d0  e7 20 67 6f 6c 64 66 69  73 68 25 3d 31 20 67 61  |. goldfish%=1 ga|
000009e0  64 64 25 3d 30 31 0d 04  10 0b f2 72 65 64 72 61  |dd%=01.....redra|
000009f0  77 0d 04 1a 05 e1 0d 04  24 04 0d 04 2e 0c dd f2  |w.......$.......|
00000a00  72 65 64 72 61 77 0d 04  38 22 24 66 69 73 68 25  |redraw..8"$fish%|
00000a10  3d 22 47 6f 6c 64 22 2b  c3 7e 67 6f 6c 64 66 69  |="Gold"+.~goldfi|
00000a20  73 68 25 2b bd 28 30 29  0d 04 42 25 62 6c 6f 63  |sh%+.(0)..B%bloc|
00000a30  6b 25 21 32 30 30 3d 2d  31 3a 62 6c 6f 63 6b 25  |k%!200=-1:block%|
00000a40  21 32 30 34 3d 69 63 6f  6e 62 61 72 25 0d 04 4c  |!204=iconbar%..L|
00000a50  1d 62 6c 6f 63 6b 25 21  32 30 38 3d 30 3a 62 6c  |.block%!208=0:bl|
00000a60  6f 63 6b 25 21 32 31 32  3d 30 0d 04 56 26 c8 99  |ock%!212=0..V&..|
00000a70  20 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  | "Wimp_SetIconSt|
00000a80  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 2b 32 30 30  |ate",,block%+200|
00000a90  0d 04 60 05 e1 0d 04 6a  04 0d 04 74 0d dd f2 73  |..`....j...t...s|
00000aa0  65 74 6d 65 6e 75 0d 04  7e 49 24 6d 65 6e 75 25  |etmenu..~I$menu%|
00000ab0  3d 22 49 63 65 43 72 65  61 6d 22 3a 6d 65 6e 75  |="IceCream":menu|
00000ac0  25 21 31 32 3d 26 37 30  32 30 37 3a 6d 65 6e 75  |%!12=&70207:menu|
00000ad0  25 21 31 36 3d 31 39 32  3a 6d 65 6e 75 25 21 32  |%!16=192:menu%!2|
00000ae0  30 3d 34 30 3a 6d 65 6e  75 25 21 32 34 3d 30 0d  |0=40:menu%!24=0.|
00000af0  04 88 48 6d 65 6e 75 25  21 32 38 3d 30 3a 6d 65  |..Hmenu%!28=0:me|
00000b00  6e 75 25 21 33 32 3d 69  6e 66 6f 68 61 6e 64 6c  |nu%!32=infohandl|
00000b10  65 25 3a 6d 65 6e 75 25  21 33 36 3d 26 37 30 30  |e%:menu%!36=&700|
00000b20  30 30 32 31 3a 24 28 6d  65 6e 75 25 2b 34 30 29  |0021:$(menu%+40)|
00000b30  3d 22 49 6e 66 6f 22 0d  04 92 4b 6d 65 6e 75 25  |="Info"...Kmenu%|
00000b40  21 35 32 3d 46 43 25 3a  6d 65 6e 75 25 21 35 36  |!52=FC%:menu%!56|
00000b50  3d 2d 31 3a 6d 65 6e 75  25 21 36 30 3d 26 37 30  |=-1:menu%!60=&70|
00000b60  30 30 30 32 31 20 84 20  46 53 25 3a 24 28 6d 65  |00021 . FS%:$(me|
00000b70  6e 75 25 2b 36 34 29 3d  22 49 6e 74 72 6f 20 6f  |nu%+64)="Intro o|
00000b80  6e 22 0d 04 9c 4a 6d 65  6e 75 25 21 37 36 3d 53  |n"...Jmenu%!76=S|
00000b90  54 43 25 3a 6d 65 6e 75  25 21 38 30 3d 2d 31 3a  |TC%:menu%!80=-1:|
00000ba0  6d 65 6e 75 25 21 38 34  3d 26 37 30 30 30 30 32  |menu%!84=&700002|
00000bb0  31 20 84 20 53 54 53 25  3a 24 28 6d 65 6e 75 25  |1 . STS%:$(menu%|
00000bc0  2b 38 38 29 3d 22 54 76  20 6f 6e 22 0d 04 a6 53  |+88)="Tv on"...S|
00000bd0  6d 65 6e 75 25 21 31 30  30 3d 53 46 43 25 3a 6d  |menu%!100=SFC%:m|
00000be0  65 6e 75 25 21 31 30 34  3d 2d 31 3a 6d 65 6e 75  |enu%!104=-1:menu|
00000bf0  25 21 31 30 38 3d 26 37  30 30 30 30 32 31 20 84  |%!108=&7000021 .|
00000c00  20 53 46 53 25 3a 24 28  6d 65 6e 75 25 2b 31 31  | SFS%:$(menu%+11|
00000c10  32 29 3d 22 46 72 6f 67  67 65 72 20 6f 6e 22 0d  |2)="Frogger on".|
00000c20  04 b0 4f 6d 65 6e 75 25  21 31 32 34 3d 53 45 43  |..Omenu%!124=SEC|
00000c30  25 3a 6d 65 6e 75 25 21  31 32 38 3d 2d 31 3a 6d  |%:menu%!128=-1:m|
00000c40  65 6e 75 25 21 31 33 32  3d 26 37 30 30 30 30 32  |enu%!132=&700002|
00000c50  31 20 84 20 53 45 53 25  3a 24 28 6d 65 6e 75 25  |1 . SES%:$(menu%|
00000c60  2b 31 33 36 29 3d 22 45  6e 64 20 6f 6e 22 0d 04  |+136)="End on"..|
00000c70  ba 53 6d 65 6e 75 25 21  31 34 38 3d 54 53 43 25  |.Smenu%!148=TSC%|
00000c80  3a 6d 65 6e 75 25 21 31  35 32 3d 2d 31 3a 6d 65  |:menu%!152=-1:me|
00000c90  6e 75 25 21 31 35 36 3d  26 37 30 30 30 30 32 31  |nu%!156=&7000021|
00000ca0  20 84 20 54 53 53 25 3a  24 28 6d 65 6e 75 25 2b  | . TSS%:$(menu%+|
00000cb0  31 36 30 29 3d 22 43 72  65 64 69 74 73 20 6f 6e  |160)="Credits on|
00000cc0  22 0d 04 c4 45 6d 65 6e  75 25 21 31 37 32 3d 26  |"...Emenu%!172=&|
00000cd0  38 30 3a 6d 65 6e 75 25  21 31 37 36 3d 2d 31 3a  |80:menu%!176=-1:|
00000ce0  6d 65 6e 75 25 21 31 38  30 3d 26 37 30 30 30 30  |menu%!180=&70000|
00000cf0  32 31 3a 24 28 6d 65 6e  75 25 2b 31 38 34 29 3d  |21:$(menu%+184)=|
00000d00  22 51 75 69 74 22 0d 04  ce 2f c8 99 20 22 57 69  |"Quit".../.. "Wi|
00000d10  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00000d20  6d 65 6e 75 25 2c 6d 78  25 2c 6d 79 25 2b 35 2a  |menu%,mx%,my%+5*|
00000d30  34 32 2b 39 36 0d 04 d8  05 e1 0d 04 e2 05 3a 0d  |42+96.........:.|
00000d40  04 ec 0f dd f2 73 74 61  72 74 64 65 6d 6f 0d 04  |.....startdemo..|
00000d50  f6 0b 6d 6f 64 65 25 3d  eb 0d 05 00 15 70 6c 61  |..mode%=.....pla|
00000d60  63 65 25 3d a4 67 65 74  6d 65 6d 6f 72 79 0d 05  |ce%=.getmemory..|
00000d70  0a 10 e7 20 70 6c 61 63  65 25 3d 30 20 8c 0d 05  |... place%=0 ...|
00000d80  14 0e 62 6c 6f 63 6b 25  21 30 3d 30 0d 05 1e 2a  |..block%!0=0...*|
00000d90  24 28 62 6c 6f 63 6b 25  2b 34 29 3d 22 4e 6f 74  |$(block%+4)="Not|
00000da0  20 45 6e 6f 75 67 68 20  4d 65 6d 6f 72 79 20 74  | Enough Memory t|
00000db0  6f 20 72 75 6e 22 0d 05  28 3a c8 99 20 22 57 69  |o run"..(:.. "Wi|
00000dc0  6d 70 5f 52 65 70 6f 72  74 45 72 72 6f 72 22 2c  |mp_ReportError",|
00000dd0  62 6c 6f 63 6b 25 2c 28  31 3c 3c 34 29 2b 28 31  |block%,(1<<4)+(1|
00000de0  3c 3c 30 29 2c 22 21 49  63 65 43 72 65 61 6d 22  |<<0),"!IceCream"|
00000df0  0d 05 32 05 e1 0d 05 3c  05 cd 0d 05 46 0a eb 20  |..2....<....F.. |
00000e00  31 35 3a 87 0d 05 50 0e  f2 66 69 72 73 74 64 65  |15:...P..firstde|
00000e10  6d 6f 0d 05 5a 0f f2 73  65 63 6f 6e 64 64 65 6d  |mo..Z..seconddem|
00000e20  6f 0d 05 64 0e f2 74 68  69 72 64 64 65 6d 6f 0d  |o..d..thirddemo.|
00000e30  05 6e 1b c8 99 20 22 57  69 6d 70 5f 53 65 74 4d  |.n... "Wimp_SetM|
00000e40  6f 64 65 22 2c 6d 6f 64  65 25 0d 05 78 19 70 6c  |ode",mode%..x.pl|
00000e50  61 63 65 25 3d a4 72 65  6c 65 61 73 65 6d 65 6d  |ace%=.releasemem|
00000e60  6f 72 79 0d 05 82 05 e1  0d 05 8c 05 3a 0d 05 96  |ory.........:...|
00000e70  0f dd f2 66 69 72 73 74  64 65 6d 6f 0d 05 a0 07  |...firstdemo....|
00000e80  ea 20 85 0d 05 aa 0d e7  20 46 43 25 3d 30 20 e1  |. ...... FC%=0 .|
00000e90  0d 05 b4 13 ee 20 85 20  ea 20 f2 65 72 72 6f 72  |..... . . .error|
00000ea0  31 3a e1 0d 05 be 35 c8  99 20 22 4c 5a 57 44 5f  |1:....5.. "LZWD_|
00000eb0  44 65 63 6f 6d 70 72 65  73 73 22 2c 22 3c 49 63  |Decompress","<Ic|
00000ec0  65 43 72 65 61 6d 24 44  69 72 3e 2e 50 52 4f 47  |eCream$Dir>.PROG|
00000ed0  22 2c 70 6c 61 63 65 25  0d 05 c8 18 c8 99 20 22  |",place%...... "|
00000ee0  4f 53 5f 42 79 74 65 22  2c 32 32 39 2c 30 2c 30  |OS_Byte",229,0,0|
00000ef0  0d 05 d2 13 d6 20 70 6c  61 63 65 25 2b 26 31 41  |..... place%+&1A|
00000f00  34 31 38 0d 05 dc 18 c8  99 20 22 4f 53 5f 42 79  |418...... "OS_By|
00000f10  74 65 22 2c 32 32 39 2c  31 2c 30 0d 05 e6 05 e1  |te",229,1,0.....|
00000f20  0d 05 f0 05 3a 0d 05 fa  10 dd f2 73 65 63 6f 6e  |....:......secon|
00000f30  64 64 65 6d 6f 0d 06 04  07 ea 20 85 0d 06 0e 20  |ddemo..... .... |
00000f40  e7 20 53 54 43 25 3d 30  20 80 20 53 46 43 25 3d  |. STC%=0 . SFC%=|
00000f50  30 20 80 20 53 45 43 25  3d 30 20 e1 0d 06 18 13  |0 . SEC%=0 .....|
00000f60  ee 20 85 20 ea 20 f2 65  72 72 6f 72 31 3a e1 0d  |. . . .error1:..|
00000f70  06 22 0a 76 61 6c 25 3d  30 0d 06 2c 14 e7 20 53  |.".val%=0..,.. S|
00000f80  54 43 25 3d 31 20 76 61  6c 25 2b 3d 31 0d 06 36  |TC%=1 val%+=1..6|
00000f90  14 e7 20 53 46 43 25 3d  31 20 76 61 6c 25 2b 3d  |.. SFC%=1 val%+=|
00000fa0  32 0d 06 40 14 e7 20 53  45 43 25 3d 31 20 76 61  |2..@.. SEC%=1 va|
00000fb0  6c 25 2b 3d 34 0d 06 4a  36 c8 99 20 22 4c 5a 57  |l%+=4..J6.. "LZW|
00000fc0  44 5f 44 65 63 6f 6d 70  72 65 73 73 22 2c 22 3c  |D_Decompress","<|
00000fd0  49 63 65 43 72 65 61 6d  24 44 69 72 3e 2e 50 52  |IceCream$Dir>.PR|
00000fe0  4f 47 32 22 2c 70 6c 61  63 65 25 0d 06 5e 19 21  |OG2",place%..^.!|
00000ff0  28 70 6c 61 63 65 25 2b  26 33 42 31 34 38 29 3d  |(place%+&3B148)=|
00001000  76 61 6c 25 0d 06 68 13  d6 20 70 6c 61 63 65 25  |val%..h.. place%|
00001010  2b 26 33 35 39 38 38 0d  06 72 0e e7 20 53 45 43  |+&35988..r.. SEC|
00001020  25 3d 30 20 8c 0d 06 7c  0e 62 6c 6f 63 6b 25 21  |%=0 ...|.block%!|
00001030  30 3d 30 0d 06 86 41 24  28 62 6c 6f 63 6b 25 2b  |0=0...A$(block%+|
00001040  34 29 3d 22 53 69 6c 6c  79 20 42 69 6c 6c 79 2e  |4)="Silly Billy.|
00001050  20 46 61 6e 63 79 20 54  75 72 6e 69 6e 67 20 6f  | Fancy Turning o|
00001060  66 66 20 74 68 65 20 6f  6e 6c 79 20 77 61 79 20  |ff the only way |
00001070  6f 75 74 22 0d 06 90 3a  c8 99 20 22 57 69 6d 70  |out"...:.. "Wimp|
00001080  5f 52 65 70 6f 72 74 45  72 72 6f 72 22 2c 62 6c  |_ReportError",bl|
00001090  6f 63 6b 25 2c 28 31 3c  3c 34 29 2b 28 31 3c 3c  |ock%,(1<<4)+(1<<|
000010a0  30 29 2c 22 21 49 63 65  43 72 65 61 6d 22 0d 06  |0),"!IceCream"..|
000010b0  9a 05 cd 0d 06 a4 05 e1  0d 06 ae 05 3a 0d 06 b8  |............:...|
000010c0  0f dd f2 74 68 69 72 64  64 65 6d 6f 0d 06 c2 07  |...thirddemo....|
000010d0  ea 20 85 0d 06 cc 0e e7  20 54 53 43 25 3d 30 20  |. ...... TSC%=0 |
000010e0  e1 0d 06 d6 13 ee 20 85  20 ea 20 f2 65 72 72 6f  |...... . . .erro|
000010f0  72 31 3a e1 0d 06 e0 36  c8 99 20 22 4c 5a 57 44  |r1:....6.. "LZWD|
00001100  5f 44 65 63 6f 6d 70 72  65 73 73 22 2c 22 3c 49  |_Decompress","<I|
00001110  63 65 43 72 65 61 6d 24  44 69 72 3e 2e 50 52 4f  |ceCream$Dir>.PRO|
00001120  47 33 22 2c 70 6c 61 63  65 25 0d 06 ea 18 c8 99  |G3",place%......|
00001130  20 22 4f 53 5f 42 79 74  65 22 2c 32 32 39 2c 30  | "OS_Byte",229,0|
00001140  2c 30 0d 06 f4 0c d6 20  70 6c 61 63 65 25 0d 06  |,0..... place%..|
00001150  fe 18 c8 99 20 22 4f 53  5f 42 79 74 65 22 2c 32  |.... "OS_Byte",2|
00001160  32 39 2c 31 2c 30 0d 07  08 05 e1 0d 07 12 05 3a  |29,1,0.........:|
00001170  0d 07 1c 0f dd a4 67 65  74 6d 65 6d 6f 72 79 0d  |......getmemory.|
00001180  07 26 07 ea 20 85 0d 07  30 14 ee 20 85 20 ea 20  |.&.. ...0.. . . |
00001190  f2 65 72 72 6f 72 32 3a  3d 30 0d 07 3a 2e c8 99  |.error2:=0..:...|
000011a0  20 22 57 69 6d 70 5f 53  6c 6f 74 53 69 7a 65 22  | "Wimp_SlotSize"|
000011b0  2c 2d 31 2c 2d 31 20 b8  20 52 30 25 2c 52 31 25  |,-1,-1 . R0%,R1%|
000011c0  2c 6e 65 77 6d 65 6d 25  0d 07 4e 14 e7 20 6e 65  |,newmem%..N.. ne|
000011d0  77 6d 65 6d 25 3c 37 34  30 20 3d 30 0d 07 58 24  |wmem%<740 =0..X$|
000011e0  c8 99 20 22 57 69 6d 70  5f 53 6c 6f 74 53 69 7a  |.. "Wimp_SlotSiz|
000011f0  65 22 2c 6e 65 77 6d 65  6d 25 2d 36 34 2c 2d 31  |e",newmem%-64,-1|
00001200  0d 07 62 06 3d 93 0d 07  76 05 3a 0d 07 80 13 dd  |..b.=...v.:.....|
00001210  a4 72 65 6c 65 61 73 65  6d 65 6d 6f 72 79 0d 07  |.releasememory..|
00001220  8a 1d c8 99 20 22 57 69  6d 70 5f 53 6c 6f 74 53  |.... "Wimp_SlotS|
00001230  69 7a 65 22 2c 52 30 25  2c 2d 31 0d 07 94 06 3d  |ize",R0%,-1....=|
00001240  30 0d 07 9e 05 3a 0d 07  a8 0c dd f2 65 72 72 6f  |0....:......erro|
00001250  72 32 0d 07 b2 0d e7 20  9f 3d 32 35 37 20 8c 0d  |r2..... .=257 ..|
00001260  07 bc 0e 62 6c 6f 63 6b  25 21 30 3d 30 0d 07 c6  |...block%!0=0...|
00001270  4b 24 28 62 6c 6f 63 6b  25 2b 34 29 3d 22 4e 6f  |K$(block%+4)="No|
00001280  74 20 65 6e 6f 75 67 68  20 6d 65 6d 6f 72 79 20  |t enough memory |
00001290  74 6f 20 6c 6f 61 64 20  74 75 6e 65 2e 20 20 50  |to load tune.  P|
000012a0  6c 65 61 73 65 20 69 6e  63 72 65 61 73 65 20 52  |lease increase R|
000012b0  4d 41 20 53 69 7a 65 22  0d 07 d0 3a c8 99 20 22  |MA Size"...:.. "|
000012c0  57 69 6d 70 5f 52 65 70  6f 72 74 45 72 72 6f 72  |Wimp_ReportError|
000012d0  22 2c 62 6c 6f 63 6b 25  2c 28 31 3c 3c 34 29 2b  |",block%,(1<<4)+|
000012e0  28 31 3c 3c 30 29 2c 22  21 49 63 65 43 72 65 61  |(1<<0),"!IceCrea|
000012f0  6d 22 0d 07 da 05 cc 0d  07 e4 0e 62 6c 6f 63 6b  |m".........block|
00001300  25 21 30 3d 9f 0d 07 ee  12 24 28 62 6c 6f 63 6b  |%!0=.....$(block|
00001310  25 2b 34 29 3d f6 24 0d  07 f8 05 cd 0d 08 02 3a  |%+4)=.$........:|
00001320  c8 99 20 22 57 69 6d 70  5f 52 65 70 6f 72 74 45  |.. "Wimp_ReportE|
00001330  72 72 6f 72 22 2c 62 6c  6f 63 6b 25 2c 28 31 3c  |rror",block%,(1<|
00001340  3c 34 29 2b 28 31 3c 3c  30 29 2c 22 21 49 63 65  |<4)+(1<<0),"!Ice|
00001350  43 72 65 61 6d 22 0d 08  0c 05 e1 0d 08 16 05 3a  |Cream".........:|
00001360  0d 08 20 0c dd f2 65 72  72 6f 72 31 0d 08 2a 1d  |.. ...error1..*.|
00001370  62 6c 6f 63 6b 25 21 30  3d 9f 3a 24 28 62 6c 6f  |block%!0=.:$(blo|
00001380  63 6b 25 2b 34 29 3d f6  24 0d 08 34 3a c8 99 20  |ck%+4)=.$..4:.. |
00001390  22 57 69 6d 70 5f 52 65  70 6f 72 74 45 72 72 6f  |"Wimp_ReportErro|
000013a0  72 22 2c 62 6c 6f 63 6b  25 2c 28 31 3c 3c 34 29  |r",block%,(1<<4)|
000013b0  2b 28 31 3c 3c 30 29 2c  22 21 49 63 65 43 72 65  |+(1<<0),"!IceCre|
000013c0  61 6d 22 0d 08 3e 05 e1  0d 08 48 05 3a 0d ff     |am"..>....H.:..|
000013cf