10 REM"CLS 20 REM"INPUT "", XC$ 30 REM"IF XC$ = "MEHMET" THEN 40 ELSE BEEP: GOTO 10 40 CLS : LOCATE 2, 66: COLOR 1, 10: PRINT " Mehmet KOBEY": COLOR 7, 0 45 LOCATE 2, 2: COLOR 1, 10: PRINT "Saat:"; TIME$ 46 LOCATE 2, 35: COLOR 1, 10: PRINT "Tarih:"; DATE$ 50 KEY OFF: COLOR 10, 4: LOCATE 1, 1: PRINT STRING$(79, 223) 60 LOCATE 22, 1: PRINT STRING$(79, 223) 65 FOR I = 1 TO 22 70 LOCATE I, 1: PRINT STRING$(1, 3) 80 LOCATE I, 80: PRINT STRING$(1, 3) 90 NEXT I 100 COLOR 4, 15: LOCATE 12, 20: PRINT "LTFEN FRENZ GRNZ ==>[ ]" 110 LOCATE 12, 48: Z$ = INPUT$(4): COLOR 7, 0 120 IF Z$ = "MHMT" THEN 130 ELSE SOUND 100, 1: COLOR 18, 4: LOCATE 15, 30: PRINT "FRENZ YANLI.": SLEEP 1 COLOR 7, 0: LOCATE 15, 30: PRINT SPC(18); : GOTO 100 130 COLOR 7, 0: CLS LOCATE 6, 20: PRINT STRING$(28, 223) 140 LOCATE 19, 20: PRINT STRING$(28, 223) 150 FOR I = 6 TO 19 160 LOCATE I, 20: PRINT STRING$(1, 223) 170 LOCATE I, 48: PRINT STRING$(1, 223) 180 NEXT 190 COLOR 5 200 LOCATE 1, 65: PRINT " Mehmet KOBEY" 210 LOCATE 1, 1: PRINT "Saat:": LOCATE 1, 6: PRINT TIME$; LOCATE 1, 35: PRINT "Tarih:"; DATE$ 220 COLOR 5, 7: LOCATE 8, 30: PRINT " M E N ": COLOR 7, 0 230 LOCATE 10, 25: PRINT "1-MTER KAYIT " 240 LOCATE 11, 25: PRINT "2-MTER ARAMA " 250 LOCATE 12, 25: PRINT "3-DETRME " 260 LOCATE 13, 25: PRINT "4-TM DKM " 270 LOCATE 14, 25: PRINT "5-KAYIT NO ARAMA " 280 LOCATE 15, 25: PRINT "6-KAYIT SLME " 290 COLOR 4: LOCATE 16, 25: PRINT "7-PRORAMDAN IKI": COLOR 7, 0 300 COLOR 5: LOCATE 17, 24: PRINT "S E M N Z [ ]": LOCATE 17, 43: PRINT " ": COLOR 0, 7 310 SW$ = INKEY$: IF SW$ = "" THEN 300 320 S = VAL(SW$) 330 ON S GOTO 350, 930, 1440, 2210, 2840, 3670, 2810 340 GOSUB 6000 345 GOTO 300 350 COLOR 7, 0: CLS : COLOR 5: LOCATE 1, 65: PRINT "Mehmet KOBEY" 351 LOCATE 1, 1: PRINT "Saat:": LOCATE 1, 6: PRINT TIME$; LOCATE 6, 18: PRINT STRING$(28, 223) 360 LOCATE 17, 18: PRINT STRING$(28, 223) 370 FOR I = 6 TO 17 380 LOCATE I, 18: PRINT STRING$(1, 223) 390 LOCATE I, 46: PRINT STRING$(1, 223) 400 NEXT 410 LOCATE 8, 28: COLOR 5, 7: PRINT " M E N ": COLOR 7, 0 420 LOCATE 10, 25: PRINT "1-KSEL KAYIT" 430 LOCATE 11, 25: PRINT "2-DEME KAYIT " 440 COLOR 4: LOCATE 12, 25: PRINT "3-ANA MEN ": COLOR 7, 0 450 COLOR 5: LOCATE 14, 22: PRINT "S E M N Z [ ]" LOCATE 14, 41: PRINT " ": COLOR 0, 7 460 SW$ = INKEY$: IF SW$ = "" THEN 450 470 A = VAL(SW$) 480 ON A GOTO 530, 740, 920 500 GOSUB 6000 510 GOTO 450 520 REM"################################################################### REM"############ KSEL KAYIT BLM ################### REM"################################################################### 530 OPEN "R", #1, "MUSTERI.DAT", 90 540 FIELD #1, 30 AS A$, 30 AS AD$, 10 AS TL$, 20 AS I$ 550 A = INT(LOF(1) / 90) + 1 560 CLS : LOCATE 8, 20: PRINT "LTFEN KAYDINI YAPACAINIZ BLGLER GRNZ " 570 LOCATE 10, 20: PRINT "ADI SOYADI :" 580 LOCATE 11, 20: PRINT "ADRES :" 590 LOCATE 12, 20: PRINT "TELEFONU :" 600 LOCATE 13, 20: PRINT "AIKLAMA :": COLOR 5 610 LOCATE 10, 32: LINE INPUT "", B$ 620 LOCATE 11, 32: LINE INPUT "", C$ 630 LOCATE 12, 32: LINE INPUT "", TE$ 640 LOCATE 13, 32: LINE INPUT "", AK$: COLOR 7, 0 650 LSET A$ = B$: LSET AD$ = C$: LSET TL$ = TE$: LSET I$ = AK$: SOUND 100, 10 660 LOCATE 20, 20: PRINT "DSKET ZERNE BLGLER KAYIT LEMNE BALIYORUM" SLEEP 1: LOCATE 20, 20: PRINT SPC(59); 670 PUT #1, A 680 COLOR 4: LOCATE 20, 18: PRINT "BAKA KAYIT VAR MI [E/H] [ ]" LOCATE 20, 44: INPUT "", D$: COLOR 7, 0 690 IF D$ = "E" OR D$ = "e" THEN 550 700 IF D$ = "H" OR D$ = "h" THEN 710 ELSE 720 710 CLOSE #1: GOTO 350 720 GOSUB 5000 730 GOTO 680 REM"############################################################# REM"######### DEME BLGLER KAYIT BLM ############### REM"############################################################# 740 OPEN "R", #2, "ODEME.DAT", 90 750 FIELD #2, 30 AS A$, 15 AS MF$, 15 AS P$, 15 AS I$, 15 AS KB$ 751 KB = 0: MF = 0: P = 0 760 B = INT(LOF(2) / 90) + 1 770 CLS : LOCATE 8, 20: PRINT "Ltfen Kayt Yapacanz Bilgileri Giriniz" 780 LOCATE 10, 20: PRINT "ADI SOYADI :" 790 LOCATE 11, 20: PRINT "MALIN FATI:" 800 LOCATE 12, 20: PRINT "PENATI :" 810 COLOR 6: LOCATE 10, 32: INPUT "", B$ 820 LOCATE 11, 32: INPUT "", MF 830 LOCATE 12, 32: INPUT "", P: COLOR 7, 0 840 KB = MF - P 845 LOCATE 13, 20: COLOR 6, 4: PRINT "KALAN BOR :"; KB; "TL.": COLOR 7, 0 846 LOCATE 14, 20: PRINT "AIKLAMA :" 847 LOCATE 14, 33: INPUT "", AK$: COLOR 7, 0 850 LSET A$ = B$: LSET MF$ = STR$(MF) 860 LSET P$ = STR$(P): LSET KB$ = STR$(KB): LSET I$ = AK$: SOUND 100, 1 870 LOCATE 20, 20: PRINT "DSKET ZERNE BLGLER KAYIT EDYORUM." SLEEP 1: LOCATE 20, 20: PRINT SPC(59); : COLOR 7, 0 880 PUT #2, B 890 COLOR 4: LOCATE 18, 25: PRINT "BAKA KAYIT VAR MI [E/H] [ ]" LOCATE 18, 51: INPUT "", D$: COLOR 7, 0 900 IF D$ = "E" OR D$ = "e" THEN 760 910 IF D$ = "H" OR D$ = "h" THEN 911 ELSE 912 911 CLOSE #2: GOTO 350 912 GOSUB 5000 913 GOTO 890 920 GOTO 130 930 COLOR 7, 0: CLS : COLOR 5: LOCATE 1, 65: PRINT " Mehmet KOBEY" 931 LOCATE 1, 1: PRINT "Saat:"; TIME$ 940 LOCATE 6, 18: PRINT STRING$(28, 223) LOCATE 17, 18: PRINT STRING$(28, 223) 950 FOR I = 6 TO 17 960 LOCATE I, 18: PRINT STRING$(1, 223) 970 LOCATE I, 46: PRINT STRING$(1, 223) 980 NEXT 990 COLOR 5, 7: LOCATE 8, 28: PRINT " M E N ": COLOR 7, 0 1000 LOCATE 10, 25: PRINT "1-KSEL KAYIT " 1010 LOCATE 11, 25: PRINT "2-DEME ARAMA " 1020 COLOR 4: LOCATE 12, 25: PRINT "3-ANA MEN ": COLOR 7, 0 1030 COLOR 5: LOCATE 14, 22: PRINT "S E M N Z [ ]": COLOR 0, 7 LOCATE 14, 41: PRINT " " 1040 SW$ = INKEY$: IF SW$ = "" THEN 1030 1050 S = VAL(SW$) 1060 ON S GOTO 1120, 1300, 130 1070 GOSUB 6000 1080 GOTO 1030 1090 REM"############################################################ REM"######## KSEL ARAMA BLM ############ REM"############################################################ 1120 OPEN "R", #1, "MUSTERI.DAT", 90 1130 FIELD #1, 30 AS A$, 30 AS AD$, 10 AS TL$, 20 AS I$ 1140 A = INT(LOF(1) / 90) 1150 COLOR 7, 0: CLS : COLOR 1, 6 1160 LOCATE 10, 20: INPUT "ARANAN KAYIT NO :", C 1170 COLOR 7, 0 1180 IF C > A THEN SOUND 300, 1 ELSE LOCATE 20, 20: COLOR 26 PRINT "BYLE BR KAYIT YOKTUR.": SLEEP 1: COLOR 7, 0 GOTO 1150 1191 GET #1, C: CLS 1195 LOCATE 10, 20: PRINT "KAYIT NO :"; C 1200 LOCATE 11, 20: PRINT "ADI SOYADI :"; A$ 1210 LOCATE 12, 20: PRINT "ADRES :"; AD$ 1220 LOCATE 13, 20: PRINT "TELEFON NO :"; TL$ 1230 LOCATE 14, 20: PRINT "AIKLAMA :"; I$ 1240 COLOR 4, 8: LOCATE 18, 25: PRINT "DEVAM N E/H GRNZ.[ ]" LOCATE 18, 49: INPUT "", D$ 1250 IF D$ = "E" OR D$ = "e" THEN 1150 1260 IF D$ = "H" OR D$ = "h" THEN 1261 ELSE 1262 1261 CLOSE #1: GOTO 930 1262 GOSUB 5000 1263 GOTO 1240 1270 REM"################################################################# REM"####### DEME ARAMA BLM ############## REM"################################################################# 1300 OPEN "R", #2, "ODEME.DAT", 90 1310 FIELD #2, 30 AS A$, 15 AS MF$, 15 AS P$, 15 AS O$, 15 AS KB$ 1320 B = INT(LOF(2) / 90) 1330 COLOR 7, 0: CLS : COLOR 5: LOCATE 10, 20: PRINT "ARANAN KAYIT NO :" LOCATE 10, 40: INPUT "", C: COLOR 7, 0 1340 IF C > B THEN 1345 ELSE 1350 1345 LOCATE 20, 20: PRINT "BYLE BR KAYIT YOK..!": SLEEP 1 COLOR 7, 0: GOTO 1330 1350 GET #2, C: COLOR 4, 6 1351 LOCATE 10, 20: PRINT "KAYIT NO :"; C 1360 LOCATE 11, 20: PRINT "ADI SOYADI :"; A$ 1370 LOCATE 12, 20: PRINT "MALIN FATI :"; MF$; "TL." 1380 LOCATE 13, 20: PRINT "PENATI :"; P$; "TL." 1390 LOCATE 14, 20: COLOR 4: PRINT "KALAN BOR :"; KB$; "TL.": COLOR 7, 0 1400 COLOR 5, 6: LOCATE 17, 20: PRINT "DEVAM N E/H GRNZ [ ]"; "M-Men" LOCATE 17, 44: INPUT "", D$: COLOR 7, 0 1410 IF D$ = "E" OR D$ = "e" THEN 1320 1405 IF D$ = "M" OR D$ = "m" THEN 930 1420 IF D$ = "H" OR D$ = "h" THEN 1430 ELSE 1435 1430 CLOSE #2: GOTO 930 1435 GOSUB 5000 1436 GOTO 1400 1440 COLOR 7, 0: CLS : COLOR 5: LOCATE 1, 6: PRINT "Saat:"; TIME$ LOCATE 1, 65: PRINT " Mehmet KOBEY": LOCATE 6, 18: PRINT STRING$(28, 223): COLOR 7, 0 1450 LOCATE 17, 18: PRINT STRING$(28, 223) 1460 FOR I = 6 TO 17 1470 LOCATE I, 18: PRINT STRING$(1, 223) 1480 LOCATE I, 46: PRINT STRING$(1, 223) 1490 NEXT 1500 COLOR 5, 7: LOCATE 8, 28: PRINT " M E N ": COLOR 7, 0 1510 LOCATE 10, 23: PRINT "1.KSEL GNCELLEME" 1520 LOCATE 11, 23: PRINT "2.DEME GNCELLEME " 1530 COLOR 4: LOCATE 12, 23: PRINT "3.ANA MEN ": COLOR 7, 0 1540 COLOR 5: LOCATE 14, 22: PRINT "S E M N Z [ ]": COLOR 0, 7 LOCATE 14, 41: PRINT " " 1550 SW$ = INKEY$: IF SW$ = "" THEN 1540 1560 S = VAL(SW$) 1570 ON S GOTO 1630, 1930, 130 1580 GOSUB 6000 1590 GOTO 1540 1600 REM'################################################################# REM'######## KSEL GNCELLEME BLM ############### REM'################################################################# 1630 OPEN "R", #1, "MUSTERI.DAT", 90 1640 FIELD #1, 30 AS A$, 30 AS AD$, 10 AS TL$, 20 AS I$ 1650 A = INT(LOF(1) / 90) 1655 COLOR 7, 0 1660 CLS : LOCATE 10, 20: PRINT "DEECEK KAYIT NO :": LOCATE 10, 41: INPUT "", C 1670 REM"IF C = 0 THEN SOUND 300, 1 1680 IF C > A THEN SOUND 300, 1 ELSE 1690 1681 LOCATE 12, 20: PRINT "BYLE BR KAYIT YOK!!" SLEEP 1: GOTO 1660 1690 GET #1, C 1695 LOCATE 10, 20: PRINT "KAYIT NO :"; C 1700 LOCATE 11, 20: PRINT "1.ADI SOYADI :"; A$ 1710 LOCATE 12, 20: PRINT "2.ADRES :"; AD$ 1720 LOCATE 13, 20: PRINT "3.TELEFON NO :"; TL$ 1730 LOCATE 14, 20: PRINT "4.AIKLAMA :"; I$ 1740 LOCATE 16, 10: PRINT "DEKLK YAPILACAK SATIR N [1-2-3-4]" LOCATE 16, 51: PRINT "KAYIT N [ ] BASINIZ [ ]": COLOR 4, 2 LOCATE 16, 63: PRINT "K": LOCATE 16, 75: LINE INPUT "", W$: COLOR 7, 0 1745 IF W$ = "K" OR W$ = "k" THEN 1820 1750 LOCATE 16, 10: PRINT SPC(60); : IF W$ = "1" THEN LOCATE 11, 35: PRINT SPC(30); : LOCATE 11, 35: INPUT "", B$: LSET A$ = B$: GOTO 1740 1760 LOCATE 16, 10: PRINT SPC(60); : IF W$ = "2" THEN LOCATE 12, 35: PRINT SPC(30); : LOCATE 12, 35: INPUT "", C$: LSET AD$ = C$: GOTO 1740 1770 LOCATE 16, 10: PRINT SPC(60); : IF W$ = "3" THEN LOCATE 13, 35: PRINT SPC(10); : LOCATE 13, 35: INPUT "", T$: LSET TL$ = T$: GOTO 1740 1780 LOCATE 16, 10: PRINT SPC(60); : IF W$ = "4" THEN LOCATE 14, 35: PRINT SPC(40); : LOCATE 14, 35: INPUT "", AK$: LSET I$ = AK$: GOTO 1740 1790 LOCATE 16, 10: PRINT SPC(60); : IF W$ = "K" OR T$ = "k" THEN 1830 1800 IF W$ = "" THEN 1850 ELSE 1810 1810 SOUND 300, 1: LOCATE 20, 20: PRINT "YANLI TUA BASTINIZ.!" FOR I = 1 TO 7801: NEXT: LOCATE 20, 20: PRINT SPC(55); : GOTO 1740 1820 COLOR 4: SOUND 500, 1 1830 LOCATE 20, 20: PRINT "DSKET ZERNE DEEN BLGLER,KAYIT EDYORUM.!" SLEEP 1: LOCATE 20, 20: PRINT SPC(59); 1840 PUT #1, C 1850 LOCATE 18, 20: PRINT "BAKA DEECEK KAYIT VAR MI [ / ] [ ]" COLOR 4: LOCATE 18, 51: PRINT "E H" 1860 LOCATE 18, 66: LINE INPUT "", D$ 1870 IF D$ = "" THEN LOCATE 20, 20: PRINT "GR YAPMADINIZ.": GOTO 1850 1880 IF D$ = "E" OR D$ = "e" THEN 1660 1890 IF D$ = "H" OR D$ = "h" THEN 1891 ELSE 1892 1891 CLOSE #1: GOTO 1440 1892 GOSUB 5000 1893 GOTO 1850 1900 REM"############################################################## REM"######## DEME GNCELLEME BLM ################### REM"############################################################## 1930 OPEN "R", #2, "ODEME.DAT", 90 1940 FIELD #2, 30 AS A$, 15 AS MF$, 15 AS P$, 15 AS O$, 15 AS KB$ 1950 B = INT(LOF(2) / 90) 1960 CLS : LOCATE 10, 20: PRINT "DEECEK KAYIT NO :": LOCATE 10, 43: COLOR 4: INPUT "", C: COLOR 7, 0 1970 IF C > B THEN SOUND 300, 1 ELSE 1980 1971 LOCATE 12, 20: PRINT "BYLE BR KAYIT YOK !": SLEEP 1: GOTO 1960 1980 GET #2, C 1985 U = 0: KB = 0: P = 0: MF = 0 1990 CLS 1993 LOCATE 10, 20: PRINT "KAYIT NO :"; C 2000 LOCATE 11, 20: PRINT "ADI SOYADI :"; A$ 2010 LOCATE 12, 20: PRINT "MALIN FATI :"; MF$ 2020 LOCATE 13, 20: PRINT "PENATI :"; P$ 2030 KB = VAL(KB$): O = VAL(O$) 2040 COLOR 6, 5: LOCATE 14, 20: PRINT "DEME VAR MI [ / ] [ ]": COLOR 16 LOCATE 14, 34: PRINT "E H": COLOR 7, 0: COLOR 3 2050 LOCATE 14, 40: LINE INPUT "", K$: COLOR 7, 0 2070 IF K$ = "E" OR K$ = "e" THEN 2110 2080 IF K$ = "H" OR K$ = "h" THEN 2130 ELSE 2100 2100 GOSUB 5000 2105 GOTO 2040 2110 COLOR 5: LOCATE 15, 20: PRINT " D E M E :": LOCATE 15, 31: COLOR 4 INPUT "", O: COLOR 7, 0 2120 KB = KB - O 2130 COLOR 18: LOCATE 16, 20: PRINT "KALAN BOR :": LOCATE 16, 32: COLOR 4: PRINT ; KB; "TL.": COLOR 7, 0 2140 LSET A$ = B$: LSET MF$ = C$: LSET P$ = E$: LSET O$ = STR$(O) LSET KB$ = STR$(KB) 2150 SOUND 200, 1: LOCATE 20, 20: PRINT "DEME BLGLERN KAYIT EDYORUM !" SLEEP 1: LOCATE 20, 20: PRINT SPC(40); 2160 PUT #2, C 2170 LOCATE 18, 25: PRINT "DEVAM N [E/H] GRNZ [ ]": LOCATE 18, 51: COLOR 4: INPUT "", D$: COLOR 7, 0 2180 IF D$ = "" THEN SOUND 300, 5: GOTO 2170 2190 IF D$ = "E" OR D$ = "e" THEN 1960 2200 IF D$ = "H" OR D$ = "h" THEN 2202 ELSE 2203 2202 CLOSE #2: GOTO 1440 2203 GOSUB 5000 2204 GOTO 2170 2210 COLOR 7, 0: CLS : COLOR 5: LOCATE 1, 3: PRINT "Saat:"; TIME$ LOCATE 1, 65: PRINT "Mehmet KOBEY": COLOR 7, 0: LOCATE 6, 18: PRINT STRING$(28, 223): COLOR 7, 0 2220 LOCATE 17, 18: PRINT STRING$(28, 223) 2230 FOR I = 6 TO 17 2240 LOCATE I, 18: PRINT STRING$(1, 223) 2250 LOCATE I, 46: PRINT STRING$(1, 223) 2260 NEXT 2270 COLOR 5, 7: LOCATE 8, 28: PRINT " M E N ": COLOR 7, 0 2280 LOCATE 10, 21: PRINT "1-K BLG GRNTLEME " 2290 LOCATE 11, 21: PRINT "2-DEME GRNTLEME " 2300 COLOR 4: LOCATE 12, 21: PRINT "3-ANA MEN ": COLOR 7, 0 2310 COLOR 5: LOCATE 14, 22: PRINT "S E M N Z [ ]": COLOR 0, 7 LOCATE 14, 41: PRINT " ": COLOR 7, 0 2320 SW$ = INKEY$: IF SW$ = "" THEN 2320 2330 S = VAL(SW$) 2340 ON S GOTO 2360, 2580, 130 2350 GOSUB 6000 2355 GOTO 2210 2360 COLOR 0, 7: CLS : LOCATE 12, 25: PRINT "DKM [ ]KRANA'MI-[ ]RNTER'E Mi" COLOR 4: LOCATE 12, 32: PRINT "E": LOCATE 12, 44: PRINT "P": COLOR 7, 0 2370 LOCATE 12, 32: LINE INPUT "", F$ 2380 IF F$ = "E" THEN 2440 2390 IF F$ = "P" THEN 3270 ELSE 2400 2400 GOSUB 6000 2410 GOTO 2360 2420 REM"################################################################## REM"######### K BLG GRNTLEME BLM ############## REM"################################################################## 2440 OPEN "R", #1, "MUSTERI.DAT", 90 2450 FIELD #1, 30 AS A$, 30 AS AD$, 10 AS TL$, 20 AS I$ 2460 A = INT(LOF(1) / 90) 2470 FOR I = 1 TO A 2480 GET #1, I 2490 CLS : COLOR 4, 1 2491 LOCATE 9, 20: PRINT "KAYIT NO :"; I: COLOR 0, 7 2500 LOCATE 10, 20: PRINT "ADI SOYADI :"; A$ 2510 LOCATE 11, 20: PRINT "ADRES :"; AD$ 2520 LOCATE 12, 20: PRINT "TELEFON NO :"; TL$ 2530 LOCATE 13, 20: PRINT "AIKLAMA :"; I$ 2540 LOCATE 15, 25: PRINT "DEVAM N BASINIZ": COLOR 7, 0 2550 COLOR 20: LOCATE 15, 36: PRINT "[SPACE]": W$ = INPUT$(1) IF W$ = " " THEN 2560 ELSE 2570: COLOR 7, 0 2560 NEXT I 2570 CLOSE #1: SOUND 200, 1: COLOR 6, 4: LOCATE 20, 30: PRINT "DKM SONA ERMTR." COLOR 7, 0: CLS : GOTO 2210 2580 COLOR 0, 7: CLS : LOCATE 12, 30: PRINT "DKM [ ]KRANA'MI-[ ]RNTERE'M" COLOR 20: LOCATE 12, 37: PRINT "E": LOCATE 12, 49: PRINT "P": COLOR 7, 0 LOCATE 13, 37: INPUT "", F$ 2590 IF F$ = "E" OR F$ = "e" THEN 2640 2600 IF F$ = "P" OR F$ = "p" THEN 3490 ELSE 2610 2610 GOSUB 5000 2620 GOTO 2580 2630 REM"################################################################## REM"########### DEME GRNTLEME BLM #################### REM"################################################################## 2640 OPEN "R", #2, "ODEME.DAT", 90 2650 FIELD #2, 30 AS A$, 15 AS MF$, 15 AS P$, 15 AS O$, 15 AS KB$ 2660 B = INT(LOF(2) / 90) 2665 FOR I = 1 TO B 2670 GET #2, I 2680 CLS : COLOR 4, 1 2681 LOCATE 9, 20: PRINT "KAYIT NO :"; I: COLOR 6, 4 2690 LOCATE 10, 20: PRINT "ADI SOYADI :"; A$ 2700 LOCATE 11, 20: PRINT "MALIN FATI :"; MF$; "TL." 2710 LOCATE 12, 20: PRINT "PENATI :"; P$; "TL." 2720 LOCATE 13, 20: PRINT "KALAN BOR :"; KB$; "TL.": COLOR 7, 0 2730 LOCATE 15, 25: PRINT "DEVAM N BASINIZ." 2740 COLOR 4: LOCATE 15, 36: PRINT "[SPACE]": R$ = INPUT$(1) IF R$ = " " THEN 2750 ELSE 2760: COLOR 7, 0 2750 NEXT I 2760 CLOSE #2: FOR I = 99 TO 100: SOUND I, 1: NEXT I: FOR I = 1 TO 8701: NEXT I: COLOR 7, 0: GOTO 2210 2780 REM"################################################################# REM"################ PRORAM BT BLM ####################### REM"################################################################# 2810 REM"FOR I = 2000 TO 300 STEP -10 2820 REM"SOUND I, .5: NEXT 2825 COLOR 7, 0 2830 CLS : COLOR 18: LOCATE 1, 24: PRINT "T E E K K R E D E R Z ": COLOR 10, 1: LOCATE 2, 25: PRINT " M E H M E T K O B E Y " SLEEP 1 2835 CHAIN "SON.BAS" REM"BEEP COLOR 7, 0: END 2840 COLOR 7, 0: CLS : COLOR 5 LOCATE 1, 6: PRINT "Saat:"; TIME$: LOCATE 1, 65: PRINT "Tarih:"; DATE$ COLOR 7, 0 2845 LOCATE 6, 18: PRINT STRING$(28, 223) LOCATE 17, 18: PRINT STRING$(28, 223) 2860 FOR I = 6 TO 17 2870 LOCATE I, 18: PRINT STRING$(1, 223) 2880 LOCATE I, 46: PRINT STRING$(1, 223) 2890 NEXT 2900 COLOR 5, 7: LOCATE 8, 28: PRINT " M E N ": COLOR 7, 0 2910 LOCATE 10, 22: PRINT "1-KAYIT NO GRNTLEME" 2920 LOCATE 11, 22: PRINT "2-DEME NO GRNTLEME" 2930 COLOR 4: LOCATE 12, 22: PRINT "3-ANA MEN ": COLOR 7, 0 2940 COLOR 5: LOCATE 14, 23: PRINT "S E M N Z [ ]": COLOR 0, 7 LOCATE 14, 42: PRINT " ": COLOR 7, 0 2950 SW$ = INKEY$: IF SW$ = "" THEN 2940 2960 S = VAL(SW$) 2970 ON S GOTO 3020, 3150, 130 2980 GOSUB 6000 2990 GOTO 2940 3000 REM"################################################################# REM"############ KSEL KAYIT NO GRNTLEME BLM ######### REM"################################################################# 3020 CLS 3025 OPEN "R", #1, "MUSTERI.DAT", 90 3030 FIELD #1, 30 AS A$, 30 AS AD$, 10 AS TL$, 20 AS I$ 3040 A = INT(LOF(1) / 90) 3050 FOR I = 1 TO A 3055 CLS 3060 GET #1, I 3065 IF A$ = " " THEN 3105 3070 LOCATE 12, 20: PRINT "KAYIT NOSU :"; I 3080 LOCATE 13, 20: PRINT "ADI SOYADI :"; A$: SOUND 100, 1 3090 COLOR 5: LOCATE 18, 20: PRINT "Ltfen Basnz.": COLOR 7, 0 3095 COLOR 20: LOCATE 18, 27: PRINT "ARA UBUUNA": COLOR 7, 0 3100 W$ = INPUT$(1) 3105 NEXT I 3110 CLOSE #1: COLOR 18: LOCATE 20, 23: PRINT "DKM SONA ERMTR." SLEEP 1: COLOR 7, 0: GOTO 2840 3120 REM"################################################################# REM"############# DEME KAYIT NO GRNTLEME ###################### REM"################################################################# 3150 CLS 3155 OPEN "R", #2, "ODEME.DAT", 90 3160 B = INT(LOF(2) / 90) 3175 CLS 3170 FOR I = 1 TO B 3180 GET #2, I 3185 IF A$ = "" THEN 3225 3190 LOCATE 12, 20: PRINT "KAYIT NO'SU :"; I: COLOR 7, 0 3200 COLOR 4, 6: LOCATE 13, 20: PRINT "ADI SOYADI :"; A$: BEEP: COLOR 7, 0 3210 COLOR 7: LOCATE 18, 20: PRINT "Ltfen Basnz.": COLOR 7, 0 3215 COLOR 20: LOCATE 18, 27: PRINT "ARA UBUUNA": COLOR 7, 0 3220 W$ = INPUT$(1) 3225 NEXT I 3230 CLOSE #2: COLOR 18: LOCATE 20, 23: PRINT "DKM SONA ERMTR." SLEEP 1: COLOR 7, 0: GOTO 2840 3240 REM"################################################################## REM"############ KSEL BLG PRINTER DKM ################# REM################################################################### 3270 OPEN "R", #1, "MUSTERI.DAT", 90 3280 FIELD #1, 30 AS A$, 30 AS AD$, 10 AS TL$, 20 AS I$ 3290 A = INT(LOF(1) / 90) 3300 FOR I = 1 TO A 3305 CLS 3310 GET #1, I 3315 IF A$ = "" AND AD$ = "" AND TL$ = "" AND I$ = "" THEN 3390 3320 WIDTH "LPT1:", 136: LPRINT "@" 3330 LPRINT : LPRINT TAB(10); "Ad Soyad :"; A$ 3340 LPRINT TAB(10); "Adresi :"; AD$ 3350 LPRINT TAB(10); "Telefon No :"; TL$ 3360 LPRINT TAB(10); "Aklama :"; I$ 3370 LPRINT : LPRINT TAB(10); "************************************" 3380 LPRINT : LPRINT 3390 NEXT I 3400 LPRINT TAB(10); "** MTER BLG DKM SONA ERMTR **": CLOSE #1 3410 LPRINT TAB(10); " ** TEEKKR EDERZ ** " 3420 LPRINT TAB(50); "Saat:"; TIME$; "Tarih:"; DATE$ 3430 CLS : SOUND 100, 1 3440 LOCATE 12, 10: PRINT "DKM TAMAMLANDI.": COLOR 5: LOCATE 12, 27: PRINT "Men in Tuuna Basnz.": COLOR 7, 0 LOCATE 12, 37: COLOR 4: PRINT "[SPACE]": COLOR 7, 0 3450 M$ = INPUT$(1): GOTO 2210 3460 REM"################################################################# REM"########## DEME BLG PRINTER DKM BLM ############### REM"################################################################# 3490 OPEN "R", #2, "DEME.DAT", 90 3500 FIELD #2, 30 AS A$, 15 AS MF$, 15 AS P$, 15 AS O$, 15 AS KB$ 3510 B = INT(LOF(2) / 90) 3520 FOR I = 1 TO B 3525 CLS 3530 GET #2, I 3535 IF A$ = "" AND MF$ = "" AND P$ = "" AND KB$ = "" THEN 3605 3540 WIDTH "LPT1:", 136: LPRINT "@" 3550 LPRINT : LPRINT TAB(10); "Ad Soyad :"; A$ 3560 LPRINT TAB(10); "Maln Fiat :"; MF$; "TL." 3570 LPRINT TAB(10); "Maln Peinat :"; P$; "TL." 3580 LPRINT TAB(10); "Kalan Bor :"; KB$; "TL." 3590 LPRINT : LPRINT TAB(10); "****************************************" 3600 LPRINT : LPRINT 3605 NEXT I: CLOSE #2 3610 LPRINT TAB(10); "**DEME BLG DKM SONA ERMTR **" 3620 LPRINT TAB(10); " ** TEEKKR EDERZ ** " 3630 LPRINT TAB(50); "Saat:"; TIME$; TAB(65); "Tarih:"; DATE$ 3640 CLS : SOUND 100, 1 3650 LOCATE 12, 10: PRINT "DKM TAMAMLANDI.": COLOR 5: LOCATE 12, 27: PRINT "Men in Tuuna Basnz.": COLOR 7, 0 LOCATE 12, 37: COLOR 4: PRINT "[SPACE]": COLOR 7, 0 3660 M$ = INPUT$(1): GOTO 2210 3670 COLOR 7, 0: CLS : COLOR 5 3675 LOCATE 1, 6: PRINT "Saat:"; TIME$: LOCATE 1, 65: PRINT " Mehmet Kobey" 3680 LOCATE 6, 18: PRINT STRING$(28, 223) LOCATE 17, 18: PRINT STRING$(28, 223) 3690 FOR I = 6 TO 17 3700 LOCATE I, 18: PRINT STRING$(1, 223) 3710 LOCATE I, 46: PRINT STRING$(1, 223) 3720 NEXT 3730 COLOR 5, 7: LOCATE 8, 28: PRINT " M E N ": COLOR 7, 0 3740 LOCATE 10, 22: PRINT "1-KSEL BLG SLME" 3750 LOCATE 11, 22: PRINT "2-DEME BLG SLME " 3760 COLOR 4: LOCATE 12, 22: PRINT "3-ANA MEN ": COLOR 7, 0 3770 COLOR 5: LOCATE 14, 23: PRINT "S E M N Z [ ]": COLOR 0, 7 LOCATE 14, 42: PRINT " ": COLOR 7, 0 3775 LOCATE 20, 20: COLOR 20: PRINT "[4] KTKLER TAMAMEN SLER." 3800 COLOR 7, 0: SW$ = INKEY$: IF SW$ = "" THEN 3770 3810 S = VAL(SW$) 3820 ON S GOTO 3870, 4140, 130, 4410 3830 GOSUB 6000 3835 GOTO 3770 3840 REM"################################################################# REM"############ KSEL BLG SLME BLM ################# REM"################################################################# 3870 OPEN "R", #1, "MUSTERI.DAT", 90 3880 FIELD #1, 30 AS A$, 30 AS AD$, 10 AS TL$, 20 AS I$ 3890 A = INT(LOF(1) / 90) 3900 SOUND 100, 1: CLS : LOCATE 10, 20: COLOR 4 PRINT "SLNECEK KAYIT NO'YU GRNZ=>": COLOR 4 3910 LOCATE 10, 51: INPUT "", C: COLOR 7, 0 3920 IF C > A THEN 3900 3930 GET #1, C 3940 CLS : COLOR 5, 7 3942 IF A$ = "" AND AD$ = "" AND TL$ = "" AND I$ = "" THEN 3900 3945 LOCATE 11, 20: PRINT "ADI SOYADI :"; A$ 3950 LOCATE 12, 20: PRINT "ADRES :"; AD$ 3960 LOCATE 13, 20: PRINT "TELEFON NO :"; TL$ 3970 LOCATE 14, 20: PRINT "AIKLAMA :"; I$: COLOR 7, 0 3980 COLOR 26: LOCATE 18, 20: PRINT "KAYIT SLNSNM ==>" 3990 COLOR 4: LOCATE 18, 40: LINE INPUT "", Z$ 4000 IF Z$ = "E" OR Z$ = "e" THEN 4020 4010 IF Z$ = "H" OR Z$ = "h" THEN 4060 ELSE BEEP: GOTO 3980 4020 LSET A$ = "": LSET AD$ = "": LSET TL$ = "": LSET I$ = "" 4030 PUT #1, C 4040 CLS : COLOR 20: LOCATE 18, 22: PRINT C 4050 LOCATE 18, 25: PRINT "-NO'LU KAYIT SLND": COLOR 7, 0 4060 LOCATE 19, 20: PRINT "SLNECEK BAKA KAYIT VAR MI ==>" 4070 LOCATE 19, 52: LINE INPUT "", S1$ 4080 IF S1$ = "E" OR S1$ = "e" THEN 3900 4090 IF S1$ = "H" OR S1$ = "h" THEN 4100 ELSE 4110 4100 CLOSE #1: GOTO 3670 4110 GOSUB 5000 4120 GOTO 4060 4130 REM"################################################################### REM"########### DEME BLG SLME BLM ######################## REM"################################################################### 4140 OPEN "R", #2, "ODEME.DAT", 90 4150 FIELD #2, 30 AS A$, 15 AS MF$, 15 AS P$, 15 AS O$, 15 AS KB$ 4160 B = INT(LOF(2) / 90) 4170 SOUND 300, 1: CLS : LOCATE 8, 20: COLOR 4 PRINT "SLNECEK KAYIT NO'YU GRNZ.": COLOR 4 4180 LOCATE 8, 51: INPUT "", C: COLOR 7, 0 4190 IF C > B THEN 4170 4200 GET #2, C: CLS 4201 IF A$ = "" AND MF$ = "" AND P$ = "" AND KB$ = "" THEN 4170 4205 LOCATE 10, 20: PRINT "KAYIT NO :"; C 4210 COLOR 5: LOCATE 11, 20: PRINT "ADI SOYADI :"; A$ 4220 LOCATE 12, 20: PRINT "MALIN FATI :"; MF$; "TL." 4230 LOCATE 13, 20: PRINT "PENATI :"; P$; "TL." 4240 LOCATE 14, 20: COLOR 4: PRINT "KALAN BOR :"; KB$; "TL.": COLOR 1 4241 IF KB$ > "0" THEN SOUND 100, 5: LOCATE 2, 20: PRINT "BORCU VAR!!" 4250 LOCATE 18, 20: COLOR 20: PRINT "KAYIT SLNSN M ==?": COLOR 7, 0 4260 LOCATE 18, 42: LINE INPUT "", Z$ 4270 IF Z$ = "E" OR Z$ = "e" THEN 4290 4280 IF Z$ = "H" OR Z$ = "h" THEN 4330 ELSE 4250 4290 LSET A$ = "": LSET MF$ = "": LSET P$ = "": LSET KB$ = "" 4300 PUT #2, C: CLS 4310 COLOR 20: LOCATE 18, 22: PRINT C: COLOR 7, 0 4320 COLOR 8: LOCATE 18, 25: PRINT "-NO'LU KAYIT SLND.": COLOR 7, 0 4330 SOUND 300, 1: LOCATE 19, 20: PRINT "SLNECEK BAKA KAYIT VAR MI ==>" 4340 LOCATE 19, 52: LINE INPUT "", S1$ 4350 IF S1$ = "E" OR S1$ = "e" THEN 4170 4360 IF S1$ = "H" OR S1$ = "h" THEN 4370 ELSE SOUND 200, 2: GOTO 4380 4370 CLOSE #2: GOTO 3670 4380 GOSUB 5000 4390 GOTO 4330 4400 REM"################################################################ REM"########### K T K S L M E B L M ############## REM"################################################################ 4410 CLS 4420 LOCATE 12, 20: COLOR 6: PRINT "KT SLMEK N YAZINIZ." 4425 COLOR 7, 0 4430 LOCATE 12, 39: COLOR 20: PRINT "DELETE": COLOR 7, 0 4450 LOCATE 15, 40: INPUT "", U$ 4460 IF U$ = "DELETE" OR U$ = "delete" THEN 4490 4470 IF U$ = "M" OR U$ = "m" THEN 3670 4480 SOUND 300, 2 4485 LOCATE 21, 20: COLOR 1: PRINT "LTFEN YENDEN GRNZ.[ ] Men'YE Gider" LOCATE 21, 44: COLOR 4: PRINT "M": COLOR 7, 0 SLEEP 2: GOTO 4410 4490 KILL "ODEME.DAT": KILL "MUSTERI.DAT" 4500 LOCATE 23, 20: COLOR 8: PRINT "KTKLER SLND,[ ] Men'ye Gider." LOCATE 23, 38: COLOR 4: PRINT "M": COLOR 7, 0 INPUT "", K$ 4510 IF K$ = "M" OR K$ = "m" THEN 3670 ELSE SOUND 200, 2: GOTO 4500 5000 SOUND 300, 2: LOCATE 20, 10: COLOR 4, 15 PRINT "YANLI TUA BASTINIZ.LTFEN YENDEN GRNZ." SLEEP 2: LOCATE 20, 10: COLOR 7, 0: PRINT SPC(45); : COLOR 7, 0 RETURN 6000 SOUND 300, 2: LOCATE 20, 10: COLOR 4, 15 PRINT "SEENENZ YANLI,LTFEN YENDEN GRNZ." SLEEP 2: LOCATE 20, 10: COLOR 7, 0: PRINT SPC(45); : COLOR 7, 0 RETURN 6500 REM" REM" 08/MART/1990 REM" 25/UBAT/1998 REM"