home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / aminet / jdlib4_6.lha / Procs / _Fade1.AMOS / _Fade1.amosSourceCode
AMOS Source Code  |  2008-12-11  |  437b  |  16 lines
  1. Load Iff "dh0:__sourcecodes/.jdsources/bc.pic",1
  2. Wait 5
  3. Screen Open 0,Screen Width,Screen Height,Screen Colour,Screen Mode
  4. Wait 5
  5. Get Palette 1 : Flash Off : Curs Off 
  6. S=1 : D=0 : TX=0 : TY=0 : BX=Screen Width : BY=Screen Height : W=10 : H=10
  7. F=3
  8. BLOCKIN[S,D,TX,TY,BX,BY,W,H,F]
  9.  
  10. Procedure BLOCKIN[S,D,TX,TY,BX,BY,W,H,F]
  11. Def Scroll 1,TX,TY To BX,BY,0,10
  12. For Y=0 To BY
  13.    Screen Copy S,0,BY-Y,BX,BY To D,0,BY-Y
  14. '   Scroll 1 
  15. Next 
  16. End Proc