Sayfa 36

If MX>-IKONT(K,1) and MY>-İKONT(K,2) If MX<-—IKONBİK,1) and MY<-IKONB(K,2) Exit End If End If Next If BASILAN>O SHADEBOX(IKONT(K,1),IKONT(K,2), IKONB(K,1),IKONBİK,2);,;False, (K), IKONCOL (K) | İf BASILAN-2 Limit Mouse LODIFF Limit Mouse 128,243 To 448,308 Sereen To Front O Sereen Ü '© İKONB(K, 1) , IKONB(K,2),True, IKONTEXŞ (K) , IKONCOL (K) | End If İf BASILAN-3 Limit Mouse SAVIFF Limit Mouse 128,243 To 448,308 Sereen To Front 0 Sereen O IKONB(K,İ),1IKONBİ(İK,2),True, ie IKONTEX$ (K) , IKONCOL (K) | End If İf BASILAN-7 Fade 5 Exit End If End If End If : If ARX—A : End If If RAWKEYS-RAMIGA ARX—XDISP ;: ARY-YDISP End If If PRESKEY-UARROW Add SCROFFY,-ARY If SCROFEFY>O Sereen Offset 4, SCROFFX, SCROFFY Else SCROFFY-0O Screen Offset 4,SCROFFX, SCROFFY End 1f End If If PRESKEY-DARROW Add SCROFEFY,ARY If SCROFFY<Screen Height (4) -YDISP Screen Offset 4,SCROFFX, SCROFFY Else SCROFFY-Screen Height (4) -YDISP Screen Offset 4,SCROFFX, SCROFFY End If End If If PRESKEY-LARROW Add SCROFFX, -ARX If SCROFFX>O Seteen Offset 4,SCROFFX, Else SCROFFX-0 Sereen Offset End If End If If PRESKEY-RARRONW Add SCROFFX,ARX If SCROFFX<Screen Width (4) -XDİSP

Screen Offset 4,SCROFFX, SCROFEY Else SCROFFX-—Screen Width (4) -XDISP Sereen Offset 4,SCROFFX, SCROFFY End If End If Loop End Proc

Procedure INITPROG

fik PROGRAM HAZIRLIKLARI

LARROW—29 UARRONW-30 DARROW—3İ RAMIGA-I128 Degree Screen Open 0,640,70,16,Hires Screen Display 0,,244,, Palette $0,$BA9,$310,$FED,SE,$505,Ş$AĞA, Öl Or Or O; Oy O, O; $ŞEFE Curs Off Flash Off Ink 1 Paint 0,0 Ink 3 Set Text 6 Text 5,60,"Efekt 1.00 Amiga Dergisi 1993" Set Text 0 INITIKON BASIKON End Proc

Procedure ALANSEC

İFF EKRANINDA BOLGE SECER K

Change Mouse 2 Gr Writing 2 B-0 Repeat (Inkey$) RAWKEYS-Key Shift If Moüse Key-l AXİ—X Screen(X Mouse) AYİ-Y Screen(Y Moüse) AX2-AXI AY2-AYI While Moüse Key-l Box AXI,AYI To AX2,AY2 Screen(X Mouse) AY2-Y Screen(Y Mouse) Box AXI,AYİI To AX2,AY2 Wend Box AXİ,AYI To AX2,AY2 GRABBED-Trüe If AXİI>AX2 : AX2-T End If If AYIDAY2 : T—AYI : AYİ-AY2 : AY2-T : End If End If ARX—İ : ARY-İ If RAWKEYS—LAMIGA ARX—A : End If