REM                     =============================
REM                     = PROGRAMI CALISTIRMAK ICIN =
REM                     =      (F5) E BASINIZ       =
REM                     =                           =
REM                     =      OKTAY AKKOYUNLU      =
REM                     =============================
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM
REM:PROGRAM  QBASIC ALTINDA CALISIR TAMAMEN TESADUFE BAGLI EL DAGITIR
REM:PROGRAMI CALISTIRABILMENIZ ICIN BILGISAYARINIZA QBASIC IN YUKLENMESI GEREKIR
REM:PROGRAM  QBASIC PROGRAMINIZ YOKSA ASAGIDAKI ADRESTEN ALABILIRSINIZ
REM:PROGRAM  QBASIC PROGRAMINI INDIRMEK ICIN BURAYA TIKLAYIN
REM:PROGRAMI BILGISAYARINIZA (DAGITIM.BAS) ADI ALTINDA KAYDETMENIZ GEREKIR 
REM:PROGRAMI YAZI PROGRAMINIZI (EDITPAD VEYA NOTEPAD) KULLANARAK BURADAN KOPYALAYARAK KAYDEDEBILIRSINIZ
REM:PROGRAMI TAMAMINI SELECT YAPARAK(MOUSELA KOYULASTIRARAK)KOPYALAYABILIRSINIZ
REM:PROGRAMI YAZI PROGRAMINDA ACILMIS BOS SAYFAYA KOPYALAYIN
REM:PROGRAMI (DAGITIM.BAS) ADIYLA HAFIZAYA ALIN
REM:PROGRAM  SAYFASINDA PROGRAM DISINDA SATIR OLMAMASI GEREKIR
REM:PROGRAMI MOUSE ILE SELECT EDERKEN ILK SATIRDAN BASLAYIP SON SATIRDA BITIRIN
REM:PROGRAM  SAYFASINDA WEB SAYFASIYLA ILGILI YAZILAR CIKMAZ.CIKTIYSA SILINIZ
REM:PROGRAMI CALISTIRMAK ICIN QBASIC PROGRAMINDAN FILE>OPEN KOMUTUNU KULLANARAK DAGITIM.BAS DOSYASINI ACIN
REM:PROGRAM  OKTAY AKKOYUNLU TARAFINDAN HAZIRLANMISDIR.!!!BASARILAR

1 REM ELDAGITIM
CLS
REM ASAGIDA ILK BILGILER YAZILIDIR
DIM K(52)
DIM B(4, 4, 13)
DIM S(6)
DIM KONTROL(4)
GOTO 2000

5 REM MUZIK
GOSUB 2500
COLOR 12, 0

10 REM PROGRAMDAN CIKIS VEYA DEVAM
LOCATE 23, 1: INPUT "  CIKIS=>(C)   EL DAGITIM=>(ENTER)   ", A$
IF A$ = "" THEN GOTO 2000
IF A$ = "C" THEN END
IF A$ = "c" THEN END
GOTO 10

2000 REM BRIC EL DAGITMA PROGRAMI
FOR J = 1 TO 52
K(J) = J
NEXT
CLS
FOR M = 1 TO 4
FOR N = 1 TO 4
FOR G = 1 TO 13
B(M, N, G) = O
NEXT
NEXT
NEXT
REM BILGISAYAR RANDOM ILE HEP AYNI SAYIYI SECIYOR.ZAMANA BAGLI RANDOM UYGULANDI
REM ZAMANA BAGLI COK FAZLA DEGISKEN KULLANILDIGINDAN BIR EL 2 DEFA GELEMEZ
T = TIMER - INT(TIMER)
S(1) = INT(T / .125) + 1
FOR J = 1 TO 2000 + S(1) * 999
S = J
NEXT
T = TIMER - INT(TIMER)
S(2) = INT(T / .125) + 1
FOR J = 1 TO 2000 + S(2) * 999
S = J
NEXT
T = TIMER - INT(TIMER)
S(3) = INT(T / .125) + 1
FOR J = 1 TO 2000 + S(3) * 999
S = J
NEXT
T = TIMER - INT(TIMER)
S(4) = INT(T / .125) + 1
FOR J = 1 TO 2000 + S(4) * 999
S = J
NEXT
T = TIMER - INT(TIMER)
S(5) = INT(T / .125) + 1
FOR J = 1 TO 2000 + S(5) * 999
S = J
NEXT
T = TIMER - INT(TIMER)
S(6) = INT(T / .125) + 1
R = (S(1) * S(6) * TIMER * 65535) / (64000 * 240) - 32768
R = INT(R)
RANDOMIZE R
KS = 53
FOR Z = 1 TO 52
KS = KS - 1
IF KS > 31 THEN W = 5: GOTO 2010
IF KS > 15 THEN W = 4: GOTO 2010
IF KS > 7 THEN W = 3: GOTO 2010
IF KS > 3 THEN W = 2: GOTO 2010
IF KS > 1 THEN W = 1: GOTO 2010
IF KS = 1 THEN E = 1: GOTO 2015
2010
E = 1
FOR X = W TO 0 STEP -1
FOR J = 1 TO S(W + 1)
S = RND
NEXT
C = INT(RND * 10000000)
B = C / 2
A = (B - INT(B)) * 2
E = E + A * (2 ^ X)
NEXT X
REM DOGUDA 9. KARTIN ASAGI YAZILMASI KONTROLUNDA KULLANILDI
IF E < 14 AND Z < 27 THEN GOTO 2010
IF E > KS THEN GOTO 2010

2015 REM KART YAZDIRMA
Y = K(E)
RE = INT((Y - 1) / 13) + 1
SA = Y - (RE - 1) * 13
IF Z - 4 * INT(Z / 4) = 1 THEN B(1, RE, SA) = 1: GOTO 2020
IF Z - 4 * INT(Z / 4) = 2 THEN B(2, RE, SA) = 1: GOTO 2020
IF Z - 4 * INT(Z / 4) = 3 THEN B(3, RE, SA) = 1: GOTO 2020
B(4, RE, SA) = 1

2020
IF E = KS THEN GOTO 2030
FOR J = E TO KS - 1
K(J) = K(J + 1)
NEXT J
2030
NEXT Z

2100 REM BATI ELI
COLOR 12, 0
LOCATE 11, 4: PRINT CHR$(3)
LOCATE 12, 4: PRINT CHR$(4)
COLOR 15, 0
LOCATE 13, 4: PRINT CHR$(5)
LOCATE 10, 4: PRINT CHR$(6)
P = 0
Y = 9
FOR M = 1 TO 4
D = 0
X = 6
IF M = 2 OR M = 3 THEN COLOR 12, 0
IF M = 1 OR M = 4 THEN COLOR 15, 0
FOR N = 13 TO 1 STEP -1
IF B(1, M, N) = 0 THEN GOTO 2110
D = D + 1
P = P + INT(N / 10) * (N - 9)
IF N < 10 THEN LOCATE Y + M, X: PRINT USING "##"; N + 1: GOTO 2105
IF N = 13 THEN LOCATE Y + M, X + 1: PRINT "A"
IF N = 12 THEN LOCATE Y + M, X + 1: PRINT "R"
IF N = 11 THEN LOCATE Y + M, X + 1: PRINT "D"
IF N = 10 THEN LOCATE Y + M, X + 1: PRINT "V"
2105
X = X + 3
2110
NEXT N
COLOR 7, 0
LOCATE Y + M, 1: PRINT D
NEXT M
COLOR 14, 0
LOCATE 8, 6: PRINT "BATI PUAN="
LOCATE 9, 1: PRINT "======================"
LOCATE 8, 16: PRINT P

2200 REM KUZEY ELI
COLOR 12, 0
LOCATE 4, 28: PRINT CHR$(3)
LOCATE 5, 28: PRINT CHR$(4)
COLOR 15, 0
LOCATE 6, 28: PRINT CHR$(5)
LOCATE 3, 28: PRINT CHR$(6)
P = 0
Y = 2
FOR M = 1 TO 4
IF M = 2 OR M = 3 THEN COLOR 12, 0
IF M = 1 OR M = 4 THEN COLOR 15, 0
X = 30
D = 0
FOR N = 13 TO 1 STEP -1
IF B(2, M, N) = 0 THEN GOTO 2210
D = D + 1
P = P + INT(N / 10) * (N - 9)
IF N < 10 THEN LOCATE Y + M, X: PRINT USING "##"; N + 1: GOTO 2205
IF N = 13 THEN LOCATE Y + M, X + 1: PRINT "A"
IF N = 12 THEN LOCATE Y + M, X + 1: PRINT "R"
IF N = 11 THEN LOCATE Y + M, X + 1: PRINT "D"
IF N = 10 THEN LOCATE Y + M, X + 1: PRINT "V"
2205
X = X + 3
2210
NEXT N
COLOR 7, 0
LOCATE Y + M, 25: PRINT D
NEXT M
COLOR 14, 0
LOCATE 1, 30: PRINT "KUZEY PUAN="
LOCATE 2, 25: PRINT "======================="
LOCATE 1, 41: PRINT P
COLOR 7, 0


2300 REM DOGU ELI
COLOR 12, 0
LOCATE 11, 53: PRINT CHR$(3)
LOCATE 12, 53: PRINT CHR$(4)
COLOR 15, 0
LOCATE 13, 53: PRINT CHR$(5)
LOCATE 10, 53: PRINT CHR$(6)
REM  DOGUDA BIR RENKTE 8 DEN FAZLA KART ICIN KONTROL
FOR A = 1 TO 4
KONTROL(A) = 0
NEXT
P = 0
FOR M = 1 TO 4
Y = 9
IF M = 2 OR M = 3 THEN COLOR 12, 0
IF M = 1 OR M = 4 THEN COLOR 15, 0
X = 55
D = 0
FOR N = 13 TO 1 STEP -1
IF B(3, M, N) = 0 THEN GOTO 2310
D = D + 1
P = P + INT(N / 10) * (N - 9)

IF X < 77 THEN GOTO 2304
IF KONTROL(M) = 1 THEN GOTO 2304
REM BIR RENK 8 KARTI GECERSE DOGUDA 9.KART ASAGI YAZILACAK
COLOR 12, 0
LOCATE 16, 53: PRINT CHR$(3)
LOCATE 17, 53: PRINT CHR$(4)
COLOR 15, 0
LOCATE 18, 53: PRINT CHR$(5)
LOCATE 15, 53: PRINT CHR$(6)
X = X - 24: Y = Y + 5
KONTROL(M) = 1

2304
IF N < 10 THEN LOCATE Y + M, X: PRINT USING "##"; N + 1: GOTO 2305
IF N = 13 THEN LOCATE Y + M, X + 1: PRINT "A"
IF N = 12 THEN LOCATE Y + M, X + 1: PRINT "R"
IF N = 11 THEN LOCATE Y + M, X + 1: PRINT "D"
IF N = 10 THEN LOCATE Y + M, X + 1: PRINT "V"
2305
X = X + 3
2310
NEXT N
COLOR 7, 0
LOCATE Y + M, 50: PRINT D
NEXT M
COLOR 14, 0
LOCATE 8, 55: PRINT "DOGU PUAN="
LOCATE 9, 50: PRINT "======================="
LOCATE 8, 65: PRINT P

2400 REM GUNEY ELI
COLOR 12, 0
LOCATE 18, 28: PRINT CHR$(3)
LOCATE 19, 28: PRINT CHR$(4)
COLOR 15, 0
LOCATE 20, 28: PRINT CHR$(5)
LOCATE 17, 28: PRINT CHR$(6)
P = 0
Y = 16
FOR M = 1 TO 4
IF M = 2 OR M = 3 THEN COLOR 12, 0
IF M = 1 OR M = 4 THEN COLOR 15, 0
X = 30
D = 0
FOR N = 13 TO 1 STEP -1
IF B(4, M, N) = 0 THEN GOTO 2410
D = D + 1
P = P + INT(N / 10) * (N - 9)
IF N < 10 THEN LOCATE Y + M, X: PRINT USING "##"; N + 1: GOTO 2405
IF N = 13 THEN LOCATE Y + M, X + 1: PRINT "A"
IF N = 12 THEN LOCATE Y + M, X + 1: PRINT "R"
IF N = 11 THEN LOCATE Y + M, X + 1: PRINT "D"
IF N = 10 THEN LOCATE Y + M, X + 1: PRINT "V"
2405
X = X + 3
2410
NEXT N
COLOR 7, 0
LOCATE Y + M, 25: PRINT D
NEXT M
COLOR 14, 0
LOCATE 15, 30: PRINT "GUNEY PUAN="
LOCATE 16, 25: PRINT "======================="
LOCATE 15, 41: PRINT P
E = 1
FOR W = 0 TO 2
FOR J = 1 TO S(W + 1)
S = RND
NEXT J
C = INT(RND * 10000000)
B = C / 2
A = (B - INT(B)) * 2
E = E + A * (2 ^ W)
NEXT W
R1 = 0: R2 = 0: R3 = 0: R4 = 0
IF E < 3 THEN R1 = 16: GOTO 2450
IF E < 5 THEN R2 = 16: GOTO 2450
IF E < 7 THEN R3 = 16: GOTO 2450
R4 = 16
2450
FOR J = 1 TO S(4)
S = RND
NEXT J
C = INT(RND * 10000000)
B = C / 2
A = (B - INT(B)) * 2
COLOR R1 + A * 3 + 12, 0
LOCATE 11, 30: PRINT "W"
COLOR R2 + A * 3 + 12, 0
LOCATE 11, 40: PRINT "E"
FOR J = 1 TO S(5)
S = RND
NEXT J
C = INT(RND * 10000000)
B = C / 2
A = (B - INT(B)) * 2
COLOR R3 + A * 3 + 12, 0
LOCATE 10, 35: PRINT "N"
COLOR R4 + A * 3 + 12, 0
LOCATE 12, 35: PRINT "S"
COLOR 7, 0
REM KONTROL  LOCATE 20, 1: PRINT S(1), S(2), S(3), S(4), S(5), S(6)
GOTO 5

2500 REM MUZIK PROGRAMI
FOR A = 1 TO 2
FOR I = 40 TO 1790 STEP 175
SOUND I, .4
FOR J = 0 TO INT(10 * RND) + 1
NEXT J
NEXT I
NEXT A
RETURN