><Status$Dir>.!RunImage
"Error : "+
$+" at line "+
 window% 1024,mu% 80,q% 4096:windowend%=window%+1024:finished%=
:log%=
 "Hourglass_On"
 "Wimp_Initialise",200,&4B534154,"Status" 
 ,taskh%
 "Wimp_OpenTemplate",,"<Status$Dir>.Templates"
 "Wimp_LoadTemplate",,q%,window%,windowend%,-1,"prog_info",0 
 ,,window%
 "Wimp_CreateWindow",,q% 
 info%
 "Wimp_LoadTemplate",,q%,window%,windowend%,-1,"main",0 
 ,,window%
 "Wimp_CreateWindow",,q% 
 main%
 "Wimp_CloseTemplate"
 "Load <Status$Dir>.Menu "+
~mu%:mu%!32=info%
 "Hourglass_Off"
error
L!q%=main%:
 "Wimp_GetWindowState",,q%:q%!28=-1:
 "Wimp_OpenWindow",,q%
 log% h%=
("<Status$Dir>.MsgLog")
 "Wimp_Poll",,q% 
 reason%
 reason% 
 "Wimp_RedrawWindow",,q% 
 flg%:
 flg%:
 "Interface_Render3dWindow",,q%:
 "Wimp_GetRectangle",,q% 
 flg%:
 "Wimp_OpenWindow",,q%
 6:x%=!q%:y%=q%!4:buttons%=q%!8:window%=q%!12:icon%=q%!16:
 window% 
 main%:
 buttons% 
 4,1:
 icon% 
 "Interface_SlabButton",,q%:q%!128=main%:
 "Wimp_GetWindowState",,q%+128:q%!156=-2:
 "Wimp_OpenWindow",,q%+128:q%!8=0:
 "Interface_SlabButton",,q%
 "Interface_SlabButton",,q%:finished%=
:q%!8=0:
 "Interface_SlabButton",,q%
:!q%=main%:q%!4=1:
 "Wimp_DragBox",,q%
 "Wimp_CreateMenu",,mu%,x%-96,y%
 !q%=1 finished%=
 "Wimp_GetPointerInfo",,q%:
 q%!8=1 
 "Wimp_CreateMenu",,mu%,x%-96,y%
 17,18:
 q%!16 
 0:finished%=
i("DataSave, "+
var(q%+44)+", &"+
~q%!40)
i("DataSaveAck, "+
var(q%+44)+", &"+
~q%!40)
i("DataLoad, "+
var(q%+44)+", &"+
~q%!40)
i("DataLoadAck, "+
var(q%+44)+", &"+
~q%!40)
i("DataOpen, "+
var(q%+44)+", &"+
~q%!40)
i("RAMFetch, "+
~q%!20+", &"+
~q%!24)
i("RAMTransmit, "+
~q%!20+", &"+
~q%!24)
i("This application is about to be shut down")
i("The desktop palette has changed")
i("The desktop state is being saved")
i("DeviceClaim, "+
q%!20+", "+
q%!24+", "+
var(q%+28))
i("DeviceInUse, "+
q%!20+", "+
q%!24+", "+
var(q%+28))
 &400:
i("FilerOpenDir, "+
var(q%+28))
 &401:
i("FilerCloseDir, "+
var(q%+28))
 &502:
i("The !Help application is on the scrounge")
 &503:
i("Some swine's replied to the !Help application")
 &400C0:
i("MenuWarning")
 &400C1:
i("The Wimp has changed to mode "+
 &400C2:
i("Task '"+
var(q%+28)+"' (&"+
~q%!4+") has started up. SlotSize "+
(q%!24/1024)+"K")
 &400C3:
i("Task &"+
~q%!4+" has closed down")
 log% 
 &400C4:
i("SlotSize")
 log% 
 &400C5:
i("SetSlot")
 log% 
 &400C6:
i("TasknameRequest")
 log% 
 &400C7:
i("TasknameIs")
 log% 
 &400CA:
i("Iconize")
 log% 
 &400CB:
i("WindowClosed")
 log% 
 &400CC:
i("WindowInfo")
 log% 
i("Message &"+
~q%!16+" received")
 finished%
i("You killed me, aaaaaarrrrrrgh!"):
 die%=0 
 "Wimp_Poll",,q%:
 log% 
 "Wimp_CloseDown",taskh%,&4B534154
var(ptr%):string$="":
 ?ptr%>31:string$+=
?ptr%:ptr%+=1:
:=string$
i(text$)
 log% 
$,17,8)+" : "+text$
Lxq%!128=main%:q%!132=2:
 "Wimp_GetIconState",,q%+128:$q%!156=text$::q%!136=0:q%!140=0:
 "Wimp_SetIconState",,q%+128
error
P(!q%=
:$(q%+4)=
$+" (IEC "+
+")"+
 "Wimp_ReportError",q%,3,"Status" 
 ,mb%
 mb%=2 
 "Wimp_CloseDown",taskh%,&4B534154: