Pirmās programmas BASIC valodā

10 CLS
15 COLOR 10
20 A$ = "андрей ": B$ = "любит "
30 C$ = "компьютеры ": D$ = "математику"
40 PRINT A$
50 PRINT B$
60 PRINT C$
70 PRINT A$, B$, C$, D$
80 PRINT A$; B$; C$
90 PRINT
100  PRINT A$ + B$ + C$ + D$
102 PRINT : PRINT
110 a1$ = "днем ": a2$ = "ходит ": a3$ = "зеленый "
120 a4$ = "кругом ": a5$ = "ночью ": a6$ = "кот "
130 a7$ = "и ": a8$ = "дуб ": a9$ = "златая "
140 a10$ = "все ": a11$ = "ученый ": a12$ = "цепь "
150 a13$ = "по цепи ": a14$ = "том ": a15$ = "на дубе "
160 a16$ = "у лукоморья "
170 COLOR 11
180 PRINT a16$ + a8$ + a3$
190 PRINT a9$ + a12$ + a15$ + a14$
200 PRINT a7$ + a1$ + a7$ + a5$ + a6$ + a11$
210 PRINT a10$ + a2$ + a13$ + a4$

1995. gads, QBasic uz PC. Nodarbība par virknēm: mani pirmie mainīgie bija par mani pašu — „Andrejs mīl datorus un matemātiku”. Pēc tam sagriezu Puškina rindas („Pie līkā krasta zaļš ozols…”) vārdos, sajaucu mainīgos un salīmēju dzejoli atpakaļ.

10 CLS
20 COLOR 10: PRINT "Привет,как тебя зовут"
30 COLOR 14: INPUT a$
40 COLOR 10: PRINT "A в каком году ты родился,"; a$
50 COLOR 14: INPUT d
60 PRINT 1995 - d = c
70 COLOR 10: PRINT "Ты любишь ходить в школу"
80 COLOR 14: INPUT b$
85 COLOR 10
90 IF b$ = "да" THEN 195 ELSE PRINT "Ни чего,если тебе"; c; "лет сейчас ,обойдешься без школы"
190 END
195 COLOR 10
200 PRINT "А на какие оценки ты учишься"
210 COLOR 14: INPUT m
220 IF m > 6 THEN GOTO 250 ELSE GOTO 300
250 COLOR 10: PRINT "А какой предмет тебе больше нравится:1-математика,2-русский яз.,3-латышский яз.,4-пение,5-английский яз."
260 COLOR 14: INPUT h
270 IF h = 1 GOTO 300
280 IF h = 2 GOTO 400
300 END
400 END

Mana pirmā saruna ar datoru. Paskaties uz 60. rindu: PRINT 1995 - d = c salīdzina, nevis piešķir, tāpēc programma tā arī neuzzina tavu vecumu — un, ja pasaki, ka tev nepatīk skola, tā paziņo, ka 0 gadu vecumā tu bez tās lieliski iztiksi.