Sayfa 75

İşte size BASIC dilinde yazılmış minik bir intro. Programa bir göz attığınızda, küçük bir programla ortaya şirin bir şeyler çıkarmanın aslında hiç de zor olmadığını göreceksiniz.

REM ***to*SEHER******* REM *Copyright ©1991* REM *Huseyin YEŞİLBAŞ* REM ****************** scr$="Hi to Turbo,Vigo,Max,Mr.Malice,Jason,Move" scr$=scr$+",Blacky,Lydian,Cpt.Treap,Reatlehead " scr$=scr$+"& all Bronx Members...."+SPACE$(20) scr=LEN(scr$) SCREEN 1,320,256,2,1 WINDOW 3,"DAHA DUN ANNEMİZİN KOLLARINDA YASARKEN.."„16,1 ON BREAK GOSUB cikis BREAK ON LINE (0,220)-(320,220),1 COLOR 3,0 LOCATE 10,5:PRINT "Programmed By Hüseyin YEŞİLBAŞ" PALETTE 0,0,0,0 PALETTE 1,1,0,0 PALETTE 2,0,0,1 PALETTE 3,0,1,0 COLOR 2,0 x1=160:x2=160:y1=128:y2=128 dx1 =9:dx2=-6:dy1 =10:dy2=-8 again: GOSUB doscroll b1 =x1 :b2=y1 :b3=x2:b4=y2 x1 =x1 +dx1 :x2=x2+dx2 y1 =y1 +dy1 :y2=y2+dy2

IF x1 >320 OR x1 <0 THEN dx1 =-dx1:x1=x1 +dx1:SOUND 130.81,1.5 IF x2>320 OR x2<0 THEN dx2=-dx2:x2=x2+dx2:SOUND 146.83,1.5 IF y1 >219 OR y1 <0 THEN dy1 =-dy1:y1=y1+dy1:SOUND 164.81,1.5 IF y2>219 OR y2<0 THEN dy2=-dy2:y2=y2+dy2:SOUND 174.61,1.5 LINE(b1,b2)-(b3,b4),0 LINE(x1,y1)-(x2,y2),2 IF MOUSE(0)=0 THEN again cikis: SYSTEM

END doscroll: cnt=cnt+1 IF cnt=8 THEN GOSUB press:cnt=0 SCROLL (0,224)-(320,232),-1,0

RETURN press: textst=textst+1

IF textst>scr THEN textst=1 LOCATE 29,40:PRINT MID$(scr$,textst,1) RETURN