Sayfa 38

Locate 35,3 Print Rightş(" Locate 27,5 : Print Right$(" Ink 2,1 SHADEBOX(20,55,80,75,True,"Grab",3| SHADEBOX(240,55,300,75,True,"Okay",3)1 Limit Mouse While 1 While Mouse Key-0 Wend 5 While Moüse Key-l Wend MBAS-İ If X Mouse>261 and X Mouse<281 If Y Mouse>l169 and Y Mouse<178 Locate 15,1 : Input "";ALTDEGER Locate 15,1 Print Right$(" Curs Off MBAS-O0 Else If Y Mouse>i83 and Y Mouse<193 Locate 15,3 : Input "";BASDEGER Locate 15,3 Print Right$(" Curs Off MBAS-O0O End If End If End If If X Mouse>342 and X Mouse<361 and MBAS-İ If Y Mouse>i69 and Y Mouse<178 Locate 35,1 : Input "";USTDEGER Locate 35,1 Print Right$(" Curs Off MBAS-O0O Else If Y Mouse>l183 and Y Locate 35,3 : Input "";ARTIS Locate 35,3 Print Right$(" Curs Off MBAS-O0 End If End If End If If Y Mouse>202 and Y Mouse<210 and MBAS-I 'T£ X Mouse>308 and X Mouse<328 Locate 27,5 : Input "";PİX Locate 27,5 Print Cürs Off MBAS-O0 End If End If If Y Mouse>217 and Y Mouse<238 and MBAS-İ If X Mouse>216 and X Mouse<248 GRAB-İ Exit Else If X Mouse>327 and X Mouse<359 GRAB-O0 Exit End If End If End If Wend If AXIS$-"axis y" PARSINY (1) -ALTDEGER PARSINY (2) -USTDEGER PARSINY (3) -BASDEGER PARSINY (4) -ARTIS PARSINY(5)-PIX Else PARSINX (1) -ALTDEGER PARSINX (2) -USTDEGER PARSINX (3) -BASDEGER PARSINX (4) -ARTIS PARSINX(5)-PIX End If Screen Close 2 Screen 0 Limit Mouse 128,243 To 448,308 End Proc

"*Str$ (ARTIS),3) "4Str$(PIX),3)

(ALTDEGER) ,3)

"4Str$ (BASDEGER) ,3)

"*Str$ (USTDEGER) ,3)

(ARTIS),3)

Procedure SCOPY YİMKEY|

'* Y ekseninde sinus ile kopyalama yapar * Hk *

'* MKEY Mouse Key (1,2)

y'| ART-PARSINY(4) : ACI-PARSINY(3) TMPSCR Screen Copy 4 To 5 Screen To Back 4 Screen Show 5 Screen 4 Wait Vbl For X-0 To Sereen Width(5) IT-Int (Sin(ACI) *PARSINY(5)) Screen Copy 5,X,0,X41,Screen Height(5) To 4,X,IT Add ACI,ART If ACI<PARSINY(1) ART--ART End If If ACI>PARSINY(2) ACI-PARSINY(2) If ACI-ACI mod 360 Next Wait Vbl Screen To Back 5 Screen Hide 5 Screen 0 End Proc

Procedure SCOPY XİMKEY| e e e e Ye de e e le e de Ye Ye e e de e Ye e lr Ye e

'* x ekseninde sinus ile kopyalama yapar * rk * '* MKEY Mouse Key (1,2) * le le le ik le le Ye le lr le e e e ie —GETSINPAR|'axis x'| ART-PARSINX(4) : ACI-PARSINX(3) TMPSCR Screen Copy 4 To 5 Screen To Back 4 Screen Show 5 Screen 4 Wait Vbl For Y-0 To Screen Height (5) IT-Int (Sin(ACI) *PARSINX(5)) Screen Copy 5,0,Y,Screen Width(5), | To 4,IT,Y Add ACI,ART If ACI<PARSINX(1) ACI-PARSINX(1) End If If ACI>PARSINX(2) ART--ART ACI-PARSINX(2) End If ACI-ACI mod 360 Next Wait Vbl Screen To Back 5 Screen Hide 5 Screen 0 End Proc

Procedure BULANIK2(MKEY|

kkk kkk ik b b b bk '* efeckt 2 '* Etraf bulanir '* MKEY Mouse key (1,2) *

If MKEY-2 derinligi 10-99)", | Str$(PIXKAY2)-" ",21 PIXKAY2-Val (Param$) Pop Proc End If TMPSCR Screen To Back 4 Screen Show 5 Screen Copy 4 To 5 For Izl To Screen X8-Rnd (2*PIXKAY2) -PIXKAY2

Screen Copy 5,1,0,141,Screen To 4,1,X8 Next

Screen To Back 5 Screen Hide 5 Sereen 0 End Proc

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