home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / comdemos / progs / diskind / !DiskInd / !Banner / !RunImage (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1995-09-10  |  1.2 KB  |  39 lines
  1.  All-purpose banner utility
  2.  Displays drawfile in a pretty window
  3.  by JJF
  4.  10-Sep-95
  5. $;" at line ";
  6.  "OS_File",17,"<Obey$Dir>.Banner" 
  7.  ,,,,bannerlen%
  8.  spaceforbanner% bannerlen%
  9.  "LOAD <Obey$Dir>.Banner "+
  10. ~spaceforbanner%
  11.  "Wimp_Initialise",200,&4B534154,"Banner" 
  12.  ,handle
  13.  "WimpExt_Initialise",16,handle,0
  14. 'xmin%=(spaceforbanner%!24)*71/17920
  15. &ymin%=(spaceforbanner%!28)*13/3264
  16. 'xmax%=(spaceforbanner%!32)*71/17920
  17. &ymax%=(spaceforbanner%!36)*13/3264
  18. xsize%=(
  19. (xmax%-xmin%))
  20. ysize%=(
  21. (ymax%-ymin%))
  22. "OS_ReadModeVariable",-1,11 
  23.  ,,xp%
  24. "OS_ReadModeVariable",-1,4 
  25.  ,,xe%:xscreen%=xp%*2^xe%
  26. "OS_ReadModeVariable",-1,12 
  27.  ,,yp%
  28. "OS_ReadModeVariable",-1,5 
  29.  ,,ye%:yscreen%=yp%*2^ye%
  30. x%=(xscreen%-xsize%)/2
  31. y%=(yscreen%-ysize%)/2
  32.  table% 24
  33.  '!table%=65536:table%!4=0:table%!8=0
  34. !9table%!12=65536:table%!16=x%-xmin%:table%!20=y%-ymin%
  35.  "WimpExt_DrawOp",0,table%,spaceforbanner%+40,spaceforbanner%+bannerlen%,0
  36.  "Wimp_ForceRedraw",-1,x%-16,y%-16,x%+xsize%+16,y%+ysize%+16
  37.  "WimpExt_CloseDown",handle
  38.  "Wimp_CloseDown"
  39.