INTRÖ TÖ SEHER

• BASIC
• Demo sahnesi
• Program dökümü

İş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