CLS
INPUT "ADINIZ " ; AD$
INPUT "YAŞINIZ " , YAS%
PRINT "Sayın " ; AD$ ; YAS% ; " yaşındasınız."

CLS
PRINT 3 * 8 + 12 ' Sonuç 36 olarak ekranda görünecek
YASI = 32
PRINT "Yaşı = " ; YASI ; " dir"
A% = 15
B! = 3.14
ADI$ = "Mesut"
PRINT A% , B! , ADI$
SA$ = "Akcan"
PRINT ADI$ ; SA$

PRINT 12+33 ' Ekrana toplamı(45) verir
PRINT 125+48*10 ' 605 yazar. Öncelik sırası: Parantez içi, * / + - dir
PRINT 12-(80/4-23)+54/9 ' sonuç: 21 ??

PRINT 1 + 1 ' Toplam olan 2 çıkar
PRINT "1" + "1"
' 11 çıkar. Çift tırnak içindeki sayılar sayı olarak görülmez.
' Burada sayı olmadığı için toplama işlemi değil
' tırnaklar içindekileri birleştirme işlemi uygulanır
PRINT "QUICK" + "basic" ' QUICKbasic
PRINT 8 + "elma" ' !!! Hata !!!
PRINT "8" + "elma" ' 8elma
PRINT 8 ; "elma" ' 8 elma
PRINT 8/2 ; "elma" ' 4 elma

CLS
PRINT "Çıkmak için 0 yaz"
basla:
INPUT "Bir sayı yaz "; SAYI
IF SAYI = 0 THEN END
CLS
PRINT "Verdiğiniz sayı "; SAYI
PRINT SAYI; " 'nın karesı "; SAYI ^ 2; " dır."
PRINT SAYI; " 'nın küpü "; SAYI ^ 3; " dır."
GOTO basla

IF A = 40 THEN B = 40

A = 25
IF A > 40 THEN M$ ="Sayı 40 dan büyük" ELSE M$= "Sayı 40 dan küçük"
PRINT M$

IF A = 40 .... ' A , 40 a eşit mi?
IF A > 40 .... ' A , 40 dan büyük mü?
IF A < 40 .... ' A , 40 dan küçük mü?
IF A <> 40 .... ' A , 40 a eşit değilse
IF A <= 40 .... ' A , 40 a eşit ya da 40 dan küçük mü?
IF A >= 40 .... ' A , 40 a eşit ya da 40 dan büyük mü?
IF A ' A nın değeri 0 dan farklı mı?
IF NOT A ' A nın değili DOĞRU mu?

IF A > 40 THEN
'doğruysa yapılacaklar
....
....
ELSE
'Yanlışsa yapılacaklar
....
....
END IF

INPUT "ADINIZ " ; AD$
IF AD$ = "MESUT" THEN
PRINT "SİZİN ADINIZ MESUT"
ELSE
PRINT "SİZİN ADINIZ MESUT DEĞİL"
END IF

INPUT A
IF A > 40 THEN
IF A < 60 THEN
PRINT "SAYI 40 ile 60 arasında"
ELSE
PRINT "SAYI 60 yada 60dan büyük"
END IF
ELSE
IF A = 40 THEN
PRINT "SAYI 40a eşit"
ELSE
PRINT "SAYI 40dan küçük"
END IF
END IF

INPUT A
IF A>10 AND A<20 THEN PRINT "SAYI 10 ile 20 arasında"
INPUT A
IF A<10 OR A>50 THEN PRINT "SAYI 10 ile 50 arasında değil"
' yani sayı 10 dan küçük ya da 50 den büyük

10011011
10100000
--------
10000000

INPUT "1 ile 3 arasında sayı girin " ; A
IF A = 1 THEN
PRINT "SAYI = 1"
ELSEIF A = 2 THEN
PRINT "SAYI = 2"
ELSEIF A = 3 THEN
PRINT "SAYI = 3"
ELSE
PRINT "HATALI SAYI"
END IF

INPUT "1 ile 3 arasında sayı girin " ; A
SELECT CASE A
CASE 1
PRINT "SAYI = 1"
CASE 2
PRINT "SAYI = 2"
CASE 3
PRINT "SAYI = 3"
CASE ELSE
PRINT "HATALI SAYI"
END SELECT

basla:
A = A + 1
PRINT A
GOTO basla

basla:
A = A + 1
IF A>20 THEN END
PRINT A
GOTO basla

FOR N = 1 TO 25
PRINT N
NEXT N

FOR N = 1 TO 25 STEP 4

FOR N = 25 TO 1 STEP -1

FOR N = 1 TO 10
FOR M = 1 TO 4
PRINT N * M ,
NEXT M
PRINT
NEXT N