Sayfa 30

End 1f EFİLEŞ-FİLEŞ resim secin") İf FİLEŞ-"" Pop Proc End If Load Iff FILEŞ,4 Screen Hide 4 : SCRES XDISP-Screen : YDISP-Screen Height (4) or(SCRRES$-"Ham")) and e Width(4)>320 Screen Display â,,,320, End If If SCRRES$-"Hires" and Screen Width(4)>640 XDISP-640 : Screen Display 4,,r640, End If If LACE-0 If Screen Height YDISP-256 : Screen Display End 1f Else If Height (4)>512 YDİSP-512 : Screen Display 4,;»rr512 End If End I1f SCROFFX-0O : SCROFFY-0 : TMPSCR Sereen Copy 4 To 5 : Screen Show A End Proc Procedure SAVIFF If For K-Len(FILEŞ$) To 1 Step -1 If Mid$(FILEŞ,K,İ)-"/" Exit End If Next C-Len(FILEŞ)-K : K-KtI1 FILEŞ-Mİd$(FILEŞ,K,C) : EFİLEŞ$-FILEŞ FIİILEŞ-Fsel$("",FILEŞ$,"Iİf£ resim secin") If : Pop Proc End Screen 4 : Save Iff : Screen O Else BATA(" Yuklenmis proje bulunamadi...",1)| End If End Proc Procedure SCRES A-Screen Baset72 M-Deek (A) I£ Btst(15,M) SORRES$-"Hires" Else İf SCRRESŞ-"Ham" Else

$SCRRES$-"Lowres" End If End If If Btst(2,M) LACE-1

Else End If End Proc Procedure GETVAL(MSG$,DEF$, HANE) almak icin kullanilir***xxxx '* MSGŞ Ekrana basilacak mesaj * '& DEF'$S Default deger '* HANE Kac harflik deger alinacak * Hide On GEN-Text Length (5pace$ (HANE45) ) If GEN>639 GEN-639 End If UZX-Text Length (MSG$) If UZX>GEN End If If GEN<224 GEN—224 End If Screen Open 2,GEN, 30,4,Hires Sereen Display 2,,212,, Curs Off : Flash Off Palette $0,$BA9,$730,$FED : Cls 1 TXYER— (GEN-UZX) /2 SHADEBOX(0,0,GEN,29,True,"",0) Ink 3 Text TXYER,9,MSG$4Space$ (78) DEGER$-Left$ (DEF$*Space$ (HANE) , HANE) Pen 3 : Paper 0

Locate 1,2 : Print DEGER$; 1,2 : Input "";DEGER$ If DEGER$-DEF$ End If Screen Close 2 ; Screen O Limit Möüse 128,243 To 448,308 : Show On End Procedure TXTCOL) GADGET BASAR Gadget koordinatlari İz '* Shade True Secilmemis ikon False Secilmis ikon vk -2 Golge yok Txt5 Gadget icine yazilacak Tik, yazi fk Txtlol Yazinin rengi If TXT$-Mid$ (TXT$,2,200) End If If SHADE-True : SONRENK-2 End İf If SHADE-False : SONRENK—3 End If If SHADE<>-2 Ink ILKRENK Draw To X2,Yl : Draw X1,Yİ To X1,Y2 Ink SONRENK Draw X1,Y2 To X2,Y2 : Draw X2,Y2 To X2,YI End If EE Ink TXTCOL UZX-Text Length(TXT$) : UZY-Text Base TXYER— (X14X2-UZX)/2 : TYYER—(Y2*YIYUZY) /2 Text TXYER,TYYER,TXT$ End If End Proc Procedure BULANIKI|(MKEY| rx efeckt Şi '* Etraf bulanir '*k MKEY Mouse key (1,2) If MKEY-2 derinligi (0-99)", we Str$ (PIXKAY)-" ",2) PIXKAY-Val (Param$) Pop Proc End If TMPSCR Ser&en Copy 4 To 5 For I-l1 To Sereen Height (4) X8—Rnd (2*PIXKAY) -PİXKAY Sereen Copy 5,0,1,Sereen e To 4,X8,1 Next Screen 0 End Proc Procedure TMPSCR Tmp SCREEN (5) acar Screen 4 X-Screen Width(4) : Height (4) Colour İf SCRRES$-"Hires" If LACE-1 Sereen Open 5,X,Y, COL,HirestlLâaced Else Screen Open 5,X,Y, COL,Hires End If End If If SCRRES$-"Lowres" If LACE-1 Screen Open 5,X,Y, COL,Lowrestlaced Else Screen Open 5,X,Y, COL,Lowres End If End If If SORRES$-"Ham" Screen Open COL,HAM End If Sereen To Back 5 Screen Hide 5 Curs Off Flash Off Cls O Get Palette 4 Screen 4 End Proc Procedure UNDO Screen Copy 5 End Proc

NOT: Program dökümünde kullanılan «e 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.