CLS
basla:
INPUT "TUTULACAK SAYIYI GIRINIZ (1-100)"; tutulacak
        IF tutulacak < 1 OR tutulacak > 100 THEN
        PRINT "YANLIS SAYI"
        GOTO basla
        END IF
CLS
sayi:
deneme = deneme + 1
COLOR , deneme
PRINT deneme; ".deneme"
INPUT "ARANACAK SAYIYI GIRINIZ (1-100)"; ara
        IF ara < 1 OR ara > 100 THEN
        PRINT "YANLIS SAYI"
        GOTO sayi
                ELSEIF ara = tutulacak THEN
                PRINT "DOGRU SAYI"
                ELSEIF tutulacak < ara THEN
                PRINT "SAYI BUYUK"
                IF deneme < 10 THEN GOTO sayi ELSE GOTO son
                ELSEIF ara > tutalacak THEN
                PRINT "SAYI KUCUK"
        IF deneme < 10 THEN GOTO sayi ELSE GOTO son
        END IF
END
son:
PRINT ""
PRINT "HAKKINIZ DOLDU"
END
son1:
PRINT ""
PRINT " TEBRIKLER BILDINIZ"
END
 

CLS

RANDOMIZE TIMER

Sayi = INT(RND * 10)

Kez = 1

DO
BasaDon:

    INPUT "Tuttugum Sayiyi Bil Bakalim (1-10)"; Girilen


    IF Girilen < 0 OR Girilen > 10 THEN
   
        PRINT "1-10 Arasinda Giriniz"

        GOTO BasaDon
       
    END IF

   
    IF Girilen = Sayi THEN
   
        PRINT "Bravo"; Kez; ". tahmininizde buldunuz"

        EXIT DO
   
        ELSEIF Kez > 10 THEN
       
                PRINT "10 Tahminde Bilemediniz"
                EXIT DO
    END IF


    IF Girilen > Sayi THEN PRINT "Daha Kucuk Gir" ELSE PRINT "Daha Buyuk Gir"
   
    Kez = Kez + 1

   
LOOP