Sayfa 22

00484484

ILPROGRAM . Colour , Scresen Copy * Örnek 4.00 , . AMIGA DERGİSİ i ; Degree Hide ön

1. efekt

Screen Open

Screen Hide 0 Curs Flash Of£ cis For K-1 To 31 Colour K,$0 Next

Screen Hide

ink K

Screen Show 0 Get Palette 1 Show On MOUSKEY Hide On Fade 5 YHAVELO) YWAVETO)

2

Screen Unpack 6 To O YHAVE (O) YRAVE (O) Procedure YRAVE (SOR) en Cpen Hide 7 Curs Off

Flash cle € Get Falette SCR For 255

(Y47 Copy 5

Copy 7 To Close 1

XWAVE Öpen 7,320, Screen Hide 7 Curs ort Flash O; cis 0 Get Palette For X=0 To 319 C= (15* Sin (X*720/319)) +B Screen Copy SCR, X, 0,X+1,256 To 7,X,C

Copy 7 Te SCR Screen Close 7 End Proc Procedure MOÜUSKEY Repeat Üntil Mouse Key: Repeat End Proc

til Mouse Keysl