'
' You will need to load your iff file into screen 0
' then open screen 1 with the same width,height and number of colours
' as your iff file, then call this routine. at the moment its not much 
' cop but should be better once the compiler is available
'
'
'
SCRWID=320 : Rem width of screen
Screen To Front 1 : Get Palette(0)
Screen 1 : Flash Off : Curs Off : Hide 
A=256 : Rem bottom line of image 
B=0 : Rem top line of image
C=A : Rem temporary pointer
'
' the routine works by copying a line from screen 0 and replicating this 
' bit pattern all the way up the screen, then getting the next line from 
' screen 0 and repeating this until all the screen has been copied.
'
While A<>B
   Screen Copy 0,0,A,SCRWID,A+1 To 1,0,C
   Dec C
   If C=B
      C=A
      Dec A
      Dec C
   End If 
Wend