REM><Invaders$Dir>.Src.Banner
REM Display loading banner...
REM Acorn Invaders (c) DynaByte Software 2007,08.

REM Initialise...
xpos%=0:ypos%=4:xsize%=8:ysize%=12      :REM Position & Size.
x_eig%=16:y_eig%=20                     :REM Screen object stuff.
DIM screen%24,banner%16,blk%20
blk%!0=4:blk%!4=5:blk%!8=11:blk%!12=12:blk%!16=-1
SYS "OS_ReadVduVariables", blk%, blk%
screen%!x_eig%=blk%!0:screen%!y_eig%=blk%!4
screen%!xsize%=(blk%!8)+1<<blk%!0
screen%!ysize%=(blk%!12)+1<<blk%!4

gfx_area%=FNgfx_load("<Invaders$Dir>.Resources.Graphics.Banner")

banner%!xsize%=300<<screen%!x_eig%
banner%!ysize%=100<<screen%!y_eig%
banner%!xpos%=(screen%!xsize%/2)-(banner%!xsize%/2)
banner%!ypos%=(screen%!ysize%/2)-(banner%!ysize%/2)

REM Display our banner...
PROCplot("banner",banner%!xpos%,banner%!ypos%)
END

REM Return the size of a file. (In bytes.)
DEFFNfs_filesize(file$)
 LOCAL size%
 SYS "XOS_File",5,file$ TO ,,,,size%
=size%

REM Load a spritefile into local pool.
DEFFNgfx_load(filespec$)
 LOCAL area%,size%
 size%=FNfs_filesize(filespec$)+256            :REM Find filesize.
 DIM area% size%                               :REM Reserve space.
 !area%=size%:area%!4=0:area%!8=16:area%!12=16 :REM Set pointers.

 REM Load Graphics into our reserved space...
 SYS "OS_SpriteOp", 256+10, area%, filespec$   :REM Load file.
 SYS "OS_SpriteOp", 256+17, area%              :REM Verify data.
=area%

REM Display a sprite at given co-ordinates.
DEFPROCplot(sprite$,x%,y%)
 LOCAL address%
 SYS "OS_SpriteOp", 256+24, gfx_area%, sprite$ TO ,, address%
 SYS "OS_SpriteOp", 512+34, gfx_area%, address%, x%, y%, 0
ENDPROC