Klavyeden katsayıları girilen 2 bilinmeyenli denklemin köklerini bulan qbasic programı kodları ve ekran görüntüsü aşağıdaki gibidir.
10 CLS
20 'Katsayıları klavyeden girme
40 LOCATE 10, 28: COLOR 12, 0: INPUT "A katsayısını giriniz"; A
50 IF A = 0 THEN GOTO 40
60 LOCATE 11, 28: COLOR 10, 0: INPUT "B katsayısını giriniz"; B
61 IF B = 0 THEN GOTO 60
70 LOCATE 12, 28: COLOR 9, 0: INPUT "C katsayısını giriniz"; C
71 IF C = 0 THEN GOTO 70
80 'Girilen katsayıları gösterme
90 LOCATE 14, 20: COLOR 11, 0: PRINT "Girdiginiz denklem="; A; "x^2+"; B; "x+"; C; "= 0"
100 'işlemler
110 DELTA = (B ^ 2) - (4 * (A * C))
120 IF DELTA < 0 THEN LOCATE 16, 28: COLOR 14, 0: PRINT "Denklemin kökleri yoktur."
GOTO 180 130 IF DELTA = 0 THEN x = (-B + (DELTA) ^ (1 / 2)) / (2 * A): LOCATE 16, 25: COLOR 14, 0: PRINT "Denklemin kökü"; x: GOTO 180 140 IF DELTA > O THEN X1 = (-B - (DELTA) ^ (1 / 2)) / (2 * A)
150 X2 = (-B + (DELTA) ^ (1 / 2)) / (2 * A)
160 LOCATE 16, 28: COLOR 14, 0: PRINT "1. Kökü ="; X1
170 LOCATE 17, 28: COLOR 14, 0: PRINT "2. Kökü ="; X2
180 END
