Bu sayfadaki yazılar
Sayfanın metni
Sayfa 83
saat: WINDOW OUTPUT 3:COLOR 0.0:CLS:PUT (28,7), watch,PSET RETURN
hata: RUN
SUB kayitgir (i) STATIC SHARED setcity,setprov.chrn WINDOW OUTPUT 3:COLOR 2,5:CLS:PRINT PRINT typestat(i)" girin ";:LINE INPUT”: “,s WHILE LEN(s)>fs(i):LINE INPUT" GiRiS COK UZUN. TEKRARLAYIN: ",s:WEND IF s="" THEN
IF i<>4 AND i<>5 THEN s=chrn IF i-4 THEN s=setcity
IF i-5 THEN s=setprov ELSEIF i<5 THEN
s=UCASE$(LEFT$(s, 1; >+RIGHT$(s,LEN(s)-l>:j=2 WHILE INSTR(j,s," ")<>0
j-INSTR(j,s,” “)+1:MID$(s,j,1)=UCASE$(MID$(s,j,1)) WEND
IF i-4 THEN setoity=s ELSEIF i = 5 OR i=6 THEN
s = UCASE$(s):IF i=5 THEN setprov=s END IF IF i=2 THEN
j-INSTR(s,”%”):IF j THEN MID$(s,j,3)=”%” END IF
WINDOW OUTPUT 2:COLOR 2,3 LOCATE 2*i,25:PRINT SPACE$( f s( i ) ) stat<i) = s: LOCATE 2* i,25: PRINT END SUB
SUB sort STATIC SHARED rend,ln IF rend<3 THEN EXIT SUB FOP i=1 TO rend:GET 1,i:sl(i)=s(1):s2(i)=s(2):NEXT
FOR k=1 TO rend jtop=k:top1=s1(k):top2=s2(k)
FOR j=k+1 TO rend
IF s2(j)<top2 THEN
top2=s2(j):top1=s1(j):jtop=j ELSEIF s2(j) = top2 THEN
IF s1(j)<top1 THEN top1=s1(j):jtop=j END IF NEXT:SWAP recno(k),recno(jtop):SWAP sl(k),sl(jtop):SWAP s2(k),s2<jtop) NEXT END SUB
DATA GiRiS,ARAMA,LiSTE,YAZMA,CIKIS DATA DEGiSTiR,SiL,ONCEKi,SONRAKi,YAZ,CIKIS
DATA HEPSI,A'DAN ?,? - Z,? - ? DATA ADI,12,SOYADI,20,ADRES,55,SEHiR,14 DATA ULKE,15,POSTA KODU,6,TELEFON,12 AMİGA DÜNYASI 92
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 82
j=VAL(a):WINDOW OUTPUT LINE (191,16*(j-1)+7)-STEP(8*fs(o),9),7,b kayitgir j:LINE (191,16*(0-1)+7 )-STEP(8*fs(o ),9),0,b:GOTO degistir END IF WINDOW OUTPUT 2:C0L0R 0,0:FOR j=1 TO 7:LOCATE 2*j,3:PRINT " ":NEXT GOSUB kayityaz:RETURN
silme: WINDOW OUTPUT 3: COLOR 2,5 :CLS-.COLOR 2,4 FOR f=l TO 2:g=12*f-5:h=(g-2)*8:PUT (h,5),boxl,PSET:NEXT LOCATE 2,8:PRINT "Sil"TAB(20)" iPTAL FOR j=1 TO 2000:NEXT
WHILE MOUSE(0)>-1:WEND IF INT((M0USE(1)-40)/96)=0 THEN
recno = recno(i):FOR j = 1 TO 7 : stat(o )=chrd : NEXT :GOSUB kayityaz rend=rend-1 IF iorend+1 THEN
FOR k=i TO rend:recno(k)=recno(k+1):NEXT recno(rend+1)-recno END IF
IF I<>l THEN i=i-1 recno=recno(i):GOSUB kayitoku:GOSUB kayitlistesi END IF:RETURN aramamenusu
onceki :
i=i-1:IF i=0 THEN i=rend recno=recno(i) :GOSUB kayitoku:GOSUB kayitlistesi RETURN aramasonu
sonraki :
i=i+1:IF i=rend+1 THEN i=1 recno=reeno(i):GOSUB kayitoku:GOSUB kayitlistesi RETURN aramasonu
etiket: FOR j=1 TO 6:1=LEN(s(o))
WHILE MID$(s(j),l,1)=” “:l=l-1:WEND ss(j )=LEFT$(s(j ),1 ) IF LEFT$(ss(o),l)= ehrn THEN ss(j)= " " NEXT LPRINT ss(1)” “ss(2):LPRINT ss(3):LPRINT ss(4) IF LEN(ss(6))=6 THEN ss(6)=LEFT$(ss(6),3) + " "+RIGHT$(ss(6),3) LPRINT ss(5)SPC(3)ss(6):LPRINT:LPRINT
IF e THEN RETURN aramasonu RETURN
etiketler: WINDOW OUTPUT 3: COLOR 2,5 : CLS:COLOR 2,4:e=0 FOR f=l TO 4:g=12*f-5:h=(g-2)*8
PUT Ch,5),boxl,PSET:LOCATE 2,g+1:PRINT title3(f) N E XT WINDOV OUTPUT 2:COLOR 2,0:FOR j=l TO 2600:NEXT
WHILE M0USE(0)>-l:WEND:m=lNT((M0USE(l)-40)/96)+1:k1=1:k2=rend IF m=2 THEN GOSUB kayitbul:k2=i IF m=3 THEN GOSUB kayitbul:k1=i IF m=4 THEN GOSUB kayitbul:k1=i:GOSUB kayitbul:k=2 COLOR 2,5:CLS:IF k2>rend THEN k2=rend GOSUB saat
FOR k=k1 TO k2:GET 1,recno(k):GOSUB etiket:NEXT RETURN ana