> !RunImage
     !AcornLogo -- put Acorn's logo on the backdrop
      (C) 1994 Luke Hutchison (lukeh@kcbbs.gen.nz)
          -->  This was a QUICK HACK :-)  <--
 (Let me know if you can find a better way of doing it!)
Zoff_x% = 400: off_y% = 36   :
 Position of logo relative to top right corner of screen
@name$=
160               :
 Filename of icon is a hard-space
 block% 1024
$block% = "TASK"
 "Wimp_Initialise", 300, !block%, "Pinboard Acorn logo" 
 ,taskID%
=!block%=&400c1: block%!8=-1: 
 "Wimp_AddMessages",block%
quit% = 
find_pb
 quit% 
 "Wimp_CloseDown",taskID%:
pin_acorn
mask% = 1
 "Wimp_Poll", mask%, block% 
 reason%
 reason% 
 17,18:
C      
 block%!16 = &400c1 
pin_acorn   :
 Message_ModeChange
=      
 block%!16 = 0 
 quit%=
           :
 Message_Quit
quit%
 "Wimp_CloseDown",taskID%
find_pb
  val%=0: found%=
(?    
 "TaskManager_EnumerateTasks",val%, block%, 16 
 val%
)i    
 !(block%!4) = &626e6950 
 !((block%!4)+4) = &6472616f 
 found%=
 found task name "Pinboard"
 val%<0 
 found%
 found% 
    pb_handle%=!block%
    !block%=1
0N    $(block%+4)="Pinboard must be active to run !AcornLogo -- quitting"+
12    
 "Wimp_ReportError",block%,5,"!BackLogo"
    quit% = 
pin_acorn
  t1$="pipe:$.~temp1"
  t2$="pipe:$.~temp2"
  F%=
  !block% = 32
  block%!12=0
<*  block%!16=10  :
 Message_SaveDesktop
  block%!20=F%
  block%!24=0
 "Wimp_SendMessage",18,block%,pb_handle%   :
 Make the pinboard save its state
 "Wimp_Poll",0,block%
  I%=
  O%=
  logo$=""
    A$=
H!    pos% = 
A$,"."+name$+" ")
 pos%<>0 
J%      logo$ = 
A$, pos%+1+
name$)
K	    
      
#O%,A$
M	    
 change coordinates for Acorn logo
QP  !block% = 4: block%!4 = 5: block%!8 = 130: block%!12 = 131: block%!16 = -1
 "OS_ReadVduVariables", block%, block%
S&  max_x% = (block%!8) << (!block%)
T(  max_y% = (block%!12) << (block%!4)
 logo$="" 
 logo$="Pin <AcornLogo$Dir>."+name$+" "
 #O%, logo$ + 
(max_x% - off_x%) + " " + 
(max_y% - off_y%)
 "Settype "+t2$+" Obey"
 "Wimp_StartTask", "Run "+t2$            :
 Restore backdrop