BaCon programlama dili ile yazılmış bir çevrimiçi sözlük örneği:
INCLUDE "hug.bac"
INITa$="3"
SUB ara
araB$=
GRAB$(arama)
araB2$=
REPLACE$(araB$, " ", "%20")
TEXT(arama, "")
TEXT(EDIT_BOX, "")
result$=
EXEC$("curl -s '
http://sozluk.net.in/sorgu.php?&kelime="&araB2$&"&arama=" & a$ & "'")
TEXT(EDIT_BOX, result$)
END SUBSUB dil_ing
a$="3"
END SUBSUB dil_tur
a$="4"
END SUBwindow =
WINDOW("İngilizce Sözlük", 600, 400)
arama=
ENTRY("", 200, 25)
ATTACH(window, arama, 200, 15)
CALLBACK(arama, ara)
dil1 =
RADIO("İngilizce", 80, 25, 0)
ATTACH(window, dil1, 220, 50)
CALLBACK(dil1, dil_ing)
dil2 =
RADIO("Türkçe", 80, 25, dil1)
ATTACH(window, dil2, 300, 50)
CALLBACK(dil2, dil_tur)
EDIT_BOX =
EDIT(580, 300)
ATTACH(window, EDIT_BOX, 10, 80 )
DISPLAY