home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AMOS PD CD
/
amospdcd.iso
/
extensions
/
jd
/
procs
/
_fade3.amos
/
_fade3.amosSourceCode
Wrap
AMOS Source Code
|
1994-02-02
|
458b
|
18 lines
Load Iff "dh0:__sourcecodes/.jdsources/bc.pic",1
Wait 5
Screen Open 0,Screen Width,Screen Height,Screen Colour,Screen Mode
Wait 5
Get Palette 1 : Flash Off : Curs Off
S=1 : D=0 : TX=0 : TY=0 : BX=Screen Width : BY=Screen Height : W=10 : H=10
F=3
BLOCKIN[S,D,TX,TY,BX,BY,W,H,F]
Procedure BLOCKIN[S,D,TX,TY,BX,BY,W,H,F]
H1=BY/H : W1=BX/W
LOP:
Screen Copy S,0,BY-H,W,BY To D,0,BY-H
H=H+H1 : W=W+W1
If H>BY+H1 and W>BX+W1 Then Pop Proc
Wait 5
Goto LOP
End Proc