home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / aminet / proclib20.lha / ScreenEaters / SEB_HSTRIPS.Amos / SEB_HSTRIPS.amosSourceCode
AMOS Source Code  |  1993-10-26  |  735b  |  24 lines
  1. Procedure SEB_HSTRIPS[SCR,C,N,D]
  2.    'A Screen Eater by Paul Hickman (ph@doc.ic.ac.uk)
  3.    '
  4.    'N = No. Strips & must be a factor of screen height
  5.    'D = Delay : 0 = Fastest Speed : >0 = Slower 
  6.    '
  7.    Screen SCR : Bob Update Off : Autoback 0
  8.    Ink C : W=Screen Height/N
  9.    For A=0 To N-1
  10.       Draw 0,A*W To Screen Width,A*W
  11.    Next 
  12.    Draw 0,Screen Height-1 To Screen Width,Screen Height-1
  13.    Screen Swap 
  14.    For A=0 To W/2
  15.       Screen Copy Physic To Logic
  16.       For B=0 To N-1
  17.          Screen Copy Physic,0,B*W+A,Screen Width,B*W+W/2-1 To Logic,0,B*W+A+1
  18.          Screen Copy Physic,0,B*W+W/2+1,Screen Width,(B+1)*W-A+1 To Logic,0,B*W+W/2
  19.       Next 
  20.       Screen Swap 
  21.       If D>0 Then Wait D
  22.       Wait Vbl 
  23.    Next 
  24. End Proc