Sayfa 29

Procedure MAIN Limit Mouse 128,243 To 448,308 CMDSCRBCK-Ü Do PRESKEY-Asc(Inkey$) RAWKEYS-Key Shift - MOUSEKEY-Mouse Key lif MOÜSEKEY>0 If CMDSCRBCK-İ CMDSCRBCK-0 : Sereen Show O Repeat Until Möuse Key-0 Else MX—X Screen(X Mouse) : Screen(Y Mouse) BASILAN—0 For K-l To IKONSAY I£ and MY>-IKONT(K,2) I£ MX<—IKONB(K,İ) and MY<-IKONB(K,2) Exit End If End If Next If BASILAN>O İf Left$(İKÖNTEX$S(BASILAN),1)<>"&" SHADEBOX(IKONT(K,1),IKONT(K,2), IKONB(K,1),IKONB(K,2), *© False, İKONTEX$ (K) , IKONCOL(K) |

Repeat Until Mouse Key-0 End If *

If BASILAN-2 Limit Mouse : LODIFF Limit Mouse 128,243 To 448,308 Screen Tö Front 0 : Screen 0 SHADEBOX(IKONT(K,1),IKONT(K,2), '& IKONB(K,1),IKONB(K,2), True, IKONTEX$ (K) , IKONCOL(K) | End If If BASILAN-3 Limit Mouse SAVIFE Limit Mouse 128,243 To 448,308 Söreen To Front 0 : Sereen O SHADEBOX(İKONT(K,1),İIKONT(K,2), IKONBİK,1);IKONB(K,2), True, İKONTEX$ (K) , IKONCOL (K) | End 1f I£ BASILAN-8 BULANIKİ| MOUSEKEY) SHADEBOX(IKONTİ(İK,1),IKONT(K,2), İKONB(K,1),İIKONBİK,2), '© True, IKONTEXŞ (K) , IKONCOL (K) | End If If BASILAN-I10 CMDSCRBCK—-İ SHADEBOX(IKONT(K,1),IKONT(K,2), IKONB(K,1),IKONB(K,2), '© True, IKONTEXŞ$ (K) , IKONCOL(K) | Screen Hide 0 End If If IKONTEX$ (BASILAN) -"Undoa" UNDO SHADEBOX(IKONT(K,1),IKONT(K,2), '© IKONBİK,1),İIKONB(K,2), True, İKONTEXŞ$ (K) , IKONCOL(K) | End If I£ Fade 3 : Wait 45 : Exit End If End If End If End If ARX—İ : If RAWKEYS-LAMIGA ARX—A : End If If RAWKEYS-RAMIGA ARX—XDISP : ARY-YDISP End If İf PRESKEY-UARRON Add SCROFF'Y, -ARY I£ SCROFEFY>O Screen Offset SCROFEY

Else Sereen Offset 4,SCROFFX, SCROFEY End If End If

If PRESKEY-DARROW Add I£ SCROFFY<Screen Height (4) -YDISP

Sereen Offset SCROFEY Else SCRÖFFY-Screen Height (4) -YDISP Offset 4,SCROFFX,SCROFEY End If End If If PRESKEY-LARROW Add SCROFFX,-ARX If SCROFFX>O Screen Offset 4,SCROFFX, SCROFEY

Else Screen Offset 4,SCROFFX, SCROFEY End İf End If

If PRESKEY-RARROW Add SCROFFX,ARX If SCROFFX<Screen Width(4) -XDISP Screen Offset â,SCROFFX, SCROFFY Else SCROFFX-Screen Width (4) -XDISP Screen Offset 4,SCROFFX, SCROFEY End If End If Loop Screen Close O End Proc Procedure INITPROG 'k VAR: PIXKAY-I10 '* CONTS: RARROW-28 UARROWS30 DARROW—31 LAMIGA-6A RAMIGA-I28 * Degree Sereen Open 0,640,70,16,Hires Sereen Display 0,,244,, Palette $AĞA,0,0,0,0,0,0,0,0, $EFF 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 : IİNİTİKON : BASIKON End Proc Procedure INITIKON IKONSAY-İ1 For K-1 To IKONSAY Read IKONT(K,1),IKONT(K,2) Read İKONB(K,1),IKONB(K,2) Read (K) , IKONCOL (K) Next Data Data 6,17,106,30,"Load Iff",5 Data 6,32,106,45,"Save If£f",5 Data 118,2,184,15,"&Sinüs",15 Data 118,17,184,30,"X",4 Data 118,32,184,45,"Y",4 Data Dâta 196,17,265,30,"Bulanik", 5 Data 565,2,615,45,"Ouit",15 Data 625,2,635,6,"",5 Data End Proc Procedure BASIKON For K-l To IKONSAY If Left$(İKONTEX$(K),1)-"$" SHADEBOX(IKONT(K,1), IKONT(K,2), İKONB(K,1),IKONBİK,2), e , IKONCOL (K) | Else SHADEBOX(IKONT(K,1),IKONTİK,2), İKONBİK,İ),İKONBİK,2), True, IKONTEXŞ (K) , IKONCOL (K) | End If Next End Proc Procedure LODIFF If Len(FİLEŞ)>0 For K-Len(FILE$) To 1 Step If Mid$(FILEŞ,K,1)-"/" Exit End If Next C-lhen (FİILEŞ) -K K-KtI1 FIİLEŞ$—Mid$(FILEŞ,K,C)

NOT: Program dökümünde kullanılan «er işareti, sütunlarımızın darlığı yüzünden kesilen satırları göstermektedir. Lütfen bu karakterin bulunduğu satırlarda return veya enter'a basmadan altındaki satırı yazmaya devam edin.