Простенькая программа на QBasic, рисует объемный куб. Программа входит в школьный курс изучения программирования.

SCREEN 12
LINE (100, 150)-(400, 450), 15, B
LINE (100, 150)-(200, 50)
LINE (400, 150)-(500, 50)
LINE (400, 450)-(500, 350)
LINE (200, 50)-(500, 50)
LINE (500, 50)-(500, 350)
x = 200
FOR y = 60 TO 350 STEP 10
LINE (x, y)-(x, y — 8)
y = y + 7
NEXT y
y = 350
FOR x = 200 TO 490 STEP 15
LINE (x, y)-(x + 8, y)
y = y
NEXT x
y = 441
FOR x = 110 TO 200 STEP 10
LINE (x, y)-(x — 6, y + 6)
y = y — 10
NEXT x