All-purpose banner utility
 Displays drawfile in a pretty window
 by JJF
 10-Sep-95
$;" at line ";
 "OS_File",17,"<Obey$Dir>.Banner" 
 ,,,,bannerlen%
 spaceforbanner% bannerlen%
 "LOAD <Obey$Dir>.Banner "+
~spaceforbanner%
 "Wimp_Initialise",200,&4B534154,"Banner" 
 ,handle
 "WimpExt_Initialise",16,handle,0
'xmin%=(spaceforbanner%!24)*71/17920
&ymin%=(spaceforbanner%!28)*13/3264
'xmax%=(spaceforbanner%!32)*71/17920
&ymax%=(spaceforbanner%!36)*13/3264
xsize%=(
(xmax%-xmin%))
ysize%=(
(ymax%-ymin%))
"OS_ReadModeVariable",-1,11 
 ,,xp%
"OS_ReadModeVariable",-1,4 
 ,,xe%:xscreen%=xp%*2^xe%
"OS_ReadModeVariable",-1,12 
 ,,yp%
"OS_ReadModeVariable",-1,5 
 ,,ye%:yscreen%=yp%*2^ye%
x%=(xscreen%-xsize%)/2
y%=(yscreen%-ysize%)/2
 table% 24
 '!table%=65536:table%!4=0:table%!8=0
!9table%!12=65536:table%!16=x%-xmin%:table%!20=y%-ymin%
 "WimpExt_DrawOp",0,table%,spaceforbanner%+40,spaceforbanner%+bannerlen%,0
 "Wimp_ForceRedraw",-1,x%-16,y%-16,x%+xsize%+16,y%+ysize%+16
 "WimpExt_CloseDown",handle
 "Wimp_CloseDown"