home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / procedures / _fade2.amos / _fade2.amosSourceCode
AMOS Source Code  |  1994-04-26  |  459b  |  18 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,-1
  12. For Y=0 To BY
  13.    Screen Copy S,0,Y,BX,Y+1 To D,0,BY-1
  14.    Wait Vbl 
  15.    Scroll 1
  16.    Wait Vbl 
  17. Next 
  18. End Proc